From cfc7a42eb65a240a911c7d662870134f2115398f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=9C=D0=B0=D0=B7=D0=B4=D0=B0=D0=B9=D1=89=D0=B8=D0=BA?= Date: Wed, 3 Feb 2016 23:48:39 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=D0=B0=20?= =?UTF-8?q?=D1=81=D1=82=D0=B0=D1=80=D0=B0=D1=8F=20=D0=BF=D0=B0=D0=BF=D0=BA?= =?UTF-8?q?=D0=B0=20bootstrap=20(#9)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- bootstrap/Context.cpp | 2972 --- bootstrap/Driver.cpp | 728 - bootstrap/Error.cpp | 915 - bootstrap/Escape.cpp | 916 - bootstrap/FindFile.cpp | 1666 -- bootstrap/Generator.cpp | 19822 -------------- bootstrap/HightLevelRASL.cpp | 18836 ------------- bootstrap/Lexer.cpp | 46739 --------------------------------- bootstrap/Library.cpp | 1440 - bootstrap/LibraryEx.cpp | 6377 ----- bootstrap/LowLevelRASL.cpp | 9969 ------- bootstrap/ParseCmdLine.cpp | 4989 ---- bootstrap/Parser.cpp | 17585 ------------- bootstrap/SymTable.cpp | 3011 --- bootstrap/make.bat | 16 - bootstrap/make.sh | 3 - bootstrap/refalrts.cpp | 2888 -- bootstrap/srefc.cpp | 5114 ---- 18 files changed, 143986 deletions(-) delete mode 100644 bootstrap/Context.cpp delete mode 100644 bootstrap/Driver.cpp delete mode 100644 bootstrap/Error.cpp delete mode 100644 bootstrap/Escape.cpp delete mode 100644 bootstrap/FindFile.cpp delete mode 100644 bootstrap/Generator.cpp delete mode 100644 bootstrap/HightLevelRASL.cpp delete mode 100644 bootstrap/Lexer.cpp delete mode 100644 bootstrap/Library.cpp delete mode 100644 bootstrap/LibraryEx.cpp delete mode 100644 bootstrap/LowLevelRASL.cpp delete mode 100644 bootstrap/ParseCmdLine.cpp delete mode 100644 bootstrap/Parser.cpp delete mode 100644 bootstrap/SymTable.cpp delete mode 100644 bootstrap/make.bat delete mode 100755 bootstrap/make.sh delete mode 100644 bootstrap/refalrts.cpp delete mode 100644 bootstrap/srefc.cpp diff --git a/bootstrap/Context.cpp b/bootstrap/Context.cpp deleted file mode 100644 index 7bcb8b20..00000000 --- a/bootstrap/Context.cpp +++ /dev/null @@ -1,2972 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult Cntx_AddNewVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_AddVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_CheckVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_Destroy(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_PopScope(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_PushScope(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_ResetAfterSentence(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Dec(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Context(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ShiftVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ShiftVariable_AddToFree(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Unique(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #AlreadyBounded -template -struct ident_AlreadyBounded { - static const char *name() { - return "AlreadyBounded"; - } -}; - -// identifier #ExistVariable -template -struct ident_ExistVariable { - static const char *name() { - return "ExistVariable"; - } -}; - -// identifier #FreeVarsFunc -template -struct ident_FreeVarsFunc { - static const char *name() { - return "FreeVarsFunc"; - } -}; - -// identifier #FreeVarsSent -template -struct ident_FreeVarsSent { - static const char *name() { - return "FreeVarsSent"; - } -}; - -// identifier #InvalidMode -template -struct ident_InvalidMode { - static const char *name() { - return "InvalidMode"; - } -}; - -// identifier #NotFound -template -struct ident_NotFound { - static const char *name() { - return "NotFound"; - } -}; - -// identifier #Success -template -struct ident_Success { - static const char *name() { - return "Success"; - } -}; - -static refalrts::FnResult Context(refalrts::Iter, refalrts::Iter) { - refalrts::this_is_generated_function(); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -} - -refalrts::FnResult Cntx_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Context, "Context" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icInt, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[4], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Cntx_Destroy(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Context, "Context" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // [Context 0 ] - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icNumLeft, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // [Context 0 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::number_left( 0UL, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Cntx_AddVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 33 elems - refalrts::Iter context[33]; - refalrts::zeros( context, 33 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Context, "Context" }, - { ShiftVariable, "ShiftVariable" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Success::name, - & ident_InvalidMode::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +55, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //19: s.StackDepth#1/1 - //20: s.Mode#1/1 - //21: s.Mode#1/2 - //22: e.Index#1/1 - //24: e.Index#1/2 - //26: e.Variables_B#1/1 - //28: e.Variables_E#1/1 - //30: s.VarDepth#1/1 - //31: s.VarDepth#1/2 - //32: s.VarDepth#1/3 - // [Context s.StackDepth#1 e.Variables_B#1 ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 ] s.Mode#1 e.Index#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 19, 2}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icContextSet, 0, 22, 0}, - {refalrts::icEPrepare, 0, 26, 2}, - {refalrts::icEStart, 0, 26, 2}, - {refalrts::icSave, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::icsRepeatLeft, 21, 20, 4}, - {refalrts::iceRepeatLeft, 24, 22, 4}, - {refalrts::icContextSet, 0, 28, 6}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 31, 30, 0}, - {refalrts::icCopySTVar, 32, 31, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 17}, - {refalrts::icIdent, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 8, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +40, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: s.StackDepth#1/1 - //15: s.NewMode#1/1 - //16: e.Index#1/1 - //18: e.Index#1/2 - //20: e.Variables_B#1/1 - //22: e.Variables_E#1/1 - //24: s.OldMode#1/1 - //25: s.VarDepth#1/1 - //26: s.OldMode#1/2 - //27: s.VarDepth#1/2 - // [Context s.StackDepth#1 e.Variables_B#1 ( s.OldMode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 ] s.NewMode#1 e.Index#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 14, 2}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icContextSet, 0, 16, 0}, - {refalrts::icEPrepare, 0, 20, 2}, - {refalrts::icEStart, 0, 20, 2}, - {refalrts::icSave, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::icContextSet, 0, 22, 6}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::iceRepeatLeft, 18, 16, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 26, 24, 0}, - {refalrts::icCopySTVar, 27, 25, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 12}, - {refalrts::icIdent, 0, 1, 13}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 8, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: s.StackDepth#1/1 - //11: e.Variables#1/1 - //13: s.Mode#1/1 - //14: e.Index#1/1 - //16: s.StackDepth#1/2 - //17: s.StackDepth#1/3 - // [Context s.StackDepth#1 e.Variables#1 ] s.Mode#1 e.Index#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icsVarLeft, 0, 13, 0}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 16, 10, 0}, - {refalrts::icCopySTVar, 17, 16, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 8}, - {refalrts::icIdent, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: s.StackDepth#1/1 - //20: s.Mode#1/1 - //21: s.Mode#1/2 - //22: e.Index#1/1 - //24: e.Index#1/2 - //26: e.Variables_B#1/1 - //28: e.Variables_E#1/1 - //30: s.VarDepth#1/1 - //31: s.VarDepth#1/2 - //32: s.VarDepth#1/3 - // [Context s.StackDepth#1 e.Variables_B#1 ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 ] s.Mode#1 e.Index#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[19], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - continue; - context[22] = context[0]; - context[23] = context[1]; - context[26] = 0; - context[27] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[2]; - context[7] = context[3]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_left( context[21], context[20], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[24], context[25], context[22], context[23], context[4], context[5] ) ) - continue; - context[28] = context[6]; - context[29] = context[7]; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[31], context[30])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[32], context[31])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ShiftVariable, "ShiftVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_Success::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[8], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[26], context[27], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: s.StackDepth#1/1 - //15: s.NewMode#1/1 - //16: e.Index#1/1 - //18: e.Index#1/2 - //20: e.Variables_B#1/1 - //22: e.Variables_E#1/1 - //24: s.OldMode#1/1 - //25: s.VarDepth#1/1 - //26: s.OldMode#1/2 - //27: s.VarDepth#1/2 - // [Context s.StackDepth#1 e.Variables_B#1 ( s.OldMode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 ] s.NewMode#1 e.Index#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[14], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - continue; - context[16] = context[0]; - context[17] = context[1]; - context[20] = 0; - context[21] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[2]; - context[7] = context[3]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - context[22] = context[6]; - context[23] = context[7]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[18], context[19], context[16], context[17], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[26], context[24])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[27], context[25])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[13], & ident_InvalidMode::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[8], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[20], context[21], context[2], context[3] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: s.StackDepth#1/1 - //11: e.Variables#1/1 - //13: s.Mode#1/1 - //14: e.Index#1/1 - //16: s.StackDepth#1/2 - //17: s.StackDepth#1/3 - // [Context s.StackDepth#1 e.Variables#1 ] s.Mode#1 e.Index#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[2]; - context[12] = context[3]; - if( ! refalrts::svar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[16], context[10])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[17], context[16])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_Success::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ShiftVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 48 elems - refalrts::Iter context[48]; - refalrts::zeros( context, 48 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ShiftVariable, "ShiftVariable" }, - { ShiftVariable_AddToFree, "ShiftVariable_AddToFree" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_FreeVarsFunc::name, - & ident_FreeVarsSent::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +81, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //28: s.Mode#1/1 - //29: s.VarDepth#1/1 - //30: e.Index#1/1 - //32: e.Variables_B#1/1 - //34: e.Free#1/1 - //36: e.FreeFunc#1/1 - //38: e.Variables_E#1/1 - //40: s.Mode#1/2 - //41: s.Mode#1/3 - //42: e.Index#1/2 - //44: e.Index#1/3 - //46: s.VarDepth#1/2 - //47: s.VarDepth#1/3 - // ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_B#1 ( # FreeVarsSent e.Free#1 ) ( # FreeVarsFunc e.FreeFunc#1 ) e.Variables_E#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 28, 2}, - {refalrts::icsVarRight, 0, 29, 2}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::icEPrepare, 0, 32, 0}, - {refalrts::icEStart, 0, 32, 0}, - {refalrts::icSave, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 4, 8}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 6}, - {refalrts::icContextSet, 0, 38, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 40, 28, 0}, - {refalrts::icCopySTVar, 41, 40, 0}, - {refalrts::icCopyEVar, 42, 30, 0}, - {refalrts::icCopyEVar, 44, 42, 0}, - {refalrts::icCopySTVar, 46, 29, 0}, - {refalrts::icCopySTVar, 47, 46, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icIdent, 0, 1, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icIdent, 0, 0, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 0, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 20, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 12, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: e.Variables#1/1 - //6: s.Mode#1/1 - //7: s.VarDepth#1/1 - // ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 4, 0}, - {refalrts::icsVarLeft, 0, 6, 2}, - {refalrts::icsVarRight, 0, 7, 2}, - // Unused closed variable e.Index#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //28: s.Mode#1/1 - //29: s.VarDepth#1/1 - //30: e.Index#1/1 - //32: e.Variables_B#1/1 - //34: e.Free#1/1 - //36: e.FreeFunc#1/1 - //38: e.Variables_E#1/1 - //40: s.Mode#1/2 - //41: s.Mode#1/3 - //42: e.Index#1/2 - //44: e.Index#1/3 - //46: s.VarDepth#1/2 - //47: s.VarDepth#1/3 - // ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_B#1 ( # FreeVarsSent e.Free#1 ) ( # FreeVarsFunc e.FreeFunc#1 ) e.Variables_E#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[28], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_right( context[29], context[2], context[3] ) ) - continue; - context[30] = context[2]; - context[31] = context[3]; - context[32] = 0; - context[33] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[0]; - context[9] = context[1]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[8], context[9] ) ) - continue; - if( ! refalrts::ident_left( & ident_FreeVarsSent::name, context[4], context[5] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - if( ! refalrts::ident_left( & ident_FreeVarsFunc::name, context[6], context[7] ) ) - continue; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[6]; - context[37] = context[7]; - context[38] = context[8]; - context[39] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[40], context[28])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[41], context[40])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[42], context[43], context[30], context[31])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[44], context[45], context[42], context[43])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[46], context[29])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[47], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[13], & ident_FreeVarsSent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], ShiftVariable_AddToFree, "ShiftVariable_AddToFree" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_FreeVarsFunc::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], ShiftVariable, "ShiftVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[20], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[12], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[32], context[33], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.Variables#1/1 - //6: s.Mode#1/1 - //7: s.VarDepth#1/1 - // ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = context[0]; - context[5] = context[1]; - if( ! refalrts::svar_left( context[6], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_right( context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Index#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ShiftVariable_AddToFree(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: s.Mode#1/1 - //11: s.Mode#1/2 - //12: s.VarDepth#1/1 - //13: s.VarDepth#1/2 - //14: e.Index#1/1 - //16: e.Index#1/2 - //18: e.Variables_B#1/1 - //20: e.Variables_E#1/1 - // ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_B#1 ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icsVarRight, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icEPrepare, 0, 18, 0}, - {refalrts::icEStart, 0, 18, 0}, - {refalrts::icSave, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::icsRepeatLeft, 11, 10, 4}, - {refalrts::iceRepeatLeft, 16, 14, 4}, - {refalrts::icsRepeatLeft, 13, 12, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icContextSet, 0, 20, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Variables#1/1 - //8: s.Mode#1/1 - //9: s.VarDepth#1/1 - //10: e.Index#1/1 - // ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarRight, 0, 9, 2}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: s.Mode#1/1 - //11: s.Mode#1/2 - //12: s.VarDepth#1/1 - //13: s.VarDepth#1/2 - //14: e.Index#1/1 - //16: e.Index#1/2 - //18: e.Variables_B#1/1 - //20: e.Variables_E#1/1 - // ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_B#1 ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_right( context[12], context[2], context[3] ) ) - continue; - context[14] = context[2]; - context[15] = context[3]; - context[18] = 0; - context[19] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[0]; - context[7] = context[1]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_left( context[11], context[10], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[16], context[17], context[14], context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_stvar_left( context[13], context[12], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - context[20] = context[6]; - context[21] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[20], context[21] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[18], context[19], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Variables#1/1 - //8: s.Mode#1/1 - //9: s.VarDepth#1/1 - //10: e.Index#1/1 - // ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[0]; - context[7] = context[1]; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_right( context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Cntx_AddNewVariable_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 46 elems - refalrts::Iter context[46]; - refalrts::zeros( context, 46 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Context, "Context" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Success::name, - & ident_FreeVarsFunc::name, - & ident_FreeVarsSent::name, - & ident_InvalidMode::name, - & ident_AlreadyBounded::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +61, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //26: s.StackDepth#1/1 - //27: s.Mode#1/1 - //28: s.Mode#1/2 - //29: e.Index#1/1 - //31: e.Index#1/2 - //33: e.FreeSent#1/1 - //35: e.FreeFunc#1/1 - //37: e.Stack#1/1 - //39: e.LocalVars_B#2/1 - //41: e.LocalVars_E#2/1 - //43: s.Depth#2/1 - //44: s.Depth#2/2 - // s.StackDepth#1 s.Mode#1 ( e.Index#1 ) ( e.FreeSent#1 ) ( e.FreeFunc#1 ) ( e.Stack#1 ) e.LocalVars_B#2 ( s.Mode#1 e.Index#1 s.Depth#2 ) e.LocalVars_E#2 - {refalrts::icsVarLeft, 0, 26, 0}, - {refalrts::icsVarLeft, 0, 27, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 33, 4}, - {refalrts::icContextSet, 0, 35, 6}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icEPrepare, 0, 39, 0}, - {refalrts::icEStart, 0, 39, 0}, - {refalrts::icSave, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::icsRepeatLeft, 28, 27, 10}, - {refalrts::iceRepeatLeft, 31, 29, 10}, - {refalrts::icContextSet, 0, 41, 12}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icIdent, 0, 2, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 1, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 24}, - {refalrts::icIdent, 0, 4, 25}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 14, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 18, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +63, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //26: s.StackDepth#1/1 - //27: s.Mode#1/1 - //28: e.Index#1/1 - //30: e.Index#1/2 - //32: e.FreeSent#1/1 - //34: e.FreeFunc#1/1 - //36: e.Stack#1/1 - //38: e.LocalVars_B#2/1 - //40: e.LocalVars_E#2/1 - //42: s.OldMode#2/1 - //43: s.VarDepth#2/1 - //44: s.OldMode#2/2 - //45: s.VarDepth#2/2 - // s.StackDepth#1 s.Mode#1 ( e.Index#1 ) ( e.FreeSent#1 ) ( e.FreeFunc#1 ) ( e.Stack#1 ) e.LocalVars_B#2 ( s.OldMode#2 e.Index#1 s.VarDepth#2 ) e.LocalVars_E#2 - {refalrts::icsVarLeft, 0, 26, 0}, - {refalrts::icsVarLeft, 0, 27, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 28, 2}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 6}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icEPrepare, 0, 38, 0}, - {refalrts::icEStart, 0, 38, 0}, - {refalrts::icSave, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::icContextSet, 0, 40, 12}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::iceRepeatLeft, 30, 28, 10}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 42, 0}, - {refalrts::icCopySTVar, 45, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icIdent, 0, 2, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 1, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 24}, - {refalrts::icIdent, 0, 3, 25}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 14, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 18, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: s.StackDepth#1/1 - //23: s.Mode#1/1 - //24: e.Index#1/1 - //26: e.FreeSent#1/1 - //28: e.FreeFunc#1/1 - //30: e.Stack#1/1 - //32: e.LocalVars#2/1 - //34: s.StackDepth#1/2 - //35: s.StackDepth#1/3 - // s.StackDepth#1 s.Mode#1 ( e.Index#1 ) ( e.FreeSent#1 ) ( e.FreeFunc#1 ) ( e.Stack#1 ) e.LocalVars#2 - {refalrts::icsVarLeft, 0, 22, 0}, - {refalrts::icsVarLeft, 0, 23, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 24, 2}, - {refalrts::icContextSet, 0, 26, 4}, - {refalrts::icContextSet, 0, 28, 6}, - {refalrts::icContextSet, 0, 30, 8}, - {refalrts::icContextSet, 0, 32, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 34, 22, 0}, - {refalrts::icCopySTVar, 35, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icIdent, 0, 2, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icIdent, 0, 1, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 20}, - {refalrts::icIdent, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 10, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icLinkBrackets, 17, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 14, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: s.StackDepth#1/1 - //27: s.Mode#1/1 - //28: s.Mode#1/2 - //29: e.Index#1/1 - //31: e.Index#1/2 - //33: e.FreeSent#1/1 - //35: e.FreeFunc#1/1 - //37: e.Stack#1/1 - //39: e.LocalVars_B#2/1 - //41: e.LocalVars_E#2/1 - //43: s.Depth#2/1 - //44: s.Depth#2/2 - // s.StackDepth#1 s.Mode#1 ( e.Index#1 ) ( e.FreeSent#1 ) ( e.FreeFunc#1 ) ( e.Stack#1 ) e.LocalVars_B#2 ( s.Mode#1 e.Index#1 s.Depth#2 ) e.LocalVars_E#2 - if( ! refalrts::svar_left( context[26], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[27], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - context[33] = context[4]; - context[34] = context[5]; - context[35] = context[6]; - context[36] = context[7]; - context[37] = context[8]; - context[38] = context[9]; - context[39] = 0; - context[40] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[0]; - context[13] = context[1]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_stvar_left( context[28], context[27], context[10], context[11] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[31], context[32], context[29], context[30], context[10], context[11] ) ) - continue; - context[41] = context[12]; - context[42] = context[13]; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[43])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[19], & ident_FreeVarsSent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_FreeVarsFunc::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_AlreadyBounded::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[14], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[18], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[39], context[40], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: s.StackDepth#1/1 - //27: s.Mode#1/1 - //28: e.Index#1/1 - //30: e.Index#1/2 - //32: e.FreeSent#1/1 - //34: e.FreeFunc#1/1 - //36: e.Stack#1/1 - //38: e.LocalVars_B#2/1 - //40: e.LocalVars_E#2/1 - //42: s.OldMode#2/1 - //43: s.VarDepth#2/1 - //44: s.OldMode#2/2 - //45: s.VarDepth#2/2 - // s.StackDepth#1 s.Mode#1 ( e.Index#1 ) ( e.FreeSent#1 ) ( e.FreeFunc#1 ) ( e.Stack#1 ) e.LocalVars_B#2 ( s.OldMode#2 e.Index#1 s.VarDepth#2 ) e.LocalVars_E#2 - if( ! refalrts::svar_left( context[26], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[27], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[28] = context[2]; - context[29] = context[3]; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[6]; - context[35] = context[7]; - context[36] = context[8]; - context[37] = context[9]; - context[38] = 0; - context[39] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[0]; - context[13] = context[1]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - context[40] = context[12]; - context[41] = context[13]; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[30], context[31], context[28], context[29], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[42])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[45], context[43])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[19], & ident_FreeVarsSent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_FreeVarsFunc::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_InvalidMode::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[14], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[18], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[38], context[39], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: s.StackDepth#1/1 - //23: s.Mode#1/1 - //24: e.Index#1/1 - //26: e.FreeSent#1/1 - //28: e.FreeFunc#1/1 - //30: e.Stack#1/1 - //32: e.LocalVars#2/1 - //34: s.StackDepth#1/2 - //35: s.StackDepth#1/3 - // s.StackDepth#1 s.Mode#1 ( e.Index#1 ) ( e.FreeSent#1 ) ( e.FreeFunc#1 ) ( e.Stack#1 ) e.LocalVars#2 - if( ! refalrts::svar_left( context[22], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[23], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[24] = context[2]; - context[25] = context[3]; - context[26] = context[4]; - context[27] = context[5]; - context[28] = context[6]; - context[29] = context[7]; - context[30] = context[8]; - context[31] = context[9]; - context[32] = context[0]; - context[33] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[34], context[22])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[35], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[15], & ident_FreeVarsSent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_FreeVarsFunc::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_Success::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[10], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - refalrts::link_brackets( context[17], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[14], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Cntx_AddNewVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 37 elems - refalrts::Iter context[37]; - refalrts::zeros( context, 37 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Cntx_AddNewVariable_0, "lambda_Cntx_AddNewVariable_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" }, - { Context, "Context" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_FreeVarsFunc::name, - & ident_FreeVarsSent::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //25: s.StackDepth#1/1 - //26: s.Mode#1/1 - //27: e.Index#1/1 - //29: e.LocalVars#1/1 - //31: e.FreeSent#1/1 - //33: e.FreeFunc#1/1 - //35: e.Stack#1/1 - // [Context s.StackDepth#1 e.LocalVars#1 ( # FreeVarsSent e.FreeSent#1 ) ( # FreeVarsFunc e.FreeFunc#1 ) e.Stack#1 ] s.Mode#1 e.Index#1 - {refalrts::icADTLeft, 3, 2, 0}, - {refalrts::icsVarLeft, 0, 25, 2}, - {refalrts::icsVarLeft, 0, 26, 0}, - {refalrts::icContextSet, 0, 27, 0}, - {refalrts::icEPrepare, 0, 29, 2}, - {refalrts::icEStart, 0, 29, 2}, - {refalrts::icSave, 0, 8, 2}, - {refalrts::icBracketLeft, 0, 4, 8}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icFail, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: s.StackDepth#1/1 - //26: s.Mode#1/1 - //27: e.Index#1/1 - //29: e.LocalVars#1/1 - //31: e.FreeSent#1/1 - //33: e.FreeFunc#1/1 - //35: e.Stack#1/1 - // [Context s.StackDepth#1 e.LocalVars#1 ( # FreeVarsSent e.FreeSent#1 ) ( # FreeVarsFunc e.FreeFunc#1 ) e.Stack#1 ] s.Mode#1 e.Index#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[25], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[26], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[27] = context[0]; - context[28] = context[1]; - context[29] = 0; - context[30] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[2]; - context[9] = context[3]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[8], context[9] ) ) - continue; - if( ! refalrts::ident_left( & ident_FreeVarsSent::name, context[4], context[5] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - if( ! refalrts::ident_left( & ident_FreeVarsFunc::name, context[6], context[7] ) ) - continue; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[6]; - context[34] = context[7]; - context[35] = context[8]; - context[36] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], lambda_Cntx_AddNewVariable_0, "lambda_Cntx_AddNewVariable_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[29], context[30], context[2], context[3] ) ); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Cntx_CheckVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 33 elems - refalrts::Iter context[33]; - refalrts::zeros( context, 33 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Context, "Context" }, - { ShiftVariable, "ShiftVariable" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_NotFound::name, - & ident_InvalidMode::name, - & ident_ExistVariable::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +55, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //19: s.StackDepth#1/1 - //20: s.Mode#1/1 - //21: s.Mode#1/2 - //22: e.Index#1/1 - //24: e.Index#1/2 - //26: e.Variables_B#1/1 - //28: e.Variables_E#1/1 - //30: s.VarDepth#1/1 - //31: s.VarDepth#1/2 - //32: s.VarDepth#1/3 - // [Context s.StackDepth#1 e.Variables_B#1 ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 ] s.Mode#1 e.Index#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 19, 2}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icContextSet, 0, 22, 0}, - {refalrts::icEPrepare, 0, 26, 2}, - {refalrts::icEStart, 0, 26, 2}, - {refalrts::icSave, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::icsRepeatLeft, 21, 20, 4}, - {refalrts::iceRepeatLeft, 24, 22, 4}, - {refalrts::icContextSet, 0, 28, 6}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 31, 30, 0}, - {refalrts::icCopySTVar, 32, 31, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 17}, - {refalrts::icIdent, 0, 2, 18}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 8, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +40, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: s.StackDepth#1/1 - //16: s.NewMode#1/1 - //17: e.Index#1/1 - //19: e.Index#1/2 - //21: e.Variables_B#1/1 - //23: e.Variables_E#1/1 - //25: s.OldMode#1/1 - //26: s.VarDepth#1/1 - //27: s.OldMode#1/2 - // [Context s.StackDepth#1 e.Variables_B#1 ( s.OldMode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 ] s.NewMode#1 e.Index#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 15, 2}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEPrepare, 0, 21, 2}, - {refalrts::icEStart, 0, 21, 2}, - {refalrts::icSave, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::icContextSet, 0, 23, 6}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::iceRepeatLeft, 19, 17, 4}, - {refalrts::icsVarLeft, 0, 26, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 27, 25, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 12}, - {refalrts::icIdent, 0, 1, 13}, - {refalrts::icInt, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 8, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.StackDepth#1/1 - //9: e.Variables#1/1 - //11: s.Mode#1/1 - // [Context s.StackDepth#1 e.Variables#1 ] s.Mode#1 e.Index#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icsVarLeft, 0, 11, 0}, - // Unused closed variable e.Index#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 6}, - {refalrts::icIdent, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: s.StackDepth#1/1 - //20: s.Mode#1/1 - //21: s.Mode#1/2 - //22: e.Index#1/1 - //24: e.Index#1/2 - //26: e.Variables_B#1/1 - //28: e.Variables_E#1/1 - //30: s.VarDepth#1/1 - //31: s.VarDepth#1/2 - //32: s.VarDepth#1/3 - // [Context s.StackDepth#1 e.Variables_B#1 ( s.Mode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 ] s.Mode#1 e.Index#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[19], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - continue; - context[22] = context[0]; - context[23] = context[1]; - context[26] = 0; - context[27] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[2]; - context[7] = context[3]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_left( context[21], context[20], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[24], context[25], context[22], context[23], context[4], context[5] ) ) - continue; - context[28] = context[6]; - context[29] = context[7]; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[31], context[30])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[32], context[31])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ShiftVariable, "ShiftVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_ExistVariable::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[8], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[26], context[27], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: s.StackDepth#1/1 - //16: s.NewMode#1/1 - //17: e.Index#1/1 - //19: e.Index#1/2 - //21: e.Variables_B#1/1 - //23: e.Variables_E#1/1 - //25: s.OldMode#1/1 - //26: s.VarDepth#1/1 - //27: s.OldMode#1/2 - // [Context s.StackDepth#1 e.Variables_B#1 ( s.OldMode#1 e.Index#1 s.VarDepth#1 ) e.Variables_E#1 ] s.NewMode#1 e.Index#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[15], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - continue; - context[17] = context[0]; - context[18] = context[1]; - context[21] = 0; - context[22] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[2]; - context[7] = context[3]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - context[23] = context[6]; - context[24] = context[7]; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[19], context[20], context[17], context[18], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[26], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[27], context[25])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[13], & ident_InvalidMode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[14], 0UL ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[8], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[21], context[22], context[2], context[3] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.StackDepth#1/1 - //9: e.Variables#1/1 - //11: s.Mode#1/1 - // [Context s.StackDepth#1 e.Variables#1 ] s.Mode#1 e.Index#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[9] = context[2]; - context[10] = context[3]; - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Index#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_NotFound::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Cntx_ResetAfterSentence(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 31 elems - refalrts::Iter context[31]; - refalrts::zeros( context, 31 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Unique, "Unique" }, - { Context, "Context" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_FreeVarsFunc::name, - & ident_FreeVarsSent::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //22: s.StackDepth#1/1 - //23: e.Locals#1/1 - //25: e.FreeSent#1/1 - //27: e.FreeFunc#1/1 - //29: e.Outers#1/1 - // [Context s.StackDepth#1 e.Locals#1 ( # FreeVarsSent e.FreeSent#1 ) ( # FreeVarsFunc e.FreeFunc#1 ) e.Outers#1 ] - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 22, 2}, - {refalrts::icEPrepare, 0, 23, 2}, - {refalrts::icEStart, 0, 23, 2}, - {refalrts::icSave, 0, 8, 2}, - {refalrts::icBracketLeft, 0, 4, 8}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::icContextSet, 0, 29, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icIdent, 0, 1, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 0, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 21}, - {refalrts::icLinkBrackets, 10, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icLinkBrackets, 15, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 12, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icFail, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: s.StackDepth#1/1 - //23: e.Locals#1/1 - //25: e.FreeSent#1/1 - //27: e.FreeFunc#1/1 - //29: e.Outers#1/1 - // [Context s.StackDepth#1 e.Locals#1 ( # FreeVarsSent e.FreeSent#1 ) ( # FreeVarsFunc e.FreeFunc#1 ) e.Outers#1 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[22], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[23] = 0; - context[24] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[2]; - context[9] = context[3]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[8], context[9] ) ) - continue; - if( ! refalrts::ident_left( & ident_FreeVarsSent::name, context[4], context[5] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - if( ! refalrts::ident_left( & ident_FreeVarsFunc::name, context[6], context[7] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[6]; - context[28] = context[7]; - context[29] = context[8]; - context[30] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[13], & ident_FreeVarsSent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_FreeVarsFunc::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], Unique, "Unique" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[10], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::link_brackets( context[15], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[12], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[23], context[24], context[2], context[3] ) ); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Unique(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Unique, "Unique" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Begin#1/1 - //11: t.Copy#1/1 - //12: t.Copy#1/2 - //13: e.Middle#1/1 - //15: e.End#1/1 - // e.Begin#1 t.Copy#1 e.Middle#1 t.Copy#1 e.End#1 - {refalrts::icEPrepare, 0, 9, 0}, - {refalrts::icEStart, 0, 9, 0}, - {refalrts::icSave, 0, 2, 0}, - {refalrts::ictVarLeft, 0, 11, 2}, - {refalrts::icEPrepare, 0, 13, 2}, - {refalrts::icEStart, 0, 13, 2}, - {refalrts::icSave, 0, 4, 2}, - {refalrts::ictRepeatLeft, 12, 11, 4}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Uniques#1/1 - // e.Uniques#1 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Begin#1/1 - //11: t.Copy#1/1 - //12: t.Copy#1/2 - //13: e.Middle#1/1 - //15: e.End#1/1 - // e.Begin#1 t.Copy#1 e.Middle#1 t.Copy#1 e.End#1 - context[9] = 0; - context[10] = 0; - refalrts::start_e_loop(); - do { - context[2] = context[0]; - context[3] = context[1]; - if( ! refalrts::tvar_left( context[11], context[2], context[3] ) ) - continue; - context[13] = 0; - context[14] = 0; - refalrts::start_e_loop(); - do { - context[4] = context[2]; - context[5] = context[3]; - if( ! refalrts::repeated_stvar_left( context[12], context[11], context[4], context[5] ) ) - continue; - context[15] = context[4]; - context[16] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Unique, "Unique" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[13], context[14], context[2], context[3] ) ); - } while ( refalrts::open_evar_advance( context[9], context[10], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Uniques#1/1 - // e.Uniques#1 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Cntx_PushScope(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Inc, "Inc" }, - { Context, "Context" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_FreeVarsFunc::name, - & ident_FreeVarsSent::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //16: s.StackDepth#1/1 - //17: e.Variables#1/1 - // [Context s.StackDepth#1 e.Variables#1 ] - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 16, 2}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icIdent, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icIdent, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 15}, - {refalrts::icLinkBrackets, 4, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 12, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 9, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: s.StackDepth#1/1 - //17: e.Variables#1/1 - // [Context s.StackDepth#1 e.Variables#1 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[10], & ident_FreeVarsSent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[13], & ident_FreeVarsFunc::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[15] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[12], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[9], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Cntx_PopScope(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Dec, "Dec" }, - { Context, "Context" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_FreeVarsFunc::name, - & ident_FreeVarsSent::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: s.StackDepth#1/1 - //15: e.ClosureContext#1/1 - //17: e.Outers#1/1 - // [Context s.StackDepth#1 ( # FreeVarsSent ) ( # FreeVarsFunc e.ClosureContext#1 ) e.Outers#1 ] - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 14, 2}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icContextSet, 0, 15, 6}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 13}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 8, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: s.StackDepth#1/1 - //15: e.ClosureContext#1/1 - //17: e.Outers#1/1 - // [Context s.StackDepth#1 ( # FreeVarsSent ) ( # FreeVarsFunc e.ClosureContext#1 ) e.Outers#1 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], Context, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[14], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_FreeVarsSent::name, context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_FreeVarsFunc::name, context[6], context[7] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[6]; - context[16] = context[7]; - context[17] = context[2]; - context[18] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Context, "Context" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Dec, "Dec" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[13] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[8], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/Driver.cpp b/bootstrap/Driver.cpp deleted file mode 100644 index d6601682..00000000 --- a/bootstrap/Driver.cpp +++ /dev/null @@ -1,728 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult CompileFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_Destroy(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult GenProgram(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult HightLevelRASL(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult LexFolding(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult LowLevelRASL(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ParseProgram(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult SaveFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Seq(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #EL_HasErrors -template -struct ident_EL_HasErrors { - static const char *name() { - return "EL_HasErrors"; - } -}; - -// identifier #EL_NoErrors -template -struct ident_EL_NoErrors { - static const char *name() { - return "EL_NoErrors"; - } -}; - -// identifier #Fails -template -struct ident_Fails { - static const char *name() { - return "Fails"; - } -}; - -// identifier #Success -template -struct ident_Success { - static const char *name() { - return "Success"; - } -}; - -static refalrts::FnResult lambda_CompileFile_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_Create, "EL_Create" }, - { ParseProgram, "ParseProgram" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //10: e.SrcName#1/1 - //12: e.LexFolding#2/1 - // ( e.SrcName#1 ) e.LexFolding#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.SrcName#1/1 - //12: e.LexFolding#2/1 - // ( e.SrcName#1 ) e.LexFolding#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ParseProgram, "ParseProgram" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], EL_Create, "EL_Create" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CompileFile_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 27 elems - refalrts::Iter context[27]; - refalrts::zeros( context, 27 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SaveFile, "SaveFile" }, - { GenProgram, "GenProgram" }, - { LowLevelRASL, "LowLevelRASL" }, - { HightLevelRASL, "HightLevelRASL" }, - { Seq, "Seq" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Fails::name, - & ident_EL_HasErrors::name, - & ident_Success::name, - & ident_EL_NoErrors::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +49, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.AST#2/1 - //23: e.OutputName#1/1 - //25: e.OutputName#1/2 - // ( e.AST#2 ) ( e.OutputName#1 ) # EL_NoErrors - {refalrts::icIdentRight, 0, 3, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 25, 23, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 5, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 4, 9}, - {refalrts::icFunc, 0, 3, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icFunc, 0, 1, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icIdent, 0, 2, 20}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 13, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.AST#2 ) ( e.OutputName#1 ) # EL_HasErrors - {refalrts::icIdentRight, 0, 1, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.AST#2 - // Unused closed variable e.OutputName#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.AST#2/1 - //23: e.OutputName#1/1 - //25: e.OutputName#1/2 - // ( e.AST#2 ) ( e.OutputName#1 ) # EL_NoErrors - if( ! refalrts::ident_right( & ident_EL_NoErrors::name, context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[4]; - context[24] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[25], context[26], context[23], context[24])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], HightLevelRASL, "HightLevelRASL" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], LowLevelRASL, "LowLevelRASL" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], GenProgram, "GenProgram" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], SaveFile, "SaveFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_Success::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[13], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.AST#2 ) ( e.OutputName#1 ) # EL_HasErrors - if( ! refalrts::ident_right( & ident_EL_HasErrors::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.AST#2 - // Unused closed variable e.OutputName#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[6], & ident_Fails::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CompileFile_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_CompileFile_1, "lambda_CompileFile_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { EL_Destroy, "EL_Destroy" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: e.OutputName#1/1 - //20: t.ErrorList#2/1 - //21: e.AST#2/1 - // ( e.OutputName#1 ) t.ErrorList#2 e.AST#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::icContextSet, 0, 21, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.OutputName#1/1 - //20: t.ErrorList#2/1 - //21: e.AST#2/1 - // ( e.OutputName#1 ) t.ErrorList#2 e.AST#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[2]; - context[19] = context[3]; - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[0]; - context[22] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], EL_Destroy, "EL_Destroy" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], lambda_CompileFile_1, "lambda_CompileFile_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult CompileFile(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 31 elems - refalrts::Iter context[31]; - refalrts::zeros( context, 31 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_CompileFile_2, "lambda_CompileFile_2" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { lambda_CompileFile_0, "lambda_CompileFile_0" }, - { Seq, "Seq" }, - { LexFolding, "LexFolding" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //25: e.SrcName#1/1 - //27: e.OutputName#1/1 - //29: e.SrcName#1/2 - // ( e.SrcName#1 ) e.OutputName#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 25, 2}, - {refalrts::icContextSet, 0, 27, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 29, 25, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 4, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 3, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 1, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 1, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.SrcName#1/1 - //27: e.OutputName#1/1 - //29: e.SrcName#1/2 - // ( e.SrcName#1 ) e.OutputName#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[25] = context[2]; - context[26] = context[3]; - context[27] = context[0]; - context[28] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[29], context[30], context[25], context[26])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], LexFolding, "LexFolding" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], lambda_CompileFile_0, "lambda_CompileFile_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], lambda_CompileFile_2, "lambda_CompileFile_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/Error.cpp b/bootstrap/Error.cpp deleted file mode 100644 index 97bcf8f8..00000000 --- a/bootstrap/Error.cpp +++ /dev/null @@ -1,915 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult EL_AddError(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_AddErrorAt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_AddUnexpected(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_Destroy(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult StrFromInt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult StrFromToken(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult WriteLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ErrorList(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #EL_HasErrors -template -struct ident_EL_HasErrors { - static const char *name() { - return "EL_HasErrors"; - } -}; - -// identifier #EL_NoErrors -template -struct ident_EL_NoErrors { - static const char *name() { - return "EL_NoErrors"; - } -}; - -// identifier #TkError -template -struct ident_TkError { - static const char *name() { - return "TkError"; - } -}; - -// identifier #TkUnexpected -template -struct ident_TkUnexpected { - static const char *name() { - return "TkUnexpected"; - } -}; - -static refalrts::FnResult ErrorList(refalrts::Iter, refalrts::Iter) { - refalrts::this_is_generated_function(); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -} - -refalrts::FnResult EL_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ErrorList, "ErrorList" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: e.FileName#1/1 - // e.FileName#1 - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 6}, - {refalrts::icLinkBrackets, 2, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.FileName#1/1 - // e.FileName#1 - context[7] = context[0]; - context[8] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ErrorList, "ErrorList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult EL_AddError(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ErrorList, "ErrorList" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" ERROR: ", 9} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //15: e.FileName#1/1 - //17: e.Errors#1/1 - //19: e.Message#1/1 - // [ErrorList ( e.FileName#1 ) e.Errors#1 ] e.Message#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icString, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 14}, - {refalrts::icLinkBrackets, 6, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.FileName#1/1 - //17: e.Errors#1/1 - //19: e.Message#1/1 - // [ErrorList ( e.FileName#1 ) e.Errors#1 ] e.Message#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], ErrorList, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[4]; - context[16] = context[5]; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ErrorList, "ErrorList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], " ERROR: ", 9 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[14] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult EL_AddErrorAt(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 28 elems - refalrts::Iter context[28]; - refalrts::zeros( context, 28 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" }, - { ErrorList, "ErrorList" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {":ERROR: ", 8} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //19: e.FileName#1/1 - //21: e.Errors#1/1 - //23: s.LineNumber#1/1 - //24: e.Message#1/1 - //26: e.FileName#1/2 - // [ErrorList ( e.FileName#1 ) e.Errors#1 ] s.LineNumber#1 e.Message#1 - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icsVarLeft, 0, 23, 0}, - {refalrts::icContextSet, 0, 24, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 19, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icChar, 0, ':', 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icString, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 18}, - {refalrts::icLinkBrackets, 6, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 10, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: e.FileName#1/1 - //21: e.Errors#1/1 - //23: s.LineNumber#1/1 - //24: e.Message#1/1 - //26: e.FileName#1/2 - // [ErrorList ( e.FileName#1 ) e.Errors#1 ] s.LineNumber#1 e.Message#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], ErrorList, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[19] = context[4]; - context[20] = context[5]; - context[21] = context[2]; - context[22] = context[3]; - if( ! refalrts::svar_left( context[23], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[24] = context[0]; - context[25] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[19], context[20])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ErrorList, "ErrorList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[11], ':' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], ":ERROR: ", 8 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[18] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[10], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult EL_AddUnexpected(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromToken, "StrFromToken" }, - { EL_AddErrorAt, "EL_AddErrorAt" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkUnexpected::name, - & ident_TkError::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {", expected ", 11}, - {"Unexpected ", 11}, - {"Unknown characters \"", 20} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: t.ErrorList#1/1 - //8: s.LineNumber#1/1 - //9: e.Message#1/1 - // t.ErrorList#1 ( # TkError s.LineNumber#1 e.Message#1 ) e.Expected#1 - {refalrts::ictVarLeft, 0, 7, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - // Unused closed variable e.Expected#1 - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: t.ErrorList#1/1 - //11: s.LineNumber#1/1 - //12: e.Unexpected#1/1 - // t.ErrorList#1 ( # TkUnexpected s.LineNumber#1 e.Unexpected#1 ) e.Expected#1 - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - // Unused closed variable e.Expected#1 - {refalrts::icsVarLeft, 0, 11, 2}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icString, 0, 2, 6}, - {refalrts::icChar, 0, '\"', 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: t.ErrorList#1/1 - //15: e.Expected#1/1 - //17: s.Unexpected#1/1 - //18: s.LineNumber#1/1 - //19: e.Info#1/1 - // t.ErrorList#1 ( s.Unexpected#1 s.LineNumber#1 e.Info#1 ) e.Expected#1 - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 18, 2}, - {refalrts::icContextSet, 0, 19, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icString, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: t.ErrorList#1/1 - //8: s.LineNumber#1/1 - //9: e.Message#1/1 - // t.ErrorList#1 ( # TkError s.LineNumber#1 e.Message#1 ) e.Expected#1 - if( ! refalrts::tvar_left( context[7], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkError::name, context[2], context[3] ) ) - continue; - // Unused closed variable e.Expected#1 - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: t.ErrorList#1/1 - //11: s.LineNumber#1/1 - //12: e.Unexpected#1/1 - // t.ErrorList#1 ( # TkUnexpected s.LineNumber#1 e.Unexpected#1 ) e.Expected#1 - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkUnexpected::name, context[2], context[3] ) ) - continue; - // Unused closed variable e.Expected#1 - if( ! refalrts::svar_left( context[11], context[2], context[3] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Unknown characters \"", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[8], '\"' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: t.ErrorList#1/1 - //15: e.Expected#1/1 - //17: s.Unexpected#1/1 - //18: s.LineNumber#1/1 - //19: e.Info#1/1 - // t.ErrorList#1 ( s.Unexpected#1 s.LineNumber#1 e.Info#1 ) e.Expected#1 - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[0]; - context[16] = context[1]; - if( ! refalrts::svar_left( context[17], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[18], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[19] = context[2]; - context[20] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Unexpected ", 11 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StrFromToken, "StrFromToken" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], ", expected ", 11 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_EL_Destroy_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { WriteLine, "WriteLine" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Line#2/1 - // ( e.Line#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Line#2/1 - // ( e.Line#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], WriteLine, "WriteLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult EL_Destroy(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_EL_Destroy_0, "lambda_EL_Destroy_0" }, - { Map, "Map" }, - { ErrorList, "ErrorList" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_EL_HasErrors::name, - & ident_EL_NoErrors::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +9, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // [ErrorList ( e.FileName#1 ) ] - {refalrts::icADTLeft, 2, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.FileName#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 1, 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Errors#1/1 - // [ErrorList ( e.FileName#1 ) e.Errors#1 ] - {refalrts::icADTLeft, 2, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.FileName#1 - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icIdent, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // [ErrorList ( e.FileName#1 ) ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], ErrorList, context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.FileName#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[6], & ident_EL_NoErrors::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Errors#1/1 - // [ErrorList ( e.FileName#1 ) e.Errors#1 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], ErrorList, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.FileName#1 - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_EL_Destroy_0, "lambda_EL_Destroy_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[10], & ident_EL_HasErrors::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/Escape.cpp b/bootstrap/Escape.cpp deleted file mode 100644 index 78b11236..00000000 --- a/bootstrap/Escape.cpp +++ /dev/null @@ -1,916 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult Compare(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Div(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EscapeChar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Mod(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Ord(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult OctDigit(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -static refalrts::FnResult OctDigit(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 3 elems - refalrts::Iter context[3]; - refalrts::zeros( context, 3 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 0 - {refalrts::icNumLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '0', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 1 - {refalrts::icNumLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '1', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 2 - {refalrts::icNumLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '2', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 3 - {refalrts::icNumLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '3', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 4 - {refalrts::icNumLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '4', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 5 - {refalrts::icNumLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '5', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 6 - {refalrts::icNumLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '6', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 7 - {refalrts::icNumLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '7', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[7]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 0 - if( ! refalrts::number_left( 0UL, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '0' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 1 - if( ! refalrts::number_left( 1UL, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '1' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 2 - if( ! refalrts::number_left( 2UL, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '2' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 3 - if( ! refalrts::number_left( 3UL, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '3' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 4 - if( ! refalrts::number_left( 4UL, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '4' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 5 - if( ! refalrts::number_left( 5UL, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '5' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 6 - if( ! refalrts::number_left( 6UL, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '6' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 7 - if( ! refalrts::number_left( 7UL, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '7' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_EscapeChar_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 32 elems - refalrts::Iter context[32]; - refalrts::zeros( context, 32 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Mod, "Mod" }, - { OctDigit, "OctDigit" }, - { Div, "Div" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +78, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //28: s.Other#1/1 - //29: s.Code#2/1 - //30: s.Code#2/2 - //31: s.Code#2/3 - // s.Other#1 '< s.Code#2 - {refalrts::icsVarLeft, 0, 28, 0}, - {refalrts::icCharLeft, 0, static_cast('<'), 0}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 30, 29, 0}, - {refalrts::icCopySTVar, 31, 30, 0}, - {refalrts::icChar, 0, '\\', 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 3}, - {refalrts::icFunc, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 2, 6}, - {refalrts::icInt, 0, 64, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 2, 15}, - {refalrts::icInt, 0, 8, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icInt, 0, 8, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 1, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 0, 24}, - {refalrts::icInt, 0, 8, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: s.Other#1/1 - //3: s.Compare#2/1 - //4: s.Code#2/1 - // s.Other#1 s.Compare#2 s.Code#2 - {refalrts::icsVarLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 3, 0}, - {refalrts::icsVarLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //28: s.Other#1/1 - //29: s.Code#2/1 - //30: s.Code#2/2 - //31: s.Code#2/3 - // s.Other#1 '< s.Code#2 - if( ! refalrts::svar_left( context[28], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '<', context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[30], context[29])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[31], context[30])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[2], '\\' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], OctDigit, "OctDigit" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], Div, "Div" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[7], 64UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], OctDigit, "OctDigit" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Mod, "Mod" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Div, "Div" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[16], 8UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[18], 8UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], OctDigit, "OctDigit" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], Mod, "Mod" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[25], 8UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[3] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: s.Other#1/1 - //3: s.Compare#2/1 - //4: s.Code#2/1 - // s.Other#1 s.Compare#2 s.Code#2 - if( ! refalrts::svar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[4], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult EscapeChar(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_EscapeChar_0, "lambda_EscapeChar_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Ord, "Ord" }, - { Compare, "Compare" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"\\\\", 2}, - {"\\\"", 2}, - {"\\\'", 2}, - {"\\r", 2}, - {"\\t", 2}, - {"\\n", 2} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '\n' - {refalrts::icCharLeft, 0, static_cast('\n'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 5, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '\t' - {refalrts::icCharLeft, 0, static_cast('\t'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 4, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '\r' - {refalrts::icCharLeft, 0, static_cast('\r'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 3, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '\'' - {refalrts::icCharLeft, 0, static_cast('\''), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 2, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '\"' - {refalrts::icCharLeft, 0, static_cast('\"'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '\\' - {refalrts::icCharLeft, 0, static_cast('\\'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: s.Other#1/1 - //17: s.Other#1/2 - //18: s.Other#1/3 - // s.Other#1 - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 17, 16, 0}, - {refalrts::icCopySTVar, 18, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 4, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icChar, 0, ' ', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 1, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[6]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '\n' - if( ! refalrts::char_left( '\n', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\\n", 2 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '\t' - if( ! refalrts::char_left( '\t', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\\t", 2 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '\r' - if( ! refalrts::char_left( '\r', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\\r", 2 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '\'' - if( ! refalrts::char_left( '\'', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\\\'", 2 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '\"' - if( ! refalrts::char_left( '\"', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\\\"", 2 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '\\' - if( ! refalrts::char_left( '\\', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\\\\", 2 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: s.Other#1/1 - //17: s.Other#1/2 - //18: s.Other#1/3 - // s.Other#1 - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[17], context[16])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[18], context[17])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Compare, "Compare" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], ' ' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Ord, "Ord" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], lambda_EscapeChar_0, "lambda_EscapeChar_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/FindFile.cpp b/bootstrap/FindFile.cpp deleted file mode 100644 index 25cb7ccd..00000000 --- a/bootstrap/FindFile.cpp +++ /dev/null @@ -1,1666 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult ExistFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult FindFiles(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AnalyzeBoth_CheckExist(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AnalyzeFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AnalyzeFile_ByFolders(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AnalyzeFile_CheckNotFound(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AnalyzeInFolder(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AnalyzeOutput_CheckExist(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AnalyzeSource_CheckExist(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ExistFile_T(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #Current -template -struct ident_Current { - static const char *name() { - return "Current"; - } -}; - -// identifier #False -template -struct ident_False { - static const char *name() { - return "False"; - } -}; - -// identifier #NotFound -template -struct ident_NotFound { - static const char *name() { - return "NotFound"; - } -}; - -// identifier #Output -template -struct ident_Output { - static const char *name() { - return "Output"; - } -}; - -// identifier #Source -template -struct ident_Source { - static const char *name() { - return "Source"; - } -}; - -// identifier #True -template -struct ident_True { - static const char *name() { - return "True"; - } -}; - -refalrts::FnResult FindFiles(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { AnalyzeFile_ByFolders, "AnalyzeFile_ByFolders" }, - { Map, "Map" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Current::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Folders#1/1 - //13: e.Files#1/1 - // ( e.Folders#1 ) e.Files#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 6, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Folders#1/1 - //13: e.Files#1/1 - // ( e.Folders#1 ) e.Files#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], AnalyzeFile_ByFolders, "AnalyzeFile_ByFolders" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_Current::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[6], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AnalyzeFile_ByFolders(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { AnalyzeInFolder, "AnalyzeInFolder" }, - { Map, "Map" }, - { AnalyzeFile_CheckNotFound, "AnalyzeFile_CheckNotFound" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //15: e.Folders#1/1 - //17: e.FileName#1/1 - //19: e.FileName#1/2 - // e.Folders#1 ( e.FileName#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.Folders#1/1 - //17: e.FileName#1/1 - //19: e.FileName#1/2 - // e.Folders#1 ( e.FileName#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[0]; - context[16] = context[1]; - context[17] = context[2]; - context[18] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], AnalyzeFile_CheckNotFound, "AnalyzeFile_CheckNotFound" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], AnalyzeInFolder, "AnalyzeInFolder" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AnalyzeInFolder(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { AnalyzeFile, "AnalyzeFile" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Current::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.FileName#1/1 - // e.FileName#1 # Current - {refalrts::icIdentRight, 0, 0, 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: e.FileName#1/1 - //10: e.Folder#1/1 - // e.FileName#1 ( e.Folder#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icContextSet, 0, 8, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icChar, 0, '/', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.FileName#1/1 - // e.FileName#1 # Current - if( ! refalrts::ident_right( & ident_Current::name, context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], AnalyzeFile, "AnalyzeFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: e.FileName#1/1 - //10: e.Folder#1/1 - // e.FileName#1 ( e.Folder#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = context[0]; - context[9] = context[1]; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], AnalyzeFile, "AnalyzeFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '/' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AnalyzeFile_CheckNotFound(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { AnalyzeFile_CheckNotFound, "AnalyzeFile_CheckNotFound" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_NotFound::name, - & ident_Output::name, - & ident_Source::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Source#1/1 - //15: e.Output#1/1 - // ( e.FileName#1 ) ( # Source ( e.Source#1 ) e.Output#1 ) e.Variants#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 2, 4}, - {refalrts::icBracketLeft, 0, 6, 4}, - // Unused closed variable e.FileName#1 - {refalrts::icContextSet, 0, 13, 6}, - {refalrts::icContextSet, 0, 15, 4}, - // Unused closed variable e.Variants#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icIdent, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icLinkBrackets, 8, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Output#1/1 - // ( e.FileName#1 ) ( # Output e.Output#1 ) e.Variants#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 1, 4}, - // Unused closed variable e.FileName#1 - {refalrts::icContextSet, 0, 9, 4}, - // Unused closed variable e.Variants#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.FileName#1/1 - //13: e.Variants#1/1 - // ( e.FileName#1 ) ( # NotFound e.NotFoundPath#1 ) e.Variants#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 11, 2}, - // Unused closed variable e.NotFoundPath#1 - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.FileName#1/1 - // ( e.FileName#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Source#1/1 - //15: e.Output#1/1 - // ( e.FileName#1 ) ( # Source ( e.Source#1 ) e.Output#1 ) e.Variants#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Source::name, context[4], context[5] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[4], context[5] ) ) - continue; - // Unused closed variable e.FileName#1 - context[13] = context[6]; - context[14] = context[7]; - context[15] = context[4]; - context[16] = context[5]; - // Unused closed variable e.Variants#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_Source::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Output#1/1 - // ( e.FileName#1 ) ( # Output e.Output#1 ) e.Variants#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[4], context[5] ) ) - continue; - // Unused closed variable e.FileName#1 - context[9] = context[4]; - context[10] = context[5]; - // Unused closed variable e.Variants#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_Output::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.FileName#1/1 - //13: e.Variants#1/1 - // ( e.FileName#1 ) ( # NotFound e.NotFoundPath#1 ) e.Variants#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_NotFound::name, context[4], context[5] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - // Unused closed variable e.NotFoundPath#1 - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], AnalyzeFile_CheckNotFound, "AnalyzeFile_CheckNotFound" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.FileName#1/1 - // ( e.FileName#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_NotFound::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ExistFile_T(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ExistFile, "ExistFile" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: e.FileName#1/1 - //7: e.FileName#1/2 - // e.FileName#1 - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 7, 5, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.FileName#1/1 - //7: e.FileName#1/2 - // e.FileName#1 - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[7], context[8], context[5], context[6])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ExistFile, "ExistFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[7], context[8] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AnalyzeFile(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ExistFile_T, "ExistFile_T" }, - { AnalyzeBoth_CheckExist, "AnalyzeBoth_CheckExist" }, - { AnalyzeOutput_CheckExist, "AnalyzeOutput_CheckExist" }, - { AnalyzeSource_CheckExist, "AnalyzeSource_CheckExist" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {".cpp", 4}, - {".sref", 5} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.FileName#1/1 - // e.FileName#1 '.sref' - {refalrts::icCharRight, 0, static_cast('f'), 0}, - {refalrts::icCharRight, 0, static_cast('e'), 0}, - {refalrts::icCharRight, 0, static_cast('r'), 0}, - {refalrts::icCharRight, 0, static_cast('s'), 0}, - {refalrts::icCharRight, 0, static_cast('.'), 0}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 3, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +27, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.FileName#1/1 - // e.FileName#1 '.cpp' - {refalrts::icCharRight, 0, static_cast('p'), 0}, - {refalrts::icCharRight, 0, static_cast('p'), 0}, - {refalrts::icCharRight, 0, static_cast('c'), 0}, - {refalrts::icCharRight, 0, static_cast('.'), 0}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.FileName#1/1 - //19: e.FileName#1/2 - // e.FileName#1 - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icString, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icString, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 4, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.FileName#1/1 - // e.FileName#1 '.sref' - if( ! refalrts::char_right( 'f', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 'e', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 'r', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 's', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( '.', context[0], context[1] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], AnalyzeSource_CheckExist, "AnalyzeSource_CheckExist" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ExistFile_T, "ExistFile_T" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], ".sref", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.FileName#1/1 - // e.FileName#1 '.cpp' - if( ! refalrts::char_right( 'p', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 'p', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 'c', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( '.', context[0], context[1] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], AnalyzeOutput_CheckExist, "AnalyzeOutput_CheckExist" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ExistFile_T, "ExistFile_T" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], ".cpp", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.FileName#1/1 - //19: e.FileName#1/2 - // e.FileName#1 - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], AnalyzeBoth_CheckExist, "AnalyzeBoth_CheckExist" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], ExistFile_T, "ExistFile_T" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], ".sref", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ExistFile_T, "ExistFile_T" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[13], context[14], ".cpp", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[4], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AnalyzeSource_CheckExist(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_NotFound::name, - & ident_False::name, - & ident_Source::name, - & ident_True::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {".cpp", 4}, - {".sref", 5} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.UnitName#1/1 - //13: e.UnitName#1/2 - // # True e.UnitName#1 '.sref' - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icCharRight, 0, static_cast('f'), 0}, - {refalrts::icCharRight, 0, static_cast('e'), 0}, - {refalrts::icCharRight, 0, static_cast('r'), 0}, - {refalrts::icCharRight, 0, static_cast('s'), 0}, - {refalrts::icCharRight, 0, static_cast('.'), 0}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 13, 11, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icString, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 2, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.SourceName#1/1 - // # False e.SourceName#1 - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 4}, - {refalrts::icLinkBrackets, 2, 4, 0}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.UnitName#1/1 - //13: e.UnitName#1/2 - // # True e.UnitName#1 '.sref' - if( ! refalrts::ident_left( & ident_True::name, context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 'f', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 'e', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 'r', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( 's', context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( '.', context[0], context[1] ) ) - continue; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[13], context[14], context[11], context[12])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_Source::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[5], context[6], ".sref", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], ".cpp", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.SourceName#1/1 - // # False e.SourceName#1 - if( ! refalrts::ident_left( & ident_False::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_NotFound::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[4] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[4] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AnalyzeOutput_CheckExist(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_NotFound::name, - & ident_False::name, - & ident_Output::name, - & ident_True::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +13, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.OutName#1/1 - // # True e.OutName#1 - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 4}, - {refalrts::icLinkBrackets, 2, 4, 0}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.OutName#1/1 - // # False e.OutName#1 - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 4}, - {refalrts::icLinkBrackets, 2, 4, 0}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.OutName#1/1 - // # True e.OutName#1 - if( ! refalrts::ident_left( & ident_True::name, context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_Output::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[4] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[4] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.OutName#1/1 - // # False e.OutName#1 - if( ! refalrts::ident_left( & ident_False::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_NotFound::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[4] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[4] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AnalyzeBoth_CheckExist(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_NotFound::name, - & ident_False::name, - & ident_Output::name, - & ident_True::name, - & ident_Source::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +22, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.SourceName#1/1 - //11: s.Res#1/1 - //12: e.OutName#1/1 - // ( # True e.SourceName#1 ) s.Res#1 e.OutName#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.OutName#1/1 - // ( # False e.SourceName#1 ) # True e.OutName#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icIdentLeft, 0, 3, 0}, - // Unused closed variable e.SourceName#1 - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.UnitName#1/1 - //9: e.UnitName#1/2 - // ( # False e.UnitName#1 '.sref' ) # False e.UnitName#1 '.cpp' - {refalrts::icCharRight, 0, static_cast('p'), 0}, - {refalrts::icCharRight, 0, static_cast('p'), 0}, - {refalrts::icCharRight, 0, static_cast('c'), 0}, - {refalrts::icCharRight, 0, static_cast('.'), 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icCharRight, 0, static_cast('f'), 2}, - {refalrts::icCharRight, 0, static_cast('e'), 2}, - {refalrts::icCharRight, 0, static_cast('r'), 2}, - {refalrts::icCharRight, 0, static_cast('s'), 2}, - {refalrts::icCharRight, 0, static_cast('.'), 2}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::iceRepeatLeft, 9, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.SourceName#1/1 - //11: s.Res#1/1 - //12: e.OutName#1/1 - // ( # True e.SourceName#1 ) s.Res#1 e.OutName#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_True::name, context[2], context[3] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - continue; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Source::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.OutName#1/1 - // ( # False e.SourceName#1 ) # True e.OutName#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_False::name, context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_True::name, context[0], context[1] ) ) - continue; - // Unused closed variable e.SourceName#1 - context[7] = context[0]; - context[8] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Output::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.UnitName#1/1 - //9: e.UnitName#1/2 - // ( # False e.UnitName#1 '.sref' ) # False e.UnitName#1 '.cpp' - if( ! refalrts::char_right( 'p', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'p', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'c', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( '.', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_False::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_False::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'f', context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'e', context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'r', context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 's', context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( '.', context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - if( ! refalrts::repeated_evar_left( context[9], context[10], context[7], context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_NotFound::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/Generator.cpp b/bootstrap/Generator.cpp deleted file mode 100644 index f1a77478..00000000 --- a/bootstrap/Generator.cpp +++ /dev/null @@ -1,19822 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult EscapeChar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult GenCommonHeaders(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult GenCommonTailer(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult GenIdent(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult GenProgram(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult MapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult StrFromInt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AllocatorCommandInfo(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AllocatorCommandTag(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AllocatorFuncArgument(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AllocatorFuncName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult BreakerFromIndent(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ContextItem(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ContextRange(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ContextRange_B(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ContextRange_E(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoPrintLength(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Escape(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult EscapeString(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult FuncArguments(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenCommand(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenExtern(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenFnStart(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenForward(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenReturn(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenSwap(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult NakedArguments(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintAllocateElem(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintBracketsVarInit(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintDirection(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintInterpretAllocateElem(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintLength(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchADT(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchBrackets(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchChar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchEmpty(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchIdent(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchNumber(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchRepeated(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintMatchSTVar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintString(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StrFromDirection(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SwGenFnStart(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult TextFromMemoryClass(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult VarMatchFunction(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #AlgLeft -template -struct ident_AlgLeft { - static const char *name() { - return "AlgLeft"; - } -}; - -// identifier #AlgRight -template -struct ident_AlgRight { - static const char *name() { - return "AlgRight"; - } -}; - -// identifier #CmdADT -template -struct ident_CmdADT { - static const char *name() { - return "CmdADT"; - } -}; - -// identifier #CmdAllocateElem -template -struct ident_CmdAllocateElem { - static const char *name() { - return "CmdAllocateElem"; - } -}; - -// identifier #CmdArrCopy -template -struct ident_CmdArrCopy { - static const char *name() { - return "CmdArrCopy"; - } -}; - -// identifier #CmdArrSplice -template -struct ident_CmdArrSplice { - static const char *name() { - return "CmdArrSplice"; - } -}; - -// identifier #CmdBrackets -template -struct ident_CmdBrackets { - static const char *name() { - return "CmdBrackets"; - } -}; - -// identifier #CmdChar -template -struct ident_CmdChar { - static const char *name() { - return "CmdChar"; - } -}; - -// identifier #CmdClosedE -template -struct ident_CmdClosedE { - static const char *name() { - return "CmdClosedE"; - } -}; - -// identifier #CmdComment -template -struct ident_CmdComment { - static const char *name() { - return "CmdComment"; - } -}; - -// identifier #CmdCopyVar -template -struct ident_CmdCopyVar { - static const char *name() { - return "CmdCopyVar"; - } -}; - -// identifier #CmdDeclaration -template -struct ident_CmdDeclaration { - static const char *name() { - return "CmdDeclaration"; - } -}; - -// identifier #CmdDefineIdent -template -struct ident_CmdDefineIdent { - static const char *name() { - return "CmdDefineIdent"; - } -}; - -// identifier #CmdElse -template -struct ident_CmdElse { - static const char *name() { - return "CmdElse"; - } -}; - -// identifier #CmdEmpty -template -struct ident_CmdEmpty { - static const char *name() { - return "CmdEmpty"; - } -}; - -// identifier #CmdEmptyResult -template -struct ident_CmdEmptyResult { - static const char *name() { - return "CmdEmptyResult"; - } -}; - -// identifier #CmdEndIf -template -struct ident_CmdEndIf { - static const char *name() { - return "CmdEndIf"; - } -}; - -// identifier #CmdEndSentence -template -struct ident_CmdEndSentence { - static const char *name() { - return "CmdEndSentence"; - } -}; - -// identifier #CmdEnum -template -struct ident_CmdEnum { - static const char *name() { - return "CmdEnum"; - } -}; - -// identifier #CmdFail -template -struct ident_CmdFail { - static const char *name() { - return "CmdFail"; - } -}; - -// identifier #CmdFinRAA -template -struct ident_CmdFinRAA { - static const char *name() { - return "CmdFinRAA"; - } -}; - -// identifier #CmdFnEnd -template -struct ident_CmdFnEnd { - static const char *name() { - return "CmdFnEnd"; - } -}; - -// identifier #CmdFnStart -template -struct ident_CmdFnStart { - static const char *name() { - return "CmdFnStart"; - } -}; - -// identifier #CmdIdent -template -struct ident_CmdIdent { - static const char *name() { - return "CmdIdent"; - } -}; - -// identifier #CmdIfDef -template -struct ident_CmdIfDef { - static const char *name() { - return "CmdIfDef"; - } -}; - -// identifier #CmdInitB0 -template -struct ident_CmdInitB0 { - static const char *name() { - return "CmdInitB0"; - } -}; - -// identifier #CmdInitRAA -template -struct ident_CmdInitRAA { - static const char *name() { - return "CmdInitRAA"; - } -}; - -// identifier #CmdInsertElem -template -struct ident_CmdInsertElem { - static const char *name() { - return "CmdInsertElem"; - } -}; - -// identifier #CmdInsertRange -template -struct ident_CmdInsertRange { - static const char *name() { - return "CmdInsertRange"; - } -}; - -// identifier #CmdInsertVar -template -struct ident_CmdInsertVar { - static const char *name() { - return "CmdInsertVar"; - } -}; - -// identifier #CmdIssueMem -template -struct ident_CmdIssueMem { - static const char *name() { - return "CmdIssueMem"; - } -}; - -// identifier #CmdLinkBrackets -template -struct ident_CmdLinkBrackets { - static const char *name() { - return "CmdLinkBrackets"; - } -}; - -// identifier #CmdName -template -struct ident_CmdName { - static const char *name() { - return "CmdName"; - } -}; - -// identifier #CmdNumber -template -struct ident_CmdNumber { - static const char *name() { - return "CmdNumber"; - } -}; - -// identifier #CmdOpenedE_End -template -struct ident_CmdOpenedE_End { - static const char *name() { - return "CmdOpenedE_End"; - } -}; - -// identifier #CmdOpenedE_Start -template -struct ident_CmdOpenedE_Start { - static const char *name() { - return "CmdOpenedE_Start"; - } -}; - -// identifier #CmdPushStack -template -struct ident_CmdPushStack { - static const char *name() { - return "CmdPushStack"; - } -}; - -// identifier #CmdRepeated -template -struct ident_CmdRepeated { - static const char *name() { - return "CmdRepeated"; - } -}; - -// identifier #CmdReturnResult -template -struct ident_CmdReturnResult { - static const char *name() { - return "CmdReturnResult"; - } -}; - -// identifier #CmdSave -template -struct ident_CmdSave { - static const char *name() { - return "CmdSave"; - } -}; - -// identifier #CmdSeparator -template -struct ident_CmdSeparator { - static const char *name() { - return "CmdSeparator"; - } -}; - -// identifier #CmdSpliceElem -template -struct ident_CmdSpliceElem { - static const char *name() { - return "CmdSpliceElem"; - } -}; - -// identifier #CmdSpliceRange -template -struct ident_CmdSpliceRange { - static const char *name() { - return "CmdSpliceRange"; - } -}; - -// identifier #CmdStartSentence -template -struct ident_CmdStartSentence { - static const char *name() { - return "CmdStartSentence"; - } -}; - -// identifier #CmdSwap -template -struct ident_CmdSwap { - static const char *name() { - return "CmdSwap"; - } -}; - -// identifier #CmdVar -template -struct ident_CmdVar { - static const char *name() { - return "CmdVar"; - } -}; - -// identifier #CmdiADT -template -struct ident_CmdiADT { - static const char *name() { - return "CmdiADT"; - } -}; - -// identifier #CmdiAllocateElem -template -struct ident_CmdiAllocateElem { - static const char *name() { - return "CmdiAllocateElem"; - } -}; - -// identifier #CmdiBracket -template -struct ident_CmdiBracket { - static const char *name() { - return "CmdiBracket"; - } -}; - -// identifier #CmdiChar -template -struct ident_CmdiChar { - static const char *name() { - return "CmdiChar"; - } -}; - -// identifier #CmdiContextSet -template -struct ident_CmdiContextSet { - static const char *name() { - return "CmdiContextSet"; - } -}; - -// identifier #CmdiEPrepare -template -struct ident_CmdiEPrepare { - static const char *name() { - return "CmdiEPrepare"; - } -}; - -// identifier #CmdiEStart -template -struct ident_CmdiEStart { - static const char *name() { - return "CmdiEStart"; - } -}; - -// identifier #CmdiEmpty -template -struct ident_CmdiEmpty { - static const char *name() { - return "CmdiEmpty"; - } -}; - -// identifier #CmdiEmptyResult -template -struct ident_CmdiEmptyResult { - static const char *name() { - return "CmdiEmptyResult"; - } -}; - -// identifier #CmdiFail -template -struct ident_CmdiFail { - static const char *name() { - return "CmdiFail"; - } -}; - -// identifier #CmdiFuncArray -template -struct ident_CmdiFuncArray { - static const char *name() { - return "CmdiFuncArray"; - } -}; - -// identifier #CmdiHugeNum -template -struct ident_CmdiHugeNum { - static const char *name() { - return "CmdiHugeNum"; - } -}; - -// identifier #CmdiIdent -template -struct ident_CmdiIdent { - static const char *name() { - return "CmdiIdent"; - } -}; - -// identifier #CmdiInitB0 -template -struct ident_CmdiInitB0 { - static const char *name() { - return "CmdiInitB0"; - } -}; - -// identifier #CmdiLabelArray -template -struct ident_CmdiLabelArray { - static const char *name() { - return "CmdiLabelArray"; - } -}; - -// identifier #CmdiLinkBrackets -template -struct ident_CmdiLinkBrackets { - static const char *name() { - return "CmdiLinkBrackets"; - } -}; - -// identifier #CmdiName -template -struct ident_CmdiName { - static const char *name() { - return "CmdiName"; - } -}; - -// identifier #CmdiNum -template -struct ident_CmdiNum { - static const char *name() { - return "CmdiNum"; - } -}; - -// identifier #CmdiNumberArray -template -struct ident_CmdiNumberArray { - static const char *name() { - return "CmdiNumberArray"; - } -}; - -// identifier #CmdiOnFailGoTo -template -struct ident_CmdiOnFailGoTo { - static const char *name() { - return "CmdiOnFailGoTo"; - } -}; - -// identifier #CmdiPushStack -template -struct ident_CmdiPushStack { - static const char *name() { - return "CmdiPushStack"; - } -}; - -// identifier #CmdiRepeat -template -struct ident_CmdiRepeat { - static const char *name() { - return "CmdiRepeat"; - } -}; - -// identifier #CmdiReserveStack -template -struct ident_CmdiReserveStack { - static const char *name() { - return "CmdiReserveStack"; - } -}; - -// identifier #CmdiReturnResult -template -struct ident_CmdiReturnResult { - static const char *name() { - return "CmdiReturnResult"; - } -}; - -// identifier #CmdiRunInterpret -template -struct ident_CmdiRunInterpret { - static const char *name() { - return "CmdiRunInterpret"; - } -}; - -// identifier #CmdiSave -template -struct ident_CmdiSave { - static const char *name() { - return "CmdiSave"; - } -}; - -// identifier #CmdiStringArray -template -struct ident_CmdiStringArray { - static const char *name() { - return "CmdiStringArray"; - } -}; - -// identifier #CmdiVar -template -struct ident_CmdiVar { - static const char *name() { - return "CmdiVar"; - } -}; - -// identifier #CreateClosure -template -struct ident_CreateClosure { - static const char *name() { - return "CreateClosure"; - } -}; - -// identifier #ElChar -template -struct ident_ElChar { - static const char *name() { - return "ElChar"; - } -}; - -// identifier #ElCloseADT -template -struct ident_ElCloseADT { - static const char *name() { - return "ElCloseADT"; - } -}; - -// identifier #ElCloseBracket -template -struct ident_ElCloseBracket { - static const char *name() { - return "ElCloseBracket"; - } -}; - -// identifier #ElCloseCall -template -struct ident_ElCloseCall { - static const char *name() { - return "ElCloseCall"; - } -}; - -// identifier #ElHugeNumber -template -struct ident_ElHugeNumber { - static const char *name() { - return "ElHugeNumber"; - } -}; - -// identifier #ElIdent -template -struct ident_ElIdent { - static const char *name() { - return "ElIdent"; - } -}; - -// identifier #ElName -template -struct ident_ElName { - static const char *name() { - return "ElName"; - } -}; - -// identifier #ElNumber -template -struct ident_ElNumber { - static const char *name() { - return "ElNumber"; - } -}; - -// identifier #ElOpenADT -template -struct ident_ElOpenADT { - static const char *name() { - return "ElOpenADT"; - } -}; - -// identifier #ElOpenBracket -template -struct ident_ElOpenBracket { - static const char *name() { - return "ElOpenBracket"; - } -}; - -// identifier #ElOpenCall -template -struct ident_ElOpenCall { - static const char *name() { - return "ElOpenCall"; - } -}; - -// identifier #ElString -template -struct ident_ElString { - static const char *name() { - return "ElString"; - } -}; - -// identifier #Fail -template -struct ident_Fail { - static const char *name() { - return "Fail"; - } -}; - -// identifier #GN_Entry -template -struct ident_GN_Entry { - static const char *name() { - return "GN_Entry"; - } -}; - -// identifier #GN_Local -template -struct ident_GN_Local { - static const char *name() { - return "GN_Local"; - } -}; - -// identifier #Success -template -struct ident_Success { - static const char *name() { - return "Success"; - } -}; - -static refalrts::FnResult FuncArguments(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"refalrts::Iter arg_begin, refalrts::Iter arg_end", 48} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::Iter arg_begin, refalrts::Iter arg_end", 48 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult NakedArguments(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"refalrts::Iter, refalrts::Iter", 30} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::Iter, refalrts::Iter", 30 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult TextFromMemoryClass(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_GN_Entry::name, - & ident_GN_Local::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"static ", 7} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # GN_Local - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # GN_Entry - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # GN_Local - if( ! refalrts::ident_left( & ident_GN_Local::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "static ", 7 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # GN_Entry - if( ! refalrts::ident_left( & ident_GN_Entry::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SwGenFnStart(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { TextFromMemoryClass, "TextFromMemoryClass" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" refalrts::this_is_generated_function();", 41}, - {") {", 3}, - {"refalrts::FnResult ", 19} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: s.MemoryClass#1/1 - //19: s.FnArguments#1/1 - //20: e.Name#1/1 - // s.MemoryClass#1 s.FnArguments#1 e.Name#1 - {refalrts::icsVarLeft, 0, 18, 0}, - {refalrts::icsVarLeft, 0, 19, 0}, - {refalrts::icContextSet, 0, 20, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icString, 0, 2, 6}, - {refalrts::icChar, 0, '(', 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icString, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icString, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icLinkBrackets, 14, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 2, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: s.MemoryClass#1/1 - //19: s.FnArguments#1/1 - //20: e.Name#1/1 - // s.MemoryClass#1 s.FnArguments#1 e.Name#1 - if( ! refalrts::svar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[19], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[20] = context[0]; - context[21] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], TextFromMemoryClass, "TextFromMemoryClass" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "refalrts::FnResult ", 19 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[8], '(' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], ") {", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], " refalrts::this_is_generated_function();", 41 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[2], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[3] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenFnStart(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FuncArguments, "FuncArguments" }, - { SwGenFnStart, "SwGenFnStart" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: s.MemoryClass#1/1 - //7: e.Name#1/1 - // s.MemoryClass#1 e.Name#1 - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.MemoryClass#1/1 - //7: e.Name#1/1 - // s.MemoryClass#1 e.Name#1 - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[0]; - context[8] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], SwGenFnStart, "SwGenFnStart" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], FuncArguments, "FuncArguments" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenExtern(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FuncArguments, "FuncArguments" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {");", 2}, - {"extern refalrts::FnResult ", 26} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Name#1/1 - // e.Name#1 - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icString, 0, 1, 3}, - {refalrts::icChar, 0, '(', 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 2, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Name#1/1 - // e.Name#1 - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[3], context[4], "extern refalrts::FnResult ", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[5], '(' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], FuncArguments, "FuncArguments" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], ");", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_evar( res, context[3], context[4] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenForward(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FuncArguments, "FuncArguments" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {");", 2}, - {"static refalrts::FnResult ", 26} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Name#1/1 - // e.Name#1 - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icString, 0, 1, 3}, - {refalrts::icChar, 0, '(', 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 2, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Name#1/1 - // e.Name#1 - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[3], context[4], "static refalrts::FnResult ", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[5], '(' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], FuncArguments, "FuncArguments" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], ");", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_evar( res, context[3], context[4] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenReturn(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_Fail::name, - & ident_Success::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8));", 78}, - {"return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8));", 64} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +13, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Indent#1/1 - // # Success e.Indent#1 - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icString, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceRange, 0, 0, 3}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Indent#1/1 - // # Fail e.Indent#1 - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icString, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceRange, 0, 0, 3}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Indent#1/1 - // # Success e.Indent#1 - if( ! refalrts::ident_left( & ident_Success::name, context[0], context[1] ) ) - continue; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[3], context[4], "return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8));", 64 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[3], context[4] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Indent#1/1 - // # Fail e.Indent#1 - if( ! refalrts::ident_left( & ident_Fail::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[3], context[4], "return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8));", 78 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[3], context[4] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenSwap(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 85 elems - refalrts::Iter context[85]; - refalrts::zeros( context, 85 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GenReturn, "GenReturn" }, - { GenFnStart, "GenFnStart" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Success::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" ", 2}, - {" refalrts::splice_to_freelist( arg_begin, arg_end );", 53}, - {" refalrts::swap_save( s_head, info_b, info_e );", 48}, - {" refalrts::splice_evar( arg_begin, saved_b, saved_e );", 55}, - {" refalrts::swap_info_bounds( saved_b, saved_e, s_head );", 57}, - {" refalrts::Iter saved_e;", 25}, - {" refalrts::Iter saved_b;", 25}, - {" static refalrts::Iter s_head = refalrts::initialize_swap_head( func_name );", 77}, - {" refalrts::move_right( info_b, info_e );", 41}, - {" refalrts::move_left( info_b, info_e );", 40}, - {" refalrts::Iter info_e = arg_end;", 34}, - {" refalrts::Iter info_b = func_name;", 36}, - {" refalrts::move_left( func_name, arg_end );", 44}, - {" refalrts::Iter func_name = arg_begin;", 39} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //82: s.MemoryClass#1/1 - //83: e.Name#1/1 - // s.MemoryClass#1 e.Name#1 - {refalrts::icsVarLeft, 0, 82, 0}, - {refalrts::icContextSet, 0, 83, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 5}, - {refalrts::icString, 0, 13, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icString, 0, 12, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icString, 0, 11, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icString, 0, 10, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 27}, - {refalrts::icString, 0, 9, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 31}, - {refalrts::icString, 0, 8, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 34}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 35}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 36}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 37}, - {refalrts::icString, 0, 7, 38}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 40}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 41}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 42}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 43}, - {refalrts::icString, 0, 6, 44}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 46}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 47}, - {refalrts::icString, 0, 5, 48}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 50}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 51}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 52}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 53}, - {refalrts::icString, 0, 4, 54}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 56}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 57}, - {refalrts::icString, 0, 3, 58}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 60}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 61}, - {refalrts::icString, 0, 2, 62}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 64}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 65}, - {refalrts::icString, 0, 1, 66}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 68}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 69}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 70}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 71}, - {refalrts::icFunc, 0, 0, 72}, - {refalrts::icIdent, 0, 0, 73}, - {refalrts::icString, 0, 0, 74}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 76}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 77}, - {refalrts::icChar, 0, '}', 78}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 79}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 80}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 81}, - {refalrts::icLinkBrackets, 80, 81, 0}, - {refalrts::icSpliceElem, 0, 0, 81}, - {refalrts::icSpliceElem, 0, 0, 80}, - {refalrts::icLinkBrackets, 77, 79, 0}, - {refalrts::icSpliceElem, 0, 0, 79}, - {refalrts::icSpliceElem, 0, 0, 78}, - {refalrts::icSpliceElem, 0, 0, 77}, - {refalrts::icPushStack, 0, 0, 76}, - {refalrts::icPushStack, 0, 0, 71}, - {refalrts::icSpliceElem, 0, 0, 76}, - {refalrts::icSpliceRange, 0, 0, 74}, - {refalrts::icSpliceElem, 0, 0, 73}, - {refalrts::icSpliceElem, 0, 0, 72}, - {refalrts::icSpliceElem, 0, 0, 71}, - {refalrts::icLinkBrackets, 69, 70, 0}, - {refalrts::icSpliceElem, 0, 0, 70}, - {refalrts::icSpliceElem, 0, 0, 69}, - {refalrts::icLinkBrackets, 65, 68, 0}, - {refalrts::icSpliceElem, 0, 0, 68}, - {refalrts::icSpliceRange, 0, 0, 66}, - {refalrts::icSpliceElem, 0, 0, 65}, - {refalrts::icLinkBrackets, 61, 64, 0}, - {refalrts::icSpliceElem, 0, 0, 64}, - {refalrts::icSpliceRange, 0, 0, 62}, - {refalrts::icSpliceElem, 0, 0, 61}, - {refalrts::icLinkBrackets, 57, 60, 0}, - {refalrts::icSpliceElem, 0, 0, 60}, - {refalrts::icSpliceRange, 0, 0, 58}, - {refalrts::icSpliceElem, 0, 0, 57}, - {refalrts::icLinkBrackets, 53, 56, 0}, - {refalrts::icSpliceElem, 0, 0, 56}, - {refalrts::icSpliceRange, 0, 0, 54}, - {refalrts::icSpliceElem, 0, 0, 53}, - {refalrts::icLinkBrackets, 51, 52, 0}, - {refalrts::icSpliceElem, 0, 0, 52}, - {refalrts::icSpliceElem, 0, 0, 51}, - {refalrts::icLinkBrackets, 47, 50, 0}, - {refalrts::icSpliceElem, 0, 0, 50}, - {refalrts::icSpliceRange, 0, 0, 48}, - {refalrts::icSpliceElem, 0, 0, 47}, - {refalrts::icLinkBrackets, 43, 46, 0}, - {refalrts::icSpliceElem, 0, 0, 46}, - {refalrts::icSpliceRange, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 43}, - {refalrts::icLinkBrackets, 41, 42, 0}, - {refalrts::icSpliceElem, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 41}, - {refalrts::icLinkBrackets, 37, 40, 0}, - {refalrts::icSpliceElem, 0, 0, 40}, - {refalrts::icSpliceRange, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icLinkBrackets, 35, 36, 0}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icLinkBrackets, 31, 34, 0}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceRange, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 27, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceRange, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 21, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceRange, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 17, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceRange, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 11, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 5, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 83}, - {refalrts::icSpliceSTVar, 0, 0, 82}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //82: s.MemoryClass#1/1 - //83: e.Name#1/1 - // s.MemoryClass#1 e.Name#1 - if( ! refalrts::svar_left( context[82], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[83] = context[0]; - context[84] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], GenFnStart, "GenFnStart" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], " refalrts::Iter func_name = arg_begin;", 39 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], " refalrts::move_left( func_name, arg_end );", 44 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[18], context[19], " refalrts::Iter info_b = func_name;", 36 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[22], context[23], " refalrts::Iter info_e = arg_end;", 34 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[28], context[29], " refalrts::move_left( info_b, info_e );", 40 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[32], context[33], " refalrts::move_right( info_b, info_e );", 41 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[34] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[35] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[36] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[37] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[38], context[39], " static refalrts::Iter s_head = refalrts::initialize_swap_head( func_name );", 77 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[40] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[41] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[42] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[43] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[44], context[45], " refalrts::Iter saved_b;", 25 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[46] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[47] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[48], context[49], " refalrts::Iter saved_e;", 25 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[50] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[51] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[52] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[53] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[54], context[55], " refalrts::swap_info_bounds( saved_b, saved_e, s_head );", 57 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[56] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[57] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[58], context[59], " refalrts::splice_evar( arg_begin, saved_b, saved_e );", 55 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[60] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[61] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[62], context[63], " refalrts::swap_save( s_head, info_b, info_e );", 48 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[64] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[65] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[66], context[67], " refalrts::splice_to_freelist( arg_begin, arg_end );", 53 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[68] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[69] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[70] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[71] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[72], GenReturn, "GenReturn" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[73], & ident_Success::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[74], context[75], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[76] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[77] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[78], '}' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[79] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[80] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[81] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[80], context[81] ); - res = refalrts::splice_elem( res, context[81] ); - res = refalrts::splice_elem( res, context[80] ); - refalrts::link_brackets( context[77], context[79] ); - res = refalrts::splice_elem( res, context[79] ); - res = refalrts::splice_elem( res, context[78] ); - res = refalrts::splice_elem( res, context[77] ); - refalrts::push_stack( context[76] ); - refalrts::push_stack( context[71] ); - res = refalrts::splice_elem( res, context[76] ); - res = refalrts::splice_evar( res, context[74], context[75] ); - res = refalrts::splice_elem( res, context[73] ); - res = refalrts::splice_elem( res, context[72] ); - res = refalrts::splice_elem( res, context[71] ); - refalrts::link_brackets( context[69], context[70] ); - res = refalrts::splice_elem( res, context[70] ); - res = refalrts::splice_elem( res, context[69] ); - refalrts::link_brackets( context[65], context[68] ); - res = refalrts::splice_elem( res, context[68] ); - res = refalrts::splice_evar( res, context[66], context[67] ); - res = refalrts::splice_elem( res, context[65] ); - refalrts::link_brackets( context[61], context[64] ); - res = refalrts::splice_elem( res, context[64] ); - res = refalrts::splice_evar( res, context[62], context[63] ); - res = refalrts::splice_elem( res, context[61] ); - refalrts::link_brackets( context[57], context[60] ); - res = refalrts::splice_elem( res, context[60] ); - res = refalrts::splice_evar( res, context[58], context[59] ); - res = refalrts::splice_elem( res, context[57] ); - refalrts::link_brackets( context[53], context[56] ); - res = refalrts::splice_elem( res, context[56] ); - res = refalrts::splice_evar( res, context[54], context[55] ); - res = refalrts::splice_elem( res, context[53] ); - refalrts::link_brackets( context[51], context[52] ); - res = refalrts::splice_elem( res, context[52] ); - res = refalrts::splice_elem( res, context[51] ); - refalrts::link_brackets( context[47], context[50] ); - res = refalrts::splice_elem( res, context[50] ); - res = refalrts::splice_evar( res, context[48], context[49] ); - res = refalrts::splice_elem( res, context[47] ); - refalrts::link_brackets( context[43], context[46] ); - res = refalrts::splice_elem( res, context[46] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_elem( res, context[43] ); - refalrts::link_brackets( context[41], context[42] ); - res = refalrts::splice_elem( res, context[42] ); - res = refalrts::splice_elem( res, context[41] ); - refalrts::link_brackets( context[37], context[40] ); - res = refalrts::splice_elem( res, context[40] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[37] ); - refalrts::link_brackets( context[35], context[36] ); - res = refalrts::splice_elem( res, context[36] ); - res = refalrts::splice_elem( res, context[35] ); - refalrts::link_brackets( context[31], context[34] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[27], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[21], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[17], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[11], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[5], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[83], context[84] ); - res = refalrts::splice_stvar( res, context[82] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult GenIdent(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 42 elems - refalrts::Iter context[42]; - refalrts::zeros( context, 42 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"};", 2}, - {" }", 3}, - {"\";", 2}, - {" return \"", 12}, - {" static const char *name() {", 29}, - {" {", 2}, - {"struct ident_", 13}, - {"template ", 36}, - {"// identifier #", 15} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //36: e.Name#1/1 - //38: e.Name#1/2 - //40: e.Name#1/3 - // e.Name#1 - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 38, 36, 0}, - {refalrts::icCopyEVar, 40, 38, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icString, 0, 8, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 7, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icString, 0, 6, 11}, - {refalrts::icString, 0, 5, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icString, 0, 4, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icString, 0, 3, 21}, - {refalrts::icString, 0, 2, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icString, 0, 1, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 30}, - {refalrts::icString, 0, 0, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 33}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 34}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 35}, - {refalrts::icLinkBrackets, 34, 35, 0}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icLinkBrackets, 30, 33, 0}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceRange, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icLinkBrackets, 26, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceRange, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 20, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceRange, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceRange, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 16, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceRange, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 10, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceRange, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //36: e.Name#1/1 - //38: e.Name#1/2 - //40: e.Name#1/3 - // e.Name#1 - context[36] = context[0]; - context[37] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[38], context[39], context[36], context[37])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[40], context[41], context[38], context[39])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[3], context[4], "// identifier #", 15 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], "template ", 36 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "struct ident_", 13 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[13], context[14], " {", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[17], context[18], " static const char *name() {", 29 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[21], context[22], " return \"", 12 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[23], context[24], "\";", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[27], context[28], " }", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[31], context[32], "};", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[34] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[35] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[34], context[35] ); - res = refalrts::splice_elem( res, context[35] ); - res = refalrts::splice_elem( res, context[34] ); - refalrts::link_brackets( context[30], context[33] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::link_brackets( context[26], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[20], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[16], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[10], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[6], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_evar( res, context[3], context[4] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult GenCommonHeaders(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"#include \"refalrts.h\"", 21}, - {"// Automatically generated file. Don\'t edit!", 44} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icString, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceRange, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[3], context[4], "// Automatically generated file. Don\'t edit!", 44 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], "#include \"refalrts.h\"", 21 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[6], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[3], context[4] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult GenCommonTailer(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"//End of file", 13} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icString, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icLinkBrackets, 2, 3, 0}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[5], context[6], "//End of file", 13 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::link_brackets( context[2], context[3] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GenProgram_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //4: e.Generated#2/1 - // ( ) e.Generated#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 4, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.Generated#2/1 - // ( ) e.Generated#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[4] = context[0]; - context[5] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult GenProgram(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 20 elems - refalrts::Iter context[20]; - refalrts::zeros( context, 20 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GenCommonTailer, "GenCommonTailer" }, - { lambda_GenProgram_0, "lambda_GenProgram_0" }, - { GenCommand, "GenCommand" }, - { MapReduce, "MapReduce" }, - { Fetch, "Fetch" }, - { GenCommonHeaders, "GenCommonHeaders" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Algorithm#1/1 - // e.Algorithm#1 - {refalrts::icContextSet, 0, 18, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 5, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 4, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 3, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Algorithm#1/1 - // e.Algorithm#1 - context[18] = context[0]; - context[19] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], GenCommonHeaders, "GenCommonHeaders" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], MapReduce, "MapReduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GenCommand, "GenCommand" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], lambda_GenProgram_0, "lambda_GenProgram_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], GenCommonTailer, "GenCommonTailer" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ContextRange_B(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"context[", 8} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //8: s.RangeOffset#1/1 - // s.RangeOffset#1 - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icChar, 0, ']', 7}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.RangeOffset#1/1 - // s.RangeOffset#1 - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "context[", 8 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], ']' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ContextRange_E(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Inc, "Inc" }, - { StrFromInt, "StrFromInt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"context[", 8} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: s.RangeOffset#1/1 - // s.RangeOffset#1 - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icChar, 0, ']', 10}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.RangeOffset#1/1 - // s.RangeOffset#1 - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "context[", 8 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[10], ']' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ContextRange(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ContextRange_E, "ContextRange_E" }, - { ContextRange_B, "ContextRange_B" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {", ", 2} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //10: s.RangeOffset#1/1 - //11: s.RangeOffset#1/2 - // s.RangeOffset#1 - {refalrts::icsVarLeft, 0, 10, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 11, 10, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icString, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: s.RangeOffset#1/1 - //11: s.RangeOffset#1/2 - // s.RangeOffset#1 - if( ! refalrts::svar_left( context[10], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[11], context[10])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ContextRange_B, "ContextRange_B" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[5], context[6], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], ContextRange_E, "ContextRange_E" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ContextItem(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"context[", 8} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //8: s.ItemNumber#1/1 - // s.ItemNumber#1 - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icChar, 0, ']', 7}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.ItemNumber#1/1 - // s.ItemNumber#1 - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "context[", 8 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], ']' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CreateClosure::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"refalrts::create_closure", 24} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # CreateClosure - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Name#1/1 - // e.Name#1 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # CreateClosure - if( ! refalrts::ident_left( & ident_CreateClosure::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::create_closure", 24 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Name#1/1 - // e.Name#1 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintBracketsVarInit(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ContextRange_E, "ContextRange_E" }, - { ContextRange_B, "ContextRange_B" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" = 0;", 5} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //16: s.InnerBrackets#1/1 - //17: e.Indent#1/1 - //19: e.Indent#1/2 - //21: s.InnerBrackets#1/2 - // e.Indent#1 s.InnerBrackets#1 - {refalrts::icsVarRight, 0, 16, 0}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 17, 0}, - {refalrts::icCopySTVar, 21, 16, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 3}, - {refalrts::icFunc, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icString, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icLinkBrackets, 9, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 2, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: s.InnerBrackets#1/1 - //17: e.Indent#1/1 - //19: e.Indent#1/2 - //21: s.InnerBrackets#1/2 - // e.Indent#1 s.InnerBrackets#1 - if( ! refalrts::svar_right( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[17], context[18])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[21], context[16])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], ContextRange_B, "ContextRange_B" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], " = 0;", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ContextRange_E, "ContextRange_E" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[13], context[14], " = 0;", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[9], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[2], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[3] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintDirection(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_AlgRight::name, - & ident_AlgLeft::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Right", 5}, - {"Left", 4} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # AlgLeft - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # AlgRight - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # AlgLeft - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "Left", 4 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # AlgRight - if( ! refalrts::ident_left( & ident_AlgRight::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "Right", 5 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GenCommand_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 26 elems - refalrts::Iter context[26]; - refalrts::zeros( context, 26 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrintName, "PrintName" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"\" },", 4}, - {", \"", 3}, - {" { ", 4} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //20: e.Indent#1/1 - //22: e.Name#2/1 - //24: e.Name#2/2 - // ( e.Indent#1 ) ( e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 20, 2}, - {refalrts::icContextSet, 0, 22, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 24, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 2, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icString, 0, 1, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icString, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icLinkBrackets, 6, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceRange, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: e.Indent#1/1 - //22: e.Name#2/1 - //24: e.Name#2/2 - // ( e.Indent#1 ) ( e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[20] = context[2]; - context[21] = context[3]; - context[22] = context[4]; - context[23] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[24], context[25], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], " { ", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], PrintName, "PrintName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], ", \"", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], PrintName, "PrintName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[17], context[18], "\" },", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GenCommand_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"::name,", 12}, - {" & ident_", 10} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Name#2/1 - // ( e.Indent#1 ) ( e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 1, 7}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 6, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Name#2/1 - // ( e.Indent#1 ) ( e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[4]; - context[15] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], " & ident_", 10 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "::name,", 12 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GenCommand_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"UL,", 3}, - {" ", 2} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Number#2/1 - // ( e.Indent#1 ) s.Number#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icString, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icString, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icLinkBrackets, 4, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Number#2/1 - // ( e.Indent#1 ) s.Number#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[5], context[6], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[10], context[11], "UL,", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GenCommand_3(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrintString, "PrintString" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"},", 2}, - {" {", 3} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //15: e.Indent#1/1 - //17: e.String#2/1 - // ( e.Indent#1 ) ( e.String#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icString, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icLinkBrackets, 6, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.Indent#1/1 - //17: e.String#2/1 - // ( e.Indent#1 ) ( e.String#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[4]; - context[18] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], " {", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], PrintString, "PrintString" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenCommand(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 66 elems - refalrts::Iter context[66]; - refalrts::zeros( context, 66 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" }, - { GenReturn, "GenReturn" }, - { PrintInterpretAllocateElem, "PrintInterpretAllocateElem" }, - { PrintDirection, "PrintDirection" }, - { Escape, "Escape" }, - { PrintString, "PrintString" }, - { lambda_GenCommand_3, "lambda_GenCommand_3" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Map, "Map" }, - { lambda_GenCommand_2, "lambda_GenCommand_2" }, - { lambda_GenCommand_1, "lambda_GenCommand_1" }, - { PrintName, "PrintName" }, - { lambda_GenCommand_0, "lambda_GenCommand_0" }, - { Inc, "Inc" }, - { ContextItem, "ContextItem" }, - { ContextRange, "ContextRange" }, - { PrintAllocateElem, "PrintAllocateElem" }, - { ContextRange_E, "ContextRange_E" }, - { ContextRange_B, "ContextRange_B" }, - { PrintMatchRepeated, "PrintMatchRepeated" }, - { PrintMatchSTVar, "PrintMatchSTVar" }, - { PrintMatchEmpty, "PrintMatchEmpty" }, - { PrintMatchADT, "PrintMatchADT" }, - { PrintBracketsVarInit, "PrintBracketsVarInit" }, - { PrintMatchBrackets, "PrintMatchBrackets" }, - { PrintMatchIdent, "PrintMatchIdent" }, - { PrintMatchName, "PrintMatchName" }, - { PrintMatchNumber, "PrintMatchNumber" }, - { PrintMatchChar, "PrintMatchChar" }, - { GenFnStart, "GenFnStart" }, - { GenIdent, "GenIdent" }, - { GenForward, "GenForward" }, - { GenExtern, "GenExtern" }, - { GenSwap, "GenSwap" }, - { NakedArguments, "NakedArguments" }, - { SwGenFnStart, "SwGenFnStart" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdiInitB0::name, - & ident_CmdiReturnResult::name, - & ident_CmdiFail::name, - & ident_CmdiOnFailGoTo::name, - & ident_Fail::name, - & ident_CmdFail::name, - & ident_CmdiPushStack::name, - & ident_CmdiLinkBrackets::name, - & ident_CmdSpliceRange::name, - & ident_CmdSpliceElem::name, - & ident_CmdArrSplice::name, - & ident_CmdArrCopy::name, - & ident_CmdiAllocateElem::name, - & ident_CmdiEmpty::name, - & ident_CmdiBracket::name, - & ident_CmdiEmptyResult::name, - & ident_CmdiRunInterpret::name, - & ident_CmdiReserveStack::name, - & ident_CmdFinRAA::name, - & ident_CmdInitRAA::name, - & ident_CmdiHugeNum::name, - & ident_CmdiNum::name, - & ident_CmdiIdent::name, - & ident_CmdiName::name, - & ident_CmdiVar::name, - & ident_CmdiChar::name, - & ident_CmdiSave::name, - & ident_CmdiADT::name, - & ident_CmdiEStart::name, - & ident_CmdiEPrepare::name, - & ident_CmdiRepeat::name, - & ident_CmdiStringArray::name, - & ident_CmdiNumberArray::name, - & ident_CmdiLabelArray::name, - & ident_CmdiFuncArray::name, - & ident_CmdEndIf::name, - & ident_CmdElse::name, - & ident_CmdIfDef::name, - & ident_CmdIssueMem::name, - & ident_Success::name, - & ident_CmdReturnResult::name, - & ident_CmdInsertRange::name, - & ident_CmdInsertVar::name, - & ident_CmdInsertElem::name, - & ident_CmdPushStack::name, - & ident_CmdLinkBrackets::name, - & ident_CmdAllocateElem::name, - & ident_ElString::name, - & ident_CmdCopyVar::name, - & ident_CmdEmptyResult::name, - & ident_CmdSave::name, - & ident_AlgLeft::name, - & ident_CmdOpenedE_End::name, - & ident_CmdOpenedE_Start::name, - & ident_CmdiContextSet::name, - & ident_CmdClosedE::name, - & ident_CmdRepeated::name, - & ident_CmdVar::name, - & ident_CmdEmpty::name, - & ident_CmdADT::name, - & ident_CmdBrackets::name, - & ident_CmdIdent::name, - & ident_CmdName::name, - & ident_CmdNumber::name, - & ident_CmdChar::name, - & ident_CmdInitB0::name, - & ident_CmdEndSentence::name, - & ident_CmdStartSentence::name, - & ident_CmdFnEnd::name, - & ident_CmdSeparator::name, - & ident_CmdFnStart::name, - & ident_CmdDefineIdent::name, - & ident_GN_Local::name, - & ident_CmdDeclaration::name, - & ident_GN_Entry::name, - & ident_CmdSwap::name, - & ident_CmdEnum::name, - & ident_CmdComment::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"{refalrts::icInitB0, 0, 0, 0},", 30}, - {"{refalrts::icReturnResult, 0, 0, 0},", 36}, - {"{refalrts::icFail, 0, 0, 0},", 28}, - {", 0, 0},", 8}, - {"{refalrts::icOnFailGoTo, +", 26}, - {"},", 2}, - {"{refalrts::icPushStack, 0, 0, ", 30}, - {", 0},", 5}, - {", ", 2}, - {"{refalrts::icLinkBrackets, ", 27}, - {"{refalrts::icSpliceRange, 0, 0, ", 32}, - {"{refalrts::icSpliceElem, 0, 0, ", 31}, - {"{refalrts::icSpliceSTVar, 0, 0, ", 32}, - {"{refalrts::icSpliceEVar, 0, 0, ", 31}, - {"{refalrts::icCopySTVar, ", 24}, - {"{refalrts::icCopyEVar, ", 23}, - {"{refalrts::icEmpty, 0, 0, ", 26}, - {", 0, ", 5}, - {"{refalrts::icBracket", 20}, - {"{refalrts::icEmptyResult, 0, 0, 0},", 35}, - {"return res;", 11}, - {");", 2}, - {" functions, idents, numbers, strings, open_e_stack", 51}, - {" raa, context, arg_begin, arg_end,", 35}, - {"refalrts::FnResult res = refalrts::interpret_array(", 51}, - {"];", 2}, - {"int open_e_stack[", 17}, - {"int open_e_stack[1];", 20}, - {"};", 2}, - {" {refalrts::icEnd, 0, 0, 0}", 28}, - {"static const refalrts::RASLCommand raa[] = {", 44}, - {" ", 2}, - {"{refalrts::icHugeNum", 20}, - {"{refalrts::icNum", 16}, - {"{refalrts::icIdent", 18}, - {"{refalrts::icFunc", 17}, - {"Var", 3}, - {"{refalrts::ic", 13}, - {"\'), ", 4}, - {", 0, static_cast(\'", 33}, - {"{refalrts::icChar", 17}, - {"{refalrts::icSave, 0, ", 22}, - {"{refalrts::icADT", 16}, - {"{refalrts::icEStart, 0, ", 24}, - {"{refalrts::icEPrepare, 0, ", 26}, - {"Repeat", 6}, - {" {", 3}, - {"static const refalrts::StringItem strings[] = {", 47}, - {"using refalrts::strings;", 24}, - {"UL", 2}, - {"static const refalrts::RefalNumber numbers[] = {", 48}, - {"using refalrts::numbers;", 24}, - {"::name", 11}, - {" & ident_", 10}, - {"static const refalrts::RefalIdentifier idents[] = {", 51}, - {"using refalrts::idents;", 23}, - {"\" }", 3}, - {", \"", 3}, - {" { ", 4}, - {"static const refalrts::RefalFunction functions[] = {", 52}, - {"using refalrts::functions;", 26}, - {"#endif", 6}, - {"#else", 5}, - {"#ifdef INTERPRET", 16}, - {" );", 3}, - {"refalrts::zeros( context, ", 26}, - {"refalrts::Iter context[", 23}, - {" elems", 6}, - {"// issue here memory for vars with ", 35}, - {"refalrts::splice_to_freelist( arg_begin, arg_end );", 51}, - {"refalrts::use( res );", 21}, - {"res = refalrts::splice_evar( res, ", 34}, - {"res = refalrts::splice_stvar( res, ", 35}, - {"res = refalrts::splice_elem( res, ", 34}, - {"refalrts::push_stack( ", 22}, - {"refalrts::link_brackets( ", 25}, - {" return refalrts::cNoMemory;", 29}, - {" ) )", 4}, - {"if( ! refalrts::alloc_chars( ", 29}, - {"))", 2}, - {"if (! refalrts::copy_stvar(", 27}, - {"if (! refalrts::copy_evar(", 26}, - {"refalrts::Iter res = arg_begin;", 31}, - {"refalrts::reset_allocator();", 28}, - {" = ", 3}, - {" ) );", 5}, - {"} while ( refalrts::open_evar_advance( ", 39}, - {"do {", 4}, - {"refalrts::start_e_loop();", 25}, - {" = 0;", 5}, - {"{refalrts::icContextSet, 0, ", 28}, - {"refalrts::move_right( ", 22}, - {"refalrts::move_left( ", 21}, - {" = arg_end;", 11}, - {" = arg_begin;", 13}, - {"} while ( 0 );", 14}, - {" refalrts::start_sentence();", 29}, - {"//", 2} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +25, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Text#1/1 - //16: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdComment e.Text#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 77, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 16, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 97, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +52, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //23: e.Indent#1/1 - //25: s.MemoryClass#1/1 - //26: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdEnum s.MemoryClass#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 76, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icContextSet, 0, 26, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 35, 9}, - {refalrts::icFunc, 0, 34, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icIdent, 0, 4, 14}, - {refalrts::icString, 0, 31, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icChar, 0, '}', 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 18, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Indent#1/1 - //13: s.MemoryClass#1/1 - //14: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdSwap s.MemoryClass#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 75, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icsVarLeft, 0, 13, 4}, - {refalrts::icContextSet, 0, 14, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 33, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +25, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Indent#1/1 - //13: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdDeclaration # GN_Entry e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 73, 4}, - {refalrts::icIdentLeft, 0, 74, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 32, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +25, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Indent#1/1 - //13: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdDeclaration # GN_Local e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 73, 4}, - {refalrts::icIdentLeft, 0, 72, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 31, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Indent#1/1 - //13: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdDefineIdent e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 71, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 30, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.MemoryClass#1/1 - //16: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdFnStart s.MemoryClass#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 70, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icContextSet, 0, 16, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 31, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 29, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +22, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Indent#1/1 - //12: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdSeparator ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 69, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 12, 10, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - // ( e.Indent#1 ' ' ) ( # CmdFnEnd ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharRight, 0, static_cast(' '), 2}, - {refalrts::icCharRight, 0, static_cast(' '), 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 68, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icChar, 0, '}', 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 8, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Indent#1/1 - //20: e.Indent#1/2 - //22: e.Indent#1/3 - // ( e.Indent#1 ) ( # CmdStartSentence ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 67, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 18, 0}, - {refalrts::icCopyEVar, 22, 20, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 31, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icString, 0, 87, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icString, 0, 96, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icLinkBrackets, 14, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Indent#1/1 - //16: e.Indent#1/2 - // ( e.Indent#1 ' ' ) ( # CmdEndSentence ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharRight, 0, static_cast(' '), 2}, - {refalrts::icCharRight, 0, static_cast(' '), 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 66, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 16, 14, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 95, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +116, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //54: e.Indent#1/1 - //56: e.Indent#1/2 - //58: e.Indent#1/3 - //60: e.Indent#1/4 - //62: e.Indent#1/5 - //64: e.Indent#1/6 - // ( e.Indent#1 ) ( # CmdInitB0 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 65, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 54, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 56, 54, 0}, - {refalrts::icCopyEVar, 58, 56, 0}, - {refalrts::icCopyEVar, 60, 58, 0}, - {refalrts::icCopyEVar, 62, 60, 0}, - {refalrts::icCopyEVar, 64, 62, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 18, 10}, - {refalrts::icInt, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icString, 0, 94, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 17, 18}, - {refalrts::icInt, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icString, 0, 93, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icString, 0, 92, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 27}, - {refalrts::icFunc, 0, 15, 28}, - {refalrts::icInt, 0, 0, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 30}, - {refalrts::icString, 0, 64, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 33}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 34}, - {refalrts::icString, 0, 92, 35}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 37}, - {refalrts::icFunc, 0, 15, 38}, - {refalrts::icInt, 0, 0, 39}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 40}, - {refalrts::icString, 0, 64, 41}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 43}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 44}, - {refalrts::icString, 0, 91, 45}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 47}, - {refalrts::icFunc, 0, 15, 48}, - {refalrts::icInt, 0, 0, 49}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 50}, - {refalrts::icString, 0, 64, 51}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 53}, - {refalrts::icLinkBrackets, 44, 53, 0}, - {refalrts::icSpliceElem, 0, 0, 53}, - {refalrts::icSpliceRange, 0, 0, 51}, - {refalrts::icPushStack, 0, 0, 50}, - {refalrts::icPushStack, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 50}, - {refalrts::icSpliceElem, 0, 0, 49}, - {refalrts::icSpliceElem, 0, 0, 48}, - {refalrts::icSpliceElem, 0, 0, 47}, - {refalrts::icSpliceRange, 0, 0, 45}, - {refalrts::icSpliceEVar, 0, 0, 64}, - {refalrts::icSpliceElem, 0, 0, 44}, - {refalrts::icLinkBrackets, 34, 43, 0}, - {refalrts::icSpliceElem, 0, 0, 43}, - {refalrts::icSpliceRange, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icSpliceRange, 0, 0, 35}, - {refalrts::icSpliceEVar, 0, 0, 62}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icLinkBrackets, 24, 33, 0}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceRange, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceRange, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 60}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 16, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceRange, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 58}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 8, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 56}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 54}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Char#1/1 - //18: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdChar s.Direction#1 s.BracketNumber#1 s.Char#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 64, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 16, 4}, - {refalrts::icsVarLeft, 0, 17, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 18, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 28, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Number#1/1 - //18: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdNumber s.Direction#1 s.BracketNumber#1 s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 63, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 16, 4}, - {refalrts::icsVarLeft, 0, 17, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 18, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 27, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: e.Name#1/1 - //19: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdName s.Direction#1 s.BracketNumber#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 62, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 16, 4}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 26, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: e.Name#1/1 - //19: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdIdent s.Direction#1 s.BracketNumber#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 61, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 16, 4}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 25, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Indent#1/1 - //18: s.Direction#1/1 - //19: s.BracketNumber#1/1 - //20: s.InnerBrackets#1/1 - //21: e.Indent#1/2 - //23: e.Indent#1/3 - //25: s.InnerBrackets#1/2 - // ( e.Indent#1 ) ( # CmdBrackets s.Direction#1 s.BracketNumber#1 s.InnerBrackets#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 60, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icsVarLeft, 0, 18, 4}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 21, 16, 0}, - {refalrts::icCopyEVar, 23, 21, 0}, - {refalrts::icCopySTVar, 25, 20, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 23, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 24, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +49, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Indent#1/1 - //18: s.Direction#1/1 - //19: s.BracketNumber#1/1 - //20: s.InnerBrackets#1/1 - //21: e.Name#1/1 - //23: e.Indent#1/2 - //25: e.Indent#1/3 - //27: s.InnerBrackets#1/2 - // ( e.Indent#1 ) ( # CmdADT s.Direction#1 s.BracketNumber#1 s.InnerBrackets#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 59, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icsVarLeft, 0, 18, 4}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 23, 16, 0}, - {refalrts::icCopyEVar, 25, 23, 0}, - {refalrts::icCopySTVar, 27, 20, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 23, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 22, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +33, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdEmpty s.Direction#1 s.BracketNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 58, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 16, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 17, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 21, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +38, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Mode#1/1 - //18: s.VarNumber#1/1 - //19: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdVar s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 57, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 16, 4}, - {refalrts::icsVarLeft, 0, 17, 4}, - {refalrts::icsVarLeft, 0, 18, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 20, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +40, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Mode#1/1 - //18: s.Var#1/1 - //19: s.Sample#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdRepeated s.Direction#1 s.BracketNumber#1 s.Mode#1 s.Var#1 s.Sample#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 56, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 16, 4}, - {refalrts::icsVarLeft, 0, 17, 4}, - {refalrts::icsVarLeft, 0, 18, 4}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 19, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +78, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Indent#1/1 - //32: s.BracketNumber#1/1 - //33: s.VarNumber#1/1 - //34: e.Indent#1/2 - //36: e.Indent#1/3 - //38: s.VarNumber#1/2 - //39: s.BracketNumber#1/2 - // ( e.Indent#1 ) ( # CmdClosedE # AlgLeft s.BracketNumber#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 55, 4}, - {refalrts::icIdentLeft, 0, 51, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::icsVarLeft, 0, 32, 4}, - {refalrts::icsVarLeft, 0, 33, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 34, 30, 0}, - {refalrts::icCopyEVar, 36, 34, 0}, - {refalrts::icCopySTVar, 38, 33, 0}, - {refalrts::icCopySTVar, 39, 32, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 18, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icString, 0, 84, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 18, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icChar, 0, ';', 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 20}, - {refalrts::icFunc, 0, 17, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icString, 0, 84, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 17, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icChar, 0, ';', 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icLinkBrackets, 19, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceRange, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 8, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiContextSet s.BracketNumber#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 54, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 90, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 5, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +75, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Indent#1/1 - //34: s.BracketNumber#1/1 - //35: s.VarNumber#1/1 - //36: e.Indent#1/2 - //38: e.Indent#1/3 - //40: e.Indent#1/4 - //42: e.Indent#1/5 - //44: s.VarNumber#1/2 - // ( e.Indent#1 ) ( # CmdOpenedE_Start # AlgLeft s.BracketNumber#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 53, 4}, - {refalrts::icIdentLeft, 0, 51, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 4}, - {refalrts::icsVarLeft, 0, 35, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 36, 32, 0}, - {refalrts::icCopyEVar, 38, 36, 0}, - {refalrts::icCopyEVar, 40, 38, 0}, - {refalrts::icCopyEVar, 42, 40, 0}, - {refalrts::icCopySTVar, 44, 35, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 31, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 18, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 89, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 17, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icString, 0, 89, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icString, 0, 88, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icString, 0, 87, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 28, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceRange, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 24, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceRange, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 17, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceRange, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 10, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +51, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ' ' ) ( # CmdOpenedE_End # AlgLeft s.BracketNumber#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharRight, 0, static_cast(' '), 2}, - {refalrts::icCharRight, 0, static_cast(' '), 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 52, 4}, - {refalrts::icIdentLeft, 0, 51, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 86, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 15, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 15, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 85, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +77, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Indent#1/1 - //32: s.OldBracketNumber#1/1 - //33: s.NewBracketNumber#1/1 - //34: e.Indent#1/2 - //36: e.Indent#1/3 - //38: s.NewBracketNumber#1/2 - //39: s.OldBracketNumber#1/2 - // ( e.Indent#1 ) ( # CmdSave s.OldBracketNumber#1 s.NewBracketNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 50, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::icsVarLeft, 0, 32, 4}, - {refalrts::icsVarLeft, 0, 33, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 34, 30, 0}, - {refalrts::icCopyEVar, 36, 34, 0}, - {refalrts::icCopySTVar, 38, 33, 0}, - {refalrts::icCopySTVar, 39, 32, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 18, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icString, 0, 84, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 18, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icChar, 0, ';', 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 20}, - {refalrts::icFunc, 0, 17, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icString, 0, 84, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 17, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icChar, 0, ';', 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icLinkBrackets, 19, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceRange, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 8, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +38, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Indent#1/1 - //20: e.Indent#1/2 - //22: e.Indent#1/3 - // ( e.Indent#1 ) ( # CmdEmptyResult ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 49, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 18, 0}, - {refalrts::icCopyEVar, 22, 20, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icString, 0, 83, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icString, 0, 82, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icLinkBrackets, 14, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +58, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //26: e.Indent#1/1 - //28: s.Target#1/1 - //29: s.Sample#1/1 - //30: e.Indent#1/2 - //32: e.Indent#1/3 - // ( e.Indent#1 ) ( # CmdCopyVar 'e s.Target#1 s.Sample#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 48, 4}, - {refalrts::icCharLeft, 0, static_cast('e'), 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 26, 2}, - {refalrts::icsVarLeft, 0, 28, 4}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 30, 26, 0}, - {refalrts::icCopyEVar, 32, 30, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 81, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 15, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 15, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 79, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icString, 0, 76, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icLinkBrackets, 22, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceRange, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +58, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //26: e.Indent#1/1 - //28: s.Mode#1/1 - //29: s.Target#1/1 - //30: s.Sample#1/1 - //31: e.Indent#1/2 - //33: e.Indent#1/3 - // ( e.Indent#1 ) ( # CmdCopyVar s.Mode#1 s.Target#1 s.Sample#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 48, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 26, 2}, - {refalrts::icsVarLeft, 0, 28, 4}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 31, 26, 0}, - {refalrts::icCopyEVar, 33, 31, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 80, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 14, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 14, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 79, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icString, 0, 76, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icLinkBrackets, 22, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceRange, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +77, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //34: e.Indent#1/1 - //36: s.ElemNumber#1/1 - //37: e.String#1/1 - //39: e.Indent#1/2 - //41: e.Indent#1/3 - //43: s.ElemNumber#1/2 - // ( e.Indent#1 ) ( # CmdAllocateElem s.ElemNumber#1 # ElString e.String#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 46, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 34, 2}, - {refalrts::icsVarLeft, 0, 36, 4}, - {refalrts::icIdentLeft, 0, 47, 4}, - {refalrts::icContextSet, 0, 37, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 39, 34, 0}, - {refalrts::icCopyEVar, 41, 39, 0}, - {refalrts::icCopySTVar, 43, 36, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 78, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 14, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 14, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 13, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icString, 0, 8, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 24}, - {refalrts::icFunc, 0, 5, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icString, 0, 77, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 30}, - {refalrts::icString, 0, 76, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 33}, - {refalrts::icLinkBrackets, 30, 33, 0}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceRange, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icLinkBrackets, 8, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceRange, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceRange, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +33, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.ElemNumber#1/1 - //16: e.ElemInfo#1/1 - //18: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdAllocateElem s.ElemNumber#1 e.ElemInfo#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 46, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icContextSet, 0, 16, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 18, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 16, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.Left#1/1 - //25: s.Right#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdLinkBrackets s.Left#1 s.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 45, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 75, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 14, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 14, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 64, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdPushStack s.ElemNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 44, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 74, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 14, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 64, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdInsertElem s.ElemNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 43, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 73, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 14, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 64, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +37, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Number#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdInsertVar 'e s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 42, 4}, - {refalrts::icCharLeft, 0, static_cast('e'), 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 71, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 15, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 64, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +37, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Mode#1/1 - //20: s.Number#1/1 - //21: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdInsertVar s.Mode#1 s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 42, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 21, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 72, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 14, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 64, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +56, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Indent#1/1 - //27: s.Number#1/1 - //28: e.Indent#1/2 - //30: s.Number#1/2 - // ( e.Indent#1 ) ( # CmdInsertRange s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 41, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 25, 2}, - {refalrts::icsVarLeft, 0, 27, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 28, 25, 0}, - {refalrts::icCopySTVar, 30, 27, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 71, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 14, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 14, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 13, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icString, 0, 64, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icLinkBrackets, 8, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceRange, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +45, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //20: e.Indent#1/1 - //22: e.Indent#1/2 - //24: e.Indent#1/3 - //26: e.Indent#1/4 - // ( e.Indent#1 ) ( # CmdReturnResult ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 40, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 20, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 22, 20, 0}, - {refalrts::icCopyEVar, 24, 22, 0}, - {refalrts::icCopyEVar, 26, 24, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 70, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icString, 0, 69, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 1, 17}, - {refalrts::icIdent, 0, 39, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 12, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +78, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //35: e.Indent#1/1 - //37: s.Number#1/1 - //38: e.Indent#1/2 - //40: e.Indent#1/3 - //42: e.Indent#1/4 - //44: s.Number#1/2 - //45: s.Number#1/3 - // ( e.Indent#1 ) ( # CmdIssueMem s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 38, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 35, 2}, - {refalrts::icsVarLeft, 0, 37, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 38, 35, 0}, - {refalrts::icCopyEVar, 40, 38, 0}, - {refalrts::icCopyEVar, 42, 40, 0}, - {refalrts::icCopySTVar, 44, 37, 0}, - {refalrts::icCopySTVar, 45, 44, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 68, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 67, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icString, 0, 66, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 20}, - {refalrts::icFunc, 0, 0, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icString, 0, 25, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icString, 0, 65, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 29}, - {refalrts::icFunc, 0, 0, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icString, 0, 64, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 34}, - {refalrts::icLinkBrackets, 26, 34, 0}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceRange, 0, 0, 32}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceRange, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 17, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceRange, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceRange, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +22, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - // ( e.Indent#1 ) ( # CmdIfDef ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 37, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 63, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +22, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - // ( e.Indent#1 ) ( # CmdElse ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 36, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 62, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +22, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - // ( e.Indent#1 ) ( # CmdEndIf ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 35, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 61, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiFuncArray ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 34, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 60, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +93, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //41: e.Indent#1/1 - //43: e.FuncNames#1/1 - //45: e.LastName#1/1 - //47: e.Indent#1/2 - //49: e.Indent#1/3 - //51: e.Indent#1/4 - //53: e.Indent#1/5 - //55: e.LastName#1/2 - // ( e.Indent#1 ) ( # CmdiFuncArray e.FuncNames#1 ( e.LastName#1 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 34, 4}, - {refalrts::icBracketRight, 0, 6, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 41, 2}, - {refalrts::icContextSet, 0, 43, 4}, - {refalrts::icContextSet, 0, 45, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 47, 41, 0}, - {refalrts::icCopyEVar, 49, 47, 0}, - {refalrts::icCopyEVar, 51, 49, 0}, - {refalrts::icCopyEVar, 53, 51, 0}, - {refalrts::icCopyEVar, 55, 45, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icString, 0, 59, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 8, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 7, 17}, - {refalrts::icFunc, 0, 12, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icString, 0, 58, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 26}, - {refalrts::icFunc, 0, 11, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icString, 0, 57, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 31}, - {refalrts::icFunc, 0, 11, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 33}, - {refalrts::icString, 0, 56, 34}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 36}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 37}, - {refalrts::icString, 0, 28, 38}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 40}, - {refalrts::icLinkBrackets, 37, 40, 0}, - {refalrts::icSpliceElem, 0, 0, 40}, - {refalrts::icSpliceRange, 0, 0, 38}, - {refalrts::icSpliceEVar, 0, 0, 53}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icLinkBrackets, 23, 36, 0}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icSpliceRange, 0, 0, 34}, - {refalrts::icPushStack, 0, 0, 33}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceEVar, 0, 0, 55}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceRange, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 49}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiLabelArray ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 33, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 55, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +73, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //33: e.Indent#1/1 - //35: e.LabelNames#1/1 - //37: e.LastName#1/1 - //39: e.Indent#1/2 - //41: e.Indent#1/3 - //43: e.Indent#1/4 - //45: e.Indent#1/5 - // ( e.Indent#1 ) ( # CmdiLabelArray e.LabelNames#1 ( e.LastName#1 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 33, 4}, - {refalrts::icBracketRight, 0, 6, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 39, 33, 0}, - {refalrts::icCopyEVar, 41, 39, 0}, - {refalrts::icCopyEVar, 43, 41, 0}, - {refalrts::icCopyEVar, 45, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icString, 0, 54, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 8, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 7, 17}, - {refalrts::icFunc, 0, 10, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icString, 0, 53, 24}, - {refalrts::icString, 0, 52, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icString, 0, 28, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 32}, - {refalrts::icLinkBrackets, 29, 32, 0}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceRange, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 23, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceRange, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiNumberArray ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 32, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 51, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //34: e.Indent#1/1 - //36: s.LastNumber#1/1 - //37: e.Numbers#1/1 - //39: e.Indent#1/2 - //41: e.Indent#1/3 - //43: e.Indent#1/4 - //45: e.Indent#1/5 - // ( e.Indent#1 ) ( # CmdiNumberArray e.Numbers#1 s.LastNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 32, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 34, 2}, - {refalrts::icsVarRight, 0, 36, 4}, - {refalrts::icContextSet, 0, 37, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 39, 34, 0}, - {refalrts::icCopyEVar, 41, 39, 0}, - {refalrts::icCopyEVar, 43, 41, 0}, - {refalrts::icCopyEVar, 45, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 50, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 8, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 7, 15}, - {refalrts::icFunc, 0, 9, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icString, 0, 31, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 24}, - {refalrts::icFunc, 0, 0, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icString, 0, 49, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 30}, - {refalrts::icString, 0, 28, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 33}, - {refalrts::icLinkBrackets, 30, 33, 0}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceRange, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icLinkBrackets, 21, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceRange, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceRange, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiStringArray ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 31, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 48, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +81, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //35: e.Indent#1/1 - //37: e.Strings#1/1 - //39: e.LastString#1/1 - //41: e.Indent#1/2 - //43: e.Indent#1/3 - //45: e.Indent#1/4 - //47: e.Indent#1/5 - // ( e.Indent#1 ) ( # CmdiStringArray e.Strings#1 ( e.LastString#1 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 31, 4}, - {refalrts::icBracketRight, 0, 6, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 35, 2}, - {refalrts::icContextSet, 0, 37, 4}, - {refalrts::icContextSet, 0, 39, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 41, 35, 0}, - {refalrts::icCopyEVar, 43, 41, 0}, - {refalrts::icCopyEVar, 45, 43, 0}, - {refalrts::icCopyEVar, 47, 45, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icString, 0, 47, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 8, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 7, 17}, - {refalrts::icFunc, 0, 6, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icString, 0, 46, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 26}, - {refalrts::icFunc, 0, 5, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icChar, 0, '}', 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 31}, - {refalrts::icString, 0, 28, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 34}, - {refalrts::icLinkBrackets, 31, 34, 0}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceRange, 0, 0, 32}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 23, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +76, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //34: e.Indent#1/1 - //36: s.Direction#1/1 - //37: s.BracketNumber#1/1 - //38: s.Mode#1/1 - //39: s.VarNumber#1/1 - //40: s.SampleNumber#1/1 - //41: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiRepeat s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 s.SampleNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 30, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 34, 2}, - {refalrts::icsVarLeft, 0, 36, 4}, - {refalrts::icsVarLeft, 0, 37, 4}, - {refalrts::icsVarLeft, 0, 38, 4}, - {refalrts::icsVarLeft, 0, 39, 4}, - {refalrts::icsVarLeft, 0, 40, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 41, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 37, 9}, - {refalrts::icString, 0, 45, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 3, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icString, 0, 8, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icString, 0, 8, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 0, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icString, 0, 8, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 28}, - {refalrts::icFunc, 0, 0, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 30}, - {refalrts::icString, 0, 5, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 33}, - {refalrts::icLinkBrackets, 8, 33, 0}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceRange, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceRange, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceRange, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiEPrepare s.BracketNumber#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 29, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 44, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 5, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiEStart s.BracketNumber#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 28, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 43, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 5, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +72, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Indent#1/1 - //34: s.Direction#1/1 - //35: s.BracketNumber#1/1 - //36: s.InnerBrackets#1/1 - //37: s.NameId#1/1 - //38: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiADT s.Direction#1 s.BracketNumber#1 s.InnerBrackets#1 s.NameId#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 27, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 4}, - {refalrts::icsVarLeft, 0, 35, 4}, - {refalrts::icsVarLeft, 0, 36, 4}, - {refalrts::icsVarLeft, 0, 37, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 38, 32, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 42, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 8, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icString, 0, 8, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 26}, - {refalrts::icFunc, 0, 0, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icString, 0, 5, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 8, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceRange, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.OldBracketNumber#1/1 - //25: s.NewBracketNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiSave s.OldBracketNumber#1 s.NewBracketNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 26, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 41, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 5, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.Char#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiChar s.Direction#1 s.BracketNumber#1 s.Char#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 32, 27, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 40, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 39, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 4, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 38, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icString, 0, 5, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icLinkBrackets, 8, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +64, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.Indent#1/1 - //31: s.Direction#1/1 - //32: s.BracketNumber#1/1 - //33: s.Mode#1/1 - //34: s.VarNumber#1/1 - //35: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiVar s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 24, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icsVarLeft, 0, 32, 4}, - {refalrts::icsVarLeft, 0, 33, 4}, - {refalrts::icsVarLeft, 0, 34, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 35, 29, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 37, 9}, - {refalrts::icString, 0, 36, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 3, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icString, 0, 17, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icString, 0, 8, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 0, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icString, 0, 5, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icLinkBrackets, 8, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceRange, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceRange, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.NameId#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiName s.Direction#1 s.BracketNumber#1 s.NameId#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 23, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 32, 27, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 35, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 17, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 8, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icString, 0, 5, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icLinkBrackets, 8, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.NameId#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiIdent s.Direction#1 s.BracketNumber#1 s.NameId#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 22, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 32, 27, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 34, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 17, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 8, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icString, 0, 5, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icLinkBrackets, 8, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.Number#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiNum s.Direction#1 s.BracketNumber#1 s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 21, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 32, 27, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 33, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 17, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 8, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icString, 0, 5, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icLinkBrackets, 8, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.Number#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiHugeNum s.Direction#1 s.BracketNumber#1 s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 20, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 32, 27, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 32, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 17, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 8, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icString, 0, 5, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icLinkBrackets, 8, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Indent#1/1 - //16: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdInitRAA ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 16, 14, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 31, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icString, 0, 30, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceRange, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Indent#1/1 - //18: e.Indent#1/2 - //20: e.Indent#1/3 - // ( e.Indent#1 ' ' ) ( # CmdFinRAA ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharRight, 0, static_cast(' '), 2}, - {refalrts::icCharRight, 0, static_cast(' '), 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 18, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 18, 16, 0}, - {refalrts::icCopyEVar, 20, 18, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 29, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icString, 0, 28, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icLinkBrackets, 12, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +25, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiReserveStack 0 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 17, 4}, - {refalrts::icNumLeft, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 27, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Depth#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiReserveStack s.Depth#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 17, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 26, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 25, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //28: e.Indent#1/1 - //30: e.Indent#1/2 - //32: e.Indent#1/3 - //34: e.Indent#1/4 - //36: e.Indent#1/5 - //38: e.Indent#1/6 - // ( e.Indent#1 ) ( # CmdiRunInterpret ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 16, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 28, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 30, 28, 0}, - {refalrts::icCopyEVar, 32, 30, 0}, - {refalrts::icCopyEVar, 34, 32, 0}, - {refalrts::icCopyEVar, 36, 34, 0}, - {refalrts::icCopyEVar, 38, 36, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 24, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icString, 0, 23, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icString, 0, 22, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icString, 0, 21, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icString, 0, 20, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icLinkBrackets, 24, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceRange, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceRange, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 16, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceRange, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 12, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiEmptyResult ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 15, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 19, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.Num#1/1 - //31: s.NumRanges#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiBracket s.Direction#1 s.Num#1 s.NumRanges#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 14, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icsVarLeft, 0, 30, 4}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 32, 27, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 18, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 17, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 8, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icString, 0, 5, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icLinkBrackets, 8, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Num#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiEmpty s.Num#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 13, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 16, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 5, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.ElemNumber#1/1 - //16: s.Type#1/1 - //17: e.Info#1/1 - //19: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiAllocateElem s.ElemNumber#1 s.Type#1 e.Info#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 12, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 16, 4}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +49, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.Target#1/1 - //25: s.Sample#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdArrCopy 'e s.Target#1 s.Sample#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 11, 4}, - {refalrts::icCharLeft, 0, static_cast('e'), 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 15, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 7, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +49, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.Mode#1/1 - //25: s.Target#1/1 - //26: s.Sample#1/1 - //27: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdArrCopy s.Mode#1 s.Target#1 s.Sample#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 11, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icsVarLeft, 0, 26, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 27, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 14, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 7, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +37, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Offset#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdArrSplice 'e s.Offset#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 10, 4}, - {refalrts::icCharLeft, 0, static_cast('e'), 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 13, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 5, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +37, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Mode#1/1 - //20: s.Offset#1/1 - //21: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdArrSplice s.Mode#1 s.Offset#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 10, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 21, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 12, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 5, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdSpliceElem s.ElemNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 9, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 11, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 5, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdSpliceRange s.ElemNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 8, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 10, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 5, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Indent#1/1 - //24: s.Left#1/1 - //25: s.Right#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiLinkBrackets s.Left#1 s.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 7, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 26, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 9, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 8, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icString, 0, 7, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icLinkBrackets, 8, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiPushStack s.ElemNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 6, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 6, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 5, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +27, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdFail ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 5, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icIdent, 0, 4, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Offset#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiOnFailGoTo s.Offset#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 3, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 20, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 4, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icString, 0, 3, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiFail ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 2, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiReturnResult ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiInitB0 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 14, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[82]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Text#1/1 - //16: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdComment e.Text#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdComment::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[4]; - context[15] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[16], context[17], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "//", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //23: e.Indent#1/1 - //25: s.MemoryClass#1/1 - //26: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdEnum s.MemoryClass#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdEnum::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[23] = context[2]; - context[24] = context[3]; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - context[26] = context[4]; - context[27] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], SwGenFnStart, "SwGenFnStart" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], NakedArguments, "NakedArguments" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], GenReturn, "GenReturn" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[14], & ident_Fail::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[19], '}' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[18], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Indent#1/1 - //13: s.MemoryClass#1/1 - //14: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdSwap s.MemoryClass#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSwap::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - if( ! refalrts::svar_left( context[13], context[4], context[5] ) ) - continue; - context[14] = context[4]; - context[15] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GenSwap, "GenSwap" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Indent#1/1 - //13: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdDeclaration # GN_Entry e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdDeclaration::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_GN_Entry::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[4]; - context[14] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GenExtern, "GenExtern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Indent#1/1 - //13: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdDeclaration # GN_Local e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdDeclaration::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_GN_Local::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[4]; - context[14] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GenForward, "GenForward" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Indent#1/1 - //13: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdDefineIdent e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdDefineIdent::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[4]; - context[14] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GenIdent, "GenIdent" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.MemoryClass#1/1 - //16: e.Name#1/1 - // ( e.Indent#1 ) ( # CmdFnStart s.MemoryClass#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdFnStart::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - context[16] = context[4]; - context[17] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], GenFnStart, "GenFnStart" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[6], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Indent#1/1 - //12: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdSeparator ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSeparator::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[12], context[13], context[10], context[11])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - // ( e.Indent#1 ' ' ) ( # CmdFnEnd ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( ' ', context[2], context[3] ) ) - continue; - if( ! refalrts::char_right( ' ', context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdFnEnd::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[9], '}' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[8], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Indent#1/1 - //20: e.Indent#1/2 - //22: e.Indent#1/3 - // ( e.Indent#1 ) ( # CmdStartSentence ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdStartSentence::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[18] = context[2]; - context[19] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[18], context[19])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[22], context[23], context[20], context[21])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "do {", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], " refalrts::start_sentence();", 29 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[6], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Indent#1/1 - //16: e.Indent#1/2 - // ( e.Indent#1 ' ' ) ( # CmdEndSentence ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( ' ', context[2], context[3] ) ) - continue; - if( ! refalrts::char_right( ' ', context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdEndSentence::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[14] = context[2]; - context[15] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[16], context[17], context[14], context[15])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "} while ( 0 );", 14 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //54: e.Indent#1/1 - //56: e.Indent#1/2 - //58: e.Indent#1/3 - //60: e.Indent#1/4 - //62: e.Indent#1/5 - //64: e.Indent#1/6 - // ( e.Indent#1 ) ( # CmdInitB0 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInitB0::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[54] = context[2]; - context[55] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[56], context[57], context[54], context[55])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[58], context[59], context[56], context[57])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[60], context[61], context[58], context[59])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[62], context[63], context[60], context[61])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[64], context[65], context[62], context[63])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], ContextRange_B, "ContextRange_B" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[11], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[13], context[14], " = arg_begin;", 13 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], ContextRange_E, "ContextRange_E" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[19], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[21], context[22], " = arg_end;", 11 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[25], context[26], "refalrts::move_left( ", 21 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[28], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[29], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[31], context[32], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[34] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[35], context[36], "refalrts::move_left( ", 21 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[37] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[38], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[39], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[40] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[41], context[42], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[43] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[44] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[45], context[46], "refalrts::move_right( ", 22 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[47] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[48], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[49], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[50] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[51], context[52], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[53] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[44], context[53] ); - res = refalrts::splice_elem( res, context[53] ); - res = refalrts::splice_evar( res, context[51], context[52] ); - refalrts::push_stack( context[50] ); - refalrts::push_stack( context[47] ); - res = refalrts::splice_elem( res, context[50] ); - res = refalrts::splice_elem( res, context[49] ); - res = refalrts::splice_elem( res, context[48] ); - res = refalrts::splice_elem( res, context[47] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_evar( res, context[64], context[65] ); - res = refalrts::splice_elem( res, context[44] ); - refalrts::link_brackets( context[34], context[43] ); - res = refalrts::splice_elem( res, context[43] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::push_stack( context[40] ); - refalrts::push_stack( context[37] ); - res = refalrts::splice_elem( res, context[40] ); - res = refalrts::splice_elem( res, context[39] ); - res = refalrts::splice_elem( res, context[38] ); - res = refalrts::splice_elem( res, context[37] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_evar( res, context[62], context[63] ); - res = refalrts::splice_elem( res, context[34] ); - refalrts::link_brackets( context[24], context[33] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::push_stack( context[30] ); - refalrts::push_stack( context[27] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_evar( res, context[60], context[61] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[16], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[58], context[59] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[8], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[56], context[57] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[54], context[55] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Char#1/1 - //18: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdChar s.Direction#1 s.BracketNumber#1 s.Char#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdChar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[17], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[18], context[19], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintMatchChar, "PrintMatchChar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Number#1/1 - //18: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdNumber s.Direction#1 s.BracketNumber#1 s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdNumber::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[17], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[18], context[19], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintMatchNumber, "PrintMatchNumber" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: e.Name#1/1 - //19: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdName s.Direction#1 s.BracketNumber#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdName::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[4], context[5] ) ) - continue; - context[17] = context[4]; - context[18] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintMatchName, "PrintMatchName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: e.Name#1/1 - //19: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdIdent s.Direction#1 s.BracketNumber#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdIdent::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[4], context[5] ) ) - continue; - context[17] = context[4]; - context[18] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintMatchIdent, "PrintMatchIdent" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Indent#1/1 - //18: s.Direction#1/1 - //19: s.BracketNumber#1/1 - //20: s.InnerBrackets#1/1 - //21: e.Indent#1/2 - //23: e.Indent#1/3 - //25: s.InnerBrackets#1/2 - // ( e.Indent#1 ) ( # CmdBrackets s.Direction#1 s.BracketNumber#1 s.InnerBrackets#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdBrackets::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - if( ! refalrts::svar_left( context[18], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[21], context[22], context[16], context[17])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[23], context[24], context[21], context[22])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[25], context[20])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintBracketsVarInit, "PrintBracketsVarInit" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintMatchBrackets, "PrintMatchBrackets" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Indent#1/1 - //18: s.Direction#1/1 - //19: s.BracketNumber#1/1 - //20: s.InnerBrackets#1/1 - //21: e.Name#1/1 - //23: e.Indent#1/2 - //25: e.Indent#1/3 - //27: s.InnerBrackets#1/2 - // ( e.Indent#1 ) ( # CmdADT s.Direction#1 s.BracketNumber#1 s.InnerBrackets#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdADT::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - if( ! refalrts::svar_left( context[18], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - continue; - context[21] = context[4]; - context[22] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[23], context[24], context[16], context[17])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[25], context[26], context[23], context[24])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[27], context[20])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintBracketsVarInit, "PrintBracketsVarInit" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintMatchADT, "PrintMatchADT" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdEmpty s.Direction#1 s.BracketNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdEmpty::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[17], context[18], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintMatchEmpty, "PrintMatchEmpty" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Mode#1/1 - //18: s.VarNumber#1/1 - //19: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdVar s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdVar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[17], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[18], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintMatchSTVar, "PrintMatchSTVar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Mode#1/1 - //18: s.Var#1/1 - //19: s.Sample#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdRepeated s.Direction#1 s.BracketNumber#1 s.Mode#1 s.Var#1 s.Sample#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdRepeated::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[17], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[18], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintMatchRepeated, "PrintMatchRepeated" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Indent#1/1 - //32: s.BracketNumber#1/1 - //33: s.VarNumber#1/1 - //34: e.Indent#1/2 - //36: e.Indent#1/3 - //38: s.VarNumber#1/2 - //39: s.BracketNumber#1/2 - // ( e.Indent#1 ) ( # CmdClosedE # AlgLeft s.BracketNumber#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdClosedE::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[30] = context[2]; - context[31] = context[3]; - if( ! refalrts::svar_left( context[32], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[33], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[34], context[35], context[30], context[31])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[36], context[37], context[34], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[38], context[33])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[39], context[32])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], ContextRange_B, "ContextRange_B" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], " = ", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], ContextRange_B, "ContextRange_B" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[17], ';' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], ContextRange_E, "ContextRange_E" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[23], context[24], " = ", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], ContextRange_E, "ContextRange_E" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[28], ';' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[19], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[20] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[8], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiContextSet s.BracketNumber#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiContextSet::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icContextSet, 0, ", 28 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Indent#1/1 - //34: s.BracketNumber#1/1 - //35: s.VarNumber#1/1 - //36: e.Indent#1/2 - //38: e.Indent#1/3 - //40: e.Indent#1/4 - //42: e.Indent#1/5 - //44: s.VarNumber#1/2 - // ( e.Indent#1 ) ( # CmdOpenedE_Start # AlgLeft s.BracketNumber#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdOpenedE_Start::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[35], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[36], context[37], context[32], context[33])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[38], context[39], context[36], context[37])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[40], context[41], context[38], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[42], context[43], context[40], context[41])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[44], context[35])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextRange_B, "ContextRange_B" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], " = 0;", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], ContextRange_E, "ContextRange_E" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[21], context[22], " = 0;", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[25], context[26], "refalrts::start_e_loop();", 25 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[29], context[30], "do {", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[24], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[17], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[10], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[6], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ' ' ) ( # CmdOpenedE_End # AlgLeft s.BracketNumber#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( ' ', context[2], context[3] ) ) - continue; - if( ! refalrts::char_right( ' ', context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdOpenedE_End::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "} while ( refalrts::open_evar_advance( ", 39 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], " ) );", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Indent#1/1 - //32: s.OldBracketNumber#1/1 - //33: s.NewBracketNumber#1/1 - //34: e.Indent#1/2 - //36: e.Indent#1/3 - //38: s.NewBracketNumber#1/2 - //39: s.OldBracketNumber#1/2 - // ( e.Indent#1 ) ( # CmdSave s.OldBracketNumber#1 s.NewBracketNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSave::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[30] = context[2]; - context[31] = context[3]; - if( ! refalrts::svar_left( context[32], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[33], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[34], context[35], context[30], context[31])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[36], context[37], context[34], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[38], context[33])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[39], context[32])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], ContextRange_B, "ContextRange_B" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], " = ", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], ContextRange_B, "ContextRange_B" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[17], ';' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], ContextRange_E, "ContextRange_E" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[23], context[24], " = ", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], ContextRange_E, "ContextRange_E" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[28], ';' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[19], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[20] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[8], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Indent#1/1 - //20: e.Indent#1/2 - //22: e.Indent#1/3 - // ( e.Indent#1 ) ( # CmdEmptyResult ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdEmptyResult::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[18] = context[2]; - context[19] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[18], context[19])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[22], context[23], context[20], context[21])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "refalrts::reset_allocator();", 28 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], "refalrts::Iter res = arg_begin;", 31 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: e.Indent#1/1 - //28: s.Target#1/1 - //29: s.Sample#1/1 - //30: e.Indent#1/2 - //32: e.Indent#1/3 - // ( e.Indent#1 ) ( # CmdCopyVar 'e s.Target#1 s.Sample#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdCopyVar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::char_left( 'e', context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[26] = context[2]; - context[27] = context[3]; - if( ! refalrts::svar_left( context[28], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[30], context[31], context[26], context[27])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[32], context[33], context[30], context[31])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "if (! refalrts::copy_evar(", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], "))", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[23], context[24], " return refalrts::cNoMemory;", 29 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[22], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: e.Indent#1/1 - //28: s.Mode#1/1 - //29: s.Target#1/1 - //30: s.Sample#1/1 - //31: e.Indent#1/2 - //33: e.Indent#1/3 - // ( e.Indent#1 ) ( # CmdCopyVar s.Mode#1 s.Target#1 s.Sample#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdCopyVar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[26] = context[2]; - context[27] = context[3]; - if( ! refalrts::svar_left( context[28], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[31], context[32], context[26], context[27])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[33], context[34], context[31], context[32])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "if (! refalrts::copy_stvar(", 27 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], "))", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[23], context[24], " return refalrts::cNoMemory;", 29 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[22], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //34: e.Indent#1/1 - //36: s.ElemNumber#1/1 - //37: e.String#1/1 - //39: e.Indent#1/2 - //41: e.Indent#1/3 - //43: s.ElemNumber#1/2 - // ( e.Indent#1 ) ( # CmdAllocateElem s.ElemNumber#1 # ElString e.String#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdAllocateElem::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[34] = context[2]; - context[35] = context[3]; - if( ! refalrts::svar_left( context[36], context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElString::name, context[4], context[5] ) ) - continue; - context[37] = context[4]; - context[38] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[39], context[40], context[34], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[41], context[42], context[39], context[40])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[43], context[36])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "if( ! refalrts::alloc_chars( ", 29 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[22], context[23], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[25], PrintString, "PrintString" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[27], context[28], " ) )", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[31], context[32], " return refalrts::cNoMemory;", 29 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[33] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[30], context[33] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::link_brackets( context[8], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[24] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.ElemNumber#1/1 - //16: e.ElemInfo#1/1 - //18: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdAllocateElem s.ElemNumber#1 e.ElemInfo#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdAllocateElem::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - context[16] = context[4]; - context[17] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[18], context[19], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintAllocateElem, "PrintAllocateElem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.Left#1/1 - //25: s.Right#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdLinkBrackets s.Left#1 s.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdLinkBrackets::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "refalrts::link_brackets( ", 25 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdPushStack s.ElemNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdPushStack::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "refalrts::push_stack( ", 22 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdInsertElem s.ElemNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInsertElem::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "res = refalrts::splice_elem( res, ", 34 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Number#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdInsertVar 'e s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInsertVar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::char_left( 'e', context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "res = refalrts::splice_evar( res, ", 34 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Mode#1/1 - //20: s.Number#1/1 - //21: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdInsertVar s.Mode#1 s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInsertVar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[21], context[22], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "res = refalrts::splice_stvar( res, ", 35 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Indent#1/1 - //27: s.Number#1/1 - //28: e.Indent#1/2 - //30: s.Number#1/2 - // ( e.Indent#1 ) ( # CmdInsertRange s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInsertRange::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[25] = context[2]; - context[26] = context[3]; - if( ! refalrts::svar_left( context[27], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[28], context[29], context[25], context[26])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[30], context[27])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "res = refalrts::splice_evar( res, ", 34 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[22], context[23], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: e.Indent#1/1 - //22: e.Indent#1/2 - //24: e.Indent#1/3 - //26: e.Indent#1/4 - // ( e.Indent#1 ) ( # CmdReturnResult ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdReturnResult::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[20] = context[2]; - context[21] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[22], context[23], context[20], context[21])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[24], context[25], context[22], context[23])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[26], context[27], context[24], context[25])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "refalrts::use( res );", 21 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[13], context[14], "refalrts::splice_to_freelist( arg_begin, arg_end );", 51 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], GenReturn, "GenReturn" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_Success::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[12], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //35: e.Indent#1/1 - //37: s.Number#1/1 - //38: e.Indent#1/2 - //40: e.Indent#1/3 - //42: e.Indent#1/4 - //44: s.Number#1/2 - //45: s.Number#1/3 - // ( e.Indent#1 ) ( # CmdIssueMem s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdIssueMem::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[35] = context[2]; - context[36] = context[3]; - if( ! refalrts::svar_left( context[37], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[38], context[39], context[35], context[36])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[40], context[41], context[38], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[42], context[43], context[40], context[41])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[44], context[37])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[45], context[44])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "// issue here memory for vars with ", 35 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], " elems", 6 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[18], context[19], "refalrts::Iter context[", 23 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[23], context[24], "];", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[27], context[28], "refalrts::zeros( context, ", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[30], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[32], context[33], " );", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[34] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[26], context[34] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[29] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[17], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[20] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - // ( e.Indent#1 ) ( # CmdIfDef ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdIfDef::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "#ifdef INTERPRET", 16 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - // ( e.Indent#1 ) ( # CmdElse ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdElse::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "#else", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - // ( e.Indent#1 ) ( # CmdEndIf ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdEndIf::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "#endif", 6 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiFuncArray ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiFuncArray::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "using refalrts::functions;", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //41: e.Indent#1/1 - //43: e.FuncNames#1/1 - //45: e.LastName#1/1 - //47: e.Indent#1/2 - //49: e.Indent#1/3 - //51: e.Indent#1/4 - //53: e.Indent#1/5 - //55: e.LastName#1/2 - // ( e.Indent#1 ) ( # CmdiFuncArray e.FuncNames#1 ( e.LastName#1 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiFuncArray::name, context[4], context[5] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[41] = context[2]; - context[42] = context[3]; - context[43] = context[4]; - context[44] = context[5]; - context[45] = context[6]; - context[46] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[47], context[48], context[41], context[42])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[49], context[50], context[47], context[48])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[51], context[52], context[49], context[50])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[53], context[54], context[51], context[52])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[55], context[56], context[45], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "static const refalrts::RefalFunction functions[] = {", 52 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], lambda_GenCommand_0, "lambda_GenCommand_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], " { ", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[27], PrintName, "PrintName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[29], context[30], ", \"", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[32], PrintName, "PrintName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[34], context[35], "\" }", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[36] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[37] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[38], context[39], "};", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[40] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[37], context[40] ); - res = refalrts::splice_elem( res, context[40] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_evar( res, context[53], context[54] ); - res = refalrts::splice_elem( res, context[37] ); - refalrts::link_brackets( context[23], context[36] ); - res = refalrts::splice_elem( res, context[36] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - refalrts::push_stack( context[33] ); - refalrts::push_stack( context[31] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[55], context[56] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[26] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_evar( res, context[51], context[52] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[49], context[50] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiLabelArray ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiLabelArray::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "using refalrts::idents;", 23 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.Indent#1/1 - //35: e.LabelNames#1/1 - //37: e.LastName#1/1 - //39: e.Indent#1/2 - //41: e.Indent#1/3 - //43: e.Indent#1/4 - //45: e.Indent#1/5 - // ( e.Indent#1 ) ( # CmdiLabelArray e.LabelNames#1 ( e.LastName#1 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiLabelArray::name, context[4], context[5] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[33] = context[2]; - context[34] = context[3]; - context[35] = context[4]; - context[36] = context[5]; - context[37] = context[6]; - context[38] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[39], context[40], context[33], context[34])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[41], context[42], context[39], context[40])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[43], context[44], context[41], context[42])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[43], context[44])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "static const refalrts::RefalIdentifier idents[] = {", 51 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], lambda_GenCommand_1, "lambda_GenCommand_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], " & ident_", 10 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[26], context[27], "::name", 11 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[30], context[31], "};", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[32] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[32] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[23], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiNumberArray ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiNumberArray::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "using refalrts::numbers;", 24 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //34: e.Indent#1/1 - //36: s.LastNumber#1/1 - //37: e.Numbers#1/1 - //39: e.Indent#1/2 - //41: e.Indent#1/3 - //43: e.Indent#1/4 - //45: e.Indent#1/5 - // ( e.Indent#1 ) ( # CmdiNumberArray e.Numbers#1 s.LastNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiNumberArray::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[34] = context[2]; - context[35] = context[3]; - if( ! refalrts::svar_right( context[36], context[4], context[5] ) ) - continue; - context[37] = context[4]; - context[38] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[39], context[40], context[34], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[41], context[42], context[39], context[40])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[43], context[44], context[41], context[42])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[43], context[44])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "static const refalrts::RefalNumber numbers[] = {", 48 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], lambda_GenCommand_2, "lambda_GenCommand_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[22], context[23], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[25], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[27], context[28], "UL", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[31], context[32], "};", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[33] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[30], context[33] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::link_brackets( context[21], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[24] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiStringArray ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiStringArray::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "using refalrts::strings;", 24 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //35: e.Indent#1/1 - //37: e.Strings#1/1 - //39: e.LastString#1/1 - //41: e.Indent#1/2 - //43: e.Indent#1/3 - //45: e.Indent#1/4 - //47: e.Indent#1/5 - // ( e.Indent#1 ) ( # CmdiStringArray e.Strings#1 ( e.LastString#1 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiStringArray::name, context[4], context[5] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[35] = context[2]; - context[36] = context[3]; - context[37] = context[4]; - context[38] = context[5]; - context[39] = context[6]; - context[40] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[41], context[42], context[35], context[36])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[43], context[44], context[41], context[42])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[43], context[44])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[47], context[48], context[45], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "static const refalrts::StringItem strings[] = {", 47 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], lambda_GenCommand_3, "lambda_GenCommand_3" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], " {", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[27], PrintString, "PrintString" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[29], '}' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[32], context[33], "};", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[34] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[31], context[34] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[23], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[26] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //34: e.Indent#1/1 - //36: s.Direction#1/1 - //37: s.BracketNumber#1/1 - //38: s.Mode#1/1 - //39: s.VarNumber#1/1 - //40: s.SampleNumber#1/1 - //41: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiRepeat s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 s.SampleNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiRepeat::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[34] = context[2]; - context[35] = context[3]; - if( ! refalrts::svar_left( context[36], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[37], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[38], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[39], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[40], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[41], context[42], context[34], context[35])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::ic", 13 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "Repeat", 6 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[21], context[22], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[26], context[27], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[29], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[31], context[32], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[33] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[33] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::push_stack( context[30] ); - refalrts::push_stack( context[28] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiEPrepare s.BracketNumber#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiEPrepare::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icEPrepare, 0, ", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiEStart s.BracketNumber#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiEStart::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icEStart, 0, ", 24 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Indent#1/1 - //34: s.Direction#1/1 - //35: s.BracketNumber#1/1 - //36: s.InnerBrackets#1/1 - //37: s.NameId#1/1 - //38: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiADT s.Direction#1 s.BracketNumber#1 s.InnerBrackets#1 s.NameId#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiADT::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[35], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[36], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[37], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[38], context[39], context[32], context[33])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icADT", 16 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[27], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[29], context[30], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[26] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.OldBracketNumber#1/1 - //25: s.NewBracketNumber#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiSave s.OldBracketNumber#1 s.NewBracketNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiSave::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icSave, 0, ", 22 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.Char#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiChar s.Direction#1 s.BracketNumber#1 s.Char#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiChar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[32], context[33], context[27], context[28])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icChar", 17 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", 0, static_cast(\'", 33 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], Escape, "Escape" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], "\'), ", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.Indent#1/1 - //31: s.Direction#1/1 - //32: s.BracketNumber#1/1 - //33: s.Mode#1/1 - //34: s.VarNumber#1/1 - //35: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiVar s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiVar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[32], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[33], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[34], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[35], context[36], context[29], context[30])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::ic", 13 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "Var", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], ", 0, ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[21], context[22], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[26], context[27], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.NameId#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiName s.Direction#1 s.BracketNumber#1 s.NameId#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiName::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[32], context[33], context[27], context[28])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icFunc", 17 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", 0, ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.NameId#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiIdent s.Direction#1 s.BracketNumber#1 s.NameId#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiIdent::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[32], context[33], context[27], context[28])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icIdent", 18 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", 0, ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.Number#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiNum s.Direction#1 s.BracketNumber#1 s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiNum::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[32], context[33], context[27], context[28])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icNum", 16 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", 0, ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.Number#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiHugeNum s.Direction#1 s.BracketNumber#1 s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiHugeNum::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[32], context[33], context[27], context[28])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icHugeNum", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", 0, ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Indent#1/1 - //16: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdInitRAA ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInitRAA::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[14] = context[2]; - context[15] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[16], context[17], context[14], context[15])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[11], context[12], "static const refalrts::RASLCommand raa[] = {", 44 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[6], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Indent#1/1 - //18: e.Indent#1/2 - //20: e.Indent#1/3 - // ( e.Indent#1 ' ' ) ( # CmdFinRAA ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_right( ' ', context[2], context[3] ) ) - continue; - if( ! refalrts::char_right( ' ', context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdFinRAA::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[18], context[19], context[16], context[17])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[20], context[21], context[18], context[19])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], " {refalrts::icEnd, 0, 0, 0}", 28 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[13], context[14], "};", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[12], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiReserveStack 0 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiReserveStack::name, context[4], context[5] ) ) - continue; - if( ! refalrts::number_left( 0UL, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "int open_e_stack[1];", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Depth#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiReserveStack s.Depth#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiReserveStack::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "int open_e_stack[", 17 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "];", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //28: e.Indent#1/1 - //30: e.Indent#1/2 - //32: e.Indent#1/3 - //34: e.Indent#1/4 - //36: e.Indent#1/5 - //38: e.Indent#1/6 - // ( e.Indent#1 ) ( # CmdiRunInterpret ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiRunInterpret::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[28] = context[2]; - context[29] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[30], context[31], context[28], context[29])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[32], context[33], context[30], context[31])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[34], context[35], context[32], context[33])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[36], context[37], context[34], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[38], context[39], context[36], context[37])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "refalrts::FnResult res = refalrts::interpret_array(", 51 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[13], context[14], " raa, context, arg_begin, arg_end,", 35 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[17], context[18], " functions, idents, numbers, strings, open_e_stack", 51 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[21], context[22], ");", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[25], context[26], "return res;", 11 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[24], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[16], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[12], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiEmptyResult ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiEmptyResult::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icEmptyResult, 0, 0, 0},", 35 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: e.Indent#1/1 - //29: s.Direction#1/1 - //30: s.Num#1/1 - //31: s.NumRanges#1/1 - //32: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiBracket s.Direction#1 s.Num#1 s.NumRanges#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiBracket::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[30], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[32], context[33], context[27], context[28])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icBracket", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], PrintDirection, "PrintDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", 0, ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Num#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiEmpty s.Num#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiEmpty::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icEmpty, 0, 0, ", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.ElemNumber#1/1 - //16: s.Type#1/1 - //17: e.Info#1/1 - //19: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiAllocateElem s.ElemNumber#1 s.Type#1 e.Info#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[4], context[5] ) ) - continue; - context[17] = context[4]; - context[18] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintInterpretAllocateElem, "PrintInterpretAllocateElem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.Target#1/1 - //25: s.Sample#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdArrCopy 'e s.Target#1 s.Sample#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdArrCopy::name, context[4], context[5] ) ) - continue; - if( ! refalrts::char_left( 'e', context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icCopyEVar, ", 23 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", 0},", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.Mode#1/1 - //25: s.Target#1/1 - //26: s.Sample#1/1 - //27: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdArrCopy s.Mode#1 s.Target#1 s.Sample#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdArrCopy::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[26], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[27], context[28], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icCopySTVar, ", 24 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", 0},", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Offset#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdArrSplice 'e s.Offset#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdArrSplice::name, context[4], context[5] ) ) - continue; - if( ! refalrts::char_left( 'e', context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icSpliceEVar, 0, 0, ", 31 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Mode#1/1 - //20: s.Offset#1/1 - //21: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdArrSplice s.Mode#1 s.Offset#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdArrSplice::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[21], context[22], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icSpliceSTVar, 0, 0, ", 32 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdSpliceElem s.ElemNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSpliceElem::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icSpliceElem, 0, 0, ", 31 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdSpliceRange s.ElemNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSpliceRange::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icSpliceRange, 0, 0, ", 32 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Indent#1/1 - //24: s.Left#1/1 - //25: s.Right#1/1 - //26: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiLinkBrackets s.Left#1 s.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiLinkBrackets::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[26], context[27], context[22], context[23])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icLinkBrackets, ", 27 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[19], context[20], ", 0},", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.ElemNumber#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiPushStack s.ElemNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiPushStack::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icPushStack, 0, 0, ", 30 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdFail ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdFail::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GenReturn, "GenReturn" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[10], & ident_Fail::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Offset#1/1 - //20: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiOnFailGoTo s.Offset#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiOnFailGoTo::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[20], context[21], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icOnFailGoTo, +", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], ", 0, 0},", 8 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiFail ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiFail::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icFail, 0, 0, 0},", 28 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiReturnResult ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiReturnResult::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icReturnResult, 0, 0, 0},", 36 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Indent#1/1 - //14: e.Indent#1/2 - // ( e.Indent#1 ) ( # CmdiInitB0 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_CmdiInitB0::name, context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[14], context[15], context[12], context[13])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "{refalrts::icInitB0, 0, 0, 0},", 30 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Escape(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EscapeChar, "EscapeChar" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Char#1/1 - // s.Char#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Char#1/1 - // s.Char#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], EscapeChar, "EscapeChar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult EscapeString(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EscapeChar, "EscapeChar" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: e.String#1/1 - // e.String#1 - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.String#1/1 - // e.String#1 - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], EscapeChar, "EscapeChar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintLength(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoPrintLength, "DoPrintLength" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: e.String#1/1 - // e.String#1 - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icInt, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.String#1/1 - // e.String#1 - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoPrintLength, "DoPrintLength" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[4], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoPrintLength(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" }, - { Inc, "Inc" }, - { DoPrintLength, "DoPrintLength" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Length#1/1 - //9: s.Char#1/1 - //10: e.Tail#1/1 - // s.Length#1 s.Char#1 e.Tail#1 - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Length#1/1 - // s.Length#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Length#1/1 - //9: s.Char#1/1 - //10: e.Tail#1/1 - // s.Length#1 s.Char#1 e.Tail#1 - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoPrintLength, "DoPrintLength" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Length#1/1 - // s.Length#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintString(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrintLength, "PrintLength" }, - { EscapeString, "EscapeString" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"\", ", 3} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: e.String#1/1 - //13: e.String#1/2 - // e.String#1 - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 13, 11, 0}, - {refalrts::icChar, 0, '\"', 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 3}, - {refalrts::icFunc, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.String#1/1 - //13: e.String#1/2 - // e.String#1 - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[13], context[14], context[11], context[12])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[2], '\"' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], EscapeString, "EscapeString" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "\", ", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrintLength, "PrintLength" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[3] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchChar(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Escape, "Escape" }, - { PrintMatch, "PrintMatch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"char", 4} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Indent#1/1 - //20: s.Direction#1/1 - //21: s.BracketNumber#1/1 - //22: s.Char#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.Char#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icsVarLeft, 0, 21, 0}, - {refalrts::icsVarLeft, 0, 22, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icChar, 0, '\'', 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icChar, 0, '\'', 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Indent#1/1 - //20: s.Direction#1/1 - //21: s.BracketNumber#1/1 - //22: s.Char#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.Char#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[2]; - context[19] = context[3]; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[21], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[22], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "char", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[12], '\'' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], Escape, "Escape" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[16], '\'' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[20] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchNumber(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" }, - { PrintMatch, "PrintMatch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"UL", 2}, - {"number", 6} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Indent#1/1 - //20: s.Direction#1/1 - //21: s.BracketNumber#1/1 - //22: s.Number#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.Number#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icsVarLeft, 0, 21, 0}, - {refalrts::icsVarLeft, 0, 22, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icString, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Indent#1/1 - //20: s.Direction#1/1 - //21: s.BracketNumber#1/1 - //22: s.Number#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.Number#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[2]; - context[19] = context[3]; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[21], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[22], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "number", 6 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], "UL", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[20] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrintMatch, "PrintMatch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"function", 8} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: e.Name#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 e.Name#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Indent#1/1 - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: e.Name#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "function", 8 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchIdent(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrintMatch, "PrintMatch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"::name", 11}, - {" & ident_", 9}, - {"ident", 5} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Direction#1/1 - //20: s.BracketNumber#1/1 - //21: e.Name#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 e.Name#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 0}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icContextSet, 0, 21, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icString, 0, 1, 12}, - {refalrts::icString, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Direction#1/1 - //20: s.BracketNumber#1/1 - //21: e.Name#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[0]; - context[22] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "ident", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], " & ident_", 9 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "::name", 11 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[19] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchBrackets(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ContextRange, "ContextRange" }, - { PrintMatch, "PrintMatch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"brackets", 8} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Indent#1/1 - //18: s.Direction#1/1 - //19: s.BracketNumber#1/1 - //20: s.InnerNum#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.InnerNum#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icsVarLeft, 0, 18, 0}, - {refalrts::icsVarLeft, 0, 19, 0}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Indent#1/1 - //18: s.Direction#1/1 - //19: s.BracketNumber#1/1 - //20: s.InnerNum#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.InnerNum#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - if( ! refalrts::svar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[19], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "brackets", 8 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchADT(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 25 elems - refalrts::Iter context[25]; - refalrts::zeros( context, 25 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ContextRange, "ContextRange" }, - { PrintMatch, "PrintMatch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {", ", 2}, - {"adt", 3} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Indent#1/1 - //20: s.Direction#1/1 - //21: s.BracketNumber#1/1 - //22: s.InnerNum#1/1 - //23: e.Name#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.InnerNum#1 e.Name#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icsVarLeft, 0, 21, 0}, - {refalrts::icsVarLeft, 0, 22, 0}, - {refalrts::icContextSet, 0, 23, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icString, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Indent#1/1 - //20: s.Direction#1/1 - //21: s.BracketNumber#1/1 - //22: s.InnerNum#1/1 - //23: e.Name#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.InnerNum#1 e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[2]; - context[19] = context[3]; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[21], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[22], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[23] = context[0]; - context[24] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "adt", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[20] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult BreakerFromIndent(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"continue;", 9}, - {"return refalrts::cRecognitionImpossible;", 40} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ' ' - {refalrts::icCharLeft, 0, static_cast(' '), 0}, - {refalrts::icCharLeft, 0, static_cast(' '), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // e.OtherIndent#1 - // Unused closed variable e.OtherIndent#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ' ' - if( ! refalrts::char_left( ' ', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( ' ', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "return refalrts::cRecognitionImpossible;", 40 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // e.OtherIndent#1 - // Unused closed variable e.OtherIndent#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "continue;", 9 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchEmpty(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 27 elems - refalrts::Iter context[27]; - refalrts::zeros( context, 27 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { BreakerFromIndent, "BreakerFromIndent" }, - { ContextRange, "ContextRange" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" ", 2}, - {" ) )", 4}, - {"if( ! refalrts::empty_seq( ", 27} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //20: e.Indent#1/1 - //22: s.BracketNumber#1/1 - //23: e.Indent#1/2 - //25: e.Indent#1/3 - // ( e.Indent#1 ) s.BracketNumber#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 20, 2}, - {refalrts::icsVarLeft, 0, 22, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 23, 20, 0}, - {refalrts::icCopyEVar, 25, 23, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icString, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icString, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icString, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icLinkBrackets, 13, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 4, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: e.Indent#1/1 - //22: s.BracketNumber#1/1 - //23: e.Indent#1/2 - //25: e.Indent#1/3 - // ( e.Indent#1 ) s.BracketNumber#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[20] = context[2]; - context[21] = context[3]; - if( ! refalrts::svar_left( context[22], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[23], context[24], context[20], context[21])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[25], context[26], context[23], context[24])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[5], context[6], "if( ! refalrts::empty_seq( ", 27 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[10], context[11], " ) )", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], BreakerFromIndent, "BreakerFromIndent" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[13], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[4], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StrFromDirection(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_AlgRight::name, - & ident_AlgLeft::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"right", 5}, - {"left", 4} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # AlgLeft - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # AlgRight - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # AlgLeft - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "left", 4 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # AlgRight - if( ! refalrts::ident_left( & ident_AlgRight::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "right", 5 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult VarMatchFunction(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"tvar", 4}, - {"svar", 4} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 's' - {refalrts::icCharLeft, 0, static_cast('s'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 't' - {refalrts::icCharLeft, 0, static_cast('t'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 's' - if( ! refalrts::char_left( 's', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "svar", 4 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 't' - if( ! refalrts::char_left( 't', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "tvar", 4 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchSTVar(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ContextItem, "ContextItem" }, - { VarMatchFunction, "VarMatchFunction" }, - { PrintMatch, "PrintMatch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Indent#1/1 - //19: s.Direction#1/1 - //20: s.BracketNumber#1/1 - //21: s.Mode#1/1 - //22: s.VarNumber#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 0}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icsVarLeft, 0, 21, 0}, - {refalrts::icsVarLeft, 0, 22, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 8, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Indent#1/1 - //19: s.Direction#1/1 - //20: s.BracketNumber#1/1 - //21: s.Mode#1/1 - //22: s.VarNumber#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[21], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[22], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], VarMatchFunction, "VarMatchFunction" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[8], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[19] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatchRepeated(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 28 elems - refalrts::Iter context[28]; - refalrts::zeros( context, 28 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ContextItem, "ContextItem" }, - { PrintMatch, "PrintMatch" }, - { ContextRange, "ContextRange" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {", ", 2}, - {"repeated_stvar", 14}, - {"repeated_evar", 13} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +54, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.Indent#1/1 - //23: s.Direction#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: s.SampleNumber#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 'e s.VarNumber#1 s.SampleNumber#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icsVarLeft, 0, 23, 0}, - {refalrts::icsVarLeft, 0, 24, 0}, - {refalrts::icCharLeft, 0, static_cast('e'), 0}, - {refalrts::icsVarLeft, 0, 25, 0}, - {refalrts::icsVarLeft, 0, 26, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icString, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 2, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.Indent#1/1 - //23: s.Direction#1/1 - //24: s.BracketNumber#1/1 - //25: s.Mode#1/1 - //26: s.VarNumber#1/1 - //27: s.SampleNumber#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 s.SampleNumber#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icsVarLeft, 0, 23, 0}, - {refalrts::icsVarLeft, 0, 24, 0}, - {refalrts::icsVarLeft, 0, 25, 0}, - {refalrts::icsVarLeft, 0, 26, 0}, - {refalrts::icsVarLeft, 0, 27, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icString, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icString, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 0, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.Indent#1/1 - //23: s.Direction#1/1 - //24: s.BracketNumber#1/1 - //25: s.VarNumber#1/1 - //26: s.SampleNumber#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 'e s.VarNumber#1 s.SampleNumber#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[21] = context[2]; - context[22] = context[3]; - if( ! refalrts::svar_left( context[23], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[24], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'e', context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[26], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "repeated_evar", 13 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_stvar( res, context[23] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.Indent#1/1 - //23: s.Direction#1/1 - //24: s.BracketNumber#1/1 - //25: s.Mode#1/1 - //26: s.VarNumber#1/1 - //27: s.SampleNumber#1/1 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 s.SampleNumber#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[2]; - context[22] = context[3]; - if( ! refalrts::svar_left( context[23], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[24], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[25], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[26], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[27], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintMatch, "PrintMatch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], "repeated_stvar", 14 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_stvar( res, context[23] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintMatch(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 42 elems - refalrts::Iter context[42]; - refalrts::zeros( context, 42 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { BreakerFromIndent, "BreakerFromIndent" }, - { ContextRange, "ContextRange" }, - { StrFromDirection, "StrFromDirection" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" ", 2}, - {" ) )", 4}, - {", ", 2}, - {"( ", 2}, - {"if( ! refalrts::", 16} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Indent#1/1 - //32: s.Direction#1/1 - //33: s.BracketNumber#1/1 - //34: e.Function#1/1 - //36: e.TextRep#1/1 - //38: e.Indent#1/2 - //40: e.Indent#1/3 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 ( e.Function#1 ) e.TextRep#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::icsVarLeft, 0, 32, 0}, - {refalrts::icsVarLeft, 0, 33, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 38, 30, 0}, - {refalrts::icCopyEVar, 40, 38, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icString, 0, 4, 7}, - {refalrts::icChar, 0, '_', 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icString, 0, 3, 13}, - {refalrts::icString, 0, 2, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 1, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icString, 0, 1, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icString, 0, 0, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 26}, - {refalrts::icFunc, 0, 0, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icLinkBrackets, 23, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceRange, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 6, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceRange, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceRange, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Indent#1/1 - //32: s.Direction#1/1 - //33: s.BracketNumber#1/1 - //34: e.Function#1/1 - //36: e.TextRep#1/1 - //38: e.Indent#1/2 - //40: e.Indent#1/3 - // ( e.Indent#1 ) s.Direction#1 s.BracketNumber#1 ( e.Function#1 ) e.TextRep#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[30] = context[2]; - context[31] = context[3]; - if( ! refalrts::svar_left( context[32], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[33], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[0]; - context[37] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[38], context[39], context[30], context[31])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[40], context[41], context[38], context[39])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], "if( ! refalrts::", 16 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[9], '_' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], StrFromDirection, "StrFromDirection" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[13], context[14], "( ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], ContextRange, "ContextRange" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[20], context[21], " ) )", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[24], context[25], " ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[27], BreakerFromIndent, "BreakerFromIndent" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[23], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[26] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[6], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintAllocateElem(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 34 elems - refalrts::Iter context[34]; - refalrts::zeros( context, 34 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { AllocatorFuncArgument, "AllocatorFuncArgument" }, - { ContextItem, "ContextItem" }, - { AllocatorFuncName, "AllocatorFuncName" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" return refalrts::cNoMemory;", 29}, - {" ) )", 4}, - {"( ", 2}, - {"if( ! refalrts::", 16} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Indent#1/1 - //27: s.ElemNumber#1/1 - //28: s.ElementType#1/1 - //29: e.Info#1/1 - //31: e.Indent#1/2 - //33: s.ElementType#1/2 - // ( e.Indent#1 ) s.ElemNumber#1 s.ElementType#1 e.Info#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 25, 2}, - {refalrts::icsVarLeft, 0, 27, 0}, - {refalrts::icsVarLeft, 0, 28, 0}, - {refalrts::icContextSet, 0, 29, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 31, 25, 0}, - {refalrts::icCopySTVar, 33, 28, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icString, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 2, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icString, 0, 2, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icString, 0, 1, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icString, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icLinkBrackets, 21, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceRange, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 4, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceRange, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Indent#1/1 - //27: s.ElemNumber#1/1 - //28: s.ElementType#1/1 - //29: e.Info#1/1 - //31: e.Indent#1/2 - //33: s.ElementType#1/2 - // ( e.Indent#1 ) s.ElemNumber#1 s.ElementType#1 e.Info#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[25] = context[2]; - context[26] = context[3]; - if( ! refalrts::svar_left( context[27], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[28], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[29] = context[0]; - context[30] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[31], context[32], context[25], context[26])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[33], context[28])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[5], context[6], "if( ! refalrts::", 16 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], AllocatorFuncName, "AllocatorFuncName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[10], context[11], "( ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ContextItem, "ContextItem" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], AllocatorFuncArgument, "AllocatorFuncArgument" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[18], context[19], " ) )", 4 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[22], context[23], " return refalrts::cNoMemory;", 29 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[21], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[4], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AllocatorFuncName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_ElCloseCall::name, - & ident_ElOpenCall::name, - & ident_ElCloseBracket::name, - & ident_ElOpenBracket::name, - & ident_ElCloseADT::name, - & ident_ElOpenADT::name, - & ident_ElIdent::name, - & ident_ElNumber::name, - & ident_ElName::name, - & ident_ElChar::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"alloc_close_call", 16}, - {"alloc_open_call", 15}, - {"alloc_close_bracket", 19}, - {"alloc_open_bracket", 18}, - {"alloc_close_adt", 15}, - {"alloc_open_adt", 14}, - {"alloc_ident", 11}, - {"alloc_number", 12}, - {"alloc_name", 10}, - {"alloc_char", 10} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElChar - {refalrts::icIdentLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 9, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElName - {refalrts::icIdentLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 8, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElNumber - {refalrts::icIdentLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 7, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElIdent - {refalrts::icIdentLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 6, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenADT - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 5, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseADT - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 4, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenBracket - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 3, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseBracket - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 2, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenCall - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseCall - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[9]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElChar - if( ! refalrts::ident_left( & ident_ElChar::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_char", 10 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElName - if( ! refalrts::ident_left( & ident_ElName::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_name", 10 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElNumber - if( ! refalrts::ident_left( & ident_ElNumber::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_number", 12 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElIdent - if( ! refalrts::ident_left( & ident_ElIdent::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_ident", 11 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenADT - if( ! refalrts::ident_left( & ident_ElOpenADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_open_adt", 14 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseADT - if( ! refalrts::ident_left( & ident_ElCloseADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_close_adt", 15 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenBracket - if( ! refalrts::ident_left( & ident_ElOpenBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_open_bracket", 18 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseBracket - if( ! refalrts::ident_left( & ident_ElCloseBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_close_bracket", 19 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenCall - if( ! refalrts::ident_left( & ident_ElOpenCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_open_call", 15 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseCall - if( ! refalrts::ident_left( & ident_ElCloseCall::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "alloc_close_call", 16 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AllocatorFuncArgument(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" }, - { PrintName, "PrintName" }, - { Escape, "Escape" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_ElIdent::name, - & ident_ElNumber::name, - & ident_ElName::name, - & ident_ElChar::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"::name", 11}, - {", & ident_", 10}, - {"UL", 2}, - {", ", 2}, - {", \"", 3}, - {", \'", 3} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Char#1/1 - // # ElChar s.Char#1 - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 5, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icChar, 0, '\'', 7}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Name#1/1 - //15: e.Name#1/2 - // # ElName e.Name#1 - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 15, 13, 0}, - {refalrts::icString, 0, 3, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icString, 0, 4, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icChar, 0, '\"', 12}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Number#1/1 - // # ElNumber s.Number#1 - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 3, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icString, 0, 2, 7}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +10, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Name#1/1 - // # ElIdent e.Name#1 - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icString, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: s.Other#1/1 - // s.Other#1 - {refalrts::icsVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Char#1/1 - // # ElChar s.Char#1 - if( ! refalrts::ident_left( & ident_ElChar::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], ", \'", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Escape, "Escape" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '\'' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Name#1/1 - //15: e.Name#1/2 - // # ElName e.Name#1 - if( ! refalrts::ident_left( & ident_ElName::name, context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[15], context[16], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[2], context[3], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], PrintName, "PrintName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], ", \"", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], PrintName, "PrintName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[12], '\"' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Number#1/1 - // # ElNumber s.Number#1 - if( ! refalrts::ident_left( & ident_ElNumber::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], "UL", 2 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[7], context[8] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Name#1/1 - // # ElIdent e.Name#1 - if( ! refalrts::ident_left( & ident_ElIdent::name, context[0], context[1] ) ) - continue; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], ", & ident_", 10 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[4], context[5], "::name", 11 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: s.Other#1/1 - // s.Other#1 - if( ! refalrts::svar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintInterpretAllocateElem(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 30 elems - refalrts::Iter context[30]; - refalrts::zeros( context, 30 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" }, - { AllocatorCommandInfo, "AllocatorCommandInfo" }, - { AllocatorCommandTag, "AllocatorCommandTag" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"},", 2}, - {", ", 2}, - {", 0, ", 5}, - {"{refalrts::", 11} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //23: e.Indent#1/1 - //25: s.ElemNumber#1/1 - //26: s.ElementType#1/1 - //27: e.Info#1/1 - //29: s.ElementType#1/2 - // ( e.Indent#1 ) s.ElemNumber#1 s.ElementType#1 e.Info#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icsVarLeft, 0, 25, 0}, - {refalrts::icsVarLeft, 0, 26, 0}, - {refalrts::icContextSet, 0, 27, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 29, 26, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icString, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 2, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icString, 0, 2, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icString, 0, 1, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 0, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icString, 0, 0, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icLinkBrackets, 4, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceRange, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //23: e.Indent#1/1 - //25: s.ElemNumber#1/1 - //26: s.ElementType#1/1 - //27: e.Info#1/1 - //29: s.ElementType#1/2 - // ( e.Indent#1 ) s.ElemNumber#1 s.ElementType#1 e.Info#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[23] = context[2]; - context[24] = context[3]; - if( ! refalrts::svar_left( context[25], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[26], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[27] = context[0]; - context[28] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[29], context[26])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[5], context[6], "{refalrts::", 11 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], AllocatorCommandTag, "AllocatorCommandTag" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[10], context[11], ", 0, ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], AllocatorCommandInfo, "AllocatorCommandInfo" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[15], context[16], ", ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[20], context[21], "},", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AllocatorCommandTag(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_ElString::name, - & ident_ElCloseCall::name, - & ident_ElCloseADT::name, - & ident_ElCloseBracket::name, - & ident_ElOpenCall::name, - & ident_ElOpenADT::name, - & ident_ElOpenBracket::name, - & ident_ElIdent::name, - & ident_ElNumber::name, - & ident_ElHugeNumber::name, - & ident_ElName::name, - & ident_ElChar::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"icString", 8}, - {"icBracket", 9}, - {"icIdent", 7}, - {"icInt", 5}, - {"icHugeInt", 9}, - {"icFunc", 6}, - {"icChar", 6} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElChar - {refalrts::icIdentLeft, 0, 11, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 6, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElName - {refalrts::icIdentLeft, 0, 10, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 5, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElHugeNumber - {refalrts::icIdentLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 4, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElNumber - {refalrts::icIdentLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 3, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElIdent - {refalrts::icIdentLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 2, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenBracket - {refalrts::icIdentLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenADT - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenCall - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseBracket - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseADT - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseCall - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElString - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[11]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElChar - if( ! refalrts::ident_left( & ident_ElChar::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icChar", 6 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElName - if( ! refalrts::ident_left( & ident_ElName::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icFunc", 6 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElHugeNumber - if( ! refalrts::ident_left( & ident_ElHugeNumber::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icHugeInt", 9 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElNumber - if( ! refalrts::ident_left( & ident_ElNumber::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icInt", 5 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElIdent - if( ! refalrts::ident_left( & ident_ElIdent::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icIdent", 7 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenBracket - if( ! refalrts::ident_left( & ident_ElOpenBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icBracket", 9 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenADT - if( ! refalrts::ident_left( & ident_ElOpenADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icBracket", 9 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenCall - if( ! refalrts::ident_left( & ident_ElOpenCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icBracket", 9 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseBracket - if( ! refalrts::ident_left( & ident_ElCloseBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icBracket", 9 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseADT - if( ! refalrts::ident_left( & ident_ElCloseADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icBracket", 9 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseCall - if( ! refalrts::ident_left( & ident_ElCloseCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icBracket", 9 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElString - if( ! refalrts::ident_left( & ident_ElString::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "icString", 8 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AllocatorCommandInfo(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" }, - { Escape, "Escape" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_ElString::name, - & ident_ElCloseCall::name, - & ident_ElCloseADT::name, - & ident_ElCloseBracket::name, - & ident_ElOpenCall::name, - & ident_ElOpenADT::name, - & ident_ElOpenBracket::name, - & ident_ElIdent::name, - & ident_ElNumber::name, - & ident_ElHugeNumber::name, - & ident_ElName::name, - & ident_ElChar::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"refalrts::ibCloseCall", 21}, - {"refalrts::ibCloseADT", 20}, - {"refalrts::ibCloseBracket", 24}, - {"refalrts::ibOpenCall", 20}, - {"refalrts::ibOpenADT", 19}, - {"refalrts::ibOpenBracket", 23} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Char#1/1 - // # ElChar s.Char#1 - {refalrts::icIdentLeft, 0, 11, 0}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '\'', 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 3}, - {refalrts::icFunc, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icChar, 0, '\'', 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.NameId#1/1 - // # ElName s.NameId#1 - {refalrts::icIdentLeft, 0, 10, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.NumberId#1/1 - // # ElHugeNumber s.NumberId#1 - {refalrts::icIdentLeft, 0, 9, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Number#1/1 - // # ElNumber s.Number#1 - {refalrts::icIdentLeft, 0, 8, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.NameId#1/1 - // # ElIdent s.NameId#1 - {refalrts::icIdentLeft, 0, 7, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenBracket - {refalrts::icIdentLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 5, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenADT - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 4, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElOpenCall - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 3, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseBracket - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 2, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseADT - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ElCloseCall - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.StringId#1/1 - // # ElString s.StringId#1 - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[11]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Char#1/1 - // # ElChar s.Char#1 - if( ! refalrts::ident_left( & ident_ElChar::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '\'' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], Escape, "Escape" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\'' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[3] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.NameId#1/1 - // # ElName s.NameId#1 - if( ! refalrts::ident_left( & ident_ElName::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.NumberId#1/1 - // # ElHugeNumber s.NumberId#1 - if( ! refalrts::ident_left( & ident_ElHugeNumber::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Number#1/1 - // # ElNumber s.Number#1 - if( ! refalrts::ident_left( & ident_ElNumber::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.NameId#1/1 - // # ElIdent s.NameId#1 - if( ! refalrts::ident_left( & ident_ElIdent::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenBracket - if( ! refalrts::ident_left( & ident_ElOpenBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::ibOpenBracket", 23 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenADT - if( ! refalrts::ident_left( & ident_ElOpenADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::ibOpenADT", 19 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElOpenCall - if( ! refalrts::ident_left( & ident_ElOpenCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::ibOpenCall", 20 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseBracket - if( ! refalrts::ident_left( & ident_ElCloseBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::ibCloseBracket", 24 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseADT - if( ! refalrts::ident_left( & ident_ElCloseADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::ibCloseADT", 20 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ElCloseCall - if( ! refalrts::ident_left( & ident_ElCloseCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "refalrts::ibCloseCall", 21 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.StringId#1/1 - // # ElString s.StringId#1 - if( ! refalrts::ident_left( & ident_ElString::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/HightLevelRASL.cpp b/bootstrap/HightLevelRASL.cpp deleted file mode 100644 index 759ac5c6..00000000 --- a/bootstrap/HightLevelRASL.cpp +++ /dev/null @@ -1,18836 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult Add(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Compare(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Dec(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EscapeChar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult HightLevelRASL(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult MapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Seq(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult StrFromInt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Brackets_Set(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult BuildString(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ClosedEVariables(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CollectStrings(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoGenPattern(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoGenResult(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoSaveBrackets(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoSaveBrackets_MakeSavers(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Escape(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ExtractBrackets(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult FilterUnusedCmdClosedE(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult FoldOpenELoops(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenPattern(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenResult(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GeneralizeResult(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult HightLevelRASL_Function(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult HightLevelRASL_Sentence(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Inc2(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult MakeCopyVar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult MakeVariableComment(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PatchVariableNumber(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PatchVariableNumbers(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult RepeatedEVariables(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ReplicateVar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ReplicateVars(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SaveBrackets(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SetOffsetForCmdInsertVar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult TextFromPattern(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult TextFromPattern_Char(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult VarSetDifference(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult VarSetUnion(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #ADT_Brackets -template -struct ident_ADT_Brackets { - static const char *name() { - return "ADT_Brackets"; - } -}; - -// identifier #AlgLeft -template -struct ident_AlgLeft { - static const char *name() { - return "AlgLeft"; - } -}; - -// identifier #AlgRight -template -struct ident_AlgRight { - static const char *name() { - return "AlgRight"; - } -}; - -// identifier #Brackets -template -struct ident_Brackets { - static const char *name() { - return "Brackets"; - } -}; - -// identifier #CallBrackets -template -struct ident_CallBrackets { - static const char *name() { - return "CallBrackets"; - } -}; - -// identifier #CloseCall -template -struct ident_CloseCall { - static const char *name() { - return "CloseCall"; - } -}; - -// identifier #CmdADT -template -struct ident_CmdADT { - static const char *name() { - return "CmdADT"; - } -}; - -// identifier #CmdAllocateElem -template -struct ident_CmdAllocateElem { - static const char *name() { - return "CmdAllocateElem"; - } -}; - -// identifier #CmdBrackets -template -struct ident_CmdBrackets { - static const char *name() { - return "CmdBrackets"; - } -}; - -// identifier #CmdChar -template -struct ident_CmdChar { - static const char *name() { - return "CmdChar"; - } -}; - -// identifier #CmdClosedE -template -struct ident_CmdClosedE { - static const char *name() { - return "CmdClosedE"; - } -}; - -// identifier #CmdComment -template -struct ident_CmdComment { - static const char *name() { - return "CmdComment"; - } -}; - -// identifier #CmdCopyVar -template -struct ident_CmdCopyVar { - static const char *name() { - return "CmdCopyVar"; - } -}; - -// identifier #CmdDeclaration -template -struct ident_CmdDeclaration { - static const char *name() { - return "CmdDeclaration"; - } -}; - -// identifier #CmdDefineIdent -template -struct ident_CmdDefineIdent { - static const char *name() { - return "CmdDefineIdent"; - } -}; - -// identifier #CmdEmpty -template -struct ident_CmdEmpty { - static const char *name() { - return "CmdEmpty"; - } -}; - -// identifier #CmdEmptyResult -template -struct ident_CmdEmptyResult { - static const char *name() { - return "CmdEmptyResult"; - } -}; - -// identifier #CmdEnum -template -struct ident_CmdEnum { - static const char *name() { - return "CmdEnum"; - } -}; - -// identifier #CmdFail -template -struct ident_CmdFail { - static const char *name() { - return "CmdFail"; - } -}; - -// identifier #CmdIdent -template -struct ident_CmdIdent { - static const char *name() { - return "CmdIdent"; - } -}; - -// identifier #CmdInitB0 -template -struct ident_CmdInitB0 { - static const char *name() { - return "CmdInitB0"; - } -}; - -// identifier #CmdInsertElem -template -struct ident_CmdInsertElem { - static const char *name() { - return "CmdInsertElem"; - } -}; - -// identifier #CmdInsertRange -template -struct ident_CmdInsertRange { - static const char *name() { - return "CmdInsertRange"; - } -}; - -// identifier #CmdInsertVar -template -struct ident_CmdInsertVar { - static const char *name() { - return "CmdInsertVar"; - } -}; - -// identifier #CmdIssueMem -template -struct ident_CmdIssueMem { - static const char *name() { - return "CmdIssueMem"; - } -}; - -// identifier #CmdLinkBrackets -template -struct ident_CmdLinkBrackets { - static const char *name() { - return "CmdLinkBrackets"; - } -}; - -// identifier #CmdName -template -struct ident_CmdName { - static const char *name() { - return "CmdName"; - } -}; - -// identifier #CmdNumber -template -struct ident_CmdNumber { - static const char *name() { - return "CmdNumber"; - } -}; - -// identifier #CmdOpenELoop -template -struct ident_CmdOpenELoop { - static const char *name() { - return "CmdOpenELoop"; - } -}; - -// identifier #CmdOpenedE -template -struct ident_CmdOpenedE { - static const char *name() { - return "CmdOpenedE"; - } -}; - -// identifier #CmdPushStack -template -struct ident_CmdPushStack { - static const char *name() { - return "CmdPushStack"; - } -}; - -// identifier #CmdRepeated -template -struct ident_CmdRepeated { - static const char *name() { - return "CmdRepeated"; - } -}; - -// identifier #CmdReturnResult -template -struct ident_CmdReturnResult { - static const char *name() { - return "CmdReturnResult"; - } -}; - -// identifier #CmdSave -template -struct ident_CmdSave { - static const char *name() { - return "CmdSave"; - } -}; - -// identifier #CmdSentence -template -struct ident_CmdSentence { - static const char *name() { - return "CmdSentence"; - } -}; - -// identifier #CmdSeparator -template -struct ident_CmdSeparator { - static const char *name() { - return "CmdSeparator"; - } -}; - -// identifier #CmdSwap -template -struct ident_CmdSwap { - static const char *name() { - return "CmdSwap"; - } -}; - -// identifier #CmdVar -template -struct ident_CmdVar { - static const char *name() { - return "CmdVar"; - } -}; - -// identifier #Declaration -template -struct ident_Declaration { - static const char *name() { - return "Declaration"; - } -}; - -// identifier #ElChar -template -struct ident_ElChar { - static const char *name() { - return "ElChar"; - } -}; - -// identifier #ElCloseADT -template -struct ident_ElCloseADT { - static const char *name() { - return "ElCloseADT"; - } -}; - -// identifier #ElCloseBracket -template -struct ident_ElCloseBracket { - static const char *name() { - return "ElCloseBracket"; - } -}; - -// identifier #ElCloseCall -template -struct ident_ElCloseCall { - static const char *name() { - return "ElCloseCall"; - } -}; - -// identifier #ElIdent -template -struct ident_ElIdent { - static const char *name() { - return "ElIdent"; - } -}; - -// identifier #ElName -template -struct ident_ElName { - static const char *name() { - return "ElName"; - } -}; - -// identifier #ElNumber -template -struct ident_ElNumber { - static const char *name() { - return "ElNumber"; - } -}; - -// identifier #ElOpenADT -template -struct ident_ElOpenADT { - static const char *name() { - return "ElOpenADT"; - } -}; - -// identifier #ElOpenBracket -template -struct ident_ElOpenBracket { - static const char *name() { - return "ElOpenBracket"; - } -}; - -// identifier #ElOpenCall -template -struct ident_ElOpenCall { - static const char *name() { - return "ElOpenCall"; - } -}; - -// identifier #ElString -template -struct ident_ElString { - static const char *name() { - return "ElString"; - } -}; - -// identifier #Enum -template -struct ident_Enum { - static const char *name() { - return "Enum"; - } -}; - -// identifier #Function -template -struct ident_Function { - static const char *name() { - return "Function"; - } -}; - -// identifier #Ident -template -struct ident_Ident { - static const char *name() { - return "Ident"; - } -}; - -// identifier #Separator -template -struct ident_Separator { - static const char *name() { - return "Separator"; - } -}; - -// identifier #Stub -template -struct ident_Stub { - static const char *name() { - return "Stub"; - } -}; - -// identifier #Swap -template -struct ident_Swap { - static const char *name() { - return "Swap"; - } -}; - -// identifier #TkChar -template -struct ident_TkChar { - static const char *name() { - return "TkChar"; - } -}; - -// identifier #TkCloseADT -template -struct ident_TkCloseADT { - static const char *name() { - return "TkCloseADT"; - } -}; - -// identifier #TkCloseBracket -template -struct ident_TkCloseBracket { - static const char *name() { - return "TkCloseBracket"; - } -}; - -// identifier #TkIdentifier -template -struct ident_TkIdentifier { - static const char *name() { - return "TkIdentifier"; - } -}; - -// identifier #TkName -template -struct ident_TkName { - static const char *name() { - return "TkName"; - } -}; - -// identifier #TkNumber -template -struct ident_TkNumber { - static const char *name() { - return "TkNumber"; - } -}; - -// identifier #TkString -template -struct ident_TkString { - static const char *name() { - return "TkString"; - } -}; - -// identifier #TkVariable -template -struct ident_TkVariable { - static const char *name() { - return "TkVariable"; - } -}; - -static refalrts::FnResult lambda_HightLevelRASL_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { HightLevelRASL_Function, "HightLevelRASL_Function" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdSeparator::name, - & ident_Separator::name, - & ident_CmdDefineIdent::name, - & ident_Ident::name, - & ident_CmdDeclaration::name, - & ident_Declaration::name, - & ident_Stub::name, - & ident_CmdSwap::name, - & ident_Swap::name, - & ident_CmdEnum::name, - & ident_Enum::name, - & ident_Function::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: s.ScopeClass#2/1 - //12: e.Name#2/1 - //14: e.Sentences#2/1 - // ( # Function s.ScopeClass#2 ( e.Name#2 ) e.Sentences#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 11, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 11, 2}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icContextSet, 0, 12, 4}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # Enum s.ScopeClass#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 10, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 9, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # Swap s.ScopeClass#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 7, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: s.ScopeClass#2/1 - // ( # Stub s.ScopeClass#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 6, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 4, 2}, - // Unused closed variable e.Name#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # Declaration s.ScopeClass#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 5, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Name#2/1 - // ( # Ident e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # Separator ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[6]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.ScopeClass#2/1 - //12: e.Name#2/1 - //14: e.Sentences#2/1 - // ( # Function s.ScopeClass#2 ( e.Name#2 ) e.Sentences#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Function::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[11], context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[12] = context[4]; - context[13] = context[5]; - context[14] = context[2]; - context[15] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], HightLevelRASL_Function, "HightLevelRASL_Function" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # Enum s.ScopeClass#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Enum::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdEnum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # Swap s.ScopeClass#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Swap::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdSwap::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.ScopeClass#2/1 - // ( # Stub s.ScopeClass#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Stub::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[4], context[2], context[3] ) ) - continue; - // Unused closed variable e.Name#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # Declaration s.ScopeClass#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Declaration::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdDeclaration::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Name#2/1 - // ( # Ident e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Ident::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdDefineIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # Separator ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_Separator::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdSeparator::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult HightLevelRASL(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_HightLevelRASL_0, "lambda_HightLevelRASL_0" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: e.ProgramElements#1/1 - // e.ProgramElements#1 - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.ProgramElements#1/1 - // e.ProgramElements#1 - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], lambda_HightLevelRASL_0, "lambda_HightLevelRASL_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_HightLevelRASL_Function_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { HightLevelRASL_Sentence, "HightLevelRASL_Sentence" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Pattern#2/1 - //19: e.Result#2/1 - // ( ( e.Pattern#2 ) ( e.Result#2 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icContextSet, 0, 19, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Pattern#2/1 - //19: e.Result#2/1 - // ( ( e.Pattern#2 ) ( e.Result#2 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[4]; - context[18] = context[5]; - context[19] = context[6]; - context[20] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], HightLevelRASL_Sentence, "HightLevelRASL_Sentence" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_HightLevelRASL_Function_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 5 elems - refalrts::Iter context[5]; - refalrts::zeros( context, 5 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: s.MaxMemory#2/1 - //3: s.Memory#2/1 - // s.MaxMemory#2 s.Memory#2 '<' - {refalrts::icCharRight, 0, static_cast('<'), 0}, - {refalrts::icsVarLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 3}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: s.MaxMemory#2/1 - //3: s.Memory#2/1 - //4: s.Other#3/1 - // s.MaxMemory#2 s.Memory#2 s.Other#3 - {refalrts::icsVarLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 3, 0}, - {refalrts::icsVarLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: s.MaxMemory#2/1 - //3: s.Memory#2/1 - // s.MaxMemory#2 s.Memory#2 '<' - if( ! refalrts::char_right( '<', context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[2], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: s.MaxMemory#2/1 - //3: s.Memory#2/1 - //4: s.Other#3/1 - // s.MaxMemory#2 s.Memory#2 s.Other#3 - if( ! refalrts::svar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[4], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_HightLevelRASL_Function_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 25 elems - refalrts::Iter context[25]; - refalrts::zeros( context, 25 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_HightLevelRASL_Function_1, "lambda_HightLevelRASL_Function_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Compare, "Compare" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdSentence::name, - & ident_CmdIssueMem::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //19: e.Sentence#2/1 - //21: s.MaxMemory#2/1 - //22: s.Memory#2/1 - //23: s.MaxMemory#2/2 - //24: s.Memory#2/2 - // s.MaxMemory#2 ( ( # CmdIssueMem s.Memory#2 ) e.Sentence#2 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icContextSet, 0, 19, 2}, - {refalrts::icsVarLeft, 0, 21, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 22, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 23, 21, 0}, - {refalrts::icCopySTVar, 24, 22, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 1, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icLinkBrackets, 16, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: e.Sentence#2/1 - //21: s.MaxMemory#2/1 - //22: s.Memory#2/1 - //23: s.MaxMemory#2/2 - //24: s.Memory#2/2 - // s.MaxMemory#2 ( ( # CmdIssueMem s.Memory#2 ) e.Sentence#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_CmdIssueMem::name, context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[19] = context[2]; - context[20] = context[3]; - if( ! refalrts::svar_left( context[21], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[22], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[23], context[21])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[24], context[22])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Compare, "Compare" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], lambda_HightLevelRASL_Function_1, "lambda_HightLevelRASL_Function_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_CmdSentence::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[16], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_HightLevelRASL_Function_3(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdFail::name, - & ident_CmdOpenELoop::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Commands#3/1 - //12: e.OpenELoop#3/1 - // e.Commands#3 ( # CmdOpenELoop e.OpenELoop#3 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.LastSentence#3/1 - // e.LastSentence#3 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Commands#3/1 - //12: e.OpenELoop#3/1 - // e.Commands#3 ( # CmdOpenELoop e.OpenELoop#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdOpenELoop::name, context[2], context[3] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdOpenELoop::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_CmdFail::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.LastSentence#3/1 - // e.LastSentence#3 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_HightLevelRASL_Function_4(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 26 elems - refalrts::Iter context[26]; - refalrts::zeros( context, 26 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_HightLevelRASL_Function_3, "lambda_HightLevelRASL_Function_3" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdIssueMem::name, - & ident_Function::name, - & ident_CmdSentence::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: e.LastSentence#2/1 - //20: s.ScopeClass#1/1 - //21: e.Name#1/1 - //23: s.MaxMemory#2/1 - //24: e.Sentences#2/1 - // s.ScopeClass#1 ( e.Name#1 ) s.MaxMemory#2 e.Sentences#2 ( # CmdSentence e.LastSentence#2 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icsVarLeft, 0, 23, 0}, - {refalrts::icContextSet, 0, 24, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icIdent, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 1, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icLinkBrackets, 6, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icLinkBrackets, 10, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.LastSentence#2/1 - //20: s.ScopeClass#1/1 - //21: e.Name#1/1 - //23: s.MaxMemory#2/1 - //24: e.Sentences#2/1 - // s.ScopeClass#1 ( e.Name#1 ) s.MaxMemory#2 e.Sentences#2 ( # CmdSentence e.LastSentence#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_CmdSentence::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[2]; - context[19] = context[3]; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[4]; - context[22] = context[5]; - if( ! refalrts::svar_left( context[23], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[24] = context[0]; - context[25] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_Function::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[11], & ident_CmdIssueMem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], lambda_HightLevelRASL_Function_3, "lambda_HightLevelRASL_Function_3" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::link_brackets( context[10], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult HightLevelRASL_Function(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 30 elems - refalrts::Iter context[30]; - refalrts::zeros( context, 30 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_HightLevelRASL_Function_4, "lambda_HightLevelRASL_Function_4" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { lambda_HightLevelRASL_Function_2, "lambda_HightLevelRASL_Function_2" }, - { MapReduce, "MapReduce" }, - { lambda_HightLevelRASL_Function_0, "lambda_HightLevelRASL_Function_0" }, - { Map, "Map" }, - { Seq, "Seq" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //25: s.ScopeClass#1/1 - //26: e.Name#1/1 - //28: e.Sentences#1/1 - // s.ScopeClass#1 ( e.Name#1 ) e.Sentences#1 - {refalrts::icsVarLeft, 0, 25, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 26, 2}, - {refalrts::icContextSet, 0, 28, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 7, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 6, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icFunc, 0, 5, 9}, - {refalrts::icFunc, 0, 4, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icFunc, 0, 3, 13}, - {refalrts::icFunc, 0, 2, 14}, - {refalrts::icInt, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 1, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 12, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: s.ScopeClass#1/1 - //26: e.Name#1/1 - //28: e.Sentences#1/1 - // s.ScopeClass#1 ( e.Name#1 ) e.Sentences#1 - if( ! refalrts::svar_left( context[25], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[26] = context[2]; - context[27] = context[3]; - context[28] = context[0]; - context[29] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], lambda_HightLevelRASL_Function_0, "lambda_HightLevelRASL_Function_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], MapReduce, "MapReduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], lambda_HightLevelRASL_Function_2, "lambda_HightLevelRASL_Function_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[15], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], lambda_HightLevelRASL_Function_4, "lambda_HightLevelRASL_Function_4" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[12], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_HightLevelRASL_Sentence_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 25 elems - refalrts::Iter context[25]; - refalrts::zeros( context, 25 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GenResult, "GenResult" }, - { GeneralizeResult, "GeneralizeResult" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Result#1/1 - //20: e.PatternVars#2/1 - //22: e.PatternCommands#2/1 - //24: s.ContextItems#2/1 - // ( e.Result#1 ) ( e.PatternVars#2 ) s.ContextItems#2 ( e.PatternCommands#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketRight, 0, 6, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icContextSet, 0, 20, 4}, - {refalrts::icContextSet, 0, 22, 6}, - {refalrts::icsVarLeft, 0, 24, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Result#1/1 - //20: e.PatternVars#2/1 - //22: e.PatternCommands#2/1 - //24: s.ContextItems#2/1 - // ( e.Result#1 ) ( e.PatternVars#2 ) s.ContextItems#2 ( e.PatternCommands#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[2]; - context[19] = context[3]; - context[20] = context[4]; - context[21] = context[5]; - context[22] = context[6]; - context[23] = context[7]; - if( ! refalrts::svar_left( context[24], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GeneralizeResult, "GeneralizeResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], GenResult, "GenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult HightLevelRASL_Sentence(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_HightLevelRASL_Sentence_0, "lambda_HightLevelRASL_Sentence_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { GenPattern, "GenPattern" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Pattern#1/1 - //20: e.Result#1/1 - // ( e.Pattern#1 ) ( e.Result#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icContextSet, 0, 20, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 1, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Pattern#1/1 - //20: e.Result#1/1 - // ( e.Pattern#1 ) ( e.Result#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[2]; - context[19] = context[3]; - context[20] = context[4]; - context[21] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GenPattern, "GenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], lambda_HightLevelRASL_Sentence_0, "lambda_HightLevelRASL_Sentence_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GeneralizeResult_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 47 elems - refalrts::Iter context[47]; - refalrts::zeros( context, 47 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { VarSetDifference, "VarSetDifference" }, - { VarSetUnion, "VarSetUnion" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //33: e.PatternVars#2/1 - //35: e.ResultVars#2/1 - //37: e.RepeatedEs#2/1 - //39: e.ClosedEs#2/1 - //41: e.PatternVars#2/2 - //43: e.ResultVars#2/2 - //45: e.ResultVars#2/3 - // ( e.PatternVars#2 ) ( e.ResultVars#2 ) ( e.RepeatedEs#2 ) e.ClosedEs#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 41, 33, 0}, - {refalrts::icCopyEVar, 43, 35, 0}, - {refalrts::icCopyEVar, 45, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 26}, - {refalrts::icFunc, 0, 0, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 32}, - {refalrts::icPushStack, 0, 0, 32}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icLinkBrackets, 30, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icLinkBrackets, 28, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 17, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.PatternVars#2/1 - //35: e.ResultVars#2/1 - //37: e.RepeatedEs#2/1 - //39: e.ClosedEs#2/1 - //41: e.PatternVars#2/2 - //43: e.ResultVars#2/2 - //45: e.ResultVars#2/3 - // ( e.PatternVars#2 ) ( e.ResultVars#2 ) ( e.RepeatedEs#2 ) e.ClosedEs#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[33] = context[2]; - context[34] = context[3]; - context[35] = context[4]; - context[36] = context[5]; - context[37] = context[6]; - context[38] = context[7]; - context[39] = context[0]; - context[40] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[41], context[42], context[33], context[34])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[43], context[44], context[35], context[36])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[43], context[44])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], VarSetUnion, "VarSetUnion" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], VarSetDifference, "VarSetDifference" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[27], VarSetDifference, "VarSetDifference" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[32] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[32] ); - refalrts::push_stack( context[26] ); - res = refalrts::splice_elem( res, context[32] ); - refalrts::link_brackets( context[30], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::link_brackets( context[28], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[17], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GeneralizeResult_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 35 elems - refalrts::Iter context[35]; - refalrts::zeros( context, 35 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FilterUnusedCmdClosedE, "FilterUnusedCmdClosedE" }, - { Map, "Map" }, - { VarSetDifference, "VarSetDifference" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //25: e.PatternCommands#1/1 - //27: e.CommonVars#2/1 - //29: e.CopiedVars#2/1 - //31: e.UnusedClosedEs#2/1 - //33: e.UnusedClosedEs#2/2 - // ( e.PatternCommands#1 ) ( e.CommonVars#2 ) ( e.CopiedVars#2 ) e.UnusedClosedEs#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 25, 2}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icContextSet, 0, 29, 6}, - {refalrts::icContextSet, 0, 31, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 33, 31, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 2, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 19}, - {refalrts::icFunc, 0, 1, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.PatternCommands#1/1 - //27: e.CommonVars#2/1 - //29: e.CopiedVars#2/1 - //31: e.UnusedClosedEs#2/1 - //33: e.UnusedClosedEs#2/2 - // ( e.PatternCommands#1 ) ( e.CommonVars#2 ) ( e.CopiedVars#2 ) e.UnusedClosedEs#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[25] = context[2]; - context[26] = context[3]; - context[27] = context[4]; - context[28] = context[5]; - context[29] = context[6]; - context[30] = context[7]; - context[31] = context[0]; - context[32] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[33], context[34], context[31], context[32])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], VarSetDifference, "VarSetDifference" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], FilterUnusedCmdClosedE, "FilterUnusedCmdClosedE" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[19] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GeneralizeResult_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Inc, "Inc" }, - { Add, "Add" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: s.Number#3/1 - //12: s.Usings#3/1 - //13: e.Index#3/1 - //15: s.Number#3/2 - // s.Number#3 ( s.Usings#3 'e e.Index#3 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 12, 2}, - {refalrts::icCharLeft, 0, static_cast('e'), 2}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 15, 11, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icInt, 0, 2, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icChar, 0, 'e', 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 8, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Number#3/1 - //10: s.Usings#3/1 - //11: s.Mode#3/1 - //12: e.Index#3/1 - //14: s.Number#3/2 - // s.Number#3 ( s.Usings#3 s.Mode#3 e.Index#3 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icsVarLeft, 0, 11, 2}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 14, 9, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 7, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.Number#3/1 - //12: s.Usings#3/1 - //13: e.Index#3/1 - //15: s.Number#3/2 - // s.Number#3 ( s.Usings#3 'e e.Index#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[12], context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'e', context[2], context[3] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[15], context[11])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Add, "Add" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[6], 2UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[9], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Number#3/1 - //10: s.Usings#3/1 - //11: s.Mode#3/1 - //12: e.Index#3/1 - //14: s.Number#3/2 - // s.Number#3 ( s.Usings#3 s.Mode#3 e.Index#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[11], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[12] = context[2]; - context[13] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[14], context[9])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GeneralizeResult_3(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_GeneralizeResult_2, "lambda_GeneralizeResult_2" }, - { MapReduce, "MapReduce" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: s.ContextCount#1/1 - //15: e.CommonVars#2/1 - //17: e.CopiedVars#2/1 - //19: e.FilteredPatternCommands#2/1 - // s.ContextCount#1 ( e.CommonVars#2 ) ( e.CopiedVars#2 ) e.FilteredPatternCommands#2 - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: s.ContextCount#1/1 - //15: e.CommonVars#2/1 - //17: e.CopiedVars#2/1 - //19: e.FilteredPatternCommands#2/1 - // s.ContextCount#1 ( e.CommonVars#2 ) ( e.CopiedVars#2 ) e.FilteredPatternCommands#2 - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[4]; - context[18] = context[5]; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], MapReduce, "MapReduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], lambda_GeneralizeResult_2, "lambda_GeneralizeResult_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[6], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GeneralizeResult_4(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 53 elems - refalrts::Iter context[53]; - refalrts::zeros( context, 53 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SetOffsetForCmdInsertVar, "SetOffsetForCmdInsertVar" }, - { Map, "Map" }, - { MakeCopyVar, "MakeCopyVar" }, - { PatchVariableNumbers, "PatchVariableNumbers" }, - { FoldOpenELoops, "FoldOpenELoops" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdReturnResult::name, - & ident_CmdEmptyResult::name, - & ident_CmdInitB0::name, - & ident_CmdIssueMem::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //40: e.ResultCommands#1/1 - //42: e.CopiedVars#2/1 - //44: e.FilteredPatternCommands#2/1 - //46: s.Number#2/1 - //47: e.CommonVars#2/1 - //49: e.CommonVars#2/2 - //51: e.CommonVars#2/3 - // ( e.ResultCommands#1 ) ( s.Number#2 e.CommonVars#2 ) ( e.CopiedVars#2 ) e.FilteredPatternCommands#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 40, 2}, - {refalrts::icContextSet, 0, 42, 6}, - {refalrts::icContextSet, 0, 44, 0}, - {refalrts::icsVarLeft, 0, 46, 4}, - {refalrts::icContextSet, 0, 47, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 49, 47, 0}, - {refalrts::icCopyEVar, 51, 49, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 4, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icIdent, 0, 3, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icIdent, 0, 2, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 3, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icIdent, 0, 1, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 1, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icFunc, 0, 2, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 29}, - {refalrts::icFunc, 0, 1, 30}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 31}, - {refalrts::icFunc, 0, 0, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 33}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 34}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 35}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 36}, - {refalrts::icIdent, 0, 0, 37}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 38}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 39}, - {refalrts::icPushStack, 0, 0, 39}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 39}, - {refalrts::icLinkBrackets, 36, 38, 0}, - {refalrts::icSpliceElem, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icPushStack, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 34}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icLinkBrackets, 31, 33, 0}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceEVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icLinkBrackets, 25, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 49}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 20, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 13, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 10, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //40: e.ResultCommands#1/1 - //42: e.CopiedVars#2/1 - //44: e.FilteredPatternCommands#2/1 - //46: s.Number#2/1 - //47: e.CommonVars#2/1 - //49: e.CommonVars#2/2 - //51: e.CommonVars#2/3 - // ( e.ResultCommands#1 ) ( s.Number#2 e.CommonVars#2 ) ( e.CopiedVars#2 ) e.FilteredPatternCommands#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[40] = context[2]; - context[41] = context[3]; - context[42] = context[6]; - context[43] = context[7]; - context[44] = context[0]; - context[45] = context[1]; - if( ! refalrts::svar_left( context[46], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[47] = context[4]; - context[48] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[49], context[50], context[47], context[48])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[51], context[52], context[49], context[50])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], FoldOpenELoops, "FoldOpenELoops" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[11], & ident_CmdIssueMem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[14], & ident_CmdInitB0::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], PatchVariableNumbers, "PatchVariableNumbers" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_CmdEmptyResult::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], MakeCopyVar, "MakeCopyVar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[30], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[32], SetOffsetForCmdInsertVar, "SetOffsetForCmdInsertVar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[34] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[35] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[36] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[37], & ident_CmdReturnResult::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[38] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[39] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[39] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[39] ); - refalrts::link_brackets( context[36], context[38] ); - res = refalrts::splice_elem( res, context[38] ); - res = refalrts::splice_elem( res, context[37] ); - res = refalrts::splice_elem( res, context[36] ); - refalrts::push_stack( context[35] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[35] ); - refalrts::push_stack( context[34] ); - refalrts::push_stack( context[29] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - refalrts::link_brackets( context[31], context[33] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[51], context[52] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - refalrts::link_brackets( context[25], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[49], context[50] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[20], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[13], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[10], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GeneralizeResult(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 66 elems - refalrts::Iter context[66]; - refalrts::zeros( context, 66 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_GeneralizeResult_4, "lambda_GeneralizeResult_4" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { lambda_GeneralizeResult_3, "lambda_GeneralizeResult_3" }, - { lambda_GeneralizeResult_1, "lambda_GeneralizeResult_1" }, - { lambda_GeneralizeResult_0, "lambda_GeneralizeResult_0" }, - { Seq, "Seq" }, - { ClosedEVariables, "ClosedEVariables" }, - { Map, "Map" }, - { RepeatedEVariables, "RepeatedEVariables" }, - { ReplicateVars, "ReplicateVars" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //53: e.PatternVars#1/1 - //55: e.PatternCommands#1/1 - //57: e.ResultVars#1/1 - //59: e.ResultCommands#1/1 - //61: s.ContextCount#1/1 - //62: e.PatternCommands#1/2 - //64: e.PatternCommands#1/3 - // ( e.PatternVars#1 ) ( e.PatternCommands#1 ) s.ContextCount#1 ( e.ResultVars#1 ) ( e.ResultCommands#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketRight, 0, 6, 0}, - {refalrts::icBracketRight, 0, 8, 0}, - {refalrts::icContextSet, 0, 53, 2}, - {refalrts::icContextSet, 0, 55, 4}, - {refalrts::icContextSet, 0, 57, 8}, - {refalrts::icContextSet, 0, 59, 6}, - {refalrts::icsVarLeft, 0, 61, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 62, 55, 0}, - {refalrts::icCopyEVar, 64, 62, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 10, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 9, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 9, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 7, 24}, - {refalrts::icFunc, 0, 8, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 28}, - {refalrts::icFunc, 0, 7, 29}, - {refalrts::icFunc, 0, 6, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 32}, - {refalrts::icFunc, 0, 5, 33}, - {refalrts::icFunc, 0, 4, 34}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 35}, - {refalrts::icFunc, 0, 1, 36}, - {refalrts::icFunc, 0, 3, 37}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 38}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 39}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 40}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 41}, - {refalrts::icFunc, 0, 1, 42}, - {refalrts::icFunc, 0, 2, 43}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 44}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 45}, - {refalrts::icFunc, 0, 1, 46}, - {refalrts::icFunc, 0, 0, 47}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 48}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 49}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 50}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 51}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 52}, - {refalrts::icPushStack, 0, 0, 52}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 52}, - {refalrts::icPushStack, 0, 0, 51}, - {refalrts::icPushStack, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 51}, - {refalrts::icPushStack, 0, 0, 50}, - {refalrts::icPushStack, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 50}, - {refalrts::icLinkBrackets, 48, 49, 0}, - {refalrts::icSpliceElem, 0, 0, 49}, - {refalrts::icSpliceEVar, 0, 0, 59}, - {refalrts::icSpliceElem, 0, 0, 48}, - {refalrts::icSpliceElem, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 45}, - {refalrts::icPushStack, 0, 0, 44}, - {refalrts::icPushStack, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 61}, - {refalrts::icSpliceElem, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 40}, - {refalrts::icLinkBrackets, 38, 39, 0}, - {refalrts::icSpliceElem, 0, 0, 39}, - {refalrts::icSpliceEVar, 0, 0, 64}, - {refalrts::icSpliceElem, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 62}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 22, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 55}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 17, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 57}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 12, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 53}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //53: e.PatternVars#1/1 - //55: e.PatternCommands#1/1 - //57: e.ResultVars#1/1 - //59: e.ResultCommands#1/1 - //61: s.ContextCount#1/1 - //62: e.PatternCommands#1/2 - //64: e.PatternCommands#1/3 - // ( e.PatternVars#1 ) ( e.PatternCommands#1 ) s.ContextCount#1 ( e.ResultVars#1 ) ( e.ResultCommands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[53] = context[2]; - context[54] = context[3]; - context[55] = context[4]; - context[56] = context[5]; - context[57] = context[8]; - context[58] = context[9]; - context[59] = context[6]; - context[60] = context[7]; - if( ! refalrts::svar_left( context[61], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[62], context[63], context[55], context[56])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[64], context[65], context[62], context[63])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], ReplicateVars, "ReplicateVars" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], ReplicateVars, "ReplicateVars" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[25], RepeatedEVariables, "RepeatedEVariables" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[29], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[30], ClosedEVariables, "ClosedEVariables" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[32] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[33], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[34], lambda_GeneralizeResult_0, "lambda_GeneralizeResult_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[35] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[36], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[37], lambda_GeneralizeResult_1, "lambda_GeneralizeResult_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[38] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[39] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[40] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[41] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[42], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[43], lambda_GeneralizeResult_3, "lambda_GeneralizeResult_3" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[44] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[45] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[46], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[47], lambda_GeneralizeResult_4, "lambda_GeneralizeResult_4" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[48] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[49] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[50] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[51] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[52] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[52] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[52] ); - refalrts::push_stack( context[51] ); - refalrts::push_stack( context[32] ); - res = refalrts::splice_elem( res, context[51] ); - refalrts::push_stack( context[50] ); - refalrts::push_stack( context[45] ); - res = refalrts::splice_elem( res, context[50] ); - refalrts::link_brackets( context[48], context[49] ); - res = refalrts::splice_elem( res, context[49] ); - res = refalrts::splice_evar( res, context[59], context[60] ); - res = refalrts::splice_elem( res, context[48] ); - res = refalrts::splice_elem( res, context[47] ); - res = refalrts::splice_elem( res, context[46] ); - res = refalrts::splice_elem( res, context[45] ); - refalrts::push_stack( context[44] ); - refalrts::push_stack( context[41] ); - res = refalrts::splice_elem( res, context[44] ); - res = refalrts::splice_stvar( res, context[61] ); - res = refalrts::splice_elem( res, context[43] ); - res = refalrts::splice_elem( res, context[42] ); - res = refalrts::splice_elem( res, context[41] ); - refalrts::push_stack( context[40] ); - refalrts::push_stack( context[35] ); - res = refalrts::splice_elem( res, context[40] ); - refalrts::link_brackets( context[38], context[39] ); - res = refalrts::splice_elem( res, context[39] ); - res = refalrts::splice_evar( res, context[64], context[65] ); - res = refalrts::splice_elem( res, context[38] ); - res = refalrts::splice_elem( res, context[37] ); - res = refalrts::splice_elem( res, context[36] ); - res = refalrts::splice_elem( res, context[35] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_elem( res, context[32] ); - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[28] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[62], context[63] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[22], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[55], context[56] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[17], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[57], context[58] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[12], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[53], context[54] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult FoldOpenELoops(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FoldOpenELoops, "FoldOpenELoops" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_AlgLeft::name, - & ident_CmdOpenELoop::name, - & ident_CmdOpenedE::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +34, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Commands_B#1/1 - //15: e.Commands_E#1/1 - //17: s.BracketNum#1/1 - //18: s.VarNumber#1/1 - // e.Commands_B#1 ( # CmdOpenedE # AlgLeft s.BracketNum#1 s.VarNumber#1 ) e.Commands_E#1 - {refalrts::icEPrepare, 0, 13, 0}, - {refalrts::icEStart, 0, 13, 0}, - {refalrts::icSave, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 2, 4}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icsVarLeft, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 18, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 1, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icLinkBrackets, 6, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Commands#1/1 - // e.Commands#1 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Commands_B#1/1 - //15: e.Commands_E#1/1 - //17: s.BracketNum#1/1 - //18: s.VarNumber#1/1 - // e.Commands_B#1 ( # CmdOpenedE # AlgLeft s.BracketNum#1 s.VarNumber#1 ) e.Commands_E#1 - context[13] = 0; - context[14] = 0; - refalrts::start_e_loop(); - do { - context[4] = context[0]; - context[5] = context[1]; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdOpenedE::name, context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[2], context[3] ) ) - continue; - context[15] = context[4]; - context[16] = context[5]; - if( ! refalrts::svar_left( context[17], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[18], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_CmdOpenELoop::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], FoldOpenELoops, "FoldOpenELoops" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[13], context[14], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Commands#1/1 - // e.Commands#1 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ReplicateVar(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Dec, "Dec" }, - { ReplicateVar, "ReplicateVar" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Mode#1/1 - //8: e.Index#1/1 - // ( 1 s.Mode#1 e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icNumLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icInt, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: s.Using#1/1 - //15: s.Mode#1/1 - //16: e.Index#1/1 - //18: s.Using#1/2 - //19: s.Mode#1/2 - //20: e.Index#1/2 - // ( s.Using#1 s.Mode#1 e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 14, 2}, - {refalrts::icsVarLeft, 0, 15, 2}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 18, 14, 0}, - {refalrts::icCopySTVar, 19, 15, 0}, - {refalrts::icCopyEVar, 20, 16, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 6, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Mode#1/1 - //8: e.Index#1/1 - // ( 1 s.Mode#1 e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::number_left( 1UL, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[5], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: s.Using#1/1 - //15: s.Mode#1/1 - //16: e.Index#1/1 - //18: s.Using#1/2 - //19: s.Mode#1/2 - //20: e.Index#1/2 - // ( s.Using#1 s.Mode#1 e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[14], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[15], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[18], context[14])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[19], context[15])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[20], context[21], context[16], context[17])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ReplicateVar, "ReplicateVar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Dec, "Dec" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[6], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ReplicateVars(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ReplicateVar, "ReplicateVar" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Vars#1/1 - // e.Vars#1 - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Vars#1/1 - // e.Vars#1 - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], ReplicateVar, "ReplicateVar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult VarSetUnion(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { VarSetUnion, "VarSetUnion" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: t.Common#1/1 - //16: t.Common#1/2 - //17: e.Set1#1/1 - //19: e.Set2_B#1/1 - //21: e.Set2_E#1/1 - // ( t.Common#1 e.Set1#1 ) ( e.Set2_B#1 t.Common#1 e.Set2_E#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::ictVarLeft, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icEPrepare, 0, 19, 4}, - {refalrts::icEStart, 0, 19, 4}, - {refalrts::icSave, 0, 6, 4}, - {refalrts::ictRepeatLeft, 16, 15, 6}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Set2#1/1 - //15: t.OnlyInSet1#1/1 - //16: e.Set1#1/1 - // ( t.OnlyInSet1#1 e.Set1#1 ) ( e.Set2#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::ictVarLeft, 0, 15, 2}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Set2#1/1 - // ( ) ( e.Set2#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 6, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: t.Common#1/1 - //16: t.Common#1/2 - //17: e.Set1#1/1 - //19: e.Set2_B#1/1 - //21: e.Set2_E#1/1 - // ( t.Common#1 e.Set1#1 ) ( e.Set2_B#1 t.Common#1 e.Set2_E#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[15], context[2], context[3] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - context[19] = 0; - context[20] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[4]; - context[7] = context[5]; - if( ! refalrts::repeated_stvar_left( context[16], context[15], context[6], context[7] ) ) - continue; - context[21] = context[6]; - context[22] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], VarSetUnion, "VarSetUnion" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[19], context[20], context[4], context[5] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Set2#1/1 - //15: t.OnlyInSet1#1/1 - //16: e.Set1#1/1 - // ( t.OnlyInSet1#1 e.Set1#1 ) ( e.Set2#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[4]; - context[14] = context[5]; - if( ! refalrts::tvar_left( context[15], context[2], context[3] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], VarSetUnion, "VarSetUnion" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Set2#1/1 - // ( ) ( e.Set2#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[4]; - context[7] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult VarSetDifference(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { VarSetDifference, "VarSetDifference" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +34, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: t.Common#1/1 - //16: t.Common#1/2 - //17: e.Set1#1/1 - //19: e.Set2_B#1/1 - //21: e.Set2_E#1/1 - // ( t.Common#1 e.Set1#1 ) ( e.Set2_B#1 t.Common#1 e.Set2_E#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::ictVarLeft, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icEPrepare, 0, 19, 4}, - {refalrts::icEStart, 0, 19, 4}, - {refalrts::icSave, 0, 6, 4}, - {refalrts::ictRepeatLeft, 16, 15, 6}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Set2#1/1 - //15: t.OnlyInSet1#1/1 - //16: e.Set1#1/1 - // ( t.OnlyInSet1#1 e.Set1#1 ) ( e.Set2#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::ictVarLeft, 0, 15, 2}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( ) ( e.Set2#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Set2#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: t.Common#1/1 - //16: t.Common#1/2 - //17: e.Set1#1/1 - //19: e.Set2_B#1/1 - //21: e.Set2_E#1/1 - // ( t.Common#1 e.Set1#1 ) ( e.Set2_B#1 t.Common#1 e.Set2_E#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[15], context[2], context[3] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - context[19] = 0; - context[20] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[4]; - context[7] = context[5]; - if( ! refalrts::repeated_stvar_left( context[16], context[15], context[6], context[7] ) ) - continue; - context[21] = context[6]; - context[22] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], VarSetDifference, "VarSetDifference" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[19], context[20], context[4], context[5] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Set2#1/1 - //15: t.OnlyInSet1#1/1 - //16: e.Set1#1/1 - // ( t.OnlyInSet1#1 e.Set1#1 ) ( e.Set2#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[4]; - context[14] = context[5]; - if( ! refalrts::tvar_left( context[15], context[2], context[3] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], VarSetDifference, "VarSetDifference" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( ) ( e.Set2#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Set2#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ClosedEVariables(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_AlgLeft::name, - & ident_CmdClosedE::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Num#1/1 - //9: e.Index#1/1 - // ( # CmdClosedE # AlgLeft s.Num#1 'e e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icCharLeft, 0, static_cast('e'), 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icInt, 0, 1, 5}, - {refalrts::icChar, 0, 'e', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: t.Other#1/1 - // t.Other#1 - {refalrts::ictVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Num#1/1 - //9: e.Index#1/1 - // ( # CmdClosedE # AlgLeft s.Num#1 'e e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdClosedE::name, context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'e', context[2], context[3] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[5], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.Other#1/1 - // t.Other#1 - if( ! refalrts::tvar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult RepeatedEVariables(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdRepeated::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +21, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Direction#1/1 - //9: s.Num#1/1 - //10: s.Count#1/1 - //11: e.Index#1/1 - // ( # CmdRepeated s.Direction#1 s.Num#1 s.Count#1 'e e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icCharLeft, 0, static_cast('e'), 2}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icInt, 0, 1, 5}, - {refalrts::icChar, 0, 'e', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: t.Other#1/1 - // t.Other#1 - {refalrts::ictVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Direction#1/1 - //9: s.Num#1/1 - //10: s.Count#1/1 - //11: e.Index#1/1 - // ( # CmdRepeated s.Direction#1 s.Num#1 s.Count#1 'e e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdRepeated::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'e', context[2], context[3] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[5], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.Other#1/1 - // t.Other#1 - if( ! refalrts::tvar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult FilterUnusedCmdClosedE(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 26 elems - refalrts::Iter context[26]; - refalrts::zeros( context, 26 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdComment::name, - & ident_AlgLeft::name, - & ident_CmdClosedE::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" Unused closed variable e.", 26} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +40, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: s.Num#1/1 - //18: s.Depth#1/1 - //19: s.Depth#1/2 - //20: e.Index#1/1 - //22: e.Index#1/2 - //24: e.Unuseds_B#1/1 - // e.Unuseds_B#1 ( 1 'e e.Index#1 s.Depth#1 ) e.Unuseds_E#1 ( # CmdClosedE # AlgLeft s.Num#1 'e e.Index#1 s.Depth#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icsVarLeft, 0, 17, 2}, - {refalrts::icCharLeft, 0, static_cast('e'), 2}, - {refalrts::icsVarRight, 0, 18, 2}, - {refalrts::icContextSet, 0, 20, 2}, - {refalrts::icEPrepare, 0, 24, 0}, - {refalrts::icEStart, 0, 24, 0}, - {refalrts::icSave, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::icNumLeft, 0, 1, 4}, - {refalrts::icCharLeft, 0, static_cast('e'), 4}, - {refalrts::iceRepeatLeft, 22, 20, 4}, - {refalrts::icsRepeatLeft, 19, 18, 4}, - {refalrts::icEmpty, 0, 0, 4}, - // Unused closed variable e.Unuseds_E#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icIdent, 0, 0, 9}, - {refalrts::icString, 0, 0, 10}, - {refalrts::icChar, 0, '#', 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceRange, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: t.OtherCommand#1/1 - // e.Unuseds#1 t.OtherCommand#1 - {refalrts::ictVarRight, 0, 2, 0}, - // Unused closed variable e.Unuseds#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: s.Num#1/1 - //18: s.Depth#1/1 - //19: s.Depth#1/2 - //20: e.Index#1/1 - //22: e.Index#1/2 - //24: e.Unuseds_B#1/1 - // e.Unuseds_B#1 ( 1 'e e.Index#1 s.Depth#1 ) e.Unuseds_E#1 ( # CmdClosedE # AlgLeft s.Num#1 'e e.Index#1 s.Depth#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdClosedE::name, context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[17], context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'e', context[2], context[3] ) ) - continue; - if( ! refalrts::svar_right( context[18], context[2], context[3] ) ) - continue; - context[20] = context[2]; - context[21] = context[3]; - context[24] = 0; - context[25] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[0]; - context[7] = context[1]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - if( ! refalrts::number_left( 1UL, context[4], context[5] ) ) - continue; - if( ! refalrts::char_left( 'e', context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[22], context[23], context[20], context[21], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_stvar_left( context[19], context[18], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - // Unused closed variable e.Unuseds_E#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_CmdComment::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[10], context[11], " Unused closed variable e.", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[12], '#' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[24], context[25], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.OtherCommand#1/1 - // e.Unuseds#1 t.OtherCommand#1 - if( ! refalrts::tvar_right( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Unuseds#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SetOffsetForCmdInsertVar(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdInsertVar::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: s.Usings#1/1 - //12: s.Usings#1/2 - //13: s.Mode#1/1 - //14: s.Mode#1/2 - //15: e.Index#1/1 - //17: e.Index#1/2 - //19: e.Vars_B#1/1 - //21: s.Number#1/1 - // e.Vars_B#1 ( s.Number#1 s.Usings#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ( # CmdInsertVar s.Usings#1 s.Mode#1 e.Index#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icsVarLeft, 0, 11, 2}, - {refalrts::icsVarLeft, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icEPrepare, 0, 19, 0}, - {refalrts::icEStart, 0, 19, 0}, - {refalrts::icSave, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::iceRepeatRight, 17, 15, 4}, - {refalrts::icsRepeatRight, 14, 13, 4}, - {refalrts::icsRepeatRight, 12, 11, 4}, - // Unused closed variable e.Vars_E#1 - {refalrts::icsVarLeft, 0, 21, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icIdent, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 8, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: t.OtherCommand#1/1 - // e.Vars#1 t.OtherCommand#1 - {refalrts::ictVarRight, 0, 2, 0}, - // Unused closed variable e.Vars#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.Usings#1/1 - //12: s.Usings#1/2 - //13: s.Mode#1/1 - //14: s.Mode#1/2 - //15: e.Index#1/1 - //17: e.Index#1/2 - //19: e.Vars_B#1/1 - //21: s.Number#1/1 - // e.Vars_B#1 ( s.Number#1 s.Usings#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ( # CmdInsertVar s.Usings#1 s.Mode#1 e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInsertVar::name, context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[11], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[13], context[2], context[3] ) ) - continue; - context[15] = context[2]; - context[16] = context[3]; - context[19] = 0; - context[20] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[0]; - context[7] = context[1]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[17], context[18], context[15], context[16], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[14], context[13], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[12], context[11], context[4], context[5] ) ) - continue; - // Unused closed variable e.Vars_E#1 - if( ! refalrts::svar_left( context[21], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_CmdInsertVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[19], context[20], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.OtherCommand#1/1 - // e.Vars#1 t.OtherCommand#1 - if( ! refalrts::tvar_right( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Vars#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_MakeCopyVar_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdCopyVar::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: s.Mode#1/1 - //12: s.Mode#1/2 - //13: e.Index#1/1 - //15: e.Index#1/2 - //17: s.Number#1/1 - //18: s.Usings_1#2/1 - //19: s.Usings_1#2/2 - //20: e.Vars_B#2/1 - //22: s.Sample#2/1 - // s.Mode#1 ( e.Index#1 ) s.Number#1 e.Vars_B#2 ( s.Sample#2 s.Usings_1#2 s.Mode#1 e.Index#1 ) e.Vars_E#2 s.Usings_1#2 - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarLeft, 0, 17, 0}, - {refalrts::icsVarRight, 0, 18, 0}, - {refalrts::icEPrepare, 0, 20, 0}, - {refalrts::icEStart, 0, 20, 0}, - {refalrts::icSave, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::iceRepeatRight, 15, 13, 4}, - {refalrts::icsRepeatRight, 12, 11, 4}, - {refalrts::icsRepeatRight, 19, 18, 4}, - // Unused closed variable e.Vars_E#2 - {refalrts::icsVarLeft, 0, 22, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icIdent, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 8, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icFail, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.Mode#1/1 - //12: s.Mode#1/2 - //13: e.Index#1/1 - //15: e.Index#1/2 - //17: s.Number#1/1 - //18: s.Usings_1#2/1 - //19: s.Usings_1#2/2 - //20: e.Vars_B#2/1 - //22: s.Sample#2/1 - // s.Mode#1 ( e.Index#1 ) s.Number#1 e.Vars_B#2 ( s.Sample#2 s.Usings_1#2 s.Mode#1 e.Index#1 ) e.Vars_E#2 s.Usings_1#2 - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_left( context[17], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_right( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[20] = 0; - context[21] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[0]; - context[7] = context[1]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[15], context[16], context[13], context[14], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[12], context[11], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[19], context[18], context[4], context[5] ) ) - continue; - // Unused closed variable e.Vars_E#2 - if( ! refalrts::svar_left( context[22], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_CmdCopyVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[20], context[21], context[0], context[1] ) ); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult MakeCopyVar(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 33 elems - refalrts::Iter context[33]; - refalrts::zeros( context, 33 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_MakeCopyVar_0, "lambda_MakeCopyVar_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Dec, "Dec" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //20: s.Usings#1/1 - //21: s.Usings#1/2 - //22: s.Mode#1/1 - //23: s.Mode#1/2 - //24: e.Index#1/1 - //26: e.Index#1/2 - //28: e.Vars_B#1/1 - //30: e.Vars_E#1/1 - //32: s.Number#1/1 - // e.Vars_B#1 ( s.Number#1 s.Usings#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ( s.Usings#1 s.Mode#1 e.Index#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 20, 2}, - {refalrts::icsVarLeft, 0, 22, 2}, - {refalrts::icContextSet, 0, 24, 2}, - {refalrts::icEPrepare, 0, 28, 0}, - {refalrts::icEStart, 0, 28, 0}, - {refalrts::icSave, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::iceRepeatRight, 26, 24, 4}, - {refalrts::icsRepeatRight, 23, 22, 4}, - {refalrts::icsRepeatRight, 21, 20, 4}, - {refalrts::icContextSet, 0, 30, 6}, - {refalrts::icsVarLeft, 0, 32, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 3, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 1, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icFail, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: s.Usings#1/1 - //21: s.Usings#1/2 - //22: s.Mode#1/1 - //23: s.Mode#1/2 - //24: e.Index#1/1 - //26: e.Index#1/2 - //28: e.Vars_B#1/1 - //30: e.Vars_E#1/1 - //32: s.Number#1/1 - // e.Vars_B#1 ( s.Number#1 s.Usings#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ( s.Usings#1 s.Mode#1 e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[20], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[22], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[24] = context[2]; - context[25] = context[3]; - context[28] = 0; - context[29] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[0]; - context[7] = context[1]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[26], context[27], context[24], context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[23], context[22], context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[21], context[20], context[4], context[5] ) ) - continue; - context[30] = context[6]; - context[31] = context[7]; - if( ! refalrts::svar_left( context[32], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Dec, "Dec" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], lambda_MakeCopyVar_0, "lambda_MakeCopyVar_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[32] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[28], context[29], context[0], context[1] ) ); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_PatchVariableNumbers_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { MakeVariableComment, "MakeVariableComment" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //8: e.CommonVars#2/1 - //10: e.Commands#2/1 - // ( e.CommonVars#2 ) e.Commands#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: e.CommonVars#2/1 - //10: e.Commands#2/1 - // ( e.CommonVars#2 ) e.Commands#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = context[2]; - context[9] = context[3]; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], MakeVariableComment, "MakeVariableComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PatchVariableNumbers(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_PatchVariableNumbers_0, "lambda_PatchVariableNumbers_0" }, - { PatchVariableNumber, "PatchVariableNumber" }, - { MapReduce, "MapReduce" }, - { Seq, "Seq" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: e.CommonVars#1/1 - //19: e.Commands#1/1 - // ( e.CommonVars#1 ) e.Commands#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 8, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.CommonVars#1/1 - //19: e.Commands#1/1 - // ( e.CommonVars#1 ) e.Commands#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], MapReduce, "MapReduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], PatchVariableNumber, "PatchVariableNumber" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], lambda_PatchVariableNumbers_0, "lambda_PatchVariableNumbers_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[8], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult MakeVariableComment(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 27 elems - refalrts::Iter context[27]; - refalrts::zeros( context, 27 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdComment::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {": ", 2} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //21: s.Number#1/1 - //22: s.Usings#1/1 - //23: s.Mode#1/1 - //24: s.Depth#1/1 - //25: e.Index#1/1 - // ( s.Number#1 s.Usings#1 s.Mode#1 e.Index#1 s.Depth#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 21, 2}, - {refalrts::icsVarLeft, 0, 22, 2}, - {refalrts::icsVarLeft, 0, 23, 2}, - {refalrts::icsVarRight, 0, 24, 2}, - {refalrts::icContextSet, 0, 25, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icChar, 0, '.', 11}, - {refalrts::icChar, 0, '#', 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icChar, 0, '/', 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 0, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icLinkBrackets, 4, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: s.Number#1/1 - //22: s.Usings#1/1 - //23: s.Mode#1/1 - //24: s.Depth#1/1 - //25: e.Index#1/1 - // ( s.Number#1 s.Usings#1 s.Mode#1 e.Index#1 s.Depth#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[21], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[22], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[23], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_right( context[24], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[25] = context[2]; - context[26] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdComment::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], ": ", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[11], '.' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[12], '#' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[16], '/' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_PatchVariableNumber_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 41 elems - refalrts::Iter context[41]; - refalrts::zeros( context, 41 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdRepeated::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //19: s.Mode#1/1 - //20: s.Mode#1/2 - //21: e.Index#1/1 - //23: e.Index#1/2 - //25: s.Number#1/1 - //26: s.Usings#1/1 - //27: e.Vars_E#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.SampleUsings#2/1 - //32: s.SampleUsings#2/2 - //33: e.Vars_BB#2/1 - //35: e.Vars_BE#2/1 - //37: s.SampleNumber#2/1 - //38: s.SampleNumber#2/2 - //39: s.Mode#1/3 - //40: s.Number#1/2 - // s.Mode#1 ( e.Index#1 ) s.Number#1 s.Usings#1 ( e.Vars_E#1 ) s.Direction#1 s.BracketNumber#1 s.SampleUsings#2 e.Vars_BB#2 ( s.SampleNumber#2 s.SampleUsings#2 s.Mode#1 e.Index#1 ) e.Vars_BE#2 - {refalrts::icsVarLeft, 0, 19, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icsVarLeft, 0, 25, 0}, - {refalrts::icsVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icsVarLeft, 0, 30, 0}, - {refalrts::icsVarLeft, 0, 31, 0}, - {refalrts::icEPrepare, 0, 33, 0}, - {refalrts::icEStart, 0, 33, 0}, - {refalrts::icSave, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::iceRepeatRight, 23, 21, 6}, - {refalrts::icsRepeatRight, 20, 19, 6}, - {refalrts::icsRepeatRight, 32, 31, 6}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icsVarLeft, 0, 37, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 38, 37, 0}, - {refalrts::icCopySTVar, 39, 20, 0}, - {refalrts::icCopySTVar, 40, 25, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icLinkBrackets, 16, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 10, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icFail, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: s.Mode#1/1 - //20: s.Mode#1/2 - //21: e.Index#1/1 - //23: e.Index#1/2 - //25: s.Number#1/1 - //26: s.Usings#1/1 - //27: e.Vars_E#1/1 - //29: s.Direction#1/1 - //30: s.BracketNumber#1/1 - //31: s.SampleUsings#2/1 - //32: s.SampleUsings#2/2 - //33: e.Vars_BB#2/1 - //35: e.Vars_BE#2/1 - //37: s.SampleNumber#2/1 - //38: s.SampleNumber#2/2 - //39: s.Mode#1/3 - //40: s.Number#1/2 - // s.Mode#1 ( e.Index#1 ) s.Number#1 s.Usings#1 ( e.Vars_E#1 ) s.Direction#1 s.BracketNumber#1 s.SampleUsings#2 e.Vars_BB#2 ( s.SampleNumber#2 s.SampleUsings#2 s.Mode#1 e.Index#1 ) e.Vars_BE#2 - if( ! refalrts::svar_left( context[19], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[2]; - context[22] = context[3]; - if( ! refalrts::svar_left( context[25], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[26], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[27] = context[4]; - context[28] = context[5]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[30], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[31], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[33] = 0; - context[34] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[0]; - context[9] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[23], context[24], context[21], context[22], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[20], context[19], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[32], context[31], context[6], context[7] ) ) - continue; - context[35] = context[8]; - context[36] = context[9]; - if( ! refalrts::svar_left( context[37], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[38], context[37])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[39], context[20])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[40], context[25])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_CmdRepeated::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[16], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[10], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[33], context[34], context[0], context[1] ) ); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PatchVariableNumber(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 39 elems - refalrts::Iter context[39]; - refalrts::zeros( context, 39 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_PatchVariableNumber_0, "lambda_PatchVariableNumber_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Dec, "Dec" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdVar::name, - & ident_AlgLeft::name, - & ident_CmdOpenedE::name, - & ident_CmdClosedE::name, - & ident_CmdRepeated::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +67, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: s.Direction#1/1 - //25: s.BracketNumber#1/1 - //26: s.Usings#1/1 - //27: s.Usings#1/2 - //28: s.Mode#1/1 - //29: s.Mode#1/2 - //30: e.Index#1/1 - //32: e.Index#1/2 - //34: e.Vars_B#1/1 - //36: e.Vars_E#1/1 - //38: s.Number#1/1 - // ( e.Vars_B#1 ( s.Number#1 s.Usings#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( # CmdRepeated s.Direction#1 s.BracketNumber#1 s.Usings#1 s.Mode#1 e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 4, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icsVarLeft, 0, 26, 4}, - {refalrts::icsVarLeft, 0, 28, 4}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icEPrepare, 0, 34, 2}, - {refalrts::icEStart, 0, 34, 2}, - {refalrts::icSave, 0, 8, 2}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::iceRepeatRight, 32, 30, 6}, - {refalrts::icsRepeatRight, 29, 28, 6}, - {refalrts::icsRepeatRight, 27, 26, 6}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icsVarLeft, 0, 38, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 3, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 1, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +51, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //20: s.BracketNumber#1/1 - //21: e.Index#1/1 - //23: e.Index#1/2 - //25: e.Vars_B#1/1 - //27: e.Vars_E#1/1 - //29: s.VarNumber#1/1 - //30: s.VarNumber#1/2 - // ( e.Vars_B#1 ( s.VarNumber#1 1 'e e.Index#1 ) e.Vars_E#1 ) ( # CmdClosedE # AlgLeft s.BracketNumber#1 'e e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 3, 4}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icCharLeft, 0, static_cast('e'), 4}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icEPrepare, 0, 25, 2}, - {refalrts::icEStart, 0, 25, 2}, - {refalrts::icSave, 0, 8, 2}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::iceRepeatRight, 23, 21, 6}, - {refalrts::icCharRight, 0, static_cast('e'), 6}, - {refalrts::icNumRight, 0, 1, 6}, - {refalrts::icContextSet, 0, 27, 8}, - {refalrts::icsVarLeft, 0, 29, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 30, 29, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icInt, 0, 1, 12}, - {refalrts::icChar, 0, 'e', 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 3, 17}, - {refalrts::icIdent, 0, 1, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icLinkBrackets, 16, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 10, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 11, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +51, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //20: s.BracketNumber#1/1 - //21: e.Index#1/1 - //23: e.Index#1/2 - //25: e.Vars_B#1/1 - //27: e.Vars_E#1/1 - //29: s.VarNumber#1/1 - //30: s.VarNumber#1/2 - // ( e.Vars_B#1 ( s.VarNumber#1 1 'e e.Index#1 ) e.Vars_E#1 ) ( # CmdOpenedE # AlgLeft s.BracketNumber#1 'e e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 2, 4}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icCharLeft, 0, static_cast('e'), 4}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icEPrepare, 0, 25, 2}, - {refalrts::icEStart, 0, 25, 2}, - {refalrts::icSave, 0, 8, 2}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::iceRepeatRight, 23, 21, 6}, - {refalrts::icCharRight, 0, static_cast('e'), 6}, - {refalrts::icNumRight, 0, 1, 6}, - {refalrts::icContextSet, 0, 27, 8}, - {refalrts::icsVarLeft, 0, 29, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 30, 29, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icInt, 0, 1, 12}, - {refalrts::icChar, 0, 'e', 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 2, 17}, - {refalrts::icIdent, 0, 1, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icLinkBrackets, 16, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 10, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 11, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +50, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //18: s.Direction#1/1 - //19: s.BracketNumber#1/1 - //20: s.Mode#1/1 - //21: s.Mode#1/2 - //22: e.Index#1/1 - //24: e.Index#1/2 - //26: e.Vars_B#1/1 - //28: e.Vars_E#1/1 - //30: s.VarNumber#1/1 - //31: s.VarNumber#1/2 - // ( e.Vars_B#1 ( s.VarNumber#1 1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( # CmdVar s.Direction#1 s.BracketNumber#1 s.Mode#1 e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 18, 4}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icContextSet, 0, 22, 4}, - {refalrts::icEPrepare, 0, 26, 2}, - {refalrts::icEStart, 0, 26, 2}, - {refalrts::icSave, 0, 8, 2}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::iceRepeatRight, 24, 22, 6}, - {refalrts::icsRepeatRight, 21, 20, 6}, - {refalrts::icNumRight, 0, 1, 6}, - {refalrts::icContextSet, 0, 28, 8}, - {refalrts::icsVarLeft, 0, 30, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 31, 30, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icInt, 0, 1, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icLinkBrackets, 15, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icLinkBrackets, 11, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Vars#1/1 - //8: t.NextCommand#1/1 - // ( e.Vars#1 ) t.NextCommand#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 6, 2}, - {refalrts::ictVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[8]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: s.Direction#1/1 - //25: s.BracketNumber#1/1 - //26: s.Usings#1/1 - //27: s.Usings#1/2 - //28: s.Mode#1/1 - //29: s.Mode#1/2 - //30: e.Index#1/1 - //32: e.Index#1/2 - //34: e.Vars_B#1/1 - //36: e.Vars_E#1/1 - //38: s.Number#1/1 - // ( e.Vars_B#1 ( s.Number#1 s.Usings#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( # CmdRepeated s.Direction#1 s.BracketNumber#1 s.Usings#1 s.Mode#1 e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdRepeated::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[26], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[28], context[4], context[5] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[34] = 0; - context[35] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[2]; - context[9] = context[3]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[32], context[33], context[30], context[31], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[29], context[28], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[27], context[26], context[6], context[7] ) ) - continue; - context[36] = context[8]; - context[37] = context[9]; - if( ! refalrts::svar_left( context[38], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Dec, "Dec" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], lambda_PatchVariableNumber_0, "lambda_PatchVariableNumber_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_stvar( res, context[24] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_stvar( res, context[38] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[34], context[35], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: s.BracketNumber#1/1 - //21: e.Index#1/1 - //23: e.Index#1/2 - //25: e.Vars_B#1/1 - //27: e.Vars_E#1/1 - //29: s.VarNumber#1/1 - //30: s.VarNumber#1/2 - // ( e.Vars_B#1 ( s.VarNumber#1 1 'e e.Index#1 ) e.Vars_E#1 ) ( # CmdClosedE # AlgLeft s.BracketNumber#1 'e e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdClosedE::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - continue; - if( ! refalrts::char_left( 'e', context[4], context[5] ) ) - continue; - context[21] = context[4]; - context[22] = context[5]; - context[25] = 0; - context[26] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[2]; - context[9] = context[3]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[23], context[24], context[21], context[22], context[6], context[7] ) ) - continue; - if( ! refalrts::char_right( 'e', context[6], context[7] ) ) - continue; - if( ! refalrts::number_right( 1UL, context[6], context[7] ) ) - continue; - context[27] = context[8]; - context[28] = context[9]; - if( ! refalrts::svar_left( context[29], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[30], context[29])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[12], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[13], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_CmdClosedE::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[16], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[10], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[11], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[25], context[26], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: s.BracketNumber#1/1 - //21: e.Index#1/1 - //23: e.Index#1/2 - //25: e.Vars_B#1/1 - //27: e.Vars_E#1/1 - //29: s.VarNumber#1/1 - //30: s.VarNumber#1/2 - // ( e.Vars_B#1 ( s.VarNumber#1 1 'e e.Index#1 ) e.Vars_E#1 ) ( # CmdOpenedE # AlgLeft s.BracketNumber#1 'e e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdOpenedE::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - continue; - if( ! refalrts::char_left( 'e', context[4], context[5] ) ) - continue; - context[21] = context[4]; - context[22] = context[5]; - context[25] = 0; - context[26] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[2]; - context[9] = context[3]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[23], context[24], context[21], context[22], context[6], context[7] ) ) - continue; - if( ! refalrts::char_right( 'e', context[6], context[7] ) ) - continue; - if( ! refalrts::number_right( 1UL, context[6], context[7] ) ) - continue; - context[27] = context[8]; - context[28] = context[9]; - if( ! refalrts::svar_left( context[29], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[30], context[29])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[12], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[13], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_CmdOpenedE::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[16], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[10], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[11], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[25], context[26], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: s.Direction#1/1 - //19: s.BracketNumber#1/1 - //20: s.Mode#1/1 - //21: s.Mode#1/2 - //22: e.Index#1/1 - //24: e.Index#1/2 - //26: e.Vars_B#1/1 - //28: e.Vars_E#1/1 - //30: s.VarNumber#1/1 - //31: s.VarNumber#1/2 - // ( e.Vars_B#1 ( s.VarNumber#1 1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( # CmdVar s.Direction#1 s.BracketNumber#1 s.Mode#1 e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdVar::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[18], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - continue; - context[22] = context[4]; - context[23] = context[5]; - context[26] = 0; - context[27] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[2]; - context[9] = context[3]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[24], context[25], context[22], context[23], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[21], context[20], context[6], context[7] ) ) - continue; - if( ! refalrts::number_right( 1UL, context[6], context[7] ) ) - continue; - context[28] = context[8]; - context[29] = context[9]; - if( ! refalrts::svar_left( context[30], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[31], context[30])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[12], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[15], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[10], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - refalrts::link_brackets( context[11], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[26], context[27], context[2], context[3] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Vars#1/1 - //8: t.NextCommand#1/1 - // ( e.Vars#1 ) t.NextCommand#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[2]; - context[7] = context[3]; - if( ! refalrts::tvar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[8] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GenPattern_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SaveBrackets, "SaveBrackets" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //9: s.NumRanges#2/1 - //10: e.Vars#2/1 - //12: e.Commands#2/1 - // s.NumRanges#2 ( e.Vars#2 ) e.Commands#2 - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.NumRanges#2/1 - //10: e.Vars#2/1 - //12: e.Commands#2/1 - // s.NumRanges#2 ( e.Vars#2 ) e.Commands#2 - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], SaveBrackets, "SaveBrackets" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GenPattern_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { TextFromPattern, "TextFromPattern" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdComment::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Pattern#1/1 - //18: e.Vars#2/1 - //20: s.NumRanges#2/1 - //21: e.Commands#2/1 - // ( e.Pattern#1 ) ( e.Vars#2 ) s.NumRanges#2 e.Commands#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 4}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icContextSet, 0, 21, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icIdent, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icLinkBrackets, 8, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icLinkBrackets, 9, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Pattern#1/1 - //18: e.Vars#2/1 - //20: s.NumRanges#2/1 - //21: e.Commands#2/1 - // ( e.Pattern#1 ) ( e.Vars#2 ) s.NumRanges#2 e.Commands#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[4]; - context[19] = context[5]; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[0]; - context[22] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[10], & ident_CmdComment::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::link_brackets( context[9], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[20] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenPattern(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 30 elems - refalrts::Iter context[30]; - refalrts::zeros( context, 30 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_GenPattern_1, "lambda_GenPattern_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { lambda_GenPattern_0, "lambda_GenPattern_0" }, - { Seq, "Seq" }, - { DoGenPattern, "DoGenPattern" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //26: e.Pattern#1/1 - //28: e.Pattern#1/2 - // e.Pattern#1 - {refalrts::icContextSet, 0, 26, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 28, 26, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 5, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icInt, 0, 2, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icInt, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 3, 16}, - {refalrts::icFunc, 0, 2, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 1, 19}, - {refalrts::icFunc, 0, 0, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: e.Pattern#1/1 - //28: e.Pattern#1/2 - // e.Pattern#1 - context[26] = context[0]; - context[27] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[28], context[29], context[26], context[27])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[6], 2UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[8], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], lambda_GenPattern_0, "lambda_GenPattern_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], lambda_GenPattern_1, "lambda_GenPattern_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Inc2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Add, "Add" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: s.Num#1/1 - // s.Num#1 - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icInt, 0, 2, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.Num#1/1 - // s.Num#1 - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Add, "Add" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[4], 2UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoGenPattern(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 62 elems - refalrts::Iter context[62]; - refalrts::zeros( context, 62 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoGenPattern, "DoGenPattern" }, - { Inc, "Inc" }, - { Inc2, "Inc2" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_AlgLeft::name, - & ident_CmdOpenedE::name, - & ident_TkVariable::name, - & ident_AlgRight::name, - & ident_CmdVar::name, - & ident_CmdClosedE::name, - & ident_CmdRepeated::name, - & ident_CmdEmpty::name, - & ident_CmdADT::name, - & ident_ADT_Brackets::name, - & ident_CmdBrackets::name, - & ident_Brackets::name, - & ident_CmdIdent::name, - & ident_TkIdentifier::name, - & ident_CmdName::name, - & ident_TkName::name, - & ident_CmdNumber::name, - & ident_TkNumber::name, - & ident_CmdChar::name, - & ident_TkChar::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +61, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Range#1/1 - //37: s.Char#1/1 - //38: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkChar s.Char#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEPrepare, 0, 30, 0}, - {refalrts::icEStart, 0, 30, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 32, 10}, - {refalrts::icsVarLeft, 0, 34, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 19, 8}, - {refalrts::icContextSet, 0, 35, 6}, - {refalrts::icsVarLeft, 0, 37, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 38, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 18, 20}, - {refalrts::icIdent, 0, 0, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +61, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Range#1/1 - //37: s.Number#1/1 - //38: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkNumber s.Number#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEPrepare, 0, 30, 0}, - {refalrts::icEStart, 0, 30, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 32, 10}, - {refalrts::icsVarLeft, 0, 34, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 17, 8}, - {refalrts::icContextSet, 0, 35, 6}, - {refalrts::icsVarLeft, 0, 37, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 38, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 16, 20}, - {refalrts::icIdent, 0, 0, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Name#1/1 - //37: e.Range#1/1 - //39: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkName e.Name#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEPrepare, 0, 30, 0}, - {refalrts::icEStart, 0, 30, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 32, 10}, - {refalrts::icsVarLeft, 0, 34, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 15, 8}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 39, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 14, 20}, - {refalrts::icIdent, 0, 0, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Name#1/1 - //37: e.Range#1/1 - //39: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkIdentifier e.Name#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEPrepare, 0, 30, 0}, - {refalrts::icEStart, 0, 30, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 32, 10}, - {refalrts::icsVarLeft, 0, 34, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 13, 8}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 39, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 12, 20}, - {refalrts::icIdent, 0, 0, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +61, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Range#1/1 - //37: s.Char#1/1 - //38: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkChar s.Char#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEPrepare, 0, 30, 0}, - {refalrts::icEStart, 0, 30, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 19, 8}, - {refalrts::icContextSet, 0, 32, 10}, - {refalrts::icsVarLeft, 0, 34, 6}, - {refalrts::icContextSet, 0, 35, 6}, - {refalrts::icsVarLeft, 0, 37, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 38, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 18, 20}, - {refalrts::icIdent, 0, 3, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +61, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Range#1/1 - //37: s.Number#1/1 - //38: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkNumber s.Number#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEPrepare, 0, 30, 0}, - {refalrts::icEStart, 0, 30, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 17, 8}, - {refalrts::icContextSet, 0, 32, 10}, - {refalrts::icsVarLeft, 0, 34, 6}, - {refalrts::icContextSet, 0, 35, 6}, - {refalrts::icsVarLeft, 0, 37, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 38, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 16, 20}, - {refalrts::icIdent, 0, 3, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Name#1/1 - //34: e.Ranges_E#1/1 - //36: s.Num#1/1 - //37: e.Range#1/1 - //39: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkName e.Name#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEPrepare, 0, 30, 0}, - {refalrts::icEStart, 0, 30, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 15, 8}, - {refalrts::icContextSet, 0, 32, 8}, - {refalrts::icContextSet, 0, 34, 10}, - {refalrts::icsVarLeft, 0, 36, 6}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 39, 36, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 14, 20}, - {refalrts::icIdent, 0, 3, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Name#1/1 - //34: e.Ranges_E#1/1 - //36: s.Num#1/1 - //37: e.Range#1/1 - //39: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkIdentifier e.Name#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icEPrepare, 0, 30, 0}, - {refalrts::icEStart, 0, 30, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 13, 8}, - {refalrts::icContextSet, 0, 32, 8}, - {refalrts::icContextSet, 0, 34, 10}, - {refalrts::icsVarLeft, 0, 36, 6}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 39, 36, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 12, 20}, - {refalrts::icIdent, 0, 3, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +77, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.SubRange#1/1 - //42: e.Range#1/1 - //44: s.NumRanges#1/2 - //45: s.NumRanges#1/3 - //46: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # Brackets e.SubRange#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icEPrepare, 0, 35, 0}, - {refalrts::icEStart, 0, 35, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 37, 10}, - {refalrts::icsVarLeft, 0, 39, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 11, 8}, - {refalrts::icContextSet, 0, 40, 8}, - {refalrts::icContextSet, 0, 42, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 34, 0}, - {refalrts::icCopySTVar, 45, 44, 0}, - {refalrts::icCopySTVar, 46, 39, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 2, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icIdent, 0, 10, 25}, - {refalrts::icIdent, 0, 0, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 23, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 24, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +77, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.SubRange#1/1 - //39: e.Ranges_E#1/1 - //41: s.Num#1/1 - //42: e.Range#1/1 - //44: s.NumRanges#1/2 - //45: s.NumRanges#1/3 - //46: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # Brackets e.SubRange#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icEPrepare, 0, 35, 0}, - {refalrts::icEStart, 0, 35, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 11, 8}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icContextSet, 0, 39, 10}, - {refalrts::icsVarLeft, 0, 41, 6}, - {refalrts::icContextSet, 0, 42, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 34, 0}, - {refalrts::icCopySTVar, 45, 44, 0}, - {refalrts::icCopySTVar, 46, 41, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 2, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icIdent, 0, 10, 25}, - {refalrts::icIdent, 0, 3, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 23, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 24, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Vars#1/1 - //34: e.Commands#1/1 - //36: s.NumRanges#1/1 - //37: e.Ranges_B#1/1 - //39: e.Ranges_E#1/1 - //41: s.Num#1/1 - //42: e.Name#1/1 - //44: e.SubRange#1/1 - //46: e.Range#1/1 - //48: s.NumRanges#1/2 - //49: s.NumRanges#1/3 - //50: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # ADT_Brackets ( e.Name#1 ) e.SubRange#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 2}, - {refalrts::icsVarLeft, 0, 36, 0}, - {refalrts::icEPrepare, 0, 37, 0}, - {refalrts::icEStart, 0, 37, 0}, - {refalrts::icSave, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 6, 12}, - {refalrts::icContextSet, 0, 39, 12}, - {refalrts::icsVarLeft, 0, 41, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 9, 8}, - {refalrts::icBracketLeft, 0, 10, 8}, - {refalrts::icContextSet, 0, 42, 10}, - {refalrts::icContextSet, 0, 44, 8}, - {refalrts::icContextSet, 0, 46, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 48, 36, 0}, - {refalrts::icCopySTVar, 49, 48, 0}, - {refalrts::icCopySTVar, 50, 41, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 2, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icIdent, 0, 8, 27}, - {refalrts::icIdent, 0, 0, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 25, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icLinkBrackets, 26, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 49}, - {refalrts::icSpliceSTVar, 0, 0, 50}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 46}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 48}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Vars#1/1 - //34: e.Commands#1/1 - //36: s.NumRanges#1/1 - //37: e.Ranges_B#1/1 - //39: e.Name#1/1 - //41: e.SubRange#1/1 - //43: e.Ranges_E#1/1 - //45: s.Num#1/1 - //46: e.Range#1/1 - //48: s.NumRanges#1/2 - //49: s.NumRanges#1/3 - //50: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # ADT_Brackets ( e.Name#1 ) e.SubRange#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 2}, - {refalrts::icsVarLeft, 0, 36, 0}, - {refalrts::icEPrepare, 0, 37, 0}, - {refalrts::icEStart, 0, 37, 0}, - {refalrts::icSave, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 6, 12}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 9, 8}, - {refalrts::icBracketLeft, 0, 10, 8}, - {refalrts::icContextSet, 0, 39, 10}, - {refalrts::icContextSet, 0, 41, 8}, - {refalrts::icContextSet, 0, 43, 12}, - {refalrts::icsVarLeft, 0, 45, 6}, - {refalrts::icContextSet, 0, 46, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 48, 36, 0}, - {refalrts::icCopySTVar, 49, 48, 0}, - {refalrts::icCopySTVar, 50, 45, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 2, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icIdent, 0, 8, 27}, - {refalrts::icIdent, 0, 3, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 25, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icLinkBrackets, 26, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 49}, - {refalrts::icSpliceSTVar, 0, 0, 50}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceSTVar, 0, 0, 48}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 46}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.Vars#1/1 - //23: e.Commands#1/1 - //25: s.NumRanges#1/1 - //26: e.Ranges_B#1/1 - //28: e.Ranges_E#1/1 - //30: s.Num#1/1 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icsVarLeft, 0, 25, 0}, - {refalrts::icEPrepare, 0, 26, 0}, - {refalrts::icEStart, 0, 26, 0}, - {refalrts::icSave, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 6, 8}, - {refalrts::icContextSet, 0, 28, 8}, - {refalrts::icsVarLeft, 0, 30, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 7, 16}, - {refalrts::icIdent, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +98, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //39: e.Commands#1/1 - //41: s.NumRanges#1/1 - //42: e.Ranges_B#1/1 - //44: e.Ranges_E#1/1 - //46: s.Num#1/1 - //47: e.Range#1/1 - //49: s.Mode#1/1 - //50: s.Mode#1/2 - //51: e.Index#1/1 - //53: e.Index#1/2 - //55: e.Vars_B#1/1 - //57: e.Vars_E#1/1 - //59: s.Count#1/1 - //60: s.Num#1/2 - //61: s.Count#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable s.Mode#1 e.Index#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars_B#1 ( s.Count#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 39, 2}, - {refalrts::icsVarLeft, 0, 41, 0}, - {refalrts::icEPrepare, 0, 42, 0}, - {refalrts::icEStart, 0, 42, 0}, - {refalrts::icSave, 0, 12, 0}, - {refalrts::icSave, 0, 14, 4}, - {refalrts::icBracketLeft, 0, 6, 12}, - {refalrts::icContextSet, 0, 44, 12}, - {refalrts::icsVarLeft, 0, 46, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icContextSet, 0, 47, 6}, - {refalrts::icsVarLeft, 0, 49, 8}, - {refalrts::icContextSet, 0, 51, 8}, - {refalrts::icEPrepare, 0, 55, 14}, - {refalrts::icEStart, 0, 55, 14}, - {refalrts::icSave, 0, 16, 14}, - {refalrts::icBracketLeft, 0, 10, 16}, - {refalrts::iceRepeatRight, 53, 51, 10}, - {refalrts::icsRepeatRight, 50, 49, 10}, - {refalrts::icContextSet, 0, 57, 16}, - {refalrts::icsVarLeft, 0, 59, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 60, 46, 0}, - {refalrts::icCopySTVar, 61, 59, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 24}, - {refalrts::icFunc, 0, 1, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 30}, - {refalrts::icIdent, 0, 6, 31}, - {refalrts::icIdent, 0, 0, 32}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 33}, - {refalrts::icFunc, 0, 1, 34}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 35}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 36}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 37}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 38}, - {refalrts::icPushStack, 0, 0, 38}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 38}, - {refalrts::icLinkBrackets, 29, 37, 0}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icLinkBrackets, 30, 36, 0}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icSpliceEVar, 0, 0, 53}, - {refalrts::icSpliceSTVar, 0, 0, 50}, - {refalrts::icPushStack, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 61}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 60}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 22, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 57}, - {refalrts::icLinkBrackets, 23, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 51}, - {refalrts::icSpliceSTVar, 0, 0, 49}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 59}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 55}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +98, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //39: e.Commands#1/1 - //41: s.NumRanges#1/1 - //42: e.Ranges_B#1/1 - //44: e.Ranges_E#1/1 - //46: s.Num#1/1 - //47: e.Range#1/1 - //49: s.Mode#1/1 - //50: s.Mode#1/2 - //51: e.Index#1/1 - //53: e.Index#1/2 - //55: e.Vars_B#1/1 - //57: e.Vars_E#1/1 - //59: s.Count#1/1 - //60: s.Num#1/2 - //61: s.Count#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkVariable s.Mode#1 e.Index#1 ) ) e.Ranges_E#1 ( e.Vars_B#1 ( s.Count#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 39, 2}, - {refalrts::icsVarLeft, 0, 41, 0}, - {refalrts::icEPrepare, 0, 42, 0}, - {refalrts::icEStart, 0, 42, 0}, - {refalrts::icSave, 0, 12, 0}, - {refalrts::icSave, 0, 14, 4}, - {refalrts::icBracketLeft, 0, 6, 12}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icContextSet, 0, 44, 12}, - {refalrts::icsVarLeft, 0, 46, 6}, - {refalrts::icContextSet, 0, 47, 6}, - {refalrts::icsVarLeft, 0, 49, 8}, - {refalrts::icContextSet, 0, 51, 8}, - {refalrts::icEPrepare, 0, 55, 14}, - {refalrts::icEStart, 0, 55, 14}, - {refalrts::icSave, 0, 16, 14}, - {refalrts::icBracketLeft, 0, 10, 16}, - {refalrts::iceRepeatRight, 53, 51, 10}, - {refalrts::icsRepeatRight, 50, 49, 10}, - {refalrts::icContextSet, 0, 57, 16}, - {refalrts::icsVarLeft, 0, 59, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 60, 46, 0}, - {refalrts::icCopySTVar, 61, 59, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 24}, - {refalrts::icFunc, 0, 1, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 30}, - {refalrts::icIdent, 0, 6, 31}, - {refalrts::icIdent, 0, 3, 32}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 33}, - {refalrts::icFunc, 0, 1, 34}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 35}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 36}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 37}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 38}, - {refalrts::icPushStack, 0, 0, 38}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 38}, - {refalrts::icLinkBrackets, 29, 37, 0}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icLinkBrackets, 30, 36, 0}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icSpliceEVar, 0, 0, 53}, - {refalrts::icSpliceSTVar, 0, 0, 50}, - {refalrts::icPushStack, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 61}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 60}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 22, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 57}, - {refalrts::icLinkBrackets, 23, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 51}, - {refalrts::icSpliceSTVar, 0, 0, 49}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 59}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 55}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +66, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //28: e.Vars#1/1 - //30: e.Commands#1/1 - //32: s.NumRanges#1/1 - //33: e.Ranges_B#1/1 - //35: e.Index#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable 'e e.Index#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 28, 4}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::icsVarLeft, 0, 32, 0}, - {refalrts::icEPrepare, 0, 33, 0}, - {refalrts::icEStart, 0, 33, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icCharLeft, 0, static_cast('e'), 8}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icContextSet, 0, 37, 10}, - {refalrts::icsVarLeft, 0, 39, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 40, 35, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icInt, 0, 1, 16}, - {refalrts::icChar, 0, 'e', 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 5, 22}, - {refalrts::icIdent, 0, 0, 23}, - {refalrts::icChar, 0, 'e', 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 20, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 21, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +74, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.Index#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable 's e.Index#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icEPrepare, 0, 35, 0}, - {refalrts::icEStart, 0, 35, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 37, 10}, - {refalrts::icsVarLeft, 0, 39, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icCharLeft, 0, static_cast('s'), 8}, - {refalrts::icContextSet, 0, 40, 8}, - {refalrts::icContextSet, 0, 42, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 39, 0}, - {refalrts::icCopyEVar, 45, 40, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icInt, 0, 1, 18}, - {refalrts::icChar, 0, 's', 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icIdent, 0, 4, 24}, - {refalrts::icIdent, 0, 0, 25}, - {refalrts::icChar, 0, 's', 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 22, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 23, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 16, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 17, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +74, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.Index#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable 't e.Index#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icEPrepare, 0, 35, 0}, - {refalrts::icEStart, 0, 35, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 37, 10}, - {refalrts::icsVarLeft, 0, 39, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icCharLeft, 0, static_cast('t'), 8}, - {refalrts::icContextSet, 0, 40, 8}, - {refalrts::icContextSet, 0, 42, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 39, 0}, - {refalrts::icCopyEVar, 45, 40, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icInt, 0, 1, 18}, - {refalrts::icChar, 0, 't', 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icIdent, 0, 4, 24}, - {refalrts::icIdent, 0, 0, 25}, - {refalrts::icChar, 0, 't', 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 22, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 23, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 16, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 17, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +74, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Index#1/1 - //39: e.Ranges_E#1/1 - //41: s.Num#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkVariable 's e.Index#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icEPrepare, 0, 35, 0}, - {refalrts::icEStart, 0, 35, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icCharLeft, 0, static_cast('s'), 8}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icContextSet, 0, 39, 10}, - {refalrts::icsVarLeft, 0, 41, 6}, - {refalrts::icContextSet, 0, 42, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 41, 0}, - {refalrts::icCopyEVar, 45, 37, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icInt, 0, 1, 18}, - {refalrts::icChar, 0, 's', 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icIdent, 0, 4, 24}, - {refalrts::icIdent, 0, 3, 25}, - {refalrts::icChar, 0, 's', 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 22, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 23, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 16, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 17, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +74, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Index#1/1 - //39: e.Ranges_E#1/1 - //41: s.Num#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkVariable 't e.Index#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icEPrepare, 0, 35, 0}, - {refalrts::icEStart, 0, 35, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icCharLeft, 0, static_cast('t'), 8}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icContextSet, 0, 39, 10}, - {refalrts::icsVarLeft, 0, 41, 6}, - {refalrts::icContextSet, 0, 42, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 41, 0}, - {refalrts::icCopyEVar, 45, 37, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icInt, 0, 1, 18}, - {refalrts::icChar, 0, 't', 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icIdent, 0, 4, 24}, - {refalrts::icIdent, 0, 3, 25}, - {refalrts::icChar, 0, 't', 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 22, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 23, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 16, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 17, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +74, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.Index#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable 'e e.Index#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icEPrepare, 0, 35, 0}, - {refalrts::icEStart, 0, 35, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 37, 10}, - {refalrts::icsVarLeft, 0, 39, 6}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icCharLeft, 0, static_cast('e'), 8}, - {refalrts::icContextSet, 0, 40, 8}, - {refalrts::icContextSet, 0, 42, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 44, 39, 0}, - {refalrts::icCopyEVar, 45, 40, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icInt, 0, 1, 18}, - {refalrts::icChar, 0, 'e', 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icIdent, 0, 1, 24}, - {refalrts::icIdent, 0, 0, 25}, - {refalrts::icChar, 0, 'e', 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 22, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 23, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 16, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 17, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: e.Vars#1/1 - //10: e.Commands#1/1 - //12: s.NumRanges#1/1 - // s.NumRanges#1 ( e.Vars#1 ) ( e.Commands#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 8, 4}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[44]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Range#1/1 - //37: s.Char#1/1 - //38: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkChar s.Char#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - context[30] = 0; - context[31] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[32] = context[10]; - context[33] = context[11]; - if( ! refalrts::svar_left( context[34], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[8], context[9] ) ) - continue; - context[35] = context[6]; - context[36] = context[7]; - if( ! refalrts::svar_left( context[37], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[38], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CmdChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[30], context[31], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Range#1/1 - //37: s.Number#1/1 - //38: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkNumber s.Number#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - context[30] = 0; - context[31] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[32] = context[10]; - context[33] = context[11]; - if( ! refalrts::svar_left( context[34], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNumber::name, context[8], context[9] ) ) - continue; - context[35] = context[6]; - context[36] = context[7]; - if( ! refalrts::svar_left( context[37], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[38], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CmdNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[30], context[31], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Name#1/1 - //37: e.Range#1/1 - //39: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkName e.Name#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - context[30] = 0; - context[31] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[32] = context[10]; - context[33] = context[11]; - if( ! refalrts::svar_left( context[34], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[8], context[9] ) ) - continue; - context[35] = context[8]; - context[36] = context[9]; - context[37] = context[6]; - context[38] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[39], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CmdName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[30], context[31], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Name#1/1 - //37: e.Range#1/1 - //39: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkIdentifier e.Name#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - context[30] = 0; - context[31] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[32] = context[10]; - context[33] = context[11]; - if( ! refalrts::svar_left( context[34], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkIdentifier::name, context[8], context[9] ) ) - continue; - context[35] = context[8]; - context[36] = context[9]; - context[37] = context[6]; - context[38] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[39], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CmdIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[30], context[31], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Range#1/1 - //37: s.Char#1/1 - //38: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkChar s.Char#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - context[30] = 0; - context[31] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[8], context[9] ) ) - continue; - context[32] = context[10]; - context[33] = context[11]; - if( ! refalrts::svar_left( context[34], context[6], context[7] ) ) - continue; - context[35] = context[6]; - context[36] = context[7]; - if( ! refalrts::svar_left( context[37], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[38], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CmdChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[30], context[31], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Ranges_E#1/1 - //34: s.Num#1/1 - //35: e.Range#1/1 - //37: s.Number#1/1 - //38: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkNumber s.Number#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - context[30] = 0; - context[31] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNumber::name, context[8], context[9] ) ) - continue; - context[32] = context[10]; - context[33] = context[11]; - if( ! refalrts::svar_left( context[34], context[6], context[7] ) ) - continue; - context[35] = context[6]; - context[36] = context[7]; - if( ! refalrts::svar_left( context[37], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[38], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CmdNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[30], context[31], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Name#1/1 - //34: e.Ranges_E#1/1 - //36: s.Num#1/1 - //37: e.Range#1/1 - //39: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkName e.Name#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - context[30] = 0; - context[31] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[8], context[9] ) ) - continue; - context[32] = context[8]; - context[33] = context[9]; - context[34] = context[10]; - context[35] = context[11]; - if( ! refalrts::svar_left( context[36], context[6], context[7] ) ) - continue; - context[37] = context[6]; - context[38] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[39], context[36])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CmdName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[30], context[31], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Vars#1/1 - //27: e.Commands#1/1 - //29: s.NumRanges#1/1 - //30: e.Ranges_B#1/1 - //32: e.Name#1/1 - //34: e.Ranges_E#1/1 - //36: s.Num#1/1 - //37: e.Range#1/1 - //39: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkIdentifier e.Name#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - continue; - context[30] = 0; - context[31] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkIdentifier::name, context[8], context[9] ) ) - continue; - context[32] = context[8]; - context[33] = context[9]; - context[34] = context[10]; - context[35] = context[11]; - if( ! refalrts::svar_left( context[36], context[6], context[7] ) ) - continue; - context[37] = context[6]; - context[38] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[39], context[36])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CmdIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[30], context[31], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.SubRange#1/1 - //42: e.Range#1/1 - //44: s.NumRanges#1/2 - //45: s.NumRanges#1/3 - //46: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # Brackets e.SubRange#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - continue; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[37] = context[10]; - context[38] = context[11]; - if( ! refalrts::svar_left( context[39], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_Brackets::name, context[8], context[9] ) ) - continue; - context[40] = context[8]; - context[41] = context[9]; - context[42] = context[6]; - context[43] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[34])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[45], context[44])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[46], context[39])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Inc2, "Inc2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_CmdBrackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[26], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[23], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[24], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.SubRange#1/1 - //39: e.Ranges_E#1/1 - //41: s.Num#1/1 - //42: e.Range#1/1 - //44: s.NumRanges#1/2 - //45: s.NumRanges#1/3 - //46: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # Brackets e.SubRange#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - continue; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_Brackets::name, context[8], context[9] ) ) - continue; - context[37] = context[8]; - context[38] = context[9]; - context[39] = context[10]; - context[40] = context[11]; - if( ! refalrts::svar_left( context[41], context[6], context[7] ) ) - continue; - context[42] = context[6]; - context[43] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[34])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[45], context[44])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[46], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Inc2, "Inc2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_CmdBrackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[26], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[23], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[24], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Vars#1/1 - //34: e.Commands#1/1 - //36: s.NumRanges#1/1 - //37: e.Ranges_B#1/1 - //39: e.Ranges_E#1/1 - //41: s.Num#1/1 - //42: e.Name#1/1 - //44: e.SubRange#1/1 - //46: e.Range#1/1 - //48: s.NumRanges#1/2 - //49: s.NumRanges#1/3 - //50: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # ADT_Brackets ( e.Name#1 ) e.SubRange#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[2]; - context[35] = context[3]; - if( ! refalrts::svar_left( context[36], context[0], context[1] ) ) - continue; - context[37] = 0; - context[38] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[0]; - context[13] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[12], context[13] ) ) - continue; - context[39] = context[12]; - context[40] = context[13]; - if( ! refalrts::svar_left( context[41], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_ADT_Brackets::name, context[8], context[9] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[8], context[9] ) ) - continue; - context[42] = context[10]; - context[43] = context[11]; - context[44] = context[8]; - context[45] = context[9]; - context[46] = context[6]; - context[47] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[48], context[36])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[49], context[48])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[50], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], Inc2, "Inc2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[27], & ident_CmdADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[28], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[25], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::link_brackets( context[26], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[49] ); - res = refalrts::splice_stvar( res, context[50] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[46], context[47] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_stvar( res, context[48] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[37], context[38], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Vars#1/1 - //34: e.Commands#1/1 - //36: s.NumRanges#1/1 - //37: e.Ranges_B#1/1 - //39: e.Name#1/1 - //41: e.SubRange#1/1 - //43: e.Ranges_E#1/1 - //45: s.Num#1/1 - //46: e.Range#1/1 - //48: s.NumRanges#1/2 - //49: s.NumRanges#1/3 - //50: s.Num#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # ADT_Brackets ( e.Name#1 ) e.SubRange#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[2]; - context[35] = context[3]; - if( ! refalrts::svar_left( context[36], context[0], context[1] ) ) - continue; - context[37] = 0; - context[38] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[0]; - context[13] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[12], context[13] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_ADT_Brackets::name, context[8], context[9] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[8], context[9] ) ) - continue; - context[39] = context[10]; - context[40] = context[11]; - context[41] = context[8]; - context[42] = context[9]; - context[43] = context[12]; - context[44] = context[13]; - if( ! refalrts::svar_left( context[45], context[6], context[7] ) ) - continue; - context[46] = context[6]; - context[47] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[48], context[36])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[49], context[48])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[50], context[45])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], Inc2, "Inc2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[27], & ident_CmdADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[28], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[25], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::link_brackets( context[26], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_stvar( res, context[49] ); - res = refalrts::splice_stvar( res, context[50] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_stvar( res, context[48] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[46], context[47] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[37], context[38], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.Vars#1/1 - //23: e.Commands#1/1 - //25: s.NumRanges#1/1 - //26: e.Ranges_B#1/1 - //28: e.Ranges_E#1/1 - //30: s.Num#1/1 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[21] = context[4]; - context[22] = context[5]; - context[23] = context[2]; - context[24] = context[3]; - if( ! refalrts::svar_left( context[25], context[0], context[1] ) ) - continue; - context[26] = 0; - context[27] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[0]; - context[9] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[8], context[9] ) ) - continue; - context[28] = context[8]; - context[29] = context[9]; - if( ! refalrts::svar_left( context[30], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdEmpty::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[26], context[27], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //39: e.Commands#1/1 - //41: s.NumRanges#1/1 - //42: e.Ranges_B#1/1 - //44: e.Ranges_E#1/1 - //46: s.Num#1/1 - //47: e.Range#1/1 - //49: s.Mode#1/1 - //50: s.Mode#1/2 - //51: e.Index#1/1 - //53: e.Index#1/2 - //55: e.Vars_B#1/1 - //57: e.Vars_E#1/1 - //59: s.Count#1/1 - //60: s.Num#1/2 - //61: s.Count#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable s.Mode#1 e.Index#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars_B#1 ( s.Count#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[39] = context[2]; - context[40] = context[3]; - if( ! refalrts::svar_left( context[41], context[0], context[1] ) ) - continue; - context[42] = 0; - context[43] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[0]; - context[13] = context[1]; - context[14] = context[4]; - context[15] = context[5]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[12], context[13] ) ) - continue; - context[44] = context[12]; - context[45] = context[13]; - if( ! refalrts::svar_left( context[46], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - context[47] = context[6]; - context[48] = context[7]; - if( ! refalrts::svar_left( context[49], context[8], context[9] ) ) - continue; - context[51] = context[8]; - context[52] = context[9]; - context[55] = 0; - context[56] = 0; - refalrts::start_e_loop(); - do { - context[16] = context[14]; - context[17] = context[15]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[16], context[17] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[53], context[54], context[51], context[52], context[10], context[11] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[50], context[49], context[10], context[11] ) ) - continue; - context[57] = context[16]; - context[58] = context[17]; - if( ! refalrts::svar_left( context[59], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[60], context[46])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[61], context[59])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[25], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[31], & ident_CmdRepeated::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[32], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[34], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[35] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[36] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[37] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[38] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[38] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[38] ); - refalrts::link_brackets( context[29], context[37] ); - res = refalrts::splice_elem( res, context[37] ); - refalrts::link_brackets( context[30], context[36] ); - res = refalrts::splice_elem( res, context[36] ); - res = refalrts::splice_evar( res, context[53], context[54] ); - res = refalrts::splice_stvar( res, context[50] ); - refalrts::push_stack( context[35] ); - refalrts::push_stack( context[33] ); - res = refalrts::splice_elem( res, context[35] ); - res = refalrts::splice_stvar( res, context[61] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_stvar( res, context[60] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[22], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[57], context[58] ); - refalrts::link_brackets( context[23], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[51], context[52] ); - res = refalrts::splice_stvar( res, context[49] ); - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[24] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[59] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[55], context[56] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[55], context[56], context[14], context[15] ) ); - } while ( refalrts::open_evar_advance( context[42], context[43], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //39: e.Commands#1/1 - //41: s.NumRanges#1/1 - //42: e.Ranges_B#1/1 - //44: e.Ranges_E#1/1 - //46: s.Num#1/1 - //47: e.Range#1/1 - //49: s.Mode#1/1 - //50: s.Mode#1/2 - //51: e.Index#1/1 - //53: e.Index#1/2 - //55: e.Vars_B#1/1 - //57: e.Vars_E#1/1 - //59: s.Count#1/1 - //60: s.Num#1/2 - //61: s.Count#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkVariable s.Mode#1 e.Index#1 ) ) e.Ranges_E#1 ( e.Vars_B#1 ( s.Count#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[39] = context[2]; - context[40] = context[3]; - if( ! refalrts::svar_left( context[41], context[0], context[1] ) ) - continue; - context[42] = 0; - context[43] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[0]; - context[13] = context[1]; - context[14] = context[4]; - context[15] = context[5]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[12], context[13] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - context[44] = context[12]; - context[45] = context[13]; - if( ! refalrts::svar_left( context[46], context[6], context[7] ) ) - continue; - context[47] = context[6]; - context[48] = context[7]; - if( ! refalrts::svar_left( context[49], context[8], context[9] ) ) - continue; - context[51] = context[8]; - context[52] = context[9]; - context[55] = 0; - context[56] = 0; - refalrts::start_e_loop(); - do { - context[16] = context[14]; - context[17] = context[15]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[16], context[17] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[53], context[54], context[51], context[52], context[10], context[11] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[50], context[49], context[10], context[11] ) ) - continue; - context[57] = context[16]; - context[58] = context[17]; - if( ! refalrts::svar_left( context[59], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[60], context[46])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[61], context[59])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[25], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[31], & ident_CmdRepeated::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[32], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[34], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[35] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[36] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[37] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[38] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[38] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[38] ); - refalrts::link_brackets( context[29], context[37] ); - res = refalrts::splice_elem( res, context[37] ); - refalrts::link_brackets( context[30], context[36] ); - res = refalrts::splice_elem( res, context[36] ); - res = refalrts::splice_evar( res, context[53], context[54] ); - res = refalrts::splice_stvar( res, context[50] ); - refalrts::push_stack( context[35] ); - refalrts::push_stack( context[33] ); - res = refalrts::splice_elem( res, context[35] ); - res = refalrts::splice_stvar( res, context[61] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_stvar( res, context[60] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[22], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[57], context[58] ); - refalrts::link_brackets( context[23], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[51], context[52] ); - res = refalrts::splice_stvar( res, context[49] ); - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[24] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[59] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[55], context[56] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[55], context[56], context[14], context[15] ) ); - } while ( refalrts::open_evar_advance( context[42], context[43], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //28: e.Vars#1/1 - //30: e.Commands#1/1 - //32: s.NumRanges#1/1 - //33: e.Ranges_B#1/1 - //35: e.Index#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable 'e e.Index#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[28] = context[4]; - context[29] = context[5]; - context[30] = context[2]; - context[31] = context[3]; - if( ! refalrts::svar_left( context[32], context[0], context[1] ) ) - continue; - context[33] = 0; - context[34] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - if( ! refalrts::char_left( 'e', context[8], context[9] ) ) - continue; - context[35] = context[8]; - context[36] = context[9]; - context[37] = context[10]; - context[38] = context[11]; - if( ! refalrts::svar_left( context[39], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[40], context[41], context[35], context[36])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[16], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[17], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdClosedE::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[23], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[24], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[20], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[21], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[33], context[34], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.Index#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable 's e.Index#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - continue; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[37] = context[10]; - context[38] = context[11]; - if( ! refalrts::svar_left( context[39], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - if( ! refalrts::char_left( 's', context[8], context[9] ) ) - continue; - context[40] = context[8]; - context[41] = context[9]; - context[42] = context[6]; - context[43] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[40], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[18], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[19], 's' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[24], & ident_CmdVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[26], 's' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[22], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[23], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[16], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[17], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.Index#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable 't e.Index#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - continue; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[37] = context[10]; - context[38] = context[11]; - if( ! refalrts::svar_left( context[39], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - if( ! refalrts::char_left( 't', context[8], context[9] ) ) - continue; - context[40] = context[8]; - context[41] = context[9]; - context[42] = context[6]; - context[43] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[40], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[18], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[19], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[24], & ident_CmdVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[26], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[22], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[23], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[16], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[17], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Index#1/1 - //39: e.Ranges_E#1/1 - //41: s.Num#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkVariable 's e.Index#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - continue; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - if( ! refalrts::char_left( 's', context[8], context[9] ) ) - continue; - context[37] = context[8]; - context[38] = context[9]; - context[39] = context[10]; - context[40] = context[11]; - if( ! refalrts::svar_left( context[41], context[6], context[7] ) ) - continue; - context[42] = context[6]; - context[43] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[41])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[37], context[38])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[18], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[19], 's' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[24], & ident_CmdVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[26], 's' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[22], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[23], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[16], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[17], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Index#1/1 - //39: e.Ranges_E#1/1 - //41: s.Num#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 e.Range#1 ( # TkVariable 't e.Index#1 ) ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - continue; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - if( ! refalrts::char_left( 't', context[8], context[9] ) ) - continue; - context[37] = context[8]; - context[38] = context[9]; - context[39] = context[10]; - context[40] = context[11]; - if( ! refalrts::svar_left( context[41], context[6], context[7] ) ) - continue; - context[42] = context[6]; - context[43] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[41])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[37], context[38])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[18], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[19], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[24], & ident_CmdVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_AlgRight::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[26], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[22], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[23], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[16], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[17], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Vars#1/1 - //32: e.Commands#1/1 - //34: s.NumRanges#1/1 - //35: e.Ranges_B#1/1 - //37: e.Ranges_E#1/1 - //39: s.Num#1/1 - //40: e.Index#1/1 - //42: e.Range#1/1 - //44: s.Num#1/2 - //45: e.Index#1/2 - // s.NumRanges#1 e.Ranges_B#1 ( s.Num#1 ( # TkVariable 'e e.Index#1 ) e.Range#1 ) e.Ranges_E#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - continue; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - context[37] = context[10]; - context[38] = context[11]; - if( ! refalrts::svar_left( context[39], context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - if( ! refalrts::char_left( 'e', context[8], context[9] ) ) - continue; - context[40] = context[8]; - context[41] = context[9]; - context[42] = context[6]; - context[43] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[44], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[45], context[46], context[40], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenPattern, "DoGenPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[18], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[19], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[24], & ident_CmdOpenedE::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[26], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[22], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[23], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[16], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[17], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: e.Vars#1/1 - //10: e.Commands#1/1 - //12: s.NumRanges#1/1 - // s.NumRanges#1 ( e.Vars#1 ) ( e.Commands#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = context[4]; - context[9] = context[5]; - context[10] = context[2]; - context[11] = context[3]; - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SaveBrackets(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 10 elems - refalrts::Iter context[10]; - refalrts::zeros( context, 10 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoSaveBrackets, "DoSaveBrackets" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: s.LastBracket#1/1 - //8: e.Commands#1/1 - // s.LastBracket#1 e.Commands#1 - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icContextSet, 0, 8, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.LastBracket#1/1 - //8: e.Commands#1/1 - // s.LastBracket#1 e.Commands#1 - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = context[0]; - context[9] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoSaveBrackets, "DoSaveBrackets" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_DoSaveBrackets_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ExtractBrackets, "ExtractBrackets" }, - { DoSaveBrackets_MakeSavers, "DoSaveBrackets_MakeSavers" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: s.LastBracket#1/1 - //15: e.Commands_E#1/1 - //17: e.CommandsBeforeEMatch#2/1 - //19: e.CommandsBeforeEMatch#2/2 - // s.LastBracket#1 ( e.Commands_E#1 ) e.CommandsBeforeEMatch#2 - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 6, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: s.LastBracket#1/1 - //15: e.Commands_E#1/1 - //17: e.CommandsBeforeEMatch#2/1 - //19: e.CommandsBeforeEMatch#2/2 - // s.LastBracket#1 ( e.Commands_E#1 ) e.CommandsBeforeEMatch#2 - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoSaveBrackets_MakeSavers, "DoSaveBrackets_MakeSavers" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], ExtractBrackets, "ExtractBrackets" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[6], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoSaveBrackets(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 32 elems - refalrts::Iter context[32]; - refalrts::zeros( context, 32 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_DoSaveBrackets_0, "lambda_DoSaveBrackets_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_AlgLeft::name, - & ident_CmdOpenedE::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +56, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: s.LastBracket#1/1 - //23: e.Scanned#1/1 - //25: e.Commands_B#1/1 - //27: e.Commands_E#1/1 - //29: s.Num#1/1 - //30: e.Index#1/1 - // s.LastBracket#1 ( e.Scanned#1 ) e.Commands_B#1 ( # CmdOpenedE # AlgLeft s.Num#1 'e e.Index#1 ) e.Commands_E#1 - {refalrts::icsVarLeft, 0, 22, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icEPrepare, 0, 25, 0}, - {refalrts::icEStart, 0, 25, 0}, - {refalrts::icSave, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 4, 6}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::icsVarLeft, 0, 29, 4}, - {refalrts::icCharLeft, 0, static_cast('e'), 4}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icIdent, 0, 1, 11}, - {refalrts::icIdent, 0, 0, 12}, - {refalrts::icChar, 0, 'e', 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 1, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: s.LastBracket#1/1 - //5: e.Scanned#1/1 - //7: e.Commands#1/1 - // s.LastBracket#1 ( e.Scanned#1 ) e.Commands#1 - {refalrts::icsVarLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 5, 2}, - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: s.LastBracket#1/1 - //23: e.Scanned#1/1 - //25: e.Commands_B#1/1 - //27: e.Commands_E#1/1 - //29: s.Num#1/1 - //30: e.Index#1/1 - // s.LastBracket#1 ( e.Scanned#1 ) e.Commands_B#1 ( # CmdOpenedE # AlgLeft s.Num#1 'e e.Index#1 ) e.Commands_E#1 - if( ! refalrts::svar_left( context[22], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[23] = context[2]; - context[24] = context[3]; - context[25] = 0; - context[26] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[0]; - context[7] = context[1]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdOpenedE::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[4], context[5] ) ) - continue; - context[27] = context[6]; - context[28] = context[7]; - if( ! refalrts::svar_left( context[29], context[4], context[5] ) ) - continue; - if( ! refalrts::char_left( 'e', context[4], context[5] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[11], & ident_CmdOpenedE::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[12], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[13], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], lambda_DoSaveBrackets_0, "lambda_DoSaveBrackets_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[10], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[25], context[26], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.LastBracket#1/1 - //5: e.Scanned#1/1 - //7: e.Commands#1/1 - // s.LastBracket#1 ( e.Scanned#1 ) e.Commands#1 - if( ! refalrts::svar_left( context[4], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[5] = context[2]; - context[6] = context[3]; - context[7] = context[0]; - context[8] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_stvar( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_DoSaveBrackets_MakeSavers_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: s.Num#1/1 - //7: s.Num#1/2 - //8: s.LastBracket#1/1 - //9: s.Command#2/1 - //10: s.Direction#2/1 - //11: e.Info#2/1 - // s.Num#1 s.LastBracket#1 ( s.Command#2 s.Direction#2 s.Num#1 e.Info#2 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icsRepeatLeft, 7, 6, 2}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: s.Num#1/1 - //7: s.LastBracket#1/1 - //8: s.Command#2/1 - //9: s.Direction#2/1 - //10: s.OtherNum#2/1 - //11: e.Info#2/1 - // s.Num#1 s.LastBracket#1 ( s.Command#2 s.Direction#2 s.OtherNum#2 e.Info#2 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.Num#1/1 - //7: s.Num#1/2 - //8: s.LastBracket#1/1 - //9: s.Command#2/1 - //10: s.Direction#2/1 - //11: e.Info#2/1 - // s.Num#1 s.LastBracket#1 ( s.Command#2 s.Direction#2 s.Num#1 e.Info#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - continue; - if( ! refalrts::repeated_stvar_left( context[7], context[6], context[2], context[3] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.Num#1/1 - //7: s.LastBracket#1/1 - //8: s.Command#2/1 - //9: s.Direction#2/1 - //10: s.OtherNum#2/1 - //11: e.Info#2/1 - // s.Num#1 s.LastBracket#1 ( s.Command#2 s.Direction#2 s.OtherNum#2 e.Info#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoSaveBrackets_MakeSavers(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 56 elems - refalrts::Iter context[56]; - refalrts::zeros( context, 56 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoSaveBrackets, "DoSaveBrackets" }, - { lambda_DoSaveBrackets_MakeSavers_0, "lambda_DoSaveBrackets_MakeSavers_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Map, "Map" }, - { Inc2, "Inc2" }, - { DoSaveBrackets_MakeSavers, "DoSaveBrackets_MakeSavers" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdSave::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +95, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //36: s.LastBracket#1/1 - //37: e.Scanned#1/1 - //39: e.BoundedBrackets_B#1/1 - //41: s.Num#1/1 - //42: s.Num#1/2 - //43: e.BoundedBrackets_E#1/1 - //45: e.Commands_B#1/1 - //47: e.Commands_E#1/1 - //49: s.Command#1/1 - //50: s.Direction#1/1 - //51: e.Args#1/1 - //53: s.LastBracket#1/2 - //54: s.LastBracket#1/3 - //55: s.Num#1/3 - // s.LastBracket#1 ( e.BoundedBrackets_B#1 s.Num#1 e.BoundedBrackets_E#1 ) ( e.Scanned#1 ) e.Commands_B#1 ( s.Command#1 s.Direction#1 s.Num#1 e.Args#1 ) e.Commands_E#1 - {refalrts::icsVarLeft, 0, 36, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 37, 4}, - {refalrts::icEPrepare, 0, 39, 2}, - {refalrts::icEStart, 0, 39, 2}, - {refalrts::icSave, 0, 8, 0}, - {refalrts::icSave, 0, 10, 2}, - {refalrts::icsVarLeft, 0, 41, 10}, - {refalrts::icContextSet, 0, 43, 10}, - {refalrts::icEPrepare, 0, 45, 8}, - {refalrts::icEStart, 0, 45, 8}, - {refalrts::icSave, 0, 12, 8}, - {refalrts::icBracketLeft, 0, 6, 12}, - {refalrts::icContextSet, 0, 47, 12}, - {refalrts::icsVarLeft, 0, 49, 6}, - {refalrts::icsVarLeft, 0, 50, 6}, - {refalrts::icsRepeatLeft, 42, 41, 6}, - {refalrts::icContextSet, 0, 51, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 53, 36, 0}, - {refalrts::icCopySTVar, 54, 53, 0}, - {refalrts::icCopySTVar, 55, 42, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 5, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 4, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icIdent, 0, 0, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 26}, - {refalrts::icFunc, 0, 3, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 28}, - {refalrts::icFunc, 0, 2, 29}, - {refalrts::icFunc, 0, 1, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 33}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 34}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 35}, - {refalrts::icPushStack, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 34}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icLinkBrackets, 32, 33, 0}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceEVar, 0, 0, 51}, - {refalrts::icSpliceSTVar, 0, 0, 55}, - {refalrts::icSpliceSTVar, 0, 0, 50}, - {refalrts::icSpliceSTVar, 0, 0, 49}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 54}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 21, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 22, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 53}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: s.LastBracket#1/1 - //12: e.Scanned#1/1 - //14: e.Commands#1/1 - // s.LastBracket#1 ( e.UnusedBoundedBrackets#1 ) ( e.Scanned#1 ) e.Commands#1 - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - // Unused closed variable e.UnusedBoundedBrackets#1 - {refalrts::icContextSet, 0, 12, 4}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //36: s.LastBracket#1/1 - //37: e.Scanned#1/1 - //39: e.BoundedBrackets_B#1/1 - //41: s.Num#1/1 - //42: s.Num#1/2 - //43: e.BoundedBrackets_E#1/1 - //45: e.Commands_B#1/1 - //47: e.Commands_E#1/1 - //49: s.Command#1/1 - //50: s.Direction#1/1 - //51: e.Args#1/1 - //53: s.LastBracket#1/2 - //54: s.LastBracket#1/3 - //55: s.Num#1/3 - // s.LastBracket#1 ( e.BoundedBrackets_B#1 s.Num#1 e.BoundedBrackets_E#1 ) ( e.Scanned#1 ) e.Commands_B#1 ( s.Command#1 s.Direction#1 s.Num#1 e.Args#1 ) e.Commands_E#1 - if( ! refalrts::svar_left( context[36], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[37] = context[4]; - context[38] = context[5]; - context[39] = 0; - context[40] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[0]; - context[9] = context[1]; - context[10] = context[2]; - context[11] = context[3]; - if( ! refalrts::svar_left( context[41], context[10], context[11] ) ) - continue; - context[43] = context[10]; - context[44] = context[11]; - context[45] = 0; - context[46] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[8]; - context[13] = context[9]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[12], context[13] ) ) - continue; - context[47] = context[12]; - context[48] = context[13]; - if( ! refalrts::svar_left( context[49], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[50], context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_stvar_left( context[42], context[41], context[6], context[7] ) ) - continue; - context[51] = context[6]; - context[52] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[53], context[36])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[54], context[53])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[55], context[42])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], DoSaveBrackets_MakeSavers, "DoSaveBrackets_MakeSavers" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], Inc2, "Inc2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[23], & ident_CmdSave::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[27], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[29], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[30], lambda_DoSaveBrackets_MakeSavers_0, "lambda_DoSaveBrackets_MakeSavers_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[32] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[34] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[35] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[35] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[35] ); - refalrts::push_stack( context[34] ); - refalrts::push_stack( context[26] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - refalrts::link_brackets( context[32], context[33] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[51], context[52] ); - res = refalrts::splice_stvar( res, context[55] ); - res = refalrts::splice_stvar( res, context[50] ); - res = refalrts::splice_stvar( res, context[49] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[28] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[54] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[21], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[22], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_stvar( res, context[53] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[45], context[46], context[8], context[9] ) ); - } while ( refalrts::open_evar_advance( context[39], context[40], context[2], context[3] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.LastBracket#1/1 - //12: e.Scanned#1/1 - //14: e.Commands#1/1 - // s.LastBracket#1 ( e.UnusedBoundedBrackets#1 ) ( e.Scanned#1 ) e.Commands#1 - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.UnusedBoundedBrackets#1 - context[12] = context[4]; - context[13] = context[5]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], DoSaveBrackets, "DoSaveBrackets" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ExtractBrackets_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdADT::name, - & ident_CmdBrackets::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +12, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: s.Direction#2/1 - //5: s.BracketNum#2/1 - //6: s.InnerNum#2/1 - // ( # CmdBrackets s.Direction#2 s.BracketNum#2 s.InnerNum#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 4, 2}, - {refalrts::icsVarLeft, 0, 5, 2}, - {refalrts::icsVarLeft, 0, 6, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: s.Direction#2/1 - //5: s.BracketNum#2/1 - //6: s.InnerNum#2/1 - // ( # CmdADT s.Direction#2 s.BracketNum#2 s.InnerNum#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 4, 2}, - {refalrts::icsVarLeft, 0, 5, 2}, - {refalrts::icsVarLeft, 0, 6, 2}, - // Unused closed variable e.Name#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: s.Command#2/1 - //5: s.Direction#2/1 - //6: s.BracketNum#2/1 - // ( s.Command#2 s.Direction#2 s.BracketNum#2 e.Info#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 4, 2}, - {refalrts::icsVarLeft, 0, 5, 2}, - {refalrts::icsVarLeft, 0, 6, 2}, - // Unused closed variable e.Info#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.Direction#2/1 - //5: s.BracketNum#2/1 - //6: s.InnerNum#2/1 - // ( # CmdBrackets s.Direction#2 s.BracketNum#2 s.InnerNum#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdBrackets::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[4], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[6], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.Direction#2/1 - //5: s.BracketNum#2/1 - //6: s.InnerNum#2/1 - // ( # CmdADT s.Direction#2 s.BracketNum#2 s.InnerNum#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdADT::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[4], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[6], context[2], context[3] ) ) - continue; - // Unused closed variable e.Name#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.Command#2/1 - //5: s.Direction#2/1 - //6: s.BracketNum#2/1 - // ( s.Command#2 s.Direction#2 s.BracketNum#2 e.Info#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[4], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[6], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Info#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ExtractBrackets(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ExtractBrackets_0, "lambda_ExtractBrackets_0" }, - { Map, "Map" }, - { Brackets_Set, "Brackets_Set" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Commands#1/1 - // e.Commands#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Commands#1/1 - // e.Commands#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Brackets_Set, "Brackets_Set" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], lambda_ExtractBrackets_0, "lambda_ExtractBrackets_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Brackets_Set(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Brackets_Set, "Brackets_Set" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Unique#1/1 - //11: s.Repeated#1/1 - //12: s.Repeated#1/2 - //13: e.Middle#1/1 - //15: e.Rest#1/1 - // e.Unique#1 s.Repeated#1 e.Middle#1 s.Repeated#1 e.Rest#1 - {refalrts::icEPrepare, 0, 9, 0}, - {refalrts::icEStart, 0, 9, 0}, - {refalrts::icSave, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 11, 2}, - {refalrts::icEPrepare, 0, 13, 2}, - {refalrts::icEStart, 0, 13, 2}, - {refalrts::icSave, 0, 4, 2}, - {refalrts::icsRepeatLeft, 12, 11, 4}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Unique#1/1 - // e.Unique#1 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Unique#1/1 - //11: s.Repeated#1/1 - //12: s.Repeated#1/2 - //13: e.Middle#1/1 - //15: e.Rest#1/1 - // e.Unique#1 s.Repeated#1 e.Middle#1 s.Repeated#1 e.Rest#1 - context[9] = 0; - context[10] = 0; - refalrts::start_e_loop(); - do { - context[2] = context[0]; - context[3] = context[1]; - if( ! refalrts::svar_left( context[11], context[2], context[3] ) ) - continue; - context[13] = 0; - context[14] = 0; - refalrts::start_e_loop(); - do { - context[4] = context[2]; - context[5] = context[3]; - if( ! refalrts::repeated_stvar_left( context[12], context[11], context[4], context[5] ) ) - continue; - context[15] = context[4]; - context[16] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Brackets_Set, "Brackets_Set" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[13], context[14], context[2], context[3] ) ); - } while ( refalrts::open_evar_advance( context[9], context[10], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Unique#1/1 - // e.Unique#1 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult TextFromPattern(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { TextFromPattern, "TextFromPattern" }, - { StrFromInt, "StrFromInt" }, - { TextFromPattern_Char, "TextFromPattern_Char" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkIdentifier::name, - & ident_TkVariable::name, - & ident_TkName::name, - & ident_TkNumber::name, - & ident_TkChar::name, - & ident_ADT_Brackets::name, - & ident_Brackets::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" # ", 3}, - {" & ", 3}, - {" \'", 2}, - {" ]", 2}, - {" [", 2}, - {" )", 2}, - {" (", 2} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Inner#1/1 - //16: e.Tail#1/1 - // ( # Brackets e.Inner#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 6, 2}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icContextSet, 0, 16, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 6, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icString, 0, 5, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +34, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Name#1/1 - //19: e.Inner#1/1 - //21: e.Tail#1/1 - // ( # ADT_Brackets ( e.Name#1 ) e.Inner#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 5, 2}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icContextSet, 0, 19, 2}, - {refalrts::icContextSet, 0, 21, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 4, 6}, - {refalrts::icChar, 0, ' ', 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icString, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +27, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Tail#1/1 - //14: s.Char#1/1 - // ( # TkChar s.Char#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 4, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icsVarLeft, 0, 14, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 2, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icIdent, 0, 4, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Tail#1/1 - //13: s.Number#1/1 - // ( # TkNumber s.Number#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icsVarLeft, 0, 13, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, ' ', 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Name#1/1 - //11: e.Tail#1/1 - // ( # TkName e.Name#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Tail#1/1 - //15: s.Mode#1/1 - //16: s.Depth#1/1 - //17: e.Index#1/1 - // ( # TkVariable s.Mode#1 e.Index#1 s.Depth#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icsVarLeft, 0, 15, 2}, - {refalrts::icsVarRight, 0, 16, 2}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, ' ', 4}, - {refalrts::icChar, 0, '.', 5}, - {refalrts::icChar, 0, '#', 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Name#1/1 - //11: e.Tail#1/1 - // ( # TkIdentifier e.Name#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[7]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Inner#1/1 - //16: e.Tail#1/1 - // ( # Brackets e.Inner#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Brackets::name, context[2], context[3] ) ) - continue; - context[14] = context[2]; - context[15] = context[3]; - context[16] = context[0]; - context[17] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[4], context[5], " (", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], " )", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Name#1/1 - //19: e.Inner#1/1 - //21: e.Tail#1/1 - // ( # ADT_Brackets ( e.Name#1 ) e.Inner#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_ADT_Brackets::name, context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[17] = context[4]; - context[18] = context[5]; - context[19] = context[2]; - context[20] = context[3]; - context[21] = context[0]; - context[22] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[6], context[7], " [", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[8], ' ' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], " ]", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Tail#1/1 - //14: s.Char#1/1 - // ( # TkChar s.Char#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[2], context[3] ) ) - continue; - context[12] = context[0]; - context[13] = context[1]; - if( ! refalrts::svar_left( context[14], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[4], context[5], " \'", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], TextFromPattern_Char, "TextFromPattern_Char" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[8], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Tail#1/1 - //13: s.Number#1/1 - // ( # TkNumber s.Number#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNumber::name, context[2], context[3] ) ) - continue; - context[11] = context[0]; - context[12] = context[1]; - if( ! refalrts::svar_left( context[13], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[4], ' ' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Name#1/1 - //11: e.Tail#1/1 - // ( # TkName e.Name#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[2], context[3] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[4], context[5], " & ", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Tail#1/1 - //15: s.Mode#1/1 - //16: s.Depth#1/1 - //17: e.Index#1/1 - // ( # TkVariable s.Mode#1 e.Index#1 s.Depth#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[2], context[3] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - if( ! refalrts::svar_left( context[15], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_right( context[16], context[2], context[3] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[4], ' ' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[5], '.' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '#' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Name#1/1 - //11: e.Tail#1/1 - // ( # TkIdentifier e.Name#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkIdentifier::name, context[2], context[3] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[4], context[5], " # ", 3 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Escape(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EscapeChar, "EscapeChar" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Char#1/1 - // s.Char#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Char#1/1 - // s.Char#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], EscapeChar, "EscapeChar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult TextFromPattern_Char(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { TextFromPattern, "TextFromPattern" }, - { TextFromPattern_Char, "TextFromPattern_Char" }, - { Escape, "Escape" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkChar::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Tail#1/1 - //12: s.Char#1/1 - // ( # TkChar s.Char#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icsVarLeft, 0, 12, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +6, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '\'', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Other#1/1 - // e.Other#1 - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Tail#1/1 - //12: s.Char#1/1 - // ( # TkChar s.Char#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[2], context[3] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - if( ! refalrts::svar_left( context[12], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Escape, "Escape" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], TextFromPattern_Char, "TextFromPattern_Char" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '\'' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Other#1/1 - // e.Other#1 - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], TextFromPattern, "TextFromPattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenResult(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { CollectStrings, "CollectStrings" }, - { DoGenResult, "DoGenResult" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: s.BaseContextSize#1/1 - //15: e.Result#1/1 - // s.BaseContextSize#1 e.Result#1 - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: s.BaseContextSize#1/1 - //15: e.Result#1/1 - // s.BaseContextSize#1 e.Result#1 - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[14] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CollectStrings_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { CollectStrings, "CollectStrings" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkString::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Chars#2/1 - //12: e.Tail#2/1 - // ( e.Chars#2 ) e.Tail#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Chars#2/1 - //12: e.Tail#2/1 - // ( e.Chars#2 ) e.Tail#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkString::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CollectStrings(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { CollectStrings, "CollectStrings" }, - { lambda_CollectStrings_0, "lambda_CollectStrings_0" }, - { BuildString, "BuildString" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_ADT_Brackets::name, - & ident_CallBrackets::name, - & ident_Brackets::name, - & ident_TkChar::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +38, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: e.Tail#1/1 - //17: s.Value1#1/1 - //18: s.Value2#1/1 - // ( # TkChar s.Value1#1 ) ( # TkChar s.Value2#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 3, 4}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 17, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icsVarLeft, 0, 18, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +32, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.InBrackets#1/1 - //15: e.Tail#1/1 - // ( # Brackets e.InBrackets#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 4, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +32, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.InBrackets#1/1 - //15: e.Tail#1/1 - // ( # CallBrackets e.InBrackets#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 4, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +32, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.InBrackets#1/1 - //15: e.Tail#1/1 - // ( # ADT_Brackets e.InBrackets#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 4, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: t.OtherTerm#1/1 - //6: e.Tail#1/1 - // t.OtherTerm#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 5, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[5]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.Tail#1/1 - //17: s.Value1#1/1 - //18: s.Value2#1/1 - // ( # TkChar s.Value1#1 ) ( # TkChar s.Value2#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[4], context[5] ) ) - continue; - context[15] = context[0]; - context[16] = context[1]; - if( ! refalrts::svar_left( context[17], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[18], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], BuildString, "BuildString" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], lambda_CollectStrings_0, "lambda_CollectStrings_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.InBrackets#1/1 - //15: e.Tail#1/1 - // ( # Brackets e.InBrackets#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Brackets::name, context[2], context[3] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[4], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.InBrackets#1/1 - //15: e.Tail#1/1 - // ( # CallBrackets e.InBrackets#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CallBrackets::name, context[2], context[3] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CallBrackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[4], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.InBrackets#1/1 - //15: e.Tail#1/1 - // ( # ADT_Brackets e.InBrackets#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_ADT_Brackets::name, context[2], context[3] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_ADT_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[4], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: t.OtherTerm#1/1 - //6: e.Tail#1/1 - // t.OtherTerm#1 e.Tail#1 - if( ! refalrts::tvar_left( context[5], context[0], context[1] ) ) - continue; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], CollectStrings, "CollectStrings" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - res = refalrts::splice_stvar( res, context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult BuildString(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { BuildString, "BuildString" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkChar::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Chars#1/1 - //13: e.Tail#1/1 - //15: s.Value#1/1 - // ( e.Chars#1 ) ( # TkChar s.Value#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Chars#1/1 - //8: e.Tail#1/1 - // ( e.Chars#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 6, 2}, - {refalrts::icContextSet, 0, 8, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Chars#1/1 - //13: e.Tail#1/1 - //15: s.Value#1/1 - // ( e.Chars#1 ) ( # TkChar s.Value#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[4], context[5] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[0]; - context[14] = context[1]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], BuildString, "BuildString" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Chars#1/1 - //8: e.Tail#1/1 - // ( e.Chars#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[2]; - context[7] = context[3]; - context[8] = context[0]; - context[9] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[8], context[9] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoGenResult(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 53 elems - refalrts::Iter context[53]; - refalrts::zeros( context, 53 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoGenResult, "DoGenResult" }, - { Inc, "Inc" }, - { Add, "Add" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdInsertVar::name, - & ident_TkVariable::name, - & ident_CmdInsertElem::name, - & ident_CmdPushStack::name, - & ident_ElCloseCall::name, - & ident_CmdAllocateElem::name, - & ident_CloseCall::name, - & ident_CmdLinkBrackets::name, - & ident_ElCloseADT::name, - & ident_TkCloseADT::name, - & ident_ElCloseBracket::name, - & ident_TkCloseBracket::name, - & ident_TkName::name, - & ident_ElOpenADT::name, - & ident_ADT_Brackets::name, - & ident_ElOpenCall::name, - & ident_CallBrackets::name, - & ident_ElOpenBracket::name, - & ident_Brackets::name, - & ident_CmdInsertRange::name, - & ident_ElString::name, - & ident_TkString::name, - & ident_ElIdent::name, - & ident_TkIdentifier::name, - & ident_ElNumber::name, - & ident_TkNumber::name, - & ident_ElName::name, - & ident_ElChar::name, - & ident_TkChar::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +72, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.Vars#1/1 - //31: e.AllocCommands#1/1 - //33: e.Commands#1/1 - //35: s.Counter#1/1 - //36: e.Result#1/1 - //38: s.Value#1/1 - //39: s.Counter#1/2 - //40: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkChar s.Value#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icsVarLeft, 0, 35, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 28, 8}, - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icsVarLeft, 0, 38, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 39, 35, 0}, - {refalrts::icCopySTVar, 40, 39, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 27, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 2, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 1, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 20, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +71, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.Vars#1/1 - //31: e.AllocCommands#1/1 - //33: e.Commands#1/1 - //35: s.Counter#1/1 - //36: e.Name#1/1 - //38: e.Result#1/1 - //40: s.Counter#1/2 - //41: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkName e.Name#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icsVarLeft, 0, 35, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 12, 8}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 40, 35, 0}, - {refalrts::icCopySTVar, 41, 40, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 26, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 2, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 1, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 20, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +72, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.Vars#1/1 - //31: e.AllocCommands#1/1 - //33: e.Commands#1/1 - //35: s.Counter#1/1 - //36: e.Result#1/1 - //38: s.Number#1/1 - //39: s.Counter#1/2 - //40: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkNumber s.Number#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icsVarLeft, 0, 35, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 25, 8}, - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icsVarLeft, 0, 38, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 39, 35, 0}, - {refalrts::icCopySTVar, 40, 39, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 24, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 2, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 1, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 20, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +71, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.Vars#1/1 - //31: e.AllocCommands#1/1 - //33: e.Commands#1/1 - //35: s.Counter#1/1 - //36: e.Name#1/1 - //38: e.Result#1/1 - //40: s.Counter#1/2 - //41: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkIdentifier e.Name#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icsVarLeft, 0, 35, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 23, 8}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 40, 35, 0}, - {refalrts::icCopySTVar, 41, 40, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 22, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 2, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 1, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 20, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +73, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Vars#1/1 - //32: e.AllocCommands#1/1 - //34: e.Commands#1/1 - //36: s.Counter#1/1 - //37: e.Chars#1/1 - //39: e.Result#1/1 - //41: s.Counter#1/2 - //42: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkString e.Chars#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 6}, - {refalrts::icsVarLeft, 0, 36, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 21, 8}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 41, 36, 0}, - {refalrts::icCopySTVar, 42, 41, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 20, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 19, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 2, 26}, - {refalrts::icInt, 0, 2, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 20, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Vars#1/1 - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.InBrackets#1/1 - //41: e.Result#1/1 - //43: s.Counter#1/2 - //44: s.Counter#1/3 - //45: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # Brackets e.InBrackets#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 6}, - {refalrts::icsVarLeft, 0, 38, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 18, 8}, - {refalrts::icContextSet, 0, 39, 8}, - {refalrts::icContextSet, 0, 41, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 43, 38, 0}, - {refalrts::icCopySTVar, 44, 43, 0}, - {refalrts::icCopySTVar, 45, 44, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 17, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 2, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 1, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 11, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icLinkBrackets, 28, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 20, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Vars#1/1 - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.InBrackets#1/1 - //41: e.Result#1/1 - //43: s.Counter#1/2 - //44: s.Counter#1/3 - //45: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # CallBrackets e.InBrackets#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 6}, - {refalrts::icsVarLeft, 0, 38, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 16, 8}, - {refalrts::icContextSet, 0, 39, 8}, - {refalrts::icContextSet, 0, 41, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 43, 38, 0}, - {refalrts::icCopySTVar, 44, 43, 0}, - {refalrts::icCopySTVar, 45, 44, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 15, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 2, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 25}, - {refalrts::icFunc, 0, 1, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 6, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icLinkBrackets, 28, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 20, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +90, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //37: e.Vars#1/1 - //39: e.AllocCommands#1/1 - //41: e.Commands#1/1 - //43: s.Counter#1/1 - //44: e.Name#1/1 - //46: e.InBrackets#1/1 - //48: e.Result#1/1 - //50: s.Counter#1/2 - //51: s.Counter#1/3 - //52: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # ADT_Brackets ( e.Name#1 ) e.InBrackets#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 37, 2}, - {refalrts::icContextSet, 0, 39, 4}, - {refalrts::icContextSet, 0, 41, 6}, - {refalrts::icsVarLeft, 0, 43, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 14, 8}, - {refalrts::icBracketLeft, 0, 10, 8}, - {refalrts::icContextSet, 0, 44, 10}, - {refalrts::icContextSet, 0, 46, 8}, - {refalrts::icContextSet, 0, 48, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 50, 43, 0}, - {refalrts::icCopySTVar, 51, 50, 0}, - {refalrts::icCopySTVar, 52, 51, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icIdent, 0, 5, 18}, - {refalrts::icIdent, 0, 13, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icIdent, 0, 2, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 27}, - {refalrts::icFunc, 0, 1, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 30}, - {refalrts::icIdent, 0, 12, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 32}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 33}, - {refalrts::icIdent, 0, 9, 34}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 35}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 36}, - {refalrts::icPushStack, 0, 0, 36}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icSpliceEVar, 0, 0, 48}, - {refalrts::icLinkBrackets, 33, 35, 0}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 52}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceEVar, 0, 0, 46}, - {refalrts::icLinkBrackets, 30, 32, 0}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 22, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icLinkBrackets, 23, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 50}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 16, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 17, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +81, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Vars#1/1 - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.Result#1/1 - //41: s.OpenCounter#1/1 - //42: s.Counter#1/2 - //43: s.Counter#1/3 - //44: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkCloseBracket s.OpenCounter#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 6}, - {refalrts::icsVarLeft, 0, 38, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 11, 8}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 42, 38, 0}, - {refalrts::icCopySTVar, 43, 42, 0}, - {refalrts::icCopySTVar, 44, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 10, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 7, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icIdent, 0, 2, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 28}, - {refalrts::icFunc, 0, 1, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icPushStack, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 20, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 24, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +81, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Vars#1/1 - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.Result#1/1 - //41: s.OpenCounter#1/1 - //42: s.Counter#1/2 - //43: s.Counter#1/3 - //44: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkCloseADT s.OpenCounter#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 6}, - {refalrts::icsVarLeft, 0, 38, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 9, 8}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 42, 38, 0}, - {refalrts::icCopySTVar, 43, 42, 0}, - {refalrts::icCopySTVar, 44, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 8, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 7, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icIdent, 0, 2, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 28}, - {refalrts::icFunc, 0, 1, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icPushStack, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 20, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 24, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +88, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //35: e.Vars#1/1 - //37: e.AllocCommands#1/1 - //39: e.Commands#1/1 - //41: s.Counter#1/1 - //42: e.Result#1/1 - //44: s.OpenCounter#1/1 - //45: s.Counter#1/2 - //46: s.Counter#1/3 - //47: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # CloseCall s.OpenCounter#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 35, 2}, - {refalrts::icContextSet, 0, 37, 4}, - {refalrts::icContextSet, 0, 39, 6}, - {refalrts::icsVarLeft, 0, 41, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 6, 8}, - {refalrts::icContextSet, 0, 42, 0}, - {refalrts::icsVarLeft, 0, 44, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 45, 41, 0}, - {refalrts::icCopySTVar, 46, 45, 0}, - {refalrts::icCopySTVar, 47, 46, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 5, 16}, - {refalrts::icIdent, 0, 4, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 3, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icIdent, 0, 3, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 27}, - {refalrts::icIdent, 0, 2, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 31}, - {refalrts::icFunc, 0, 1, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 33}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 34}, - {refalrts::icPushStack, 0, 0, 34}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icPushStack, 0, 0, 33}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 20, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 27, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 24, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 21, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 15, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +87, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.Result#1/1 - //41: s.Mode#1/1 - //42: s.Mode#1/2 - //43: e.Index#1/1 - //45: e.Index#1/2 - //47: e.Vars_B#1/1 - //49: e.Vars_E#1/1 - //51: s.Usings#1/1 - //52: s.Usings#1/2 - // ( e.Vars_B#1 ( s.Usings#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkVariable s.Mode#1 e.Index#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 6}, - {refalrts::icsVarLeft, 0, 38, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 1, 8}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icContextSet, 0, 43, 8}, - {refalrts::icEPrepare, 0, 47, 2}, - {refalrts::icEStart, 0, 47, 2}, - {refalrts::icSave, 0, 12, 2}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::iceRepeatRight, 45, 43, 10}, - {refalrts::icsRepeatRight, 42, 41, 10}, - {refalrts::icContextSet, 0, 49, 12}, - {refalrts::icsVarLeft, 0, 51, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 52, 51, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 1, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icIdent, 0, 0, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 28}, - {refalrts::icFunc, 0, 1, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 33}, - {refalrts::icPushStack, 0, 0, 33}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 25, 32, 0}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 26, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icPushStack, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 52}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 16, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 49}, - {refalrts::icLinkBrackets, 17, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +65, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //26: e.Vars#1/1 - //28: e.AllocCommands#1/1 - //30: e.Commands#1/1 - //32: s.Counter#1/1 - //33: e.Result#1/1 - //35: s.Mode#1/1 - //36: e.Index#1/1 - //38: s.Mode#1/2 - //39: e.Index#1/2 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkVariable s.Mode#1 e.Index#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 26, 2}, - {refalrts::icContextSet, 0, 28, 4}, - {refalrts::icContextSet, 0, 30, 6}, - {refalrts::icsVarLeft, 0, 32, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 1, 8}, - {refalrts::icContextSet, 0, 33, 0}, - {refalrts::icsVarLeft, 0, 35, 8}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 38, 35, 0}, - {refalrts::icCopyEVar, 39, 36, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icInt, 0, 1, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icIdent, 0, 0, 21}, - {refalrts::icInt, 0, 1, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 19, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 12, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 13, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Vars#1/1 - //14: e.AllocCommands#1/1 - //16: e.Commands#1/1 - //18: s.Counter#1/1 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 4}, - {refalrts::icContextSet, 0, 16, 6}, - {refalrts::icsVarLeft, 0, 18, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[14]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.Vars#1/1 - //31: e.AllocCommands#1/1 - //33: e.Commands#1/1 - //35: s.Counter#1/1 - //36: e.Result#1/1 - //38: s.Value#1/1 - //39: s.Counter#1/2 - //40: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkChar s.Value#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[6]; - context[34] = context[7]; - if( ! refalrts::svar_left( context[35], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[8], context[9] ) ) - continue; - context[36] = context[0]; - context[37] = context[1]; - if( ! refalrts::svar_left( context[38], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[39], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[40], context[39])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[20], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.Vars#1/1 - //31: e.AllocCommands#1/1 - //33: e.Commands#1/1 - //35: s.Counter#1/1 - //36: e.Name#1/1 - //38: e.Result#1/1 - //40: s.Counter#1/2 - //41: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkName e.Name#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[6]; - context[34] = context[7]; - if( ! refalrts::svar_left( context[35], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[8], context[9] ) ) - continue; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[40], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[41], context[40])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[20], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.Vars#1/1 - //31: e.AllocCommands#1/1 - //33: e.Commands#1/1 - //35: s.Counter#1/1 - //36: e.Result#1/1 - //38: s.Number#1/1 - //39: s.Counter#1/2 - //40: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkNumber s.Number#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[6]; - context[34] = context[7]; - if( ! refalrts::svar_left( context[35], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNumber::name, context[8], context[9] ) ) - continue; - context[36] = context[0]; - context[37] = context[1]; - if( ! refalrts::svar_left( context[38], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[39], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[40], context[39])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[20], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.Vars#1/1 - //31: e.AllocCommands#1/1 - //33: e.Commands#1/1 - //35: s.Counter#1/1 - //36: e.Name#1/1 - //38: e.Result#1/1 - //40: s.Counter#1/2 - //41: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkIdentifier e.Name#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[6]; - context[34] = context[7]; - if( ! refalrts::svar_left( context[35], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkIdentifier::name, context[8], context[9] ) ) - continue; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[40], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[41], context[40])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[20], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Vars#1/1 - //32: e.AllocCommands#1/1 - //34: e.Commands#1/1 - //36: s.Counter#1/1 - //37: e.Chars#1/1 - //39: e.Result#1/1 - //41: s.Counter#1/2 - //42: s.Counter#1/3 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkString e.Chars#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[30] = context[2]; - context[31] = context[3]; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[6]; - context[35] = context[7]; - if( ! refalrts::svar_left( context[36], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkString::name, context[8], context[9] ) ) - continue; - context[37] = context[8]; - context[38] = context[9]; - context[39] = context[0]; - context[40] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[41], context[36])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[42], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElString::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdInsertRange::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], Add, "Add" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[27], 2UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[20], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Vars#1/1 - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.InBrackets#1/1 - //41: e.Result#1/1 - //43: s.Counter#1/2 - //44: s.Counter#1/3 - //45: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # Brackets e.InBrackets#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[6]; - context[37] = context[7]; - if( ! refalrts::svar_left( context[38], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Brackets::name, context[8], context[9] ) ) - continue; - context[39] = context[8]; - context[40] = context[9]; - context[41] = context[0]; - context[42] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[43], context[38])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[44], context[43])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[45], context[44])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElOpenBracket::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_TkCloseBracket::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::link_brackets( context[28], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[20], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Vars#1/1 - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.InBrackets#1/1 - //41: e.Result#1/1 - //43: s.Counter#1/2 - //44: s.Counter#1/3 - //45: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # CallBrackets e.InBrackets#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[6]; - context[37] = context[7]; - if( ! refalrts::svar_left( context[38], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CallBrackets::name, context[8], context[9] ) ) - continue; - context[39] = context[8]; - context[40] = context[9]; - context[41] = context[0]; - context[42] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[43], context[38])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[44], context[43])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[45], context[44])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElOpenCall::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CloseCall::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::link_brackets( context[28], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[25] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[20], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //37: e.Vars#1/1 - //39: e.AllocCommands#1/1 - //41: e.Commands#1/1 - //43: s.Counter#1/1 - //44: e.Name#1/1 - //46: e.InBrackets#1/1 - //48: e.Result#1/1 - //50: s.Counter#1/2 - //51: s.Counter#1/3 - //52: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # ADT_Brackets ( e.Name#1 ) e.InBrackets#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[37] = context[2]; - context[38] = context[3]; - context[39] = context[4]; - context[40] = context[5]; - context[41] = context[6]; - context[42] = context[7]; - if( ! refalrts::svar_left( context[43], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_ADT_Brackets::name, context[8], context[9] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[8], context[9] ) ) - continue; - context[44] = context[10]; - context[45] = context[11]; - context[46] = context[8]; - context[47] = context[9]; - context[48] = context[0]; - context[49] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[50], context[43])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[51], context[50])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[52], context[51])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[19], & ident_ElOpenADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[24], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[28], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[31], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[32] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[34], & ident_TkCloseADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[35] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[36] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[36] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[36] ); - res = refalrts::splice_evar( res, context[48], context[49] ); - refalrts::link_brackets( context[33], context[35] ); - res = refalrts::splice_elem( res, context[35] ); - res = refalrts::splice_stvar( res, context[52] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[46], context[47] ); - refalrts::link_brackets( context[30], context[32] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[27] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_stvar( res, context[51] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[22], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::link_brackets( context[23], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_stvar( res, context[50] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[16], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[17], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Vars#1/1 - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.Result#1/1 - //41: s.OpenCounter#1/1 - //42: s.Counter#1/2 - //43: s.Counter#1/3 - //44: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkCloseBracket s.OpenCounter#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[6]; - context[37] = context[7]; - if( ! refalrts::svar_left( context[38], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkCloseBracket::name, context[8], context[9] ) ) - continue; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[42], context[38])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[43], context[42])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[44], context[43])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElCloseBracket::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdLinkBrackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[29], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::push_stack( context[30] ); - refalrts::push_stack( context[28] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[20], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[24], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Vars#1/1 - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.Result#1/1 - //41: s.OpenCounter#1/1 - //42: s.Counter#1/2 - //43: s.Counter#1/3 - //44: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkCloseADT s.OpenCounter#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[6]; - context[37] = context[7]; - if( ! refalrts::svar_left( context[38], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkCloseADT::name, context[8], context[9] ) ) - continue; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[42], context[38])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[43], context[42])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[44], context[43])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElCloseADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdLinkBrackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[29], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::push_stack( context[30] ); - refalrts::push_stack( context[28] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[20], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[24], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //35: e.Vars#1/1 - //37: e.AllocCommands#1/1 - //39: e.Commands#1/1 - //41: s.Counter#1/1 - //42: e.Result#1/1 - //44: s.OpenCounter#1/1 - //45: s.Counter#1/2 - //46: s.Counter#1/3 - //47: s.Counter#1/4 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # CloseCall s.OpenCounter#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[35] = context[2]; - context[36] = context[3]; - context[37] = context[4]; - context[38] = context[5]; - context[39] = context[6]; - context[40] = context[7]; - if( ! refalrts::svar_left( context[41], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CloseCall::name, context[8], context[9] ) ) - continue; - context[42] = context[0]; - context[43] = context[1]; - if( ! refalrts::svar_left( context[44], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[45], context[41])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[46], context[45])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[47], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_CmdAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ElCloseCall::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_CmdPushStack::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_CmdPushStack::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[28], & ident_CmdInsertElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[32], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[34] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[34] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - refalrts::push_stack( context[33] ); - refalrts::push_stack( context[31] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[20], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[27], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[24], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[21], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[15], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //34: e.AllocCommands#1/1 - //36: e.Commands#1/1 - //38: s.Counter#1/1 - //39: e.Result#1/1 - //41: s.Mode#1/1 - //42: s.Mode#1/2 - //43: e.Index#1/1 - //45: e.Index#1/2 - //47: e.Vars_B#1/1 - //49: e.Vars_E#1/1 - //51: s.Usings#1/1 - //52: s.Usings#1/2 - // ( e.Vars_B#1 ( s.Usings#1 s.Mode#1 e.Index#1 ) e.Vars_E#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkVariable s.Mode#1 e.Index#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[6]; - context[37] = context[7]; - if( ! refalrts::svar_left( context[38], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - context[43] = context[8]; - context[44] = context[9]; - context[47] = 0; - context[48] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[2]; - context[13] = context[3]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[45], context[46], context[43], context[44], context[10], context[11] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[42], context[41], context[10], context[11] ) ) - continue; - context[49] = context[12]; - context[50] = context[13]; - if( ! refalrts::svar_left( context[51], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[52], context[51])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[27], & ident_CmdInsertVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[29], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[32] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[33] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[33] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_stvar( res, context[38] ); - refalrts::link_brackets( context[25], context[32] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[26], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_stvar( res, context[42] ); - refalrts::push_stack( context[30] ); - refalrts::push_stack( context[28] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[52] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[16], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[49], context[50] ); - refalrts::link_brackets( context[17], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[41] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[51] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[47], context[48], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: e.Vars#1/1 - //28: e.AllocCommands#1/1 - //30: e.Commands#1/1 - //32: s.Counter#1/1 - //33: e.Result#1/1 - //35: s.Mode#1/1 - //36: e.Index#1/1 - //38: s.Mode#1/2 - //39: e.Index#1/2 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 ( # TkVariable s.Mode#1 e.Index#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[26] = context[2]; - context[27] = context[3]; - context[28] = context[4]; - context[29] = context[5]; - context[30] = context[6]; - context[31] = context[7]; - if( ! refalrts::svar_left( context[32], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - context[33] = context[0]; - context[34] = context[1]; - if( ! refalrts::svar_left( context[35], context[8], context[9] ) ) - continue; - context[36] = context[8]; - context[37] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[38], context[35])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[39], context[40], context[36], context[37])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], DoGenResult, "DoGenResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[14], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_CmdInsertVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[22], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_stvar( res, context[32] ); - refalrts::link_brackets( context[19], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[12], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[13], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Vars#1/1 - //14: e.AllocCommands#1/1 - //16: e.Commands#1/1 - //18: s.Counter#1/1 - // ( e.Vars#1 ) ( e.AllocCommands#1 ) ( e.Commands#1 ) s.Counter#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[4]; - context[15] = context[5]; - context[16] = context[6]; - context[17] = context[7]; - if( ! refalrts::svar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[18] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/Lexer.cpp b/bootstrap/Lexer.cpp deleted file mode 100644 index 63e98076..00000000 --- a/bootstrap/Lexer.cpp +++ /dev/null @@ -1,46739 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult Add(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Chr(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult DelAccumulator(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult FastIntFromStr(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult LexFolding(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult LoadFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult MapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Mul(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Reduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult StrFromInt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult StrFromToken(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AddLineNumber(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CComment(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CComment_CheckEnd(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CComment_CheckNested(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CharFromNum(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CppComment(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DigitFromChar(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Directive(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DirectiveTail(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult LinearizeLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Name(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult NormalizeName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult NormalizeToken(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult NormalizeTokens(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Number(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Root(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SL_E_C1(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SL_E_C2(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SL_E_OC1(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SL_E_OC2(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StartComment(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StrDirective(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StringLiteral(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StringLiteral_Escape(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StringLiteral_Escape_Code(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StringLiteral_Escape_OCode(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StringLiteral_Escape_XCode(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StringLiteral_Quote(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StringLiteral_Start(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SwPunctuation(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ValidDirective(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult VariableIndex(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult VariableIndexTail(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult VariableStart(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #Close -template -struct ident_Close { - static const char *name() { - return "Close"; - } -}; - -// identifier #EEnum -template -struct ident_EEnum { - static const char *name() { - return "EEnum"; - } -}; - -// identifier #ESwap -template -struct ident_ESwap { - static const char *name() { - return "ESwap"; - } -}; - -// identifier #Entry -template -struct ident_Entry { - static const char *name() { - return "Entry"; - } -}; - -// identifier #Enum -template -struct ident_Enum { - static const char *name() { - return "Enum"; - } -}; - -// identifier #Extern -template -struct ident_Extern { - static const char *name() { - return "Extern"; - } -}; - -// identifier #Forward -template -struct ident_Forward { - static const char *name() { - return "Forward"; - } -}; - -// identifier #Ident -template -struct ident_Ident { - static const char *name() { - return "Ident"; - } -}; - -// identifier #Open -template -struct ident_Open { - static const char *name() { - return "Open"; - } -}; - -// identifier #Swap -template -struct ident_Swap { - static const char *name() { - return "Swap"; - } -}; - -// identifier #TkChar -template -struct ident_TkChar { - static const char *name() { - return "TkChar"; - } -}; - -// identifier #TkCloseADT -template -struct ident_TkCloseADT { - static const char *name() { - return "TkCloseADT"; - } -}; - -// identifier #TkCloseBlock -template -struct ident_TkCloseBlock { - static const char *name() { - return "TkCloseBlock"; - } -}; - -// identifier #TkCloseBracket -template -struct ident_TkCloseBracket { - static const char *name() { - return "TkCloseBracket"; - } -}; - -// identifier #TkCloseCall -template -struct ident_TkCloseCall { - static const char *name() { - return "TkCloseCall"; - } -}; - -// identifier #TkComma -template -struct ident_TkComma { - static const char *name() { - return "TkComma"; - } -}; - -// identifier #TkDirective -template -struct ident_TkDirective { - static const char *name() { - return "TkDirective"; - } -}; - -// identifier #TkEOF -template -struct ident_TkEOF { - static const char *name() { - return "TkEOF"; - } -}; - -// identifier #TkError -template -struct ident_TkError { - static const char *name() { - return "TkError"; - } -}; - -// identifier #TkIdentMarker -template -struct ident_TkIdentMarker { - static const char *name() { - return "TkIdentMarker"; - } -}; - -// identifier #TkLiteral_BS -template -struct ident_TkLiteral_BS { - static const char *name() { - return "TkLiteral_BS"; - } -}; - -// identifier #TkLiteral_Bell -template -struct ident_TkLiteral_Bell { - static const char *name() { - return "TkLiteral_Bell"; - } -}; - -// identifier #TkLiteral_CarriageReturn -template -struct ident_TkLiteral_CarriageReturn { - static const char *name() { - return "TkLiteral_CarriageReturn"; - } -}; - -// identifier #TkLiteral_Char -template -struct ident_TkLiteral_Char { - static const char *name() { - return "TkLiteral_Char"; - } -}; - -// identifier #TkLiteral_Code -template -struct ident_TkLiteral_Code { - static const char *name() { - return "TkLiteral_Code"; - } -}; - -// identifier #TkLiteral_FF -template -struct ident_TkLiteral_FF { - static const char *name() { - return "TkLiteral_FF"; - } -}; - -// identifier #TkLiteral_NewLine -template -struct ident_TkLiteral_NewLine { - static const char *name() { - return "TkLiteral_NewLine"; - } -}; - -// identifier #TkLiteral_OCode -template -struct ident_TkLiteral_OCode { - static const char *name() { - return "TkLiteral_OCode"; - } -}; - -// identifier #TkLiteral_Tab -template -struct ident_TkLiteral_Tab { - static const char *name() { - return "TkLiteral_Tab"; - } -}; - -// identifier #TkLiteral_VT -template -struct ident_TkLiteral_VT { - static const char *name() { - return "TkLiteral_VT"; - } -}; - -// identifier #TkLiteral_XCode -template -struct ident_TkLiteral_XCode { - static const char *name() { - return "TkLiteral_XCode"; - } -}; - -// identifier #TkName -template -struct ident_TkName { - static const char *name() { - return "TkName"; - } -}; - -// identifier #TkNewLine -template -struct ident_TkNewLine { - static const char *name() { - return "TkNewLine"; - } -}; - -// identifier #TkNumber -template -struct ident_TkNumber { - static const char *name() { - return "TkNumber"; - } -}; - -// identifier #TkOpenADT -template -struct ident_TkOpenADT { - static const char *name() { - return "TkOpenADT"; - } -}; - -// identifier #TkOpenBlock -template -struct ident_TkOpenBlock { - static const char *name() { - return "TkOpenBlock"; - } -}; - -// identifier #TkOpenBracket -template -struct ident_TkOpenBracket { - static const char *name() { - return "TkOpenBracket"; - } -}; - -// identifier #TkOpenCall -template -struct ident_TkOpenCall { - static const char *name() { - return "TkOpenCall"; - } -}; - -// identifier #TkPunctuation -template -struct ident_TkPunctuation { - static const char *name() { - return "TkPunctuation"; - } -}; - -// identifier #TkRedefinition -template -struct ident_TkRedefinition { - static const char *name() { - return "TkRedefinition"; - } -}; - -// identifier #TkReplace -template -struct ident_TkReplace { - static const char *name() { - return "TkReplace"; - } -}; - -// identifier #TkSemicolon -template -struct ident_TkSemicolon { - static const char *name() { - return "TkSemicolon"; - } -}; - -// identifier #TkUnexpected -template -struct ident_TkUnexpected { - static const char *name() { - return "TkUnexpected"; - } -}; - -// identifier #TkVariable -template -struct ident_TkVariable { - static const char *name() { - return "TkVariable"; - } -}; - -// identifier #TokenAccum -template -struct ident_TokenAccum { - static const char *name() { - return "TokenAccum"; - } -}; - -// identifier #TokenError -template -struct ident_TokenError { - static const char *name() { - return "TokenError"; - } -}; - -// identifier #TokenUnexpected -template -struct ident_TokenUnexpected { - static const char *name() { - return "TokenUnexpected"; - } -}; - -// identifier #TokenUnexpectedEOF -template -struct ident_TokenUnexpectedEOF { - static const char *name() { - return "TokenUnexpectedEOF"; - } -}; - -static refalrts::FnResult LinearizeLine(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // ( e.Line#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 5, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '\n', 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // ( e.Line#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[5] = context[2]; - context[6] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[4], '\n' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_LexFolding_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Content#2/1 - // '\357\273\277 e.Content#2 - {refalrts::icCharLeft, 0, static_cast('\357'), 0}, - {refalrts::icCharLeft, 0, static_cast('\273'), 0}, - {refalrts::icCharLeft, 0, static_cast('\277'), 0}, - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Content#2/1 - // e.Content#2 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Content#2/1 - // '\357\273\277 e.Content#2 - if( ! refalrts::char_left( '\357', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\273', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\277', context[0], context[1] ) ) - continue; - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Content#2/1 - // e.Content#2 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult LexFolding(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_LexFolding_0, "lambda_LexFolding_0" }, - { LoadFile, "LoadFile" }, - { LinearizeLine, "LinearizeLine" }, - { Map, "Map" }, - { Fetch, "Fetch" }, - { Root, "Root" }, - { NormalizeTokens, "NormalizeTokens" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //21: e.FileName#1/1 - // e.FileName#1 - {refalrts::icContextSet, 0, 21, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 6, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 4, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 3, 11}, - {refalrts::icFunc, 0, 2, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 1, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.FileName#1/1 - // e.FileName#1 - context[21] = context[0]; - context[22] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], NormalizeTokens, "NormalizeTokens" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], LinearizeLine, "LinearizeLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], LoadFile, "LoadFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], lambda_LexFolding_0, "lambda_LexFolding_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StrDirective(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_Ident::name, - & ident_ESwap::name, - & ident_Swap::name, - & ident_Forward::name, - & ident_Extern::name, - & ident_Enum::name, - & ident_Entry::name, - & ident_EEnum::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"LABEL", 5}, - {"ESWAP", 5}, - {"SWAP", 4}, - {"FORWARD", 7}, - {"EXTERN", 6}, - {"ENUM", 4}, - {"ENTRY", 5}, - {"EENUM", 5} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # EEnum - {refalrts::icIdentLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 7, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Entry - {refalrts::icIdentLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 6, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Enum - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 5, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Extern - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 4, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Forward - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 3, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Swap - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 2, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ESwap - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Ident - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[7]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # EEnum - if( ! refalrts::ident_left( & ident_EEnum::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "EENUM", 5 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Entry - if( ! refalrts::ident_left( & ident_Entry::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "ENTRY", 5 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Enum - if( ! refalrts::ident_left( & ident_Enum::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "ENUM", 4 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Extern - if( ! refalrts::ident_left( & ident_Extern::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "EXTERN", 6 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Forward - if( ! refalrts::ident_left( & ident_Forward::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "FORWARD", 7 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Swap - if( ! refalrts::ident_left( & ident_Swap::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "SWAP", 4 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ESwap - if( ! refalrts::ident_left( & ident_ESwap::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "ESWAP", 5 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Ident - if( ! refalrts::ident_left( & ident_Ident::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "LABEL", 5 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult StrFromToken(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromToken, "StrFromToken" }, - { StrFromInt, "StrFromInt" }, - { StrDirective, "StrDirective" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Close::name, - & ident_Open::name, - & ident_TkRedefinition::name, - & ident_TkVariable::name, - & ident_TkUnexpected::name, - & ident_TkSemicolon::name, - & ident_TkReplace::name, - & ident_TkOpenBracket::name, - & ident_TkOpenBlock::name, - & ident_TkOpenCall::name, - & ident_TkOpenADT::name, - & ident_TkNumber::name, - & ident_TkName::name, - & ident_TkIdentMarker::name, - & ident_TkError::name, - & ident_TkEOF::name, - & ident_TkDirective::name, - & ident_TkComma::name, - & ident_TkCloseBracket::name, - & ident_TkCloseBlock::name, - & ident_TkCloseCall::name, - & ident_TkCloseADT::name, - & ident_TkChar::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"\"^\"", 3}, - {"Unexpected characters <", 23}, - {"\";\"", 3}, - {"\"=\"", 3}, - {"\"(\"", 3}, - {"\"{\"", 3}, - {"\"<\"", 3}, - {"\"[\"", 3}, - {"Number ", 7}, - {"Name ", 5}, - {"\"#\"", 3}, - {"LEXER ERROR: ", 13}, - {"end of file", 11}, - {"\"$", 2}, - {"\",\"", 3}, - {"\")\"", 3}, - {"\"}\"", 3}, - {"\">\"", 3}, - {"\"]\"", 3} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: s.Char#1/1 - // # TkChar s.Char#1 - {refalrts::icIdentLeft, 0, 22, 0}, - {refalrts::icsVarLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '\'', 2}, - {refalrts::icChar, 0, '\'', 3}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceSTVar, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkCloseADT - {refalrts::icIdentLeft, 0, 21, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 18, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkCloseCall - {refalrts::icIdentLeft, 0, 20, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 17, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkCloseBlock - {refalrts::icIdentLeft, 0, 19, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 16, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkCloseBracket - {refalrts::icIdentLeft, 0, 18, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 15, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkComma - {refalrts::icIdentLeft, 0, 17, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 14, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Directive#1/1 - // # TkDirective s.Directive#1 - {refalrts::icIdentLeft, 0, 16, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 13, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icChar, 0, '\"', 7}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkEOF - {refalrts::icIdentLeft, 0, 15, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 12, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: e.Message#1/1 - // # TkError e.Message#1 - {refalrts::icIdentLeft, 0, 14, 0}, - {refalrts::icContextSet, 0, 4, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 11, 2}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkIdentMarker - {refalrts::icIdentLeft, 0, 13, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 10, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: e.Name#1/1 - // # TkName e.Name#1 - {refalrts::icIdentLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 4, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 9, 2}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Number#1/1 - // # TkNumber s.Number#1 - {refalrts::icIdentLeft, 0, 11, 0}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 8, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenADT - {refalrts::icIdentLeft, 0, 10, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 7, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenCall - {refalrts::icIdentLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 6, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenBlock - {refalrts::icIdentLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 5, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenBracket - {refalrts::icIdentLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 4, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkReplace - {refalrts::icIdentLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 3, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkSemicolon - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 2, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +10, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Unexpected#1/1 - // # TkUnexpected e.Unexpected#1 - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 1, 2}, - {refalrts::icChar, 0, '>', 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +10, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //3: s.Mode#1/1 - //4: e.Index#1/1 - // # TkVariable s.Mode#1 e.Index#1 - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icsVarLeft, 0, 3, 0}, - {refalrts::icContextSet, 0, 4, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '.', 2}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icSpliceSTVar, 0, 0, 3}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkRedefinition - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.OpenBracket#1/1 - // # Open s.OpenBracket#1 - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.CloseBracket#1/1 - // # Close s.CloseBracket#1 - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[22]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.Char#1/1 - // # TkChar s.Char#1 - if( ! refalrts::ident_left( & ident_TkChar::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[4], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '\'' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[3], '\'' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_stvar( res, context[4] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkCloseADT - if( ! refalrts::ident_left( & ident_TkCloseADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"]\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkCloseCall - if( ! refalrts::ident_left( & ident_TkCloseCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\">\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkCloseBlock - if( ! refalrts::ident_left( & ident_TkCloseBlock::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"}\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkCloseBracket - if( ! refalrts::ident_left( & ident_TkCloseBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\")\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkComma - if( ! refalrts::ident_left( & ident_TkComma::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\",\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Directive#1/1 - // # TkDirective s.Directive#1 - if( ! refalrts::ident_left( & ident_TkDirective::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"$", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StrDirective, "StrDirective" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '\"' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkEOF - if( ! refalrts::ident_left( & ident_TkEOF::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "end of file", 11 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.Message#1/1 - // # TkError e.Message#1 - if( ! refalrts::ident_left( & ident_TkError::name, context[0], context[1] ) ) - continue; - context[4] = context[0]; - context[5] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "LEXER ERROR: ", 13 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkIdentMarker - if( ! refalrts::ident_left( & ident_TkIdentMarker::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"#\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.Name#1/1 - // # TkName e.Name#1 - if( ! refalrts::ident_left( & ident_TkName::name, context[0], context[1] ) ) - continue; - context[4] = context[0]; - context[5] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "Name ", 5 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Number#1/1 - // # TkNumber s.Number#1 - if( ! refalrts::ident_left( & ident_TkNumber::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "Number ", 7 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenADT - if( ! refalrts::ident_left( & ident_TkOpenADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"[\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenCall - if( ! refalrts::ident_left( & ident_TkOpenCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"<\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenBlock - if( ! refalrts::ident_left( & ident_TkOpenBlock::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"{\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenBracket - if( ! refalrts::ident_left( & ident_TkOpenBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"(\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkReplace - if( ! refalrts::ident_left( & ident_TkReplace::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"=\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkSemicolon - if( ! refalrts::ident_left( & ident_TkSemicolon::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\";\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Unexpected#1/1 - // # TkUnexpected e.Unexpected#1 - if( ! refalrts::ident_left( & ident_TkUnexpected::name, context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "Unexpected characters <", 23 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[4], '>' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //3: s.Mode#1/1 - //4: e.Index#1/1 - // # TkVariable s.Mode#1 e.Index#1 - if( ! refalrts::ident_left( & ident_TkVariable::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[3], context[0], context[1] ) ) - continue; - context[4] = context[0]; - context[5] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '.' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_elem( res, context[2] ); - res = refalrts::splice_stvar( res, context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkRedefinition - if( ! refalrts::ident_left( & ident_TkRedefinition::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "\"^\"", 3 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.OpenBracket#1/1 - // # Open s.OpenBracket#1 - if( ! refalrts::ident_left( & ident_Open::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], StrFromToken, "StrFromToken" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.CloseBracket#1/1 - // # Close s.CloseBracket#1 - if( ! refalrts::ident_left( & ident_Close::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], StrFromToken, "StrFromToken" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult NormalizeName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { NormalizeName, "NormalizeName" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: e.Name_B#1/1 - //10: e.Name_E#1/1 - // e.Name_B#1 '- e.Name_E#1 - {refalrts::icEPrepare, 0, 8, 0}, - {refalrts::icEStart, 0, 8, 0}, - {refalrts::icSave, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icChar, 0, '_', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Name#1/1 - // e.Name#1 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: e.Name_B#1/1 - //10: e.Name_E#1/1 - // e.Name_B#1 '- e.Name_E#1 - context[8] = 0; - context[9] = 0; - refalrts::start_e_loop(); - do { - context[2] = context[0]; - context[3] = context[1]; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], NormalizeName, "NormalizeName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '_' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[8], context[9], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Name#1/1 - // e.Name#1 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult NormalizeToken(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { NormalizeName, "NormalizeName" }, - { SwPunctuation, "SwPunctuation" }, - { FastIntFromStr, "FastIntFromStr" }, - { CharFromNum, "CharFromNum" }, - { Chr, "Chr" }, - { ValidDirective, "ValidDirective" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkError::name, - & ident_TokenUnexpectedEOF::name, - & ident_TkUnexpected::name, - & ident_TokenUnexpected::name, - & ident_TokenError::name, - & ident_TkVariable::name, - & ident_TkPunctuation::name, - & ident_TkNumber::name, - & ident_TkNewLine::name, - & ident_TkName::name, - & ident_TkChar::name, - & ident_TkLiteral_VT::name, - & ident_TkLiteral_FF::name, - & ident_TkLiteral_BS::name, - & ident_TkLiteral_Bell::name, - & ident_TkLiteral_Tab::name, - & ident_TkLiteral_CarriageReturn::name, - & ident_TkLiteral_NewLine::name, - & ident_TkLiteral_XCode::name, - & ident_TkLiteral_OCode::name, - & ident_TkLiteral_Code::name, - & ident_TkLiteral_Char::name, - & ident_TkEOF::name, - & ident_TkDirective::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Unexpected EOF", 14} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Directive#1/1 - // ( # TkDirective e.Directive#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 23, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkEOF ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 22, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 22, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Char#1/1 - // ( # TkLiteral_Char s.Char#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 21, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.DecCode#1/1 - // ( # TkLiteral_Code e.DecCode#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 20, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 4, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icLinkBrackets, 4, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +25, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.OctCode#1/1 - // ( # TkLiteral_OCode e.OctCode#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 19, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icInt, 0, 8, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 4, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +25, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.HexCode#1/1 - // ( # TkLiteral_XCode e.HexCode#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 18, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icInt, 0, 16, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 4, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkLiteral_NewLine 'n' ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 17, 2}, - {refalrts::icCharLeft, 0, static_cast('n'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icChar, 0, '\n', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkLiteral_CarriageReturn 'r' ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 16, 2}, - {refalrts::icCharLeft, 0, static_cast('r'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icChar, 0, '\r', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkLiteral_Tab 't' ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 15, 2}, - {refalrts::icCharLeft, 0, static_cast('t'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icChar, 0, '\t', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkLiteral_Bell 'a' ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 14, 2}, - {refalrts::icCharLeft, 0, static_cast('a'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icChar, 0, '\007', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkLiteral_BS 'b' ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 13, 2}, - {refalrts::icCharLeft, 0, static_cast('b'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icChar, 0, '\010', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkLiteral_FF 'f' ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 12, 2}, - {refalrts::icCharLeft, 0, static_cast('f'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icChar, 0, '\014', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkLiteral_VT 'v' ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 11, 2}, - {refalrts::icCharLeft, 0, static_cast('v'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icChar, 0, '\013', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Name#1/1 - // ( # TkName e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 9, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 9, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 4, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +13, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TkNewLine e.Accumulated#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Accumulated#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 8, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Digits#1/1 - // ( # TkNumber e.Digits#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 7, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 7, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 4, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +22, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Punctuation#1/1 - // ( # TkPunctuation s.Punctuation#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 6, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: s.Type#1/1 - //11: e.Index#1/1 - // ( # TkVariable s.Type#1 '. e.Index#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 5, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icCharLeft, 0, static_cast('.'), 2}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 4, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Unexpected#1/1 - // ( # TkUnexpected e.Unexpected#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Message#1/1 - // ( # TokenError e.Message#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Unexpected#1/1 - // ( # TokenUnexpected e.Unexpected#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # TokenUnexpectedEOF ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[21]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Directive#1/1 - // ( # TkDirective e.Directive#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkDirective::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ValidDirective, "ValidDirective" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkEOF ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkEOF::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Char#1/1 - // ( # TkLiteral_Char s.Char#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_Char::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.DecCode#1/1 - // ( # TkLiteral_Code e.DecCode#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_Code::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Chr, "Chr" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], FastIntFromStr, "FastIntFromStr" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.OctCode#1/1 - // ( # TkLiteral_OCode e.OctCode#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_OCode::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], CharFromNum, "CharFromNum" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[8], 8UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.HexCode#1/1 - // ( # TkLiteral_XCode e.HexCode#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_XCode::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], CharFromNum, "CharFromNum" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[8], 16UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkLiteral_NewLine 'n' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_NewLine::name, context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'n', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\n' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkLiteral_CarriageReturn 'r' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_CarriageReturn::name, context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'r', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\r' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkLiteral_Tab 't' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_Tab::name, context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 't', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\t' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkLiteral_Bell 'a' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_Bell::name, context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'a', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\007' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkLiteral_BS 'b' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_BS::name, context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'b', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\010' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkLiteral_FF 'f' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_FF::name, context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'f', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\014' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkLiteral_VT 'v' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkLiteral_VT::name, context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'v', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\013' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Name#1/1 - // ( # TkName e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], NormalizeName, "NormalizeName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TkNewLine e.Accumulated#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNewLine::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.Accumulated#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkNewLine::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Digits#1/1 - // ( # TkNumber e.Digits#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNumber::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], FastIntFromStr, "FastIntFromStr" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Punctuation#1/1 - // ( # TkPunctuation s.Punctuation#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkPunctuation::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], SwPunctuation, "SwPunctuation" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: s.Type#1/1 - //11: e.Index#1/1 - // ( # TkVariable s.Type#1 '. e.Index#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( '.', context[2], context[3] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkVariable::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], NormalizeName, "NormalizeName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Unexpected#1/1 - // ( # TkUnexpected e.Unexpected#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkUnexpected::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Message#1/1 - // ( # TokenError e.Message#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TokenError::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Unexpected#1/1 - // ( # TokenUnexpected e.Unexpected#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TokenUnexpected::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # TokenUnexpectedEOF ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_TokenUnexpectedEOF::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Unexpected EOF", 14 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CharFromNum_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Mul, "Mul" }, - { Add, "Add" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Base#1/1 - //9: s.Accum#2/1 - //10: s.Next#2/1 - // s.Base#1 s.Accum#2 s.Next#2 - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icsVarLeft, 0, 10, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Base#1/1 - //9: s.Accum#2/1 - //10: s.Next#2/1 - // s.Base#1 s.Accum#2 s.Next#2 - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[10], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Add, "Add" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Mul, "Mul" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[10] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CharFromNum(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 20 elems - refalrts::Iter context[20]; - refalrts::zeros( context, 20 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DigitFromChar, "DigitFromChar" }, - { Map, "Map" }, - { lambda_CharFromNum_0, "lambda_CharFromNum_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Reduce, "Reduce" }, - { Chr, "Chr" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: s.Base#1/1 - //18: e.Chars#1/1 - // s.Base#1 e.Chars#1 - {refalrts::icsVarLeft, 0, 17, 0}, - {refalrts::icContextSet, 0, 18, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 5, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icFunc, 0, 2, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icInt, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 1, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: s.Base#1/1 - //18: e.Chars#1/1 - // s.Base#1 e.Chars#1 - if( ! refalrts::svar_left( context[17], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[0]; - context[19] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Chr, "Chr" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Reduce, "Reduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_CharFromNum_0, "lambda_CharFromNum_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[10], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], DigitFromChar, "DigitFromChar" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_DigitFromChar_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Char#1/1 - //9: s.Char#1/2 - //10: e.Assoc_B#2/1 - //12: s.Digit#2/1 - //13: e.Vars_B#2/1 - // s.Char#1 e.Assoc_B#2 ( s.Digit#2 e.Vars_B#2 s.Char#1 e.Vars_E#2 ) e.Assoc_E#2 - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEPrepare, 0, 10, 0}, - {refalrts::icEStart, 0, 10, 0}, - {refalrts::icSave, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 2, 4}, - // Unused closed variable e.Assoc_E#2 - {refalrts::icsVarLeft, 0, 12, 2}, - {refalrts::icEPrepare, 0, 13, 2}, - {refalrts::icEStart, 0, 13, 2}, - {refalrts::icSave, 0, 6, 2}, - {refalrts::icsRepeatLeft, 9, 8, 6}, - // Unused closed variable e.Vars_E#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icFail, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Char#1/1 - //9: s.Char#1/2 - //10: e.Assoc_B#2/1 - //12: s.Digit#2/1 - //13: e.Vars_B#2/1 - // s.Char#1 e.Assoc_B#2 ( s.Digit#2 e.Vars_B#2 s.Char#1 e.Vars_E#2 ) e.Assoc_E#2 - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = 0; - context[11] = 0; - refalrts::start_e_loop(); - do { - context[4] = context[0]; - context[5] = context[1]; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[4], context[5] ) ) - continue; - // Unused closed variable e.Assoc_E#2 - if( ! refalrts::svar_left( context[12], context[2], context[3] ) ) - continue; - context[13] = 0; - context[14] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[2]; - context[7] = context[3]; - if( ! refalrts::repeated_stvar_left( context[9], context[8], context[6], context[7] ) ) - continue; - // Unused closed variable e.Vars_E#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[13], context[14], context[2], context[3] ) ); - } while ( refalrts::open_evar_advance( context[10], context[11], context[0], context[1] ) ); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DigitFromChar(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 80 elems - refalrts::Iter context[80]; - refalrts::zeros( context, 80 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_DigitFromChar_0, "lambda_DigitFromChar_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Ff", 2}, - {"Ee", 2}, - {"Dd", 2}, - {"Cc", 2}, - {"Bb", 2}, - {"Aa", 2} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //79: s.Char#1/1 - // s.Char#1 - {refalrts::icsVarLeft, 0, 79, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icInt, 0, 0, 5}, - {refalrts::icChar, 0, '0', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icInt, 0, 1, 9}, - {refalrts::icChar, 0, '1', 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icInt, 0, 2, 13}, - {refalrts::icChar, 0, '2', 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icInt, 0, 3, 17}, - {refalrts::icChar, 0, '3', 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icInt, 0, 4, 21}, - {refalrts::icChar, 0, '4', 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icInt, 0, 5, 25}, - {refalrts::icChar, 0, '5', 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icInt, 0, 6, 29}, - {refalrts::icChar, 0, '6', 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 32}, - {refalrts::icInt, 0, 7, 33}, - {refalrts::icChar, 0, '7', 34}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 35}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 36}, - {refalrts::icInt, 0, 8, 37}, - {refalrts::icChar, 0, '8', 38}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 39}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 40}, - {refalrts::icInt, 0, 9, 41}, - {refalrts::icChar, 0, '9', 42}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 43}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 44}, - {refalrts::icInt, 0, 10, 45}, - {refalrts::icString, 0, 5, 46}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 48}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 49}, - {refalrts::icInt, 0, 11, 50}, - {refalrts::icString, 0, 4, 51}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 53}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 54}, - {refalrts::icInt, 0, 12, 55}, - {refalrts::icString, 0, 3, 56}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 58}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 59}, - {refalrts::icInt, 0, 13, 60}, - {refalrts::icString, 0, 2, 61}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 63}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 64}, - {refalrts::icInt, 0, 14, 65}, - {refalrts::icString, 0, 1, 66}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 68}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 69}, - {refalrts::icInt, 0, 15, 70}, - {refalrts::icString, 0, 0, 71}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 73}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 74}, - {refalrts::icFunc, 0, 1, 75}, - {refalrts::icFunc, 0, 0, 76}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 77}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 78}, - {refalrts::icPushStack, 0, 0, 78}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 78}, - {refalrts::icPushStack, 0, 0, 77}, - {refalrts::icPushStack, 0, 0, 74}, - {refalrts::icSpliceElem, 0, 0, 77}, - {refalrts::icSpliceSTVar, 0, 0, 79}, - {refalrts::icSpliceElem, 0, 0, 76}, - {refalrts::icSpliceElem, 0, 0, 75}, - {refalrts::icSpliceElem, 0, 0, 74}, - {refalrts::icLinkBrackets, 69, 73, 0}, - {refalrts::icSpliceElem, 0, 0, 73}, - {refalrts::icSpliceRange, 0, 0, 71}, - {refalrts::icSpliceElem, 0, 0, 70}, - {refalrts::icSpliceElem, 0, 0, 69}, - {refalrts::icLinkBrackets, 64, 68, 0}, - {refalrts::icSpliceElem, 0, 0, 68}, - {refalrts::icSpliceRange, 0, 0, 66}, - {refalrts::icSpliceElem, 0, 0, 65}, - {refalrts::icSpliceElem, 0, 0, 64}, - {refalrts::icLinkBrackets, 59, 63, 0}, - {refalrts::icSpliceElem, 0, 0, 63}, - {refalrts::icSpliceRange, 0, 0, 61}, - {refalrts::icSpliceElem, 0, 0, 60}, - {refalrts::icSpliceElem, 0, 0, 59}, - {refalrts::icLinkBrackets, 54, 58, 0}, - {refalrts::icSpliceElem, 0, 0, 58}, - {refalrts::icSpliceRange, 0, 0, 56}, - {refalrts::icSpliceElem, 0, 0, 55}, - {refalrts::icSpliceElem, 0, 0, 54}, - {refalrts::icLinkBrackets, 49, 53, 0}, - {refalrts::icSpliceElem, 0, 0, 53}, - {refalrts::icSpliceRange, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 50}, - {refalrts::icSpliceElem, 0, 0, 49}, - {refalrts::icLinkBrackets, 44, 48, 0}, - {refalrts::icSpliceElem, 0, 0, 48}, - {refalrts::icSpliceRange, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 44}, - {refalrts::icLinkBrackets, 40, 43, 0}, - {refalrts::icSpliceElem, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 40}, - {refalrts::icLinkBrackets, 36, 39, 0}, - {refalrts::icSpliceElem, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icLinkBrackets, 32, 35, 0}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icLinkBrackets, 28, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 24, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 16, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 12, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //79: s.Char#1/1 - // s.Char#1 - if( ! refalrts::svar_left( context[79], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[5], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[9], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[10], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[13], 2UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[14], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[17], 3UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[18], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[21], 4UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[22], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[25], 5UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[26], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[29], 6UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[30], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[32] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[33], 7UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[34], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[35] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[36] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[37], 8UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[38], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[39] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[40] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[41], 9UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[42], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[43] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[44] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[45], 10UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[46], context[47], "Aa", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[48] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[49] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[50], 11UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[51], context[52], "Bb", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[53] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[54] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[55], 12UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[56], context[57], "Cc", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[58] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[59] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[60], 13UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[61], context[62], "Dd", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[63] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[64] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[65], 14UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[66], context[67], "Ee", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[68] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[69] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[70], 15UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[71], context[72], "Ff", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[73] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[74] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[75], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[76], lambda_DigitFromChar_0, "lambda_DigitFromChar_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[77] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[78] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[78] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[78] ); - refalrts::push_stack( context[77] ); - refalrts::push_stack( context[74] ); - res = refalrts::splice_elem( res, context[77] ); - res = refalrts::splice_stvar( res, context[79] ); - res = refalrts::splice_elem( res, context[76] ); - res = refalrts::splice_elem( res, context[75] ); - res = refalrts::splice_elem( res, context[74] ); - refalrts::link_brackets( context[69], context[73] ); - res = refalrts::splice_elem( res, context[73] ); - res = refalrts::splice_evar( res, context[71], context[72] ); - res = refalrts::splice_elem( res, context[70] ); - res = refalrts::splice_elem( res, context[69] ); - refalrts::link_brackets( context[64], context[68] ); - res = refalrts::splice_elem( res, context[68] ); - res = refalrts::splice_evar( res, context[66], context[67] ); - res = refalrts::splice_elem( res, context[65] ); - res = refalrts::splice_elem( res, context[64] ); - refalrts::link_brackets( context[59], context[63] ); - res = refalrts::splice_elem( res, context[63] ); - res = refalrts::splice_evar( res, context[61], context[62] ); - res = refalrts::splice_elem( res, context[60] ); - res = refalrts::splice_elem( res, context[59] ); - refalrts::link_brackets( context[54], context[58] ); - res = refalrts::splice_elem( res, context[58] ); - res = refalrts::splice_evar( res, context[56], context[57] ); - res = refalrts::splice_elem( res, context[55] ); - res = refalrts::splice_elem( res, context[54] ); - refalrts::link_brackets( context[49], context[53] ); - res = refalrts::splice_elem( res, context[53] ); - res = refalrts::splice_evar( res, context[51], context[52] ); - res = refalrts::splice_elem( res, context[50] ); - res = refalrts::splice_elem( res, context[49] ); - refalrts::link_brackets( context[44], context[48] ); - res = refalrts::splice_elem( res, context[48] ); - res = refalrts::splice_evar( res, context[46], context[47] ); - res = refalrts::splice_elem( res, context[45] ); - res = refalrts::splice_elem( res, context[44] ); - refalrts::link_brackets( context[40], context[43] ); - res = refalrts::splice_elem( res, context[43] ); - res = refalrts::splice_elem( res, context[42] ); - res = refalrts::splice_elem( res, context[41] ); - res = refalrts::splice_elem( res, context[40] ); - refalrts::link_brackets( context[36], context[39] ); - res = refalrts::splice_elem( res, context[39] ); - res = refalrts::splice_elem( res, context[38] ); - res = refalrts::splice_elem( res, context[37] ); - res = refalrts::splice_elem( res, context[36] ); - refalrts::link_brackets( context[32], context[35] ); - res = refalrts::splice_elem( res, context[35] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_elem( res, context[32] ); - refalrts::link_brackets( context[28], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[24], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[16], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[12], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ValidDirective(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkError::name, - & ident_Ident::name, - & ident_TkDirective::name, - & ident_ESwap::name, - & ident_Swap::name, - & ident_Forward::name, - & ident_Extern::name, - & ident_Entry::name, - & ident_EEnum::name, - & ident_Enum::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Unknown directive $", 19} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 'ENUM' - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icCharLeft, 0, static_cast('U'), 0}, - {refalrts::icCharLeft, 0, static_cast('M'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icIdent, 0, 9, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 'EENUM' - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icCharLeft, 0, static_cast('U'), 0}, - {refalrts::icCharLeft, 0, static_cast('M'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icIdent, 0, 8, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 'ENTRY' - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icCharLeft, 0, static_cast('T'), 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icCharLeft, 0, static_cast('Y'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icIdent, 0, 7, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 'EXTERN' - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icCharLeft, 0, static_cast('X'), 0}, - {refalrts::icCharLeft, 0, static_cast('T'), 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icIdent, 0, 6, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 'FORWARD' - {refalrts::icCharLeft, 0, static_cast('F'), 0}, - {refalrts::icCharLeft, 0, static_cast('O'), 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icIdent, 0, 5, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 'SWAP' - {refalrts::icCharLeft, 0, static_cast('S'), 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icCharLeft, 0, static_cast('P'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icIdent, 0, 4, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 'ESWAP' - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icCharLeft, 0, static_cast('S'), 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icCharLeft, 0, static_cast('P'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icIdent, 0, 3, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // 'LABEL' - {refalrts::icCharLeft, 0, static_cast('L'), 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icCharLeft, 0, static_cast('B'), 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icCharLeft, 0, static_cast('L'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 2, 3}, - {refalrts::icIdent, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Other#1/1 - // e.Other#1 - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 0, 3}, - {refalrts::icString, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 2, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[8]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 'ENUM' - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'U', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'M', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_Enum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 'EENUM' - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'U', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'M', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_EEnum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 'ENTRY' - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'T', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Y', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_Entry::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 'EXTERN' - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'X', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'T', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_Extern::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 'FORWARD' - if( ! refalrts::char_left( 'F', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'O', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_Forward::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 'SWAP' - if( ! refalrts::char_left( 'S', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'P', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_Swap::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 'ESWAP' - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'S', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'P', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_ESwap::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // 'LABEL' - if( ! refalrts::char_left( 'L', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'B', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'L', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_Ident::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Other#1/1 - // e.Other#1 - context[7] = context[0]; - context[8] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_TkError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[4], context[5], "Unknown directive $", 19 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SwPunctuation(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 3 elems - refalrts::Iter context[3]; - refalrts::zeros( context, 3 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkRedefinition::name, - & ident_TkIdentMarker::name, - & ident_TkCloseADT::name, - & ident_TkOpenADT::name, - & ident_TkSemicolon::name, - & ident_TkComma::name, - & ident_TkReplace::name, - & ident_TkCloseBracket::name, - & ident_TkOpenBracket::name, - & ident_TkCloseBlock::name, - & ident_TkOpenBlock::name, - & ident_TkCloseCall::name, - & ident_TkOpenCall::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '<' - {refalrts::icCharLeft, 0, static_cast('<'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 12, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '>' - {refalrts::icCharLeft, 0, static_cast('>'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 11, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '{' - {refalrts::icCharLeft, 0, static_cast('{'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 10, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '}' - {refalrts::icCharLeft, 0, static_cast('}'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 9, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '(' - {refalrts::icCharLeft, 0, static_cast('('), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 8, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ')' - {refalrts::icCharLeft, 0, static_cast(')'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 7, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '=' - {refalrts::icCharLeft, 0, static_cast('='), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 6, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ',' - {refalrts::icCharLeft, 0, static_cast(','), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 5, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ';' - {refalrts::icCharLeft, 0, static_cast(';'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 4, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '[' - {refalrts::icCharLeft, 0, static_cast('['), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 3, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ']' - {refalrts::icCharLeft, 0, static_cast(']'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 2, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '#' - {refalrts::icCharLeft, 0, static_cast('#'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 1, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '^' - {refalrts::icCharLeft, 0, static_cast('^'), 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[12]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '<' - if( ! refalrts::char_left( '<', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkOpenCall::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '>' - if( ! refalrts::char_left( '>', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkCloseCall::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '{' - if( ! refalrts::char_left( '{', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkOpenBlock::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '}' - if( ! refalrts::char_left( '}', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkCloseBlock::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '(' - if( ! refalrts::char_left( '(', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkOpenBracket::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ')' - if( ! refalrts::char_left( ')', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkCloseBracket::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '=' - if( ! refalrts::char_left( '=', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkReplace::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ',' - if( ! refalrts::char_left( ',', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkComma::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ';' - if( ! refalrts::char_left( ';', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkSemicolon::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '[' - if( ! refalrts::char_left( '[', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkOpenADT::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ']' - if( ! refalrts::char_left( ']', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkCloseADT::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '#' - if( ! refalrts::char_left( '#', context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkIdentMarker::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '^' - if( ! refalrts::char_left( '^', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkRedefinition::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AddLineNumber(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Inc, "Inc" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkNewLine::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.LineNumber#1/1 - // s.LineNumber#1 ( # TkNewLine ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: s.LineNumber#1/1 - //7: s.TokType#1/1 - //8: e.Info#1/1 - //10: s.LineNumber#1/2 - // s.LineNumber#1 ( s.TokType#1 e.Info#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 10, 6, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.LineNumber#1/1 - // s.LineNumber#1 ( # TkNewLine ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNewLine::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.LineNumber#1/1 - //7: s.TokType#1/1 - //8: e.Info#1/1 - //10: s.LineNumber#1/2 - // s.LineNumber#1 ( s.TokType#1 e.Info#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[10], context[6])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult NormalizeTokens(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { NormalizeToken, "NormalizeToken" }, - { Map, "Map" }, - { AddLineNumber, "AddLineNumber" }, - { MapReduce, "MapReduce" }, - { DelAccumulator, "DelAccumulator" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Tokens#1/1 - // e.Tokens#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 4, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icFunc, 0, 2, 6}, - {refalrts::icInt, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Tokens#1/1 - // e.Tokens#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DelAccumulator, "DelAccumulator" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], MapReduce, "MapReduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], AddLineNumber, "AddLineNumber" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[7], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], NormalizeToken, "NormalizeToken" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Root(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StartComment, "StartComment" }, - { StringLiteral_Start, "StringLiteral_Start" }, - { Directive, "Directive" }, - { Number, "Number" }, - { VariableStart, "VariableStart" }, - { Name, "Name" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkUnexpected::name, - & ident_TkEOF::name, - & ident_TkNewLine::name, - & ident_TkPunctuation::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) ' e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast(' '), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '\t e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\t'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '\r e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\r'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '< e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('<'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '<', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '> e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('>'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '>', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '( e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('('), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '(', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) ') e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast(')'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, ')', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '{ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('{'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '{', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '} e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('}'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '}', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '[ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('['), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '[', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '] e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast(']'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, ']', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '= e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('='), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '=', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '; e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast(';'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, ';', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) ', e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast(','), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, ',', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '# e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('#'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '#', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '^ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('^'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, '^', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'A', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('B'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'B', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('C'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'C', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'D', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'E', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('F'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'F', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('G'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'G', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('H'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'H', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('I'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'I', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('J'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'J', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('K'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'K', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('L'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'L', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('M'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'M', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'N', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('O'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'O', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('P'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'P', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'R', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('S'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'S', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('T'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'T', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('U'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'U', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('V'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'V', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'W', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('X'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'X', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 's e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('s'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 's', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('e'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'e', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('t'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 't', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '8', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '9', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '$ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('$'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\''), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '/ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('/'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '/', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\n'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 5, 5}, - {refalrts::icChar, 0, '\n', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: s.Any#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) s.Any#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[62]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) ' e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( ' ', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '\t e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\t', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '\r e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\r', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '< e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '<', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '<' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '> e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '>', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '>' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '( e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '(', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '(' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) ') e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( ')', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], ')' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '{ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '{', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '{' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '} e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '}', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '}' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '[ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '[', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '[' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '] e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( ']', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], ']' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '= e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '=', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '=' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '; e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( ';', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], ';' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) ', e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( ',', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], ',' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '# e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '#', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '#' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '^ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '^', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkPunctuation::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '^' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'A' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'B', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'B' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'C', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'C' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'D' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'E' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'F', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'F' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'G', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'G' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'H', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'H' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'I', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'I' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'J', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'J' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'K', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'K' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'L', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'L' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'M', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'M' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'N' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'O', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'O' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'P', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'P' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'R' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'S', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'S' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'T', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'T' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'U', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'U' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'V', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'V' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'W' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'X', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'X' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 's e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 's', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableStart, "VariableStart" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 's' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'e', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableStart, "VariableStart" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 't', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableStart, "VariableStart" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '$ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '$', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Directive, "Directive" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\'', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Start, "StringLiteral_Start" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '/ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '/', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StartComment, "StartComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '/' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\n', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkNewLine::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\n' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: s.Any#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) s.Any#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - continue; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Name(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { Name, "Name" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkName::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '8', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '9', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('a'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'a', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('b'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'b', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'c e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('c'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'c', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('d'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'd', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('e'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'e', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('f'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'f', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'g e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('g'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'g', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'h e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('h'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'h', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'i e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('i'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'i', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'j e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('j'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'j', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'k e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('k'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'k', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'l e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('l'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'l', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'm e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('m'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'm', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('n'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'n', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'o e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('o'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'o', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'p e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('p'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'p', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'r e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('r'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'r', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 's e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('s'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 's', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('t'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 't', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'u e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('u'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'u', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'v e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('v'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'v', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'w e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('w'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'w', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'x e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('x'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'x', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'A', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('B'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'B', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('C'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'C', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'D', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'E', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('F'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'F', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('G'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'G', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('H'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'H', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('I'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'I', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('J'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'J', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('K'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'K', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('L'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'L', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('M'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'M', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'N', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('O'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'O', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('P'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'P', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'R', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('S'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'S', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('T'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'T', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('U'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'U', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('V'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'V', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'W', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('X'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'X', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '_ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('_'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '_', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '- e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '-', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[66]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'a', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'a' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'b', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'b' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'c e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'c', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'c' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'd', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'd' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'e', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'f', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'f' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'g e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'g', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'g' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'h e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'h', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'h' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'i e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'i', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'i' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'j e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'j', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'j' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'k e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'k', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'k' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'l e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'l', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'l' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'm e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'm', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'm' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'n', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'n' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'o e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'o', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'o' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'p e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'p', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'p' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'r e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'r', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'r' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 's e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 's', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 's' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 't', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'u e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'u', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'u' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'v e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'v', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'v' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'w e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'w', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'w' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'x e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'x', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'x' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'A' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'B', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'B' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'C', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'C' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'D' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'E' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'F', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'F' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'G', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'G' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'H', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'H' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'I', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'I' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'J', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'J' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'K', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'K' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'L', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'L' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'M', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'M' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'N' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'O', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'O' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'P', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'P' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'R' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'S', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'S' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'T', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'T' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'U', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'U' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'V', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'V' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'W' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'X', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'X' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '_ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '_', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '_' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '- e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Name, "Name" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '-' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult VariableStart(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { VariableIndex, "VariableIndex" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TokenError::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Expected dot", 12} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '. e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('.'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '.', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '. e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '.', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndex, "VariableIndex" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '.' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Expected dot", 12 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Number(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { Number, "Number" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkNumber::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '8', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '9', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[12]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Number, "Number" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Directive(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { DirectiveTail, "DirectiveTail" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TokenError::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Expected directive name", 23} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'A', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('B'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'B', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('C'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'C', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'D', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'E', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('F'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'F', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('G'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'G', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('H'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'H', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('I'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'I', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('J'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'J', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('K'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'K', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('L'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'L', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('M'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'M', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'N', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('O'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'O', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('P'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'P', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'R', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('S'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'S', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('T'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'T', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('U'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'U', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('V'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'V', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'W', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('X'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'X', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[28]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'A' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'B', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'B' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'C', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'C' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'D' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'E' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'F', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'F' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'G', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'G' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'H', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'H' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'I', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'I' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'J', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'J' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'K', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'K' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'L', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'L' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'M', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'M' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'N' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'O', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'O' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'P', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'P' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'R' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'S', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'S' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'T', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'T' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'U', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'U' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'V', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'V' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'W' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'X', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'X' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Expected directive name", 23 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StringLiteral_Start(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_Char::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\''), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '\'', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +21, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Accum#1/1 - //11: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\'', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Char::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\'' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Accum#1/1 - //11: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StartComment(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { CppComment, "CppComment" }, - { CComment, "CComment" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkUnexpected::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '* e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('*'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '/ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('/'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '* e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '*', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CComment, "CComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '/ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '/', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CppComment, "CppComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult VariableIndex(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { VariableIndexTail, "VariableIndexTail" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TokenError::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Expected variable name", 22} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '8', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '9', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('a'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'a', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('b'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'b', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'c e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('c'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'c', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('d'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'd', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('e'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'e', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('f'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'f', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'g e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('g'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'g', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'h e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('h'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'h', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'i e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('i'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'i', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'j e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('j'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'j', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'k e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('k'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'k', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'l e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('l'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'l', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'm e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('m'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'm', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('n'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'n', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'o e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('o'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'o', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'p e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('p'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'p', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'r e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('r'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'r', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 's e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('s'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 's', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('t'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 't', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'u e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('u'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'u', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'v e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('v'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'v', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'w e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('w'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'w', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'x e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('x'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'x', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'A', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('B'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'B', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('C'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'C', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'D', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'E', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('F'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'F', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('G'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'G', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('H'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'H', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('I'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'I', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('J'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'J', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('K'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'K', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('L'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'L', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('M'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'M', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'N', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('O'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'O', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('P'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'P', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'R', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('S'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'S', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('T'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'T', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('U'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'U', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('V'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'V', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'W', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('X'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'X', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '_ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('_'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '_', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '- e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '-', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[66]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'a', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'a' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'b', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'b' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'c e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'c', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'c' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'd', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'd' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'e', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'f', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'f' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'g e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'g', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'g' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'h e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'h', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'h' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'i e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'i', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'i' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'j e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'j', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'j' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'k e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'k', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'k' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'l e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'l', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'l' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'm e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'm', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'm' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'n', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'n' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'o e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'o', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'o' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'p e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'p', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'p' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'r e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'r', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'r' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 's e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 's', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 's' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 't', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'u e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'u', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'u' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'v e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'v', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'v' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'w e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'w', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'w' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'x e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'x', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'x' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'A' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'B', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'B' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'C', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'C' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'D' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'E' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'F', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'F' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'G', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'G' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'H', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'H' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'I', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'I' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'J', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'J' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'K', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'K' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'L', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'L' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'M', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'M' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'N' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'O', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'O' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'P', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'P' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'R' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'S', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'S' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'T', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'T' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'U', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'U' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'V', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'V' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'W' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'X', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'X' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '_ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '_', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '_' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '- e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '-' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Expected variable name", 22 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DirectiveTail(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { DirectiveTail, "DirectiveTail" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkDirective::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'A', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('B'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'B', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('C'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'C', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'D', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'E', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('F'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'F', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('G'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'G', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('H'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'H', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('I'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'I', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('J'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'J', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('K'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'K', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('L'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'L', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('M'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'M', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'N', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('O'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'O', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('P'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'P', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'R', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('S'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'S', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('T'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'T', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('U'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'U', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('V'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'V', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'W', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('X'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'X', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[28]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'A' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'B', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'B' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'C', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'C' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'D' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'E' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'F', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'F' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'G', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'G' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'H', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'H' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'I', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'I' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'J', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'J' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'K', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'K' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'L', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'L' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'M', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'M' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'N' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'O', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'O' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'P', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'P' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'R' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'S', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'S' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'T', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'T' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'U', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'U' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'V', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'V' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'W' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'X', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'X' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DirectiveTail, "DirectiveTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkDirective::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StringLiteral(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" }, - { StringLiteral_Quote, "StringLiteral_Quote" }, - { StringLiteral_Escape, "StringLiteral_Escape" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_Char::name, - & ident_TokenError::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Unexpected EOF in string literal", 32}, - {"Unclosed quote", 14} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '\\ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\\'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\''), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\n'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: s.Any#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) s.Any#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[6]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '\\ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\\', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape, "StringLiteral_Escape" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\'', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Quote, "StringLiteral_Quote" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\n', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Unclosed quote", 14 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Unexpected EOF in string literal", 32 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: s.Any#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) s.Any#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - continue; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Char::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CComment(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { CComment, "CComment" }, - { CComment_CheckEnd, "CComment_CheckEnd" }, - { CComment_CheckNested, "CComment_CheckNested" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TokenError::name, - & ident_TkNewLine::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Unexpected EOF: unclosed comment", 32} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '/ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('/'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '* e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('*'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\n'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icChar, 0, '\n', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Any#1/1 - //10: e.Text#1/1 - // ( e.Accum#1 ) s.Any#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[6]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '/ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '/', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CComment_CheckNested, "CComment_CheckNested" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '* e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '*', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CComment_CheckEnd, "CComment_CheckEnd" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\n', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkNewLine::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\n' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], CComment, "CComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Any#1/1 - //10: e.Text#1/1 - // ( e.Accum#1 ) s.Any#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CComment, "CComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Unexpected EOF: unclosed comment", 32 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CppComment(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { CppComment, "CppComment" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkEOF::name, - & ident_TkNewLine::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\n'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icChar, 0, '\n', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Any#1/1 - //10: e.Text#1/1 - // ( e.Accum#1 ) s.Any#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\n', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkNewLine::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\n' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Any#1/1 - //10: e.Text#1/1 - // ( e.Accum#1 ) s.Any#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CppComment, "CppComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult VariableIndexTail(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { VariableIndexTail, "VariableIndexTail" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkVariable::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '8', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '9', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('a'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'a', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('b'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'b', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'c e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('c'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'c', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('d'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'd', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('e'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'e', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('f'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'f', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'g e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('g'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'g', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'h e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('h'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'h', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'i e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('i'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'i', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'j e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('j'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'j', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'k e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('k'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'k', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'l e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('l'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'l', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'm e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('m'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'm', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('n'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'n', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'o e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('o'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'o', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'p e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('p'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'p', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'r e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('r'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'r', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 's e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('s'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 's', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('t'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 't', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'u e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('u'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'u', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'v e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('v'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'v', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'w e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('w'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'w', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'x e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('x'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'x', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'A', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('B'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'B', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('C'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'C', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'D', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'E', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('F'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'F', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('G'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'G', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('H'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'H', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('I'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'I', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('J'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'J', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('K'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'K', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('L'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'L', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('M'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'M', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('N'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'N', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('O'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'O', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('P'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'P', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Q'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Q', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('R'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'R', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('S'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'S', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('T'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'T', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('U'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'U', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('V'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'V', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('W'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'W', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('X'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'X', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Y'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Y', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('Z'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'Z', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '_ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('_'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '_', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '- e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '-', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[66]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'a', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'a' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'b', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'b' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'c e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'c', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'c' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'd', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'd' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'e', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'f', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'f' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'g e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'g', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'g' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'h e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'h', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'h' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'i e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'i', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'i' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'j e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'j', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'j' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'k e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'k', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'k' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'l e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'l', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'l' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'm e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'm', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'm' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'n', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'n' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'o e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'o', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'o' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'p e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'p', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'p' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'r e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'r', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'r' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 's e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 's', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 's' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 't', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'u e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'u', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'u' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'v e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'v', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'v' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'w e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'w', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'w' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'x e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'x', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'x' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'A' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'B', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'B' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'C', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'C' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'D' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'E' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'F', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'F' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'G e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'G', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'G' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'H e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'H', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'H' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'I e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'I', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'I' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'J e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'J', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'J' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'K e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'K', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'K' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'L e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'L', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'L' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'M e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'M', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'M' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'N e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'N', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'N' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'O e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'O', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'O' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'P e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'P', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'P' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Q e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Q', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Q' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'R e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'R', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'R' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'S e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'S', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'S' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'T e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'T', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'T' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'U e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'U', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'U' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'V e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'V', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'V' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'W e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'W', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'W' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'X', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'X' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Y e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Y', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Y' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'Z e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'Z', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'Z' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '_ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '_', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '_' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '- e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], VariableIndexTail, "VariableIndexTail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '-' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkVariable::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StringLiteral_Escape(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" }, - { StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" }, - { StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" }, - { StringLiteral_Escape_Code, "StringLiteral_Escape_Code" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TokenError::name, - & ident_TkLiteral_Char::name, - & ident_TkLiteral_VT::name, - & ident_TkLiteral_FF::name, - & ident_TkLiteral_BS::name, - & ident_TkLiteral_Bell::name, - & ident_TkLiteral_Tab::name, - & ident_TkLiteral_CarriageReturn::name, - & ident_TkLiteral_NewLine::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Unexpected escape sequence", 26}, - {"Unclosed quote", 14} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('n'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 11, 5}, - {refalrts::icChar, 0, 'n', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'r e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('r'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 10, 5}, - {refalrts::icChar, 0, 'r', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('t'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 9, 5}, - {refalrts::icChar, 0, 't', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('a'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 8, 5}, - {refalrts::icChar, 0, 'a', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('b'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 7, 5}, - {refalrts::icChar, 0, 'b', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('f'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icChar, 0, 'f', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'v e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('v'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 5, 5}, - {refalrts::icChar, 0, 'v', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\\ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\\'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icChar, 0, '\\', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\''), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icChar, 0, '\'', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\" e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\"'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icChar, 0, '\"', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('d'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) 'x e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('x'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('X'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\n'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[25]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'n', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_NewLine::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 'n' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'r e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'r', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_CarriageReturn::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 'r' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 't e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 't', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Tab::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 't' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'a', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Bell::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 'a' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'b', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_BS::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 'b' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'f', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_FF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 'f' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) 'v e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'v', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_VT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], 'v' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\\ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\\', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Char::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\\' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\'', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Char::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\'' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\" e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\"', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Char::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\"' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'd', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_Code, "StringLiteral_Escape_Code" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_Code, "StringLiteral_Escape_Code" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_OCode, "StringLiteral_Escape_OCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) 'x e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'x', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) 'X e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'X', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Text#1/1 - // ( e.Accum#1 ) '\n e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\n', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Unclosed quote", 14 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Unexpected escape sequence", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StringLiteral_Quote(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_Char::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('\''), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '\'', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +21, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Accum#1/1 - //11: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '\' e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '\'', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Char::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\'' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Accum#1/1 - //11: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CComment_CheckNested(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { CComment, "CComment" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TokenError::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Nested comments is disabled", 27} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Text#1/1 - // ( e.Accum#1 ) '* e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('*'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +21, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Accum#1/1 - //11: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Text#1/1 - // ( e.Accum#1 ) '* e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '*', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Nested comments is disabled", 27 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], CComment, "CComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Accum#1/1 - //11: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CComment, "CComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CComment_CheckEnd(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { CComment, "CComment" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Text#1/1 - // ( e.Accum#1 ) '/ e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('/'), 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +21, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Accum#1/1 - //11: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Text#1/1 - // ( e.Accum#1 ) '/ e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '/', context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Accum#1/1 - //11: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CComment, "CComment" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StringLiteral_Escape_Code(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" }, - { SL_E_C1, "SL_E_C1" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TokenError::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Expected decimal digit", 22} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '8', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '9', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[12]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C1, "SL_E_C1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Expected decimal digit", 22 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StringLiteral_Escape_OCode(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" }, - { SL_E_OC1, "SL_E_OC1" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_OCode::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[10]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC1, "SL_E_OC1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC1, "SL_E_OC1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC1, "SL_E_OC1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC1, "SL_E_OC1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC1, "SL_E_OC1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC1, "SL_E_OC1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC1, "SL_E_OC1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC1, "SL_E_OC1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StringLiteral_Escape_XCode(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" }, - { StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_XCode::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '8', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '9', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('A'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'A', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('B'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'B', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('C'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'C', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('D'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'D', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('E'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'E', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('F'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'F', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('a'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'a', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('b'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'b', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'c e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('c'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'c', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('d'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'd', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('e'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'e', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('f'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, 'f', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[24]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'A e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'A', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'A' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'B e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'B', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'B' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'C e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'C', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'C' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'D e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'D', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'D' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'E e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'E', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'E' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'F e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'F', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'F' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'a e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'a', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'a' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'b e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'b', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'b' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'c e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'c', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'c' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'd e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'd', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'd' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'e e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'e', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) 'f e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'f', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], StringLiteral_Escape_XCode, "StringLiteral_Escape_XCode" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], 'f' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_XCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SL_E_C1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" }, - { SL_E_C2, "SL_E_C2" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_Code::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '8', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '9', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[12]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_C2, "SL_E_C2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SL_E_OC1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" }, - { SL_E_OC2, "SL_E_OC2" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_OCode::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '0', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '1', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '2', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '3', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '4', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '5', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '6', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icChar, 0, '7', 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[10]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC2, "SL_E_OC2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC2, "SL_E_OC2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC2, "SL_E_OC2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC2, "SL_E_OC2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC2, "SL_E_OC2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC2, "SL_E_OC2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC2, "SL_E_OC2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - //12: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], SL_E_OC2, "SL_E_OC2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[7], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SL_E_C2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_Code::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '0', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '1', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '2', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '3', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '4', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '5', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '6', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '7', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('8'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '8', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('9'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '9', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[12]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '8 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '8', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '8' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '9 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '9', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '9' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_Code::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SL_E_OC2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Root, "Root" }, - { StringLiteral, "StringLiteral" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TokenUnexpectedEOF::name, - & ident_TokenAccum::name, - & ident_TokenUnexpected::name, - & ident_TkLiteral_OCode::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('0'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '0', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('1'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '1', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('2'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '2', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('3'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '3', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('4'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '4', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('5'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '5', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('6'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '6', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('7'), 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icChar, 0, '7', 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Accum#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Accum#1/1 - // ( e.Accum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[10]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '0 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '0', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '0' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '1', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '1' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '2 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '2', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '2' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '3 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '3', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '3' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '4 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '4', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '4' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '5 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '5', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '5' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '6 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '6', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '6' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Accum#1/1 - //15: e.Text#1/1 - // ( e.Accum#1 ) '7 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '7', context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '7' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Accum#1/1 - //14: e.Text#1/1 - // ( e.Accum#1 ) e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkLiteral_OCode::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], StringLiteral, "StringLiteral" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Unexpected#1/1 - //13: e.Text#1/1 - // ( e.Accum#1 ) s.Unexpected#1 e.Text#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Accum#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenUnexpected::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Root, "Root" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Accum#1/1 - // ( e.Accum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TokenAccum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_TokenUnexpectedEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/Library.cpp b/bootstrap/Library.cpp deleted file mode 100644 index c451cb7a..00000000 --- a/bootstrap/Library.cpp +++ /dev/null @@ -1,1440 +0,0 @@ -#include -#include -#include -#include -#include - -#include "refalrts.h" - -//FROM refalrts - -namespace refalrts { - -class UnexpectedTypeException { }; - -} // namespace refalrts - -namespace { - -static refalrts::Iter next( refalrts::Iter current ) { - return current->next; -} - -static refalrts::Iter prev( refalrts::Iter current ) { - return current->prev; -} - -} // unnamed namespace - -//------------------------------------------------------------------------------ - -// Операции распределителя памяти - -namespace refalrts{ - -namespace allocator { - -bool alloc_node( Iter& node ); - -Iter free_ptr(); - -} // namespace allocator - -} // namespace refalrts - -//============================================================================== -// Библиотека "встроенных" функций -//============================================================================== - -// Основные перечисления - -#define DEFINE_IDENT(ident_name) \ - template \ - struct ident_ ## ident_name { \ - static const char *name() { \ - return #ident_name; \ - } \ - }; - -#define USE_IDENT(ident_name) \ - (& ident_ ## ident_name::name) - -DEFINE_IDENT(Success); -DEFINE_IDENT(Fails); -DEFINE_IDENT(True); -DEFINE_IDENT(False); -DEFINE_IDENT(TypeNumber); -DEFINE_IDENT(TypeCharacter); -DEFINE_IDENT(TypeFunction); -DEFINE_IDENT(TypeFile); -DEFINE_IDENT(TypeIdentifier); - -// Математические операции - -refalrts::FnResult Add(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sNumber1_1; - refalrts::Iter sNumber2_1; - if( ! refalrts::svar_left( sNumber1_1, bb_0, be_0 ) ) - break; - if( ! refalrts::svar_left( sNumber2_1, bb_0, be_0 ) ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - if( sNumber1_1->tag != refalrts::cDataNumber ) - break; - if( sNumber2_1->tag != refalrts::cDataNumber ) - break; - - refalrts::RefalNumber result = - sNumber1_1->number_info + sNumber2_1->number_info; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_number( n0, result ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult Sub(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sNumber1_1; - refalrts::Iter sNumber2_1; - if( ! refalrts::svar_left( sNumber1_1, bb_0, be_0 ) ) - break; - if( ! refalrts::svar_left( sNumber2_1, bb_0, be_0 ) ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - if( sNumber1_1->tag != refalrts::cDataNumber ) - break; - if( sNumber2_1->tag != refalrts::cDataNumber ) - break; - - refalrts::RefalNumber result = - sNumber1_1->number_info - sNumber2_1->number_info; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_number( n0, result ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult Mul(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sNumber1_1; - refalrts::Iter sNumber2_1; - if( ! refalrts::svar_left( sNumber1_1, bb_0, be_0 ) ) - break; - if( ! refalrts::svar_left( sNumber2_1, bb_0, be_0 ) ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - if( sNumber1_1->tag != refalrts::cDataNumber ) - break; - if( sNumber2_1->tag != refalrts::cDataNumber ) - break; - - refalrts::RefalNumber result = - sNumber1_1->number_info * sNumber2_1->number_info; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_number( n0, result ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult Div(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sNumber1_1; - refalrts::Iter sNumber2_1; - if( ! refalrts::svar_left( sNumber1_1, bb_0, be_0 ) ) - break; - if( ! refalrts::svar_left( sNumber2_1, bb_0, be_0 ) ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - if( sNumber1_1->tag != refalrts::cDataNumber ) - break; - if( sNumber2_1->tag != refalrts::cDataNumber ) - break; - - refalrts::RefalNumber result = - sNumber1_1->number_info / sNumber2_1->number_info; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_number( n0, result ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult Mod(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sNumber1_1; - refalrts::Iter sNumber2_1; - if( ! refalrts::svar_left( sNumber1_1, bb_0, be_0 ) ) - break; - if( ! refalrts::svar_left( sNumber2_1, bb_0, be_0 ) ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - if( sNumber1_1->tag != refalrts::cDataNumber ) - break; - if( sNumber2_1->tag != refalrts::cDataNumber ) - break; - - refalrts::RefalNumber result = - sNumber1_1->number_info % sNumber2_1->number_info; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_number( n0, result ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -// Ввод-вывод - -refalrts::FnResult write_to_stream( - FILE *out, refalrts::Iter str_begin, refalrts::Iter str_end -) { - if( ferror( out ) ) { - return refalrts::cRecognitionImpossible; - } - - int printf_res; - - for( - refalrts::Iter p = str_begin; - ! refalrts::empty_seq( p, str_end ); - refalrts::move_left( p, str_end ) - ) { - switch( p->tag ) { - case refalrts::cDataChar: { - printf_res = fprintf( out, "%c", p->char_info ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataNumber: { - printf_res = fprintf( out, "%lu ", p->number_info ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataFunction: { - if( p->function_info.name[0] != '\0' ) { - printf_res = fprintf( out, "%s ", p->function_info.name ); - } else { - printf_res = fprintf( out, "&%p ", p->function_info.ptr ); - } - - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataIdentifier: { - printf_res = fprintf( out, "%s ", (p->ident_info)() ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataOpenADT: { - printf_res = fprintf( out, "[" ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataCloseADT: { - printf_res = fprintf( out, "]" ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataOpenBracket: { - printf_res = fprintf( out, "(" ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataCloseBracket: { - printf_res = fprintf( out, ")" ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataFile: { - printf_res = fprintf( out, "*%p", p->file_info ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataClosure: { - printf_res = fprintf( out, "{ " ); - p = refalrts::unwrap_closure( p ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataClosureHead: { - printf_res = fprintf( out, "[%lu] ", p->number_info ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - case refalrts::cDataUnwrappedClosure: { - printf_res = fprintf( out, "} " ); - refalrts::wrap_closure( p ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - break; - } - } - - default: - throw refalrts::UnexpectedTypeException(); - // break; - } - } - - printf_res = fprintf( out, "\n" ); - if( printf_res < 0 ) { - return refalrts::cRecognitionImpossible; - } else { - return refalrts::cSuccess; - } -} - -refalrts::FnResult WriteLine(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter eLine_b_1; - refalrts::Iter eLine_e_1; - eLine_b_1 = bb_0; - refalrts::use( eLine_b_1 ); - eLine_e_1 = be_0; - refalrts::use( eLine_e_1 ); - - refalrts::FnResult fnres = - write_to_stream( stdout, eLine_b_1, eLine_e_1 ); - - if( fnres != refalrts::cSuccess ) - return fnres; - - refalrts::reset_allocator(); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return fnres; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult FWriteLine(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sFileHandle_1; - refalrts::Iter eLine_b_1; - refalrts::Iter eLine_e_1; - // s.FileHandle e.Line - if( ! refalrts::svar_left( sFileHandle_1, bb_0, be_0 ) ) - break; - if( sFileHandle_1->tag != refalrts::cDataFile ) - break; - eLine_b_1 = bb_0; - refalrts::use( eLine_b_1 ); - eLine_e_1 = be_0; - refalrts::use( eLine_e_1 ); - - refalrts::FnResult write_result = - write_to_stream( - static_cast( sFileHandle_1->file_info ), eLine_b_1, eLine_e_1 - ); - - if( write_result != refalrts::cSuccess ) - return write_result; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::splice_stvar( res, sFileHandle_1 ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult read_from_stream( - FILE *input, refalrts::Iter& begin, refalrts::Iter& end -) { - refalrts::Iter before_begin = - prev( refalrts::allocator::free_ptr() ); - refalrts::Iter cur_char_node = 0; - - int cur_char; - - for( ;; ) { - cur_char = getc(input); - if( EOF == cur_char ) { - if( ! refalrts::alloc_number( cur_char_node, 0UL ) ) { - return refalrts::cNoMemory; - } - break; - } else if ( '\n' == cur_char ) { - break; - } else { - /* - Пользуемся тем фактом, что в данной реализации размещёные в свободной - памяти узлы располагаются в последовательных адресах, которые будут - начинаться с before_begin->next. - */ - if( ! refalrts::alloc_char(cur_char_node, static_cast(cur_char)) ) { - return refalrts::cNoMemory; - } - } - } - - if( cur_char_node != 0 ) { - begin = next( before_begin ); - end = cur_char_node; - } else { - begin = 0; - end = 0; - } - - return refalrts::cSuccess; -} - -refalrts::FnResult ReadLine( - refalrts::Iter arg_begin, refalrts::Iter arg_end -) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - - refalrts::Iter str_begin, str_end; - - refalrts::FnResult fn_result = - read_from_stream( stdin, str_begin, str_end ); - - if( fn_result != refalrts::cSuccess ) - return fn_result; - - res = refalrts::splice_evar( res, str_begin, str_end ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult FReadLine( - refalrts::Iter arg_begin, refalrts::Iter arg_end -) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sFileHandle_1; - // s.FileHandle - if( ! refalrts::svar_left( sFileHandle_1, bb_0, be_0 ) ) - break; - if( sFileHandle_1->tag != refalrts::cDataFile ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - - refalrts::Iter str_begin, str_end; - - refalrts::FnResult fn_result = - read_from_stream( - static_cast( sFileHandle_1->file_info ), str_begin, str_end - ); - - if( fn_result != refalrts::cSuccess ) - return fn_result; - - res = refalrts::splice_evar( res, str_begin, str_end ); - res = refalrts::splice_stvar( res, sFileHandle_1 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -namespace { - -refalrts::FnResult string_from_seq( - std::vector& string, refalrts::Iter begin, refalrts::Iter end -) { - std::vector result; - - enum { cBufLen = 100 }; - char buffer[cBufLen + 1] = { 0 }; - - for( ; ; ) { - unsigned read = refalrts::read_chars(buffer, cBufLen, begin, end); - - if( read == 0 ) { - break; - } - - // В текущей версии Open Watcom (и форка Open Watcom V2) есть ошибка - // в функции vector::insert, которая возникает в случае, - // если во время вставки вектор увеличивает свою ёмкость (capacity). - // Для обхода этой ошибки предварительно резервируем место. - result.reserve( result.size() + read + 1 ); - - result.insert( result.end(), buffer, buffer + read ); - } - - /* - Здесь refalrts::empty_seq( begin, end ) || (begin->tag != cDataChar). - */ - - if( refalrts::empty_seq( begin, end ) ) { - result.push_back( '\0' ); - string.swap( result ); - return refalrts::cSuccess; - } else { - // здесь begin->tag != cDataChar - return refalrts::cRecognitionImpossible; - } -} - -} // unnamed namespace - -refalrts::FnResult FOpen(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter eFileName_b_1; - refalrts::Iter eFileName_e_1; - - const char *mode; - - if( refalrts::char_left( 'r', bb_0, be_0 ) ) { - mode = "r"; - } else if ( refalrts::char_left( 'w', bb_0, be_0 ) ) { - mode = "w"; - } else { - break; - } - - eFileName_b_1 = bb_0; - refalrts::use( eFileName_b_1 ); - eFileName_e_1 = be_0; - refalrts::use( eFileName_e_1 ); - - std::vector filename; - - refalrts::FnResult fname_read = - string_from_seq( filename, eFileName_b_1, eFileName_e_1 ); - - if( refalrts::cSuccess != fname_read ) - return fname_read; - - if( filename.empty() ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - - refalrts::Iter file_ptr = 0; - if( ! refalrts::allocator::alloc_node( file_ptr ) ) - return refalrts::cNoMemory; - - file_ptr->tag = refalrts::cDataFile; - - if( FILE *f = fopen( &filename[0], mode ) ) { - file_ptr->file_info = f; - } else { - return refalrts::cRecognitionImpossible; - } - - res = refalrts::splice_elem( res, file_ptr ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult FClose(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sFileHandle_1; - // s.FileHandle - if( ! refalrts::svar_left( sFileHandle_1, bb_0, be_0 ) ) - break; - if( sFileHandle_1->tag != refalrts::cDataFile ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - int fclose_res = - fclose( static_cast( sFileHandle_1->file_info ) ); - - if( EOF == fclose_res ) { - return refalrts::cRecognitionImpossible; - } else { - /* Ничего не делаем */; - } - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -/* - Глобальные переменные, хранящие параметры вызова - (устанавливаются в refalrts.cpp). -*/ - -extern char **g_argv; -extern int g_argc; - -refalrts::FnResult Arg(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sParamNumber_1; - // s.ParamNumber - if( ! refalrts::svar_left( sParamNumber_1, bb_0, be_0 ) ) - break; - if( sParamNumber_1->tag != refalrts::cDataNumber ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - refalrts::reset_allocator(); - - int arg_number = sParamNumber_1->number_info; - - refalrts::Iter res_begin = 0; - refalrts::Iter res_end = 0; - - if( arg_number < g_argc ) { - if( ! refalrts::alloc_string( res_begin, res_end, g_argv[arg_number] ) ) - return refalrts::cNoMemory; - - refalrts::splice_evar( arg_begin, res_begin, res_end ); - } - - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult ExistFile(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter eFileName_b_1; - refalrts::Iter eFileName_e_1; - // e.FileName - eFileName_b_1 = bb_0; - refalrts::use( eFileName_b_1 ); - eFileName_e_1 = be_0; - refalrts::use( eFileName_e_1 ); - - std::vector fname; - - refalrts::FnResult fname_res = - string_from_seq( fname, eFileName_b_1, eFileName_e_1 ); - - if( fname_res != refalrts::cSuccess ) - return fname_res; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - - refalrts::Iter ans = 0; - if( FILE *f = fopen( &fname[0], "r" ) ) { - // Файл существует - fclose( f ); - - if( ! refalrts::alloc_ident( ans, USE_IDENT(True) ) ) { - return refalrts::cNoMemory; - } - } else { - // Файл по-видимому не существует - if( ! refalrts::alloc_ident( ans, USE_IDENT(False) ) ) { - return refalrts::cNoMemory; - } - } - - res = refalrts::splice_elem( res, ans ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult GetEnv(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - refalrts::Iter eEnvName_b_1; - refalrts::Iter eEnvName_e_1; - // e.EnvName - eEnvName_b_1 = bb_0; - refalrts::use( eEnvName_b_1 ); - eEnvName_e_1 = be_0; - refalrts::use( eEnvName_e_1 ); - - std::vector envname; - - refalrts::FnResult envname_res = - string_from_seq( envname, eEnvName_b_1, eEnvName_e_1 ); - - if( envname_res != refalrts::cSuccess ) - return envname_res; - - refalrts::reset_allocator(); - - const char *envres = getenv( & envname[0] ); - - if( envres != 0 ) { - refalrts::Iter env_begin; - refalrts::Iter env_end; - - if( ! refalrts::alloc_string( env_begin, env_end, envres ) ) - return refalrts::cNoMemory; - - refalrts::splice_evar( arg_begin, env_begin, env_end ); - - //refalrts::Iter char_pos; - // - //for( const char *env = envres; *env != '\0'; ++ env ) { - // if( ! refalrts::alloc_char( char_pos, *env ) ) - // return refalrts::cNoMemory; - // - // refalrts::splice_elem( res, char_pos ); - //} - } - - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult Exit(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sCode_1; - // s.Code - if( ! refalrts::svar_left( sCode_1, bb_0, be_0 ) ) - break; - if( sCode_1->tag != refalrts::cDataNumber ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - refalrts::set_return_code( sCode_1->number_info ); - - refalrts::reset_allocator(); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cExit; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult System(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter eCommand_b_1; - refalrts::Iter eCommand_e_1; - // e.Command - eCommand_b_1 = bb_0; - refalrts::use( eCommand_b_1 ); - eCommand_e_1 = be_0; - refalrts::use( eCommand_e_1 ); - - std::vector command; - - refalrts::FnResult read_res = - string_from_seq( command, eCommand_b_1, eCommand_e_1 ); - - if( read_res != refalrts::cSuccess ) - return read_res; - - fflush(stdout); - fflush(stderr); - - system( &command[0] ); - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -// Работа с типами символов - -refalrts::FnResult IntFromStr(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter eNumber_b_1; - refalrts::Iter eNumber_e_1; - // e.NoNumber - eNumber_b_1 = bb_0; - refalrts::use( eNumber_b_1 ); - eNumber_e_1 = be_0; - refalrts::use( eNumber_e_1 ); - - bool start_is_digit = - ! refalrts::empty_seq( eNumber_b_1, eNumber_e_1 ) - && (refalrts::cDataChar == eNumber_b_1->tag) - && isdigit( eNumber_b_1->char_info ); - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - - if( ! start_is_digit ) { - refalrts::Iter fail_pos = 0; - if( ! refalrts::alloc_ident( fail_pos, USE_IDENT(Fails) ) ) - return refalrts::cNoMemory; - - res = refalrts::splice_evar( res, eNumber_b_1, eNumber_e_1 ); - res = refalrts::splice_elem( res, fail_pos ); - } else { - refalrts::RefalNumber acc = 0; - - for( ; ; ) { - if( refalrts::empty_seq( eNumber_b_1, eNumber_e_1 ) ) { - break; - } else if ( eNumber_b_1->tag != refalrts::cDataChar ) { - break; - } else if ( ! isdigit( eNumber_b_1->char_info ) ) { - break; - } else { - (acc *= 10) += eNumber_b_1->char_info - '0'; - } - - refalrts::move_left( eNumber_b_1, eNumber_e_1 ); - } - - refalrts::Iter success_pos = 0; - refalrts::Iter number_pos = 0; - - if( ! refalrts::alloc_ident( success_pos, USE_IDENT(Success) ) ) - return refalrts::cNoMemory; - - if( ! refalrts::alloc_number( number_pos, acc ) ) - return refalrts::cNoMemory; - - res = refalrts::splice_evar( res, eNumber_b_1, eNumber_e_1 ); - res = refalrts::splice_elem( res, number_pos ); - res = refalrts::splice_elem( res, success_pos ); - } - - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult StrFromInt(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sNumber_1; - // s.Number - if( ! refalrts::svar_left( sNumber_1, bb_0, be_0 ) ) - break; - if( sNumber_1->tag != refalrts::cDataNumber ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - - refalrts::Iter char_pos = 0; - if( refalrts::RefalNumber num = sNumber_1->number_info ) { - // Длина десятичного числа = 0,3 * длина двоичного числа, - // т.к. lg(2) = 0,3. Хрен с ним, что много. Главное, что не мало. - enum { cMaxNumberLen = 8 * sizeof(refalrts::RefalNumber) * 3 / 10 + 2 }; - - char buffer[cMaxNumberLen + 1] = { 0 }; - char *lim_digit = buffer + cMaxNumberLen; - char *cur_digit = lim_digit; - - while( num != 0 ) { - -- cur_digit; - *cur_digit = static_cast((num % 10) + '0'); - num /= 10; - } - - refalrts::Iter num_begin; - refalrts::Iter num_end; - bool allocated = refalrts::alloc_chars( - num_begin, num_end, cur_digit, unsigned(lim_digit - cur_digit) - ); - - if ( ! allocated ) - return refalrts::cNoMemory; - - refalrts::splice_evar( res, num_begin, num_end ); - } else { - if( ! refalrts::alloc_char( char_pos, '0' ) ) - return refalrts::cNoMemory; - - refalrts::splice_elem( res, char_pos ); - } - - refalrts::splice_to_freelist( arg_begin, arg_end ); - - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult Chr(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sCode_1; - // s.Code - if( ! refalrts::svar_left( sCode_1, bb_0, be_0 ) ) - break; - if( sCode_1->tag != refalrts::cDataNumber ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - char result = static_cast( sCode_1->number_info ); - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_char( n0, result ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult Ord(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - - refalrts::Iter sChar_1; - // s.Char - if( ! refalrts::svar_left( sChar_1, bb_0, be_0 ) ) - break; - if( sChar_1->tag != refalrts::cDataChar ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - refalrts::RefalNumber result = - static_cast( sChar_1->char_info ); - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_number( n0, result ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -namespace { - -template -char compare_char( T x, T y ) { - if( x < y ) { - return '<'; - } else if( x == y ) { - return '='; - } else { - return '>'; - } -} - -} // unnamed namespace - -refalrts::FnResult SymbCompare(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - refalrts::Iter sSymb1_1; - refalrts::Iter sSymb2_1; - // s.Num1 s.Num2 - if( ! refalrts::svar_left( sSymb1_1, bb_0, be_0 ) ) - break; - if( ! refalrts::svar_left( sSymb2_1, bb_0, be_0 ) ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - char order; - - switch( sSymb1_1->tag ) { - case refalrts::cDataNumber: - switch( sSymb2_1->tag ) { - case refalrts::cDataNumber: - order = compare_char( sSymb1_1->number_info, sSymb2_1->number_info ); - break; - - case refalrts::cDataChar: - order = '>'; - break; - - case refalrts::cDataFunction: - order = '>'; - break; - - case refalrts::cDataIdentifier: - order = '>'; - break; - - case refalrts::cDataFile: - order = '>'; - break; - - default: - order = '?'; - break; - } - break; - - case refalrts::cDataChar: - switch( sSymb2_1->tag ) { - case refalrts::cDataNumber: - order = '<'; - break; - - case refalrts::cDataChar: - order = compare_char( sSymb1_1->char_info, sSymb2_1->char_info ); - break; - - case refalrts::cDataFunction: - order = '>'; - break; - - case refalrts::cDataIdentifier: - order = '>'; - break; - - case refalrts::cDataFile: - order = '>'; - break; - - default: - order = '?'; - break; - } - break; - - case refalrts::cDataFunction: - switch( sSymb2_1->tag ) { - case refalrts::cDataNumber: - order = '<'; - break; - - case refalrts::cDataChar: - order = '<'; - break; - - case refalrts::cDataFunction: - { - int cmpres = - strcmp( - sSymb1_1->function_info.name, - sSymb2_1->function_info.name - ); - - if( cmpres < 0 ) { - order = '<'; - } else if (cmpres > 0) { - order = '>'; - } else { - order = - compare_char( - sSymb1_1->function_info.ptr, - sSymb2_1->function_info.ptr - ); - } - } - break; - - case refalrts::cDataIdentifier: - order = '>'; - break; - - case refalrts::cDataFile: - order = '>'; - break; - - default: - order = '?'; - break; - } - break; - - case refalrts::cDataIdentifier: - switch( sSymb2_1->tag ) { - case refalrts::cDataNumber: - order = '<'; - break; - - case refalrts::cDataChar: - order = '<'; - break; - - case refalrts::cDataFunction: - order = '<'; - break; - - case refalrts::cDataIdentifier: - { - int cmpres = - strcmp((sSymb1_1->ident_info)(), (sSymb2_1->ident_info)()); - if( cmpres < 0 ) { - order = '<'; - } else if (cmpres > 0) { - order = '>'; - } else { - order = '='; - } - } - break; - - case refalrts::cDataFile: - order = '>'; - break; - - default: - order = '?'; - break; - } - break; - - case refalrts::cDataFile: - switch( sSymb2_1->tag ) { - case refalrts::cDataNumber: - order = '<'; - break; - - case refalrts::cDataChar: - order = '<'; - break; - - case refalrts::cDataFunction: - order = '<'; - break; - - case refalrts::cDataIdentifier: - order = '<'; - break; - - case refalrts::cDataFile: - order = - compare_char( - sSymb1_1->file_info, - sSymb2_1->file_info - ); - break; - - default: - order = '?'; - break; - } - break; - - default: - order = '?'; - break; - } - - if( '?' == order ) - break; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_char( n0, order ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - return refalrts::cRecognitionImpossible; -} - -refalrts::FnResult SymbType(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - do { - refalrts::Iter bb_0 = arg_begin; - refalrts::Iter be_0 = arg_end; - refalrts::move_left( bb_0, be_0 ); - refalrts::move_left( bb_0, be_0 ); - refalrts::move_right( bb_0, be_0 ); - refalrts::Iter sSymb_1; - // s.Num - if( ! refalrts::svar_left( sSymb_1, bb_0, be_0 ) ) - break; - if( ! refalrts::empty_seq( bb_0, be_0 ) ) - break; - - refalrts::RefalIdentifier type_tag = 0; - - switch( sSymb_1->tag ) { - case refalrts::cDataNumber: - type_tag = USE_IDENT(TypeNumber); - break; - - case refalrts::cDataChar: - type_tag = USE_IDENT(TypeCharacter); - break; - - case refalrts::cDataFunction: - type_tag = USE_IDENT(TypeFunction); - break; - - case refalrts::cDataIdentifier: - type_tag = USE_IDENT(TypeIdentifier); - break; - - case refalrts::cDataFile: - type_tag = USE_IDENT(TypeFile); - break; - - default: - break; - } - - if( 0 == type_tag ) - break; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_ident( n0, type_tag ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, n0 ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::cSuccess; - } while ( 0 ); - - - return refalrts::cRecognitionImpossible; -} \ No newline at end of file diff --git a/bootstrap/LibraryEx.cpp b/bootstrap/LibraryEx.cpp deleted file mode 100644 index 5a58bd7d..00000000 --- a/bootstrap/LibraryEx.cpp +++ /dev/null @@ -1,6377 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult Add(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Apply(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Arg(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ArgList(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Compare(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Compare_T(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Dec(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult DelAccumulator(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult FClose(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult FOpen(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult FReadLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult FWriteLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult FastIntFromStr(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult IntFromStr(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult LoadFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult MapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Reduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult SaveFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Seq(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Sort(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Sub(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult SymbCompare(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult SymbType(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Trim(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Type(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Type_T(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult UnBracket(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Y(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoArgList(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoLoadFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoMapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult FastIntFromStr_Guard(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Lexicon(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Lexicon_Aux(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Lexicon_T(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Lexicon_T_Aux(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult MapReduce_AddScanned(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SwDoArgList(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Trim_R(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult WriteBracketLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #Success -template -struct ident_Success { - static const char *name() { - return "Success"; - } -}; - -// identifier #TypeBracket -template -struct ident_TypeBracket { - static const char *name() { - return "TypeBracket"; - } -}; - -refalrts::FnResult Apply(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Apply, "Apply" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +13, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: s.Fn#1/1 - //5: e.Argument#1/1 - // s.Fn#1 e.Argument#1 - {refalrts::icsVarLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 3}, - {refalrts::icPushStack, 0, 0, 3}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Argument#1/1 - //9: t.Closure#1/1 - //10: e.Bounded#1/1 - // ( t.Closure#1 e.Bounded#1 ) e.Argument#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::ictVarLeft, 0, 9, 2}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.Fn#1/1 - //5: e.Argument#1/1 - // s.Fn#1 e.Argument#1 - if( ! refalrts::svar_left( context[4], context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[3] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[3] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_stvar( res, context[4] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Argument#1/1 - //9: t.Closure#1/1 - //10: e.Bounded#1/1 - // ( t.Closure#1 e.Bounded#1 ) e.Argument#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[0]; - context[8] = context[1]; - if( ! refalrts::tvar_left( context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Apply, "Apply" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Map, "Map" }, - { Apply, "Apply" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +27, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: t.Fn#1/1 - //9: t.Next#1/1 - //10: e.Tail#1/1 - //12: t.Fn#1/2 - // t.Fn#1 t.Next#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 8, 0}, - {refalrts::ictVarLeft, 0, 9, 0}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 12, 8, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: t.Fn#1/1 - // t.Fn#1 - {refalrts::ictVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: t.Fn#1/1 - //9: t.Next#1/1 - //10: e.Tail#1/1 - //12: t.Fn#1/2 - // t.Fn#1 t.Next#1 e.Tail#1 - if( ! refalrts::tvar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[9], context[0], context[1] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[12], context[8])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Apply, "Apply" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.Fn#1/1 - // t.Fn#1 - if( ! refalrts::tvar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Reduce(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Apply, "Apply" }, - { Reduce, "Reduce" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: t.Fn#1/1 - //9: t.Acc#1/1 - //10: t.Next#1/1 - //11: e.Tail#1/1 - //13: t.Fn#1/2 - // t.Fn#1 t.Acc#1 t.Next#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 8, 0}, - {refalrts::ictVarLeft, 0, 9, 0}, - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 13, 8, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: t.Fn#1/1 - //3: t.Acc#1/1 - // t.Fn#1 t.Acc#1 - {refalrts::ictVarLeft, 0, 2, 0}, - {refalrts::ictVarLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 3}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: t.Fn#1/1 - //9: t.Acc#1/1 - //10: t.Next#1/1 - //11: e.Tail#1/1 - //13: t.Fn#1/2 - // t.Fn#1 t.Acc#1 t.Next#1 e.Tail#1 - if( ! refalrts::tvar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - continue; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[13], context[8])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Reduce, "Reduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Apply, "Apply" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.Fn#1/1 - //3: t.Acc#1/1 - // t.Fn#1 t.Acc#1 - if( ! refalrts::tvar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Apply, "Apply" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: t.Function#1/1 - //6: e.Argument#1/1 - // e.Argument#1 t.Function#1 - {refalrts::ictVarRight, 0, 5, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: t.Function#1/1 - //6: e.Argument#1/1 - // e.Argument#1 t.Function#1 - if( ! refalrts::tvar_right( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Apply, "Apply" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Y_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Y, "Y" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Y_Func#1/1 - //10: e.Arg#2/1 - //12: s.Y_Func#1/2 - // s.Y_Func#1 e.Arg#2 - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 12, 9, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Y_Func#1/1 - //10: e.Arg#2/1 - //12: s.Y_Func#1/2 - // s.Y_Func#1 e.Arg#2 - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[12], context[9])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Y, "Y" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[3] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Y(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Y_0, "lambda_Y_0" }, - { refalrts::create_closure, "refalrts::create_closure" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: s.Y_Func#1/1 - // s.Y_Func#1 - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.Y_Func#1/1 - // s.Y_Func#1 - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], lambda_Y_0, "lambda_Y_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult MapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoMapReduce, "DoMapReduce" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: t.Fn#1/1 - //8: t.Acc#1/1 - //9: e.Tail#1/1 - // t.Fn#1 t.Acc#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 7, 0}, - {refalrts::ictVarLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: t.Fn#1/1 - //8: t.Acc#1/1 - //9: e.Tail#1/1 - // t.Fn#1 t.Acc#1 e.Tail#1 - if( ! refalrts::tvar_left( context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoMapReduce, "DoMapReduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoMapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Apply, "Apply" }, - { MapReduce_AddScanned, "MapReduce_AddScanned" }, - { DoMapReduce, "DoMapReduce" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +45, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: t.Fn#1/1 - //16: t.Acc#1/1 - //17: e.Scanned#1/1 - //19: t.Next#1/1 - //20: e.Tail#1/1 - //22: t.Fn#1/2 - // t.Fn#1 t.Acc#1 ( e.Scanned#1 ) t.Next#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::ictVarLeft, 0, 16, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::ictVarLeft, 0, 19, 0}, - {refalrts::icContextSet, 0, 20, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 22, 15, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: e.Scanned#1/1 - //6: t.Fn#1/1 - //7: t.Acc#1/1 - // t.Fn#1 t.Acc#1 ( e.Scanned#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icContextSet, 0, 4, 2}, - {refalrts::ictVarLeft, 0, 6, 0}, - {refalrts::ictVarLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: t.Fn#1/1 - //16: t.Acc#1/1 - //17: e.Scanned#1/1 - //19: t.Next#1/1 - //20: e.Tail#1/1 - //22: t.Fn#1/2 - // t.Fn#1 t.Acc#1 ( e.Scanned#1 ) t.Next#1 e.Tail#1 - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[16], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::tvar_left( context[19], context[0], context[1] ) ) - continue; - context[20] = context[0]; - context[21] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[22], context[15])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoMapReduce, "DoMapReduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], MapReduce_AddScanned, "MapReduce_AddScanned" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Apply, "Apply" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.Scanned#1/1 - //6: t.Fn#1/1 - //7: t.Acc#1/1 - // t.Fn#1 t.Acc#1 ( e.Scanned#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = context[2]; - context[5] = context[3]; - if( ! refalrts::tvar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_stvar( res, context[7] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult MapReduce_AddScanned(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Scanned#1/1 - //8: t.Acc#1/1 - //9: e.StepScanned#1/1 - // t.Acc#1 e.StepScanned#1 ( e.Scanned#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icContextSet, 0, 6, 2}, - {refalrts::ictVarLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Scanned#1/1 - //8: t.Acc#1/1 - //9: e.StepScanned#1/1 - // t.Acc#1 e.StepScanned#1 ( e.Scanned#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[2]; - context[7] = context[3]; - if( ! refalrts::tvar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult UnBracket(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //4: e.Expr#1/1 - // ( e.Expr#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 4, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.Expr#1/1 - // ( e.Expr#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = context[2]; - context[5] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult DelAccumulator(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 5 elems - refalrts::Iter context[5]; - refalrts::zeros( context, 5 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //2: t.Acc#1/1 - //3: e.Tail#1/1 - // t.Acc#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 3, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 3}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.Acc#1/1 - //3: e.Tail#1/1 - // t.Acc#1 e.Tail#1 - if( ! refalrts::tvar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[3] = context[0]; - context[4] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[3], context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult LoadFile(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FOpen, "FOpen" }, - { FReadLine, "FReadLine" }, - { DoLoadFile, "DoLoadFile" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //12: e.FileName#1/1 - // e.FileName#1 - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icChar, 0, 'r', 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.FileName#1/1 - // e.FileName#1 - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoLoadFile, "DoLoadFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], FReadLine, "FReadLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], FOpen, "FOpen" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[8], 'r' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoLoadFile(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FReadLine, "FReadLine" }, - { DoLoadFile, "DoLoadFile" }, - { FClose, "FClose" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: t.File#1/1 - // t.File#1 0 - {refalrts::icNumRight, 0, 0, 0}, - {refalrts::ictVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +21, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: t.File#1/1 - //8: e.Line#1/1 - // t.File#1 e.Line#1 0 - {refalrts::icNumRight, 0, 0, 0}, - {refalrts::ictVarLeft, 0, 7, 0}, - {refalrts::icContextSet, 0, 8, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icLinkBrackets, 2, 3, 0}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: t.File#1/1 - //11: e.Line#1/1 - // t.File#1 e.Line#1 - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icLinkBrackets, 2, 3, 0}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: t.File#1/1 - // t.File#1 0 - if( ! refalrts::number_right( 0UL, context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], FClose, "FClose" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: t.File#1/1 - //8: e.Line#1/1 - // t.File#1 e.Line#1 0 - if( ! refalrts::number_right( 0UL, context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[7], context[0], context[1] ) ) - continue; - context[8] = context[0]; - context[9] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], FClose, "FClose" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::link_brackets( context[2], context[3] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: t.File#1/1 - //11: e.Line#1/1 - // t.File#1 e.Line#1 - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoLoadFile, "DoLoadFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], FReadLine, "FReadLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::link_brackets( context[2], context[3] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult SaveFile(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FOpen, "FOpen" }, - { WriteBracketLine, "WriteBracketLine" }, - { Reduce, "Reduce" }, - { FClose, "FClose" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //15: e.FileName#1/1 - //17: e.Lines#1/1 - // ( e.FileName#1 ) e.Lines#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icChar, 0, 'w', 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.FileName#1/1 - //17: e.Lines#1/1 - // ( e.FileName#1 ) e.Lines#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], FClose, "FClose" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Reduce, "Reduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], WriteBracketLine, "WriteBracketLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], FOpen, "FOpen" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[11], 'w' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult WriteBracketLine(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 10 elems - refalrts::Iter context[10]; - refalrts::zeros( context, 10 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { FWriteLine, "FWriteLine" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Line#1/1 - //9: t.File#1/1 - // t.File#1 ( e.Line#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::ictVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Line#1/1 - //9: t.File#1/1 - // t.File#1 ( e.Line#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - if( ! refalrts::tvar_left( context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], FWriteLine, "FWriteLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Add, "Add" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: s.Num#1/1 - // s.Num#1 - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icInt, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.Num#1/1 - // s.Num#1 - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Add, "Add" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[4], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Dec(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Sub, "Sub" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: s.Num#1/1 - // s.Num#1 - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icInt, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.Num#1/1 - // s.Num#1 - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Sub, "Sub" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[4], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult FastIntFromStr_Guard(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 3 elems - refalrts::Iter context[3]; - refalrts::zeros( context, 3 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_Success::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //2: s.Number#1/1 - // # Success s.Number#1 - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: s.Number#1/1 - // # Success s.Number#1 - if( ! refalrts::ident_left( & ident_Success::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult FastIntFromStr(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 10 elems - refalrts::Iter context[10]; - refalrts::zeros( context, 10 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { IntFromStr, "IntFromStr" }, - { FastIntFromStr_Guard, "FastIntFromStr_Guard" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //8: e.Digits#1/1 - // e.Digits#1 - {refalrts::icContextSet, 0, 8, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: e.Digits#1/1 - // e.Digits#1 - context[8] = context[0]; - context[9] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], FastIntFromStr_Guard, "FastIntFromStr_Guard" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], IntFromStr, "IntFromStr" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ArgList(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoArgList, "DoArgList" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icInt, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoArgList, "DoArgList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[4], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoArgList(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Arg, "Arg" }, - { Inc, "Inc" }, - { SwDoArgList, "SwDoArgList" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: s.Next#1/1 - //12: s.Next#1/2 - // s.Next#1 - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 12, 11, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.Next#1/1 - //12: s.Next#1/2 - // s.Next#1 - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[12], context[11])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], SwDoArgList, "SwDoArgList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Arg, "Arg" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult SwDoArgList(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 10 elems - refalrts::Iter context[10]; - refalrts::zeros( context, 10 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoArgList, "DoArgList" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +5, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: s.Next#1/1 - // s.Next#1 - {refalrts::icsVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Next#1/1 - //8: e.Arg#1/1 - // s.Next#1 e.Arg#1 - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icContextSet, 0, 8, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icLinkBrackets, 2, 3, 0}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: s.Next#1/1 - // s.Next#1 - if( ! refalrts::svar_left( context[2], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Next#1/1 - //8: e.Arg#1/1 - // s.Next#1 e.Arg#1 - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = context[0]; - context[9] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoArgList, "DoArgList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::link_brackets( context[2], context[3] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Compare(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymbCompare, "SymbCompare" }, - { Lexicon, "Lexicon" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Left#1/1 - //15: e.Right#1/1 - // ( e.Left#1 ) ( e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Right#1/1 - // ( e.Left#1 ) s.Right#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Left#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '>', 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Left#1/1 - // s.Left#1 ( e.Right#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - // Unused closed variable e.Right#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '<', 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Left#1/1 - //6: s.Right#1/1 - // s.Left#1 s.Right#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Left#1/1 - //15: e.Right#1/1 - // ( e.Left#1 ) ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[4]; - context[16] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Lexicon, "Lexicon" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Right#1/1 - // ( e.Left#1 ) s.Right#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Left#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[4], '>' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Left#1/1 - // s.Left#1 ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Right#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[4], '<' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Left#1/1 - //6: s.Right#1/1 - // s.Left#1 s.Right#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], SymbCompare, "SymbCompare" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Lexicon(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Compare, "Compare" }, - { Lexicon_Aux, "Lexicon_Aux" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +40, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: t.FirstLeft#1/1 - //17: e.Left#1/1 - //19: t.FirstRight#1/1 - //20: e.Right#1/1 - // ( t.FirstLeft#1 e.Left#1 ) ( t.FirstRight#1 e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::ictVarLeft, 0, 16, 2}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::ictVarLeft, 0, 19, 4}, - {refalrts::icContextSet, 0, 20, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +10, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( ) ( ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '=', 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +9, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( ) ( e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Right#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '<', 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.Left#1 ) ( ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Left#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '>', 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: t.FirstLeft#1/1 - //17: e.Left#1/1 - //19: t.FirstRight#1/1 - //20: e.Right#1/1 - // ( t.FirstLeft#1 e.Left#1 ) ( t.FirstRight#1 e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[16], context[2], context[3] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::tvar_left( context[19], context[4], context[5] ) ) - continue; - context[20] = context[4]; - context[21] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Lexicon_Aux, "Lexicon_Aux" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Compare, "Compare" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( ) ( ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[6], '=' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( ) ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.Right#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[6], '<' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.Left#1 ) ( ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Left#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[6], '>' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Lexicon_Aux(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Lexicon, "Lexicon" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +9, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '< ( e.Left#1 ) ( e.Right#1 ) - {refalrts::icCharLeft, 0, static_cast('<'), 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Left#1 - // Unused closed variable e.Right#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '<', 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Left#1/1 - //15: e.Right#1/1 - // '= ( e.Left#1 ) ( e.Right#1 ) - {refalrts::icCharLeft, 0, static_cast('='), 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // '> ( e.Left#1 ) ( e.Right#1 ) - {refalrts::icCharLeft, 0, static_cast('>'), 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Left#1 - // Unused closed variable e.Right#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '>', 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '< ( e.Left#1 ) ( e.Right#1 ) - if( ! refalrts::char_left( '<', context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.Left#1 - // Unused closed variable e.Right#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[6], '<' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Left#1/1 - //15: e.Right#1/1 - // '= ( e.Left#1 ) ( e.Right#1 ) - if( ! refalrts::char_left( '=', context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[4]; - context[16] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Lexicon, "Lexicon" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // '> ( e.Left#1 ) ( e.Right#1 ) - if( ! refalrts::char_left( '>', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Left#1 - // Unused closed variable e.Right#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[6], '>' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Compare_T(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymbCompare, "SymbCompare" }, - { Lexicon_T, "Lexicon_T" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +38, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Left#1/1 - //19: e.Right#1/1 - // ( e.Left#1 ) ( e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Left#1/1 - //9: s.Right#1/1 - // ( e.Left#1 ) s.Right#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '>', 4}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 5, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Right#1/1 - //9: s.Left#1/1 - // s.Left#1 ( e.Right#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '<', 4}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 5, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Left#1/1 - //6: s.Right#1/1 - //7: s.Left#1/2 - //8: s.Right#1/2 - // s.Left#1 s.Right#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 7, 5, 0}, - {refalrts::icCopySTVar, 8, 6, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Left#1/1 - //19: e.Right#1/1 - // ( e.Left#1 ) ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[4]; - context[20] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Lexicon_T, "Lexicon_T" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Left#1/1 - //9: s.Right#1/1 - // ( e.Left#1 ) s.Right#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[4], '>' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[9] ); - refalrts::link_brackets( context[5], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Right#1/1 - //9: s.Left#1/1 - // s.Left#1 ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[4], '<' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[5], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Left#1/1 - //6: s.Right#1/1 - //7: s.Left#1/2 - //8: s.Right#1/2 - // s.Left#1 s.Right#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[7], context[5])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[8], context[6])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], SymbCompare, "SymbCompare" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Lexicon_T(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 34 elems - refalrts::Iter context[34]; - refalrts::zeros( context, 34 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Compare_T, "Compare_T" }, - { Lexicon_T_Aux, "Lexicon_T_Aux" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +56, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: e.ScannedLeft#1/1 - //26: e.ScannedRight#1/1 - //28: t.FirstLeft#1/1 - //29: e.Left#1/1 - //31: t.FirstRight#1/1 - //32: e.Right#1/1 - // ( e.ScannedLeft#1 ) ( t.FirstLeft#1 e.Left#1 ) ( e.ScannedRight#1 ) ( t.FirstRight#1 e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 24, 2}, - {refalrts::icContextSet, 0, 26, 6}, - {refalrts::ictVarLeft, 0, 28, 4}, - {refalrts::icContextSet, 0, 29, 4}, - {refalrts::ictVarLeft, 0, 31, 8}, - {refalrts::icContextSet, 0, 32, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: e.ScannedLeft#1/1 - //17: e.ScannedRight#1/1 - // ( e.ScannedLeft#1 ) ( ) ( e.ScannedRight#1 ) ( ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '=', 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +27, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: e.ScannedLeft#1/1 - //17: e.ScannedRight#1/1 - //19: e.Right#1/1 - // ( e.ScannedLeft#1 ) ( ) ( e.ScannedRight#1 ) ( e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 6}, - {refalrts::icContextSet, 0, 19, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '<', 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: e.ScannedLeft#1/1 - //17: e.Left#1/1 - //19: e.ScannedRight#1/1 - // ( e.ScannedLeft#1 ) ( e.Left#1 ) ( e.ScannedRight#1 ) ( ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icContextSet, 0, 19, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '>', 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: e.ScannedLeft#1/1 - //26: e.ScannedRight#1/1 - //28: t.FirstLeft#1/1 - //29: e.Left#1/1 - //31: t.FirstRight#1/1 - //32: e.Right#1/1 - // ( e.ScannedLeft#1 ) ( t.FirstLeft#1 e.Left#1 ) ( e.ScannedRight#1 ) ( t.FirstRight#1 e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[24] = context[2]; - context[25] = context[3]; - context[26] = context[6]; - context[27] = context[7]; - if( ! refalrts::tvar_left( context[28], context[4], context[5] ) ) - continue; - context[29] = context[4]; - context[30] = context[5]; - if( ! refalrts::tvar_left( context[31], context[8], context[9] ) ) - continue; - context[32] = context[8]; - context[33] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Lexicon_T_Aux, "Lexicon_T_Aux" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], Compare_T, "Compare_T" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.ScannedLeft#1/1 - //17: e.ScannedRight#1/1 - // ( e.ScannedLeft#1 ) ( ) ( e.ScannedRight#1 ) ( ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[6]; - context[18] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[10], '=' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.ScannedLeft#1/1 - //17: e.ScannedRight#1/1 - //19: e.Right#1/1 - // ( e.ScannedLeft#1 ) ( ) ( e.ScannedRight#1 ) ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[6]; - context[18] = context[7]; - context[19] = context[8]; - context[20] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[10], '<' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.ScannedLeft#1/1 - //17: e.Left#1/1 - //19: e.ScannedRight#1/1 - // ( e.ScannedLeft#1 ) ( e.Left#1 ) ( e.ScannedRight#1 ) ( ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[4]; - context[18] = context[5]; - context[19] = context[6]; - context[20] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[10], '>' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Lexicon_T_Aux(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 31 elems - refalrts::Iter context[31]; - refalrts::zeros( context, 31 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Lexicon_T, "Lexicon_T" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +33, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: e.ScannedLeft#1/1 - //17: e.ScannedRight#1/1 - //19: e.Left#1/1 - //21: e.Right#1/1 - //23: t.NextLeft#1/1 - //24: t.NextRight#1/1 - // ( e.ScannedLeft#1 ) ( e.ScannedRight#1 ) '< t.NextLeft#1 t.NextRight#1 ( e.Left#1 ) ( e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icCharLeft, 0, static_cast('<'), 0}, - {refalrts::icBracketRight, 0, 6, 0}, - {refalrts::icBracketRight, 0, 8, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icContextSet, 0, 19, 8}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::ictVarLeft, 0, 23, 0}, - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '<', 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +49, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.ScannedLeft#1/1 - //23: e.ScannedRight#1/1 - //25: e.Left#1/1 - //27: e.Right#1/1 - //29: t.NextLeft#1/1 - //30: t.NextRight#1/1 - // ( e.ScannedLeft#1 ) ( e.ScannedRight#1 ) '= t.NextLeft#1 t.NextRight#1 ( e.Left#1 ) ( e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icCharLeft, 0, static_cast('='), 0}, - {refalrts::icBracketRight, 0, 6, 0}, - {refalrts::icBracketRight, 0, 8, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 4}, - {refalrts::icContextSet, 0, 25, 8}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::ictVarLeft, 0, 29, 0}, - {refalrts::ictVarLeft, 0, 30, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: e.ScannedLeft#1/1 - //17: e.ScannedRight#1/1 - //19: e.Left#1/1 - //21: e.Right#1/1 - //23: t.NextLeft#1/1 - //24: t.NextRight#1/1 - // ( e.ScannedLeft#1 ) ( e.ScannedRight#1 ) '> t.NextLeft#1 t.NextRight#1 ( e.Left#1 ) ( e.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icCharLeft, 0, static_cast('>'), 0}, - {refalrts::icBracketRight, 0, 6, 0}, - {refalrts::icBracketRight, 0, 8, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icContextSet, 0, 19, 8}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::ictVarLeft, 0, 23, 0}, - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '>', 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.ScannedLeft#1/1 - //17: e.ScannedRight#1/1 - //19: e.Left#1/1 - //21: e.Right#1/1 - //23: t.NextLeft#1/1 - //24: t.NextRight#1/1 - // ( e.ScannedLeft#1 ) ( e.ScannedRight#1 ) '< t.NextLeft#1 t.NextRight#1 ( e.Left#1 ) ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '<', context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[0], context[1] ) ) - continue; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[4]; - context[18] = context[5]; - context[19] = context[8]; - context[20] = context[9]; - context[21] = context[6]; - context[22] = context[7]; - if( ! refalrts::tvar_left( context[23], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[10], '<' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.ScannedLeft#1/1 - //23: e.ScannedRight#1/1 - //25: e.Left#1/1 - //27: e.Right#1/1 - //29: t.NextLeft#1/1 - //30: t.NextRight#1/1 - // ( e.ScannedLeft#1 ) ( e.ScannedRight#1 ) '= t.NextLeft#1 t.NextRight#1 ( e.Left#1 ) ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '=', context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[0], context[1] ) ) - continue; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[4]; - context[24] = context[5]; - context[25] = context[8]; - context[26] = context[9]; - context[27] = context[6]; - context[28] = context[7]; - if( ! refalrts::tvar_left( context[29], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[30], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Lexicon_T, "Lexicon_T" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.ScannedLeft#1/1 - //17: e.ScannedRight#1/1 - //19: e.Left#1/1 - //21: e.Right#1/1 - //23: t.NextLeft#1/1 - //24: t.NextRight#1/1 - // ( e.ScannedLeft#1 ) ( e.ScannedRight#1 ) '> t.NextLeft#1 t.NextRight#1 ( e.Left#1 ) ( e.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_left( '>', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[4]; - context[18] = context[5]; - context[19] = context[8]; - context[20] = context[9]; - context[21] = context[6]; - context[22] = context[7]; - if( ! refalrts::tvar_left( context[23], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[10], '>' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Type(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymbType, "SymbType" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TypeBracket::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.InBracket#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.InBracket#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Symbol#1/1 - // s.Symbol#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.InBracket#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.InBracket#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[4], & ident_TypeBracket::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Symbol#1/1 - // s.Symbol#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], SymbType, "SymbType" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Type_T(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymbType, "SymbType" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TypeBracket::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.InBrackets#1/1 - //9: e.Tail#1/1 - // ( e.InBrackets#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icLinkBrackets, 5, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Symbol#1/1 - //6: e.Tail#1/1 - //8: s.Symbol#1/2 - // s.Symbol#1 e.Tail#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 8, 5, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '*', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.InBrackets#1/1 - //9: e.Tail#1/1 - // ( e.InBrackets#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[4], & ident_TypeBracket::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::link_brackets( context[5], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Symbol#1/1 - //6: e.Tail#1/1 - //8: s.Symbol#1/2 - // s.Symbol#1 e.Tail#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[8], context[5])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], SymbType, "SymbType" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[8] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '*' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Trim(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Trim_R, "Trim_R" }, - { Trim, "Trim" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // ' e.Line#1 - {refalrts::icCharLeft, 0, static_cast(' '), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // '\t e.Line#1 - {refalrts::icCharLeft, 0, static_cast('\t'), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // '\r e.Line#1 - {refalrts::icCharLeft, 0, static_cast('\r'), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // '\n e.Line#1 - {refalrts::icCharLeft, 0, static_cast('\n'), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // e.Line#1 - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // ' e.Line#1 - if( ! refalrts::char_left( ' ', context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim, "Trim" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // '\t e.Line#1 - if( ! refalrts::char_left( '\t', context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim, "Trim" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // '\r e.Line#1 - if( ! refalrts::char_left( '\r', context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim, "Trim" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // '\n e.Line#1 - if( ! refalrts::char_left( '\n', context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim, "Trim" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // e.Line#1 - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim_R, "Trim_R" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Trim_R(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Trim_R, "Trim_R" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // e.Line#1 ' ' - {refalrts::icCharRight, 0, static_cast(' '), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // e.Line#1 '\t' - {refalrts::icCharRight, 0, static_cast('\t'), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // e.Line#1 '\r' - {refalrts::icCharRight, 0, static_cast('\r'), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: e.Line#1/1 - // e.Line#1 '\n' - {refalrts::icCharRight, 0, static_cast('\n'), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Line#1/1 - // e.Line#1 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // e.Line#1 ' ' - if( ! refalrts::char_right( ' ', context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim_R, "Trim_R" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // e.Line#1 '\t' - if( ! refalrts::char_right( '\t', context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim_R, "Trim_R" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // e.Line#1 '\r' - if( ! refalrts::char_right( '\r', context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim_R, "Trim_R" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.Line#1/1 - // e.Line#1 '\n' - if( ! refalrts::char_right( '\n', context[0], context[1] ) ) - continue; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Trim_R, "Trim_R" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Line#1/1 - // e.Line#1 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Seq_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 18 elems - refalrts::Iter context[18]; - refalrts::zeros( context, 18 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Seq, "Seq" }, - { Apply, "Apply" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //13: t.Func#1/1 - //14: e.Funcs#1/1 - //16: e.Arg#2/1 - // t.Func#1 ( e.Funcs#1 ) e.Arg#2 - {refalrts::ictVarLeft, 0, 13, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icContextSet, 0, 16, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: t.Func#1/1 - //14: e.Funcs#1/1 - //16: e.Arg#2/1 - // t.Func#1 ( e.Funcs#1 ) e.Arg#2 - if( ! refalrts::tvar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[14] = context[2]; - context[15] = context[3]; - context[16] = context[0]; - context[17] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Apply, "Apply" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Seq_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 4 elems - refalrts::Iter context[4]; - refalrts::zeros( context, 4 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Arg#2/1 - // e.Arg#2 - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Arg#2/1 - // e.Arg#2 - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Seq(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Seq_1, "lambda_Seq_1" }, - { lambda_Seq_0, "lambda_Seq_0" }, - { refalrts::create_closure, "refalrts::create_closure" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +6, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: t.Func#1/1 - // t.Func#1 - {refalrts::ictVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +22, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: t.Func#1/1 - //9: e.Funcs#1/1 - // t.Func#1 e.Funcs#1 - {refalrts::ictVarLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icFunc, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 5, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icFunc, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.Func#1/1 - // t.Func#1 - if( ! refalrts::tvar_left( context[2], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: t.Func#1/1 - //9: e.Funcs#1/1 - // t.Func#1 e.Funcs#1 - if( ! refalrts::tvar_left( context[8], context[0], context[1] ) ) - continue; - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], lambda_Seq_0, "lambda_Seq_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[5], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_name( context[2], lambda_Seq_1, "lambda_Seq_1" ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Sort_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Less#2/1 - //18: e.Equal#2/1 - //20: e.Greater#2/1 - //22: t.Next#2/1 - // ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) t.Next#2 '<' - {refalrts::icCharRight, 0, static_cast('<'), 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 4}, - {refalrts::icContextSet, 0, 20, 6}, - {refalrts::ictVarLeft, 0, 22, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icLinkBrackets, 8, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +36, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Less#2/1 - //18: e.Equal#2/1 - //20: e.Greater#2/1 - //22: t.Next#2/1 - // ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) t.Next#2 '=' - {refalrts::icCharRight, 0, static_cast('='), 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 4}, - {refalrts::icContextSet, 0, 20, 6}, - {refalrts::ictVarLeft, 0, 22, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icLinkBrackets, 8, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Less#2/1 - //18: e.Equal#2/1 - //20: e.Greater#2/1 - //22: t.Next#2/1 - // ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) t.Next#2 '>' - {refalrts::icCharRight, 0, static_cast('>'), 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 4}, - {refalrts::icContextSet, 0, 20, 6}, - {refalrts::ictVarLeft, 0, 22, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icLinkBrackets, 8, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Less#2/1 - //18: e.Equal#2/1 - //20: e.Greater#2/1 - //22: t.Next#2/1 - // ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) t.Next#2 '<' - if( ! refalrts::char_right( '<', context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[4]; - context[19] = context[5]; - context[20] = context[6]; - context[21] = context[7]; - if( ! refalrts::tvar_left( context[22], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Less#2/1 - //18: e.Equal#2/1 - //20: e.Greater#2/1 - //22: t.Next#2/1 - // ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) t.Next#2 '=' - if( ! refalrts::char_right( '=', context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[4]; - context[19] = context[5]; - context[20] = context[6]; - context[21] = context[7]; - if( ! refalrts::tvar_left( context[22], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Less#2/1 - //18: e.Equal#2/1 - //20: e.Greater#2/1 - //22: t.Next#2/1 - // ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) t.Next#2 '>' - if( ! refalrts::char_right( '>', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[4]; - context[19] = context[5]; - context[20] = context[6]; - context[21] = context[7]; - if( ! refalrts::tvar_left( context[22], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Sort_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 35 elems - refalrts::Iter context[35]; - refalrts::zeros( context, 35 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Sort_0, "lambda_Sort_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Compare, "Compare" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //26: t.Pivot#1/1 - //27: e.Less#2/1 - //29: e.Equal#2/1 - //31: e.Greater#2/1 - //33: t.Next#2/1 - //34: t.Next#2/2 - // t.Pivot#1 ( ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) ) t.Next#2 - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icContextSet, 0, 29, 6}, - {refalrts::icContextSet, 0, 31, 8}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 34, 33, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 3, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 1, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: t.Pivot#1/1 - //27: e.Less#2/1 - //29: e.Equal#2/1 - //31: e.Greater#2/1 - //33: t.Next#2/1 - //34: t.Next#2/2 - // t.Pivot#1 ( ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) ) t.Next#2 - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[27] = context[4]; - context[28] = context[5]; - context[29] = context[6]; - context[30] = context[7]; - context[31] = context[8]; - context[32] = context[9]; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[34], context[33])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Compare, "Compare" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], lambda_Sort_0, "lambda_Sort_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_stvar( res, context[34] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Sort_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Sort, "Sort" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Less#2/1 - //18: e.Equal#2/1 - //20: e.Greater#2/1 - // ( ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 16, 4}, - {refalrts::icContextSet, 0, 18, 6}, - {refalrts::icContextSet, 0, 20, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Less#2/1 - //18: e.Equal#2/1 - //20: e.Greater#2/1 - // ( ( e.Less#2 ) ( e.Equal#2 ) ( e.Greater#2 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[4]; - context[17] = context[5]; - context[18] = context[6]; - context[19] = context[7]; - context[20] = context[8]; - context[21] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Sort, "Sort" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], Sort, "Sort" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult Sort(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 28 elems - refalrts::Iter context[28]; - refalrts::zeros( context, 28 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Sort_2, "lambda_Sort_2" }, - { lambda_Sort_1, "lambda_Sort_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Reduce, "Reduce" }, - { Seq, "Seq" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +4, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: t.Pivot#1/1 - //25: e.Items#1/1 - //27: t.Pivot#1/2 - // t.Pivot#1 e.Items#1 - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::icContextSet, 0, 25, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 27, 24, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 5, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icFunc, 0, 0, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 6, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 12, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: t.Pivot#1/1 - //25: e.Items#1/1 - //27: t.Pivot#1/2 - // t.Pivot#1 e.Items#1 - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[25] = context[0]; - context[26] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[27], context[24])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Reduce, "Reduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], lambda_Sort_1, "lambda_Sort_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], lambda_Sort_2, "lambda_Sort_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[6], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[12], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/LowLevelRASL.cpp b/bootstrap/LowLevelRASL.cpp deleted file mode 100644 index 28e7f583..00000000 --- a/bootstrap/LowLevelRASL.cpp +++ /dev/null @@ -1,9969 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult Compare(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult LowLevelRASL(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult MapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Seq(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ConvertInterpretCommand(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoLength(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenerateResult_Sentences(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Length_T(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult LowLevelRASL_Function(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult OutlineConstants(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrepareInterpretCommands(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrepareInterpretCommands_Linearize(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrepareOpenEStack(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult RemoveNumber(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #AlgLeft -template -struct ident_AlgLeft { - static const char *name() { - return "AlgLeft"; - } -}; - -// identifier #CmdADT -template -struct ident_CmdADT { - static const char *name() { - return "CmdADT"; - } -}; - -// identifier #CmdAllocateElem -template -struct ident_CmdAllocateElem { - static const char *name() { - return "CmdAllocateElem"; - } -}; - -// identifier #CmdArrCopy -template -struct ident_CmdArrCopy { - static const char *name() { - return "CmdArrCopy"; - } -}; - -// identifier #CmdArrSplice -template -struct ident_CmdArrSplice { - static const char *name() { - return "CmdArrSplice"; - } -}; - -// identifier #CmdBrackets -template -struct ident_CmdBrackets { - static const char *name() { - return "CmdBrackets"; - } -}; - -// identifier #CmdChar -template -struct ident_CmdChar { - static const char *name() { - return "CmdChar"; - } -}; - -// identifier #CmdClosedE -template -struct ident_CmdClosedE { - static const char *name() { - return "CmdClosedE"; - } -}; - -// identifier #CmdComment -template -struct ident_CmdComment { - static const char *name() { - return "CmdComment"; - } -}; - -// identifier #CmdCopyVar -template -struct ident_CmdCopyVar { - static const char *name() { - return "CmdCopyVar"; - } -}; - -// identifier #CmdDeclaration -template -struct ident_CmdDeclaration { - static const char *name() { - return "CmdDeclaration"; - } -}; - -// identifier #CmdDefineIdent -template -struct ident_CmdDefineIdent { - static const char *name() { - return "CmdDefineIdent"; - } -}; - -// identifier #CmdElse -template -struct ident_CmdElse { - static const char *name() { - return "CmdElse"; - } -}; - -// identifier #CmdEmpty -template -struct ident_CmdEmpty { - static const char *name() { - return "CmdEmpty"; - } -}; - -// identifier #CmdEmptyResult -template -struct ident_CmdEmptyResult { - static const char *name() { - return "CmdEmptyResult"; - } -}; - -// identifier #CmdEndIf -template -struct ident_CmdEndIf { - static const char *name() { - return "CmdEndIf"; - } -}; - -// identifier #CmdEndSentence -template -struct ident_CmdEndSentence { - static const char *name() { - return "CmdEndSentence"; - } -}; - -// identifier #CmdEnum -template -struct ident_CmdEnum { - static const char *name() { - return "CmdEnum"; - } -}; - -// identifier #CmdFail -template -struct ident_CmdFail { - static const char *name() { - return "CmdFail"; - } -}; - -// identifier #CmdFinRAA -template -struct ident_CmdFinRAA { - static const char *name() { - return "CmdFinRAA"; - } -}; - -// identifier #CmdFnEnd -template -struct ident_CmdFnEnd { - static const char *name() { - return "CmdFnEnd"; - } -}; - -// identifier #CmdFnStart -template -struct ident_CmdFnStart { - static const char *name() { - return "CmdFnStart"; - } -}; - -// identifier #CmdIdent -template -struct ident_CmdIdent { - static const char *name() { - return "CmdIdent"; - } -}; - -// identifier #CmdIfDef -template -struct ident_CmdIfDef { - static const char *name() { - return "CmdIfDef"; - } -}; - -// identifier #CmdInitB0 -template -struct ident_CmdInitB0 { - static const char *name() { - return "CmdInitB0"; - } -}; - -// identifier #CmdInitRAA -template -struct ident_CmdInitRAA { - static const char *name() { - return "CmdInitRAA"; - } -}; - -// identifier #CmdInsertElem -template -struct ident_CmdInsertElem { - static const char *name() { - return "CmdInsertElem"; - } -}; - -// identifier #CmdInsertRange -template -struct ident_CmdInsertRange { - static const char *name() { - return "CmdInsertRange"; - } -}; - -// identifier #CmdInsertVar -template -struct ident_CmdInsertVar { - static const char *name() { - return "CmdInsertVar"; - } -}; - -// identifier #CmdIssueMem -template -struct ident_CmdIssueMem { - static const char *name() { - return "CmdIssueMem"; - } -}; - -// identifier #CmdLinkBrackets -template -struct ident_CmdLinkBrackets { - static const char *name() { - return "CmdLinkBrackets"; - } -}; - -// identifier #CmdName -template -struct ident_CmdName { - static const char *name() { - return "CmdName"; - } -}; - -// identifier #CmdNumber -template -struct ident_CmdNumber { - static const char *name() { - return "CmdNumber"; - } -}; - -// identifier #CmdOpenELoop -template -struct ident_CmdOpenELoop { - static const char *name() { - return "CmdOpenELoop"; - } -}; - -// identifier #CmdOpenedE_End -template -struct ident_CmdOpenedE_End { - static const char *name() { - return "CmdOpenedE_End"; - } -}; - -// identifier #CmdOpenedE_Start -template -struct ident_CmdOpenedE_Start { - static const char *name() { - return "CmdOpenedE_Start"; - } -}; - -// identifier #CmdPushStack -template -struct ident_CmdPushStack { - static const char *name() { - return "CmdPushStack"; - } -}; - -// identifier #CmdRepeated -template -struct ident_CmdRepeated { - static const char *name() { - return "CmdRepeated"; - } -}; - -// identifier #CmdReturnResult -template -struct ident_CmdReturnResult { - static const char *name() { - return "CmdReturnResult"; - } -}; - -// identifier #CmdSave -template -struct ident_CmdSave { - static const char *name() { - return "CmdSave"; - } -}; - -// identifier #CmdSentence -template -struct ident_CmdSentence { - static const char *name() { - return "CmdSentence"; - } -}; - -// identifier #CmdSeparator -template -struct ident_CmdSeparator { - static const char *name() { - return "CmdSeparator"; - } -}; - -// identifier #CmdSpliceElem -template -struct ident_CmdSpliceElem { - static const char *name() { - return "CmdSpliceElem"; - } -}; - -// identifier #CmdSpliceRange -template -struct ident_CmdSpliceRange { - static const char *name() { - return "CmdSpliceRange"; - } -}; - -// identifier #CmdStartSentence -template -struct ident_CmdStartSentence { - static const char *name() { - return "CmdStartSentence"; - } -}; - -// identifier #CmdSwap -template -struct ident_CmdSwap { - static const char *name() { - return "CmdSwap"; - } -}; - -// identifier #CmdVar -template -struct ident_CmdVar { - static const char *name() { - return "CmdVar"; - } -}; - -// identifier #CmdiADT -template -struct ident_CmdiADT { - static const char *name() { - return "CmdiADT"; - } -}; - -// identifier #CmdiAllocateElem -template -struct ident_CmdiAllocateElem { - static const char *name() { - return "CmdiAllocateElem"; - } -}; - -// identifier #CmdiBracket -template -struct ident_CmdiBracket { - static const char *name() { - return "CmdiBracket"; - } -}; - -// identifier #CmdiChar -template -struct ident_CmdiChar { - static const char *name() { - return "CmdiChar"; - } -}; - -// identifier #CmdiContextSet -template -struct ident_CmdiContextSet { - static const char *name() { - return "CmdiContextSet"; - } -}; - -// identifier #CmdiEPrepare -template -struct ident_CmdiEPrepare { - static const char *name() { - return "CmdiEPrepare"; - } -}; - -// identifier #CmdiEStart -template -struct ident_CmdiEStart { - static const char *name() { - return "CmdiEStart"; - } -}; - -// identifier #CmdiEmpty -template -struct ident_CmdiEmpty { - static const char *name() { - return "CmdiEmpty"; - } -}; - -// identifier #CmdiEmptyResult -template -struct ident_CmdiEmptyResult { - static const char *name() { - return "CmdiEmptyResult"; - } -}; - -// identifier #CmdiFail -template -struct ident_CmdiFail { - static const char *name() { - return "CmdiFail"; - } -}; - -// identifier #CmdiFuncArray -template -struct ident_CmdiFuncArray { - static const char *name() { - return "CmdiFuncArray"; - } -}; - -// identifier #CmdiHugeNum -template -struct ident_CmdiHugeNum { - static const char *name() { - return "CmdiHugeNum"; - } -}; - -// identifier #CmdiIdent -template -struct ident_CmdiIdent { - static const char *name() { - return "CmdiIdent"; - } -}; - -// identifier #CmdiInitB0 -template -struct ident_CmdiInitB0 { - static const char *name() { - return "CmdiInitB0"; - } -}; - -// identifier #CmdiLabelArray -template -struct ident_CmdiLabelArray { - static const char *name() { - return "CmdiLabelArray"; - } -}; - -// identifier #CmdiLinkBrackets -template -struct ident_CmdiLinkBrackets { - static const char *name() { - return "CmdiLinkBrackets"; - } -}; - -// identifier #CmdiName -template -struct ident_CmdiName { - static const char *name() { - return "CmdiName"; - } -}; - -// identifier #CmdiNum -template -struct ident_CmdiNum { - static const char *name() { - return "CmdiNum"; - } -}; - -// identifier #CmdiNumberArray -template -struct ident_CmdiNumberArray { - static const char *name() { - return "CmdiNumberArray"; - } -}; - -// identifier #CmdiOnFailGoTo -template -struct ident_CmdiOnFailGoTo { - static const char *name() { - return "CmdiOnFailGoTo"; - } -}; - -// identifier #CmdiPushStack -template -struct ident_CmdiPushStack { - static const char *name() { - return "CmdiPushStack"; - } -}; - -// identifier #CmdiRepeat -template -struct ident_CmdiRepeat { - static const char *name() { - return "CmdiRepeat"; - } -}; - -// identifier #CmdiReserveStack -template -struct ident_CmdiReserveStack { - static const char *name() { - return "CmdiReserveStack"; - } -}; - -// identifier #CmdiReturnResult -template -struct ident_CmdiReturnResult { - static const char *name() { - return "CmdiReturnResult"; - } -}; - -// identifier #CmdiRunInterpret -template -struct ident_CmdiRunInterpret { - static const char *name() { - return "CmdiRunInterpret"; - } -}; - -// identifier #CmdiSave -template -struct ident_CmdiSave { - static const char *name() { - return "CmdiSave"; - } -}; - -// identifier #CmdiStringArray -template -struct ident_CmdiStringArray { - static const char *name() { - return "CmdiStringArray"; - } -}; - -// identifier #CmdiVar -template -struct ident_CmdiVar { - static const char *name() { - return "CmdiVar"; - } -}; - -// identifier #ElHugeNumber -template -struct ident_ElHugeNumber { - static const char *name() { - return "ElHugeNumber"; - } -}; - -// identifier #ElIdent -template -struct ident_ElIdent { - static const char *name() { - return "ElIdent"; - } -}; - -// identifier #ElName -template -struct ident_ElName { - static const char *name() { - return "ElName"; - } -}; - -// identifier #ElNumber -template -struct ident_ElNumber { - static const char *name() { - return "ElNumber"; - } -}; - -// identifier #ElString -template -struct ident_ElString { - static const char *name() { - return "ElString"; - } -}; - -// identifier #Function -template -struct ident_Function { - static const char *name() { - return "Function"; - } -}; - -static refalrts::FnResult lambda_LowLevelRASL_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { LowLevelRASL_Function, "LowLevelRASL_Function" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdSeparator::name, - & ident_CmdDefineIdent::name, - & ident_CmdDeclaration::name, - & ident_CmdSwap::name, - & ident_CmdEnum::name, - & ident_Function::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: s.ScopeClass#2/1 - //12: e.Name#2/1 - //14: e.Commands#2/1 - // ( # Function s.ScopeClass#2 ( e.Name#2 ) e.Commands#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 5, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 11, 2}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icContextSet, 0, 12, 4}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # CmdEnum s.ScopeClass#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # CmdSwap s.ScopeClass#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # CmdDeclaration s.ScopeClass#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Name#2/1 - // ( # CmdDefineIdent e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # CmdSeparator ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[5]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.ScopeClass#2/1 - //12: e.Name#2/1 - //14: e.Commands#2/1 - // ( # Function s.ScopeClass#2 ( e.Name#2 ) e.Commands#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Function::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[11], context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[12] = context[4]; - context[13] = context[5]; - context[14] = context[2]; - context[15] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], LowLevelRASL_Function, "LowLevelRASL_Function" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # CmdEnum s.ScopeClass#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdEnum::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdEnum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # CmdSwap s.ScopeClass#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSwap::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdSwap::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( # CmdDeclaration s.ScopeClass#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdDeclaration::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdDeclaration::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Name#2/1 - // ( # CmdDefineIdent e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdDefineIdent::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdDefineIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # CmdSeparator ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_CmdSeparator::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdSeparator::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult LowLevelRASL(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_LowLevelRASL_0, "lambda_LowLevelRASL_0" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: e.ProgramElements#1/1 - // e.ProgramElements#1 - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.ProgramElements#1/1 - // e.ProgramElements#1 - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], lambda_LowLevelRASL_0, "lambda_LowLevelRASL_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult LowLevelRASL_Function(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 66 elems - refalrts::Iter context[66]; - refalrts::zeros( context, 66 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GenerateResult_Sentences, "GenerateResult_Sentences" }, - { PrepareInterpretCommands, "PrepareInterpretCommands" }, - { OutlineConstants, "OutlineConstants" }, - { PrepareOpenEStack, "PrepareOpenEStack" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdFnEnd::name, - & ident_CmdEndIf::name, - & ident_CmdElse::name, - & ident_CmdiRunInterpret::name, - & ident_CmdFinRAA::name, - & ident_CmdInitRAA::name, - & ident_CmdIfDef::name, - & ident_CmdIssueMem::name, - & ident_CmdFnStart::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //58: s.ScopeClass#1/1 - //59: e.Name#1/1 - //61: e.Commands#1/1 - //63: s.Number#1/1 - //64: e.Commands#1/2 - // s.ScopeClass#1 ( e.Name#1 ) ( # CmdIssueMem s.Number#1 ) e.Commands#1 - {refalrts::icsVarLeft, 0, 58, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 7, 4}, - {refalrts::icContextSet, 0, 59, 2}, - {refalrts::icContextSet, 0, 61, 0}, - {refalrts::icsVarLeft, 0, 63, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 64, 61, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 8, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icIdent, 0, 7, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icIdent, 0, 6, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 3, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 2, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icInt, 0, 0, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icInt, 0, 0, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icInt, 0, 0, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icInt, 0, 0, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 31}, - {refalrts::icIdent, 0, 5, 32}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 33}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 34}, - {refalrts::icFunc, 0, 1, 35}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 36}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 37}, - {refalrts::icIdent, 0, 4, 38}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 39}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 40}, - {refalrts::icInt, 0, 0, 41}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 42}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 43}, - {refalrts::icIdent, 0, 3, 44}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 45}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 46}, - {refalrts::icIdent, 0, 2, 47}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 48}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 49}, - {refalrts::icFunc, 0, 0, 50}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 51}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 52}, - {refalrts::icIdent, 0, 1, 53}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 54}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 55}, - {refalrts::icIdent, 0, 0, 56}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 57}, - {refalrts::icLinkBrackets, 55, 57, 0}, - {refalrts::icSpliceElem, 0, 0, 57}, - {refalrts::icSpliceElem, 0, 0, 56}, - {refalrts::icSpliceElem, 0, 0, 55}, - {refalrts::icLinkBrackets, 52, 54, 0}, - {refalrts::icSpliceElem, 0, 0, 54}, - {refalrts::icSpliceElem, 0, 0, 53}, - {refalrts::icSpliceElem, 0, 0, 52}, - {refalrts::icPushStack, 0, 0, 51}, - {refalrts::icPushStack, 0, 0, 49}, - {refalrts::icSpliceElem, 0, 0, 51}, - {refalrts::icSpliceEVar, 0, 0, 64}, - {refalrts::icSpliceElem, 0, 0, 50}, - {refalrts::icSpliceElem, 0, 0, 49}, - {refalrts::icLinkBrackets, 46, 48, 0}, - {refalrts::icSpliceElem, 0, 0, 48}, - {refalrts::icSpliceElem, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 46}, - {refalrts::icLinkBrackets, 43, 45, 0}, - {refalrts::icSpliceElem, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 43}, - {refalrts::icPushStack, 0, 0, 42}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 40}, - {refalrts::icLinkBrackets, 37, 39, 0}, - {refalrts::icSpliceElem, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icPushStack, 0, 0, 36}, - {refalrts::icPushStack, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icSpliceEVar, 0, 0, 61}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icLinkBrackets, 31, 33, 0}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 28, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 25, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 22, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 19, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 12, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 9, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 63}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 59}, - {refalrts::icSpliceSTVar, 0, 0, 58}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //58: s.ScopeClass#1/1 - //59: e.Name#1/1 - //61: e.Commands#1/1 - //63: s.Number#1/1 - //64: e.Commands#1/2 - // s.ScopeClass#1 ( e.Name#1 ) ( # CmdIssueMem s.Number#1 ) e.Commands#1 - if( ! refalrts::svar_left( context[58], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_CmdIssueMem::name, context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[59] = context[2]; - context[60] = context[3]; - context[61] = context[0]; - context[62] = context[1]; - if( ! refalrts::svar_left( context[63], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[64], context[65], context[61], context[62])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_CmdFnStart::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[10], & ident_CmdIssueMem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[13], & ident_CmdIfDef::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], PrepareOpenEStack, "PrepareOpenEStack" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[20], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[23], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[26], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[29], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[32], & ident_CmdInitRAA::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[34] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[35], PrepareInterpretCommands, "PrepareInterpretCommands" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[36] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[37] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[38], & ident_CmdFinRAA::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[39] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[40] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[41], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[42] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[43] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[44], & ident_CmdiRunInterpret::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[45] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[46] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[47], & ident_CmdElse::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[48] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[49] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[50], GenerateResult_Sentences, "GenerateResult_Sentences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[51] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[52] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[53], & ident_CmdEndIf::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[54] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[55] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[56], & ident_CmdFnEnd::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[57] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[55], context[57] ); - res = refalrts::splice_elem( res, context[57] ); - res = refalrts::splice_elem( res, context[56] ); - res = refalrts::splice_elem( res, context[55] ); - refalrts::link_brackets( context[52], context[54] ); - res = refalrts::splice_elem( res, context[54] ); - res = refalrts::splice_elem( res, context[53] ); - res = refalrts::splice_elem( res, context[52] ); - refalrts::push_stack( context[51] ); - refalrts::push_stack( context[49] ); - res = refalrts::splice_elem( res, context[51] ); - res = refalrts::splice_evar( res, context[64], context[65] ); - res = refalrts::splice_elem( res, context[50] ); - res = refalrts::splice_elem( res, context[49] ); - refalrts::link_brackets( context[46], context[48] ); - res = refalrts::splice_elem( res, context[48] ); - res = refalrts::splice_elem( res, context[47] ); - res = refalrts::splice_elem( res, context[46] ); - refalrts::link_brackets( context[43], context[45] ); - res = refalrts::splice_elem( res, context[45] ); - res = refalrts::splice_elem( res, context[44] ); - res = refalrts::splice_elem( res, context[43] ); - refalrts::push_stack( context[42] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[42] ); - res = refalrts::splice_elem( res, context[41] ); - refalrts::push_stack( context[40] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[40] ); - refalrts::link_brackets( context[37], context[39] ); - res = refalrts::splice_elem( res, context[39] ); - res = refalrts::splice_elem( res, context[38] ); - res = refalrts::splice_elem( res, context[37] ); - refalrts::push_stack( context[36] ); - refalrts::push_stack( context[34] ); - res = refalrts::splice_elem( res, context[36] ); - res = refalrts::splice_evar( res, context[61], context[62] ); - res = refalrts::splice_elem( res, context[35] ); - res = refalrts::splice_elem( res, context[34] ); - refalrts::link_brackets( context[31], context[33] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[28], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[25], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[22], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[19], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[12], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[9], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[63] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[59], context[60] ); - res = refalrts::splice_stvar( res, context[58] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrepareInterpretCommands(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" }, - { ConvertInterpretCommand, "ConvertInterpretCommand" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Commands#1/1 - // e.Commands#1 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icFunc, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Commands#1/1 - // e.Commands#1 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], ConvertInterpretCommand, "ConvertInterpretCommand" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_PrepareInterpretCommands_Linearize_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdiOnFailGoTo::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Tail#1/1 - //12: s.Length#2/1 - //13: e.SubCommands#2/1 - // ( e.Tail#1 ) s.Length#2 e.SubCommands#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Tail#1/1 - //12: s.Length#2/1 - //13: e.SubCommands#2/1 - // ( e.Tail#1 ) s.Length#2 e.SubCommands#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiOnFailGoTo::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrepareInterpretCommands_Linearize(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 24 elems - refalrts::Iter context[24]; - refalrts::zeros( context, 24 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" }, - { lambda_PrepareInterpretCommands_Linearize_0, "lambda_PrepareInterpretCommands_Linearize_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Length_T, "Length_T" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdiEStart::name, - & ident_CmdiEPrepare::name, - & ident_AlgLeft::name, - & ident_CmdOpenELoop::name, - & ident_CmdSentence::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //19: e.SubCommands#1/1 - //21: e.Tail#1/1 - // ( # CmdSentence e.SubCommands#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 4, 2}, - {refalrts::icContextSet, 0, 19, 2}, - {refalrts::icContextSet, 0, 21, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icFunc, 0, 1, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Tail#1/1 - //18: s.BracketNum#1/1 - //19: s.VarNumber#1/1 - //20: e.SubCommands#1/1 - //22: s.BracketNum#1/2 - //23: s.VarNumber#1/2 - // ( # CmdOpenELoop # AlgLeft s.BracketNum#1 s.VarNumber#1 e.SubCommands#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icContextSet, 0, 16, 0}, - {refalrts::icsVarLeft, 0, 18, 2}, - {refalrts::icsVarLeft, 0, 19, 2}, - {refalrts::icContextSet, 0, 20, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 22, 18, 0}, - {refalrts::icCopySTVar, 23, 19, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: t.Command#1/1 - //6: e.Tail#1/1 - // t.Command#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 5, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: e.SubCommands#1/1 - //21: e.Tail#1/1 - // ( # CmdSentence e.SubCommands#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSentence::name, context[2], context[3] ) ) - continue; - context[19] = context[2]; - context[20] = context[3]; - context[21] = context[0]; - context[22] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Length_T, "Length_T" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], lambda_PrepareInterpretCommands_Linearize_0, "lambda_PrepareInterpretCommands_Linearize_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Tail#1/1 - //18: s.BracketNum#1/1 - //19: s.VarNumber#1/1 - //20: e.SubCommands#1/1 - //22: s.BracketNum#1/2 - //23: s.VarNumber#1/2 - // ( # CmdOpenELoop # AlgLeft s.BracketNum#1 s.VarNumber#1 e.SubCommands#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdOpenELoop::name, context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[2], context[3] ) ) - continue; - context[16] = context[0]; - context[17] = context[1]; - if( ! refalrts::svar_left( context[18], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[19], context[2], context[3] ) ) - continue; - context[20] = context[2]; - context[21] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[22], context[18])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[23], context[19])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiEPrepare::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_CmdiEStart::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: t.Command#1/1 - //6: e.Tail#1/1 - // t.Command#1 e.Tail#1 - if( ! refalrts::tvar_left( context[5], context[0], context[1] ) ) - continue; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], PrepareInterpretCommands_Linearize, "PrepareInterpretCommands_Linearize" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - res = refalrts::splice_stvar( res, context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Length_T(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoLength, "DoLength" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Expr#1/1 - // e.Expr#1 - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icInt, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Expr#1/1 - // e.Expr#1 - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoLength, "DoLength" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[4], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoLength(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Inc, "Inc" }, - { DoLength, "DoLength" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdComment::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Text#1/1 - //12: s.Count#1/1 - //13: e.Expr#1/1 - // s.Count#1 e.Expr#1 ( # CmdComment e.Text#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icLinkBrackets, 7, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +25, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Count#1/1 - //9: t.Last#1/1 - //10: e.Expr#1/1 - // s.Count#1 e.Expr#1 t.Last#1 - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::ictVarRight, 0, 9, 0}, - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: s.Count#1/1 - // s.Count#1 - {refalrts::icsVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Text#1/1 - //12: s.Count#1/1 - //13: e.Expr#1/1 - // s.Count#1 e.Expr#1 ( # CmdComment e.Text#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdComment::name, context[2], context[3] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoLength, "DoLength" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_CmdComment::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[7], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Count#1/1 - //9: t.Last#1/1 - //10: e.Expr#1/1 - // s.Count#1 e.Expr#1 t.Last#1 - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_right( context[9], context[0], context[1] ) ) - continue; - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoLength, "DoLength" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[9] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: s.Count#1/1 - // s.Count#1 - if( ! refalrts::svar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ConvertInterpretCommand_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdiHugeNum::name, - & ident_CmdiNum::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Direction#1/1 - //6: s.BracketNumber#1/1 - //7: s.Number#1/1 - // s.Direction#1 s.BracketNumber#1 s.Number#1 '<' - {refalrts::icCharRight, 0, static_cast('<'), 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 4}, - {refalrts::icLinkBrackets, 2, 4, 0}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Direction#1/1 - //6: s.BracketNumber#1/1 - //7: s.Number#1/1 - //8: s.Other#2/1 - // s.Direction#1 s.BracketNumber#1 s.Number#1 s.Other#2 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 4}, - {refalrts::icLinkBrackets, 2, 4, 0}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Direction#1/1 - //6: s.BracketNumber#1/1 - //7: s.Number#1/1 - // s.Direction#1 s.BracketNumber#1 s.Number#1 '<' - if( ! refalrts::char_right( '<', context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_CmdiNum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[4] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[4] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Direction#1/1 - //6: s.BracketNumber#1/1 - //7: s.Number#1/1 - //8: s.Other#2/1 - // s.Direction#1 s.BracketNumber#1 s.Number#1 s.Other#2 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_CmdiHugeNum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[4] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[4] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ConvertInterpretCommand_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_ElHugeNumber::name, - & ident_CmdiAllocateElem::name, - & ident_ElNumber::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: s.ElemNo#1/1 - //7: s.Number#1/1 - // s.ElemNo#1 s.Number#1 '<' - {refalrts::icCharRight, 0, static_cast('<'), 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 1, 3}, - {refalrts::icIdent, 0, 2, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: s.ElemNo#1/1 - //7: s.Number#1/1 - //8: s.Other#2/1 - // s.ElemNo#1 s.Number#1 s.Other#2 - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 1, 3}, - {refalrts::icIdent, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 2, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.ElemNo#1/1 - //7: s.Number#1/1 - // s.ElemNo#1 s.Number#1 '<' - if( ! refalrts::char_right( '<', context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_ElNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.ElemNo#1/1 - //7: s.Number#1/1 - //8: s.Other#2/1 - // s.ElemNo#1 s.Number#1 s.Other#2 - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_ElHugeNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ConvertInterpretCommand(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ConvertInterpretCommand_1, "lambda_ConvertInterpretCommand_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Compare, "Compare" }, - { Fetch, "Fetch" }, - { lambda_ConvertInterpretCommand_0, "lambda_ConvertInterpretCommand_0" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdiInitB0::name, - & ident_CmdInitB0::name, - & ident_CmdiReturnResult::name, - & ident_CmdReturnResult::name, - & ident_CmdiFail::name, - & ident_CmdFail::name, - & ident_CmdiOnFailGoTo::name, - & ident_CmdArrCopy::name, - & ident_CmdCopyVar::name, - & ident_CmdiPushStack::name, - & ident_CmdPushStack::name, - & ident_CmdiLinkBrackets::name, - & ident_CmdLinkBrackets::name, - & ident_CmdArrSplice::name, - & ident_CmdInsertVar::name, - & ident_CmdSpliceRange::name, - & ident_CmdInsertRange::name, - & ident_CmdSpliceElem::name, - & ident_CmdInsertElem::name, - & ident_CmdiAllocateElem::name, - & ident_CmdAllocateElem::name, - & ident_ElNumber::name, - & ident_CmdiEmptyResult::name, - & ident_CmdEmptyResult::name, - & ident_CmdComment::name, - & ident_CmdiVar::name, - & ident_CmdVar::name, - & ident_CmdiEmpty::name, - & ident_AlgLeft::name, - & ident_CmdEmpty::name, - & ident_CmdiRepeat::name, - & ident_CmdRepeated::name, - & ident_CmdiADT::name, - & ident_CmdADT::name, - & ident_CmdiName::name, - & ident_CmdName::name, - & ident_CmdiChar::name, - & ident_CmdChar::name, - & ident_CmdiEStart::name, - & ident_CmdiEPrepare::name, - & ident_CmdiSave::name, - & ident_CmdSave::name, - & ident_CmdiIdent::name, - & ident_CmdIdent::name, - & ident_CmdNumber::name, - & ident_CmdiContextSet::name, - & ident_CmdClosedE::name, - & ident_CmdiBracket::name, - & ident_CmdBrackets::name - }; - static const refalrts::RefalNumber numbers[] = { - 256UL - }; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Direction#1/1 - //8: s.Num#1/1 - //9: s.NumRanges#1/1 - // ( # CmdBrackets s.Direction#1 s.Num#1 s.NumRanges#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 48, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 47, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.BracketNumber#1/1 - //8: s.VarNumber#1/1 - // ( # CmdClosedE # AlgLeft s.BracketNumber#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 46, 2}, - {refalrts::icIdentLeft, 0, 28, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 45, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +43, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Number#1/1 - //18: s.Number#1/2 - // ( # CmdNumber s.Direction#1 s.BracketNumber#1 s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 44, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 15, 2}, - {refalrts::icsVarLeft, 0, 16, 2}, - {refalrts::icsVarLeft, 0, 17, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 18, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icHugeInt, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icFunc, 0, 4, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: e.Name#1/1 - // ( # CmdIdent s.Direction#1 s.BracketNumber#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 43, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 42, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.OldBracketNumber#1/1 - //8: s.NewBracketNumber#1/1 - // ( # CmdSave s.OldBracketNumber#1 s.NewBracketNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 41, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 40, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.BracketNum#1/1 - //8: s.VarNumber#1/1 - // ( # CmdiEPrepare s.BracketNum#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 39, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 39, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.BracketNum#1/1 - //8: s.VarNumber#1/1 - // ( # CmdiEStart s.BracketNum#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 38, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 38, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: s.Char#1/1 - // ( # CmdChar s.Direction#1 s.BracketNumber#1 s.Char#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 37, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 36, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: e.Name#1/1 - // ( # CmdName s.Direction#1 s.BracketNumber#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 35, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 34, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +21, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: s.InnerBrackets#1/1 - //10: e.Name#1/1 - // ( # CmdADT s.Direction#1 s.BracketNumber#1 s.InnerBrackets#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 33, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 32, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: s.Mode#1/1 - //10: s.VarNum#1/1 - //11: s.SampleNum#1/1 - // ( # CmdRepeated s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNum#1 s.SampleNum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 31, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icsVarLeft, 0, 11, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 30, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.BracketNumber#1/1 - // ( # CmdEmpty # AlgLeft s.BracketNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 29, 2}, - {refalrts::icIdentLeft, 0, 28, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 27, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +22, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: s.Mode#1/1 - //10: s.VarNumber#1/1 - // ( # CmdVar s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 26, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icsVarLeft, 0, 10, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 25, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Text#1/1 - // ( # CmdComment e.Text#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 24, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 24, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # CmdEmptyResult ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 23, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 22, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +42, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: s.ElemNo#1/1 - //16: s.Number#1/1 - //17: s.Number#1/2 - // ( # CmdAllocateElem s.ElemNo#1 # ElNumber s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 20, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 15, 2}, - {refalrts::icIdentLeft, 0, 21, 2}, - {refalrts::icsVarLeft, 0, 16, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 17, 16, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icHugeInt, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ElemNo#1/1 - //8: s.Type#1/1 - //9: e.Info#1/1 - // ( # CmdAllocateElem s.ElemNo#1 s.Type#1 e.Info#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 20, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 19, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ElemNo#1/1 - // ( # CmdInsertElem s.ElemNo#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 18, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 17, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ElemNo#1/1 - // ( # CmdInsertRange s.ElemNo#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 16, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 15, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Mode#1/1 - //8: s.Number#1/1 - // ( # CmdInsertVar s.Mode#1 s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 14, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 13, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Left#1/1 - //8: s.Right#1/1 - // ( # CmdLinkBrackets s.Left#1 s.Right#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 12, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 11, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ElemNo#1/1 - // ( # CmdPushStack s.ElemNo#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 10, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 9, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Mode#1/1 - //8: s.Number#1/1 - //9: s.Sample#1/1 - // ( # CmdCopyVar s.Mode#1 s.Number#1 s.Sample#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icsVarLeft, 0, 9, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 7, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Offset#1/1 - // ( # CmdiOnFailGoTo s.Offset#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 6, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 6, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # CmdFail ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 5, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +14, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # CmdReturnResult ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # CmdInitB0 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[26]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Direction#1/1 - //8: s.Num#1/1 - //9: s.NumRanges#1/1 - // ( # CmdBrackets s.Direction#1 s.Num#1 s.NumRanges#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdBrackets::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiBracket::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.BracketNumber#1/1 - //8: s.VarNumber#1/1 - // ( # CmdClosedE # AlgLeft s.BracketNumber#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdClosedE::name, context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiContextSet::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: s.Direction#1/1 - //16: s.BracketNumber#1/1 - //17: s.Number#1/1 - //18: s.Number#1/2 - // ( # CmdNumber s.Direction#1 s.BracketNumber#1 s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdNumber::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[15], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[17], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[18], context[17])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Compare, "Compare" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[8], 256UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], lambda_ConvertInterpretCommand_0, "lambda_ConvertInterpretCommand_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: e.Name#1/1 - // ( # CmdIdent s.Direction#1 s.BracketNumber#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdIdent::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.OldBracketNumber#1/1 - //8: s.NewBracketNumber#1/1 - // ( # CmdSave s.OldBracketNumber#1 s.NewBracketNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSave::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiSave::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.BracketNum#1/1 - //8: s.VarNumber#1/1 - // ( # CmdiEPrepare s.BracketNum#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiEPrepare::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiEPrepare::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.BracketNum#1/1 - //8: s.VarNumber#1/1 - // ( # CmdiEStart s.BracketNum#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiEStart::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiEStart::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: s.Char#1/1 - // ( # CmdChar s.Direction#1 s.BracketNumber#1 s.Char#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdChar::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: e.Name#1/1 - // ( # CmdName s.Direction#1 s.BracketNumber#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdName::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: s.InnerBrackets#1/1 - //10: e.Name#1/1 - // ( # CmdADT s.Direction#1 s.BracketNumber#1 s.InnerBrackets#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdADT::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: s.Mode#1/1 - //10: s.VarNum#1/1 - //11: s.SampleNum#1/1 - // ( # CmdRepeated s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNum#1 s.SampleNum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdRepeated::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[11], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiRepeat::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.BracketNumber#1/1 - // ( # CmdEmpty # AlgLeft s.BracketNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdEmpty::name, context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiEmpty::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Direction#1/1 - //8: s.BracketNumber#1/1 - //9: s.Mode#1/1 - //10: s.VarNumber#1/1 - // ( # CmdVar s.Direction#1 s.BracketNumber#1 s.Mode#1 s.VarNumber#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdVar::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[10], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiVar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Text#1/1 - // ( # CmdComment e.Text#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdComment::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdComment::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # CmdEmptyResult ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdEmptyResult::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiEmptyResult::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: s.ElemNo#1/1 - //16: s.Number#1/1 - //17: s.Number#1/2 - // ( # CmdAllocateElem s.ElemNo#1 # ElNumber s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdAllocateElem::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[15], context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElNumber::name, context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[17], context[16])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Compare, "Compare" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[8], 256UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], lambda_ConvertInterpretCommand_1, "lambda_ConvertInterpretCommand_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ElemNo#1/1 - //8: s.Type#1/1 - //9: e.Info#1/1 - // ( # CmdAllocateElem s.ElemNo#1 s.Type#1 e.Info#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdAllocateElem::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ElemNo#1/1 - // ( # CmdInsertElem s.ElemNo#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInsertElem::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdSpliceElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ElemNo#1/1 - // ( # CmdInsertRange s.ElemNo#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInsertRange::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdSpliceRange::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Mode#1/1 - //8: s.Number#1/1 - // ( # CmdInsertVar s.Mode#1 s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdInsertVar::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdArrSplice::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Left#1/1 - //8: s.Right#1/1 - // ( # CmdLinkBrackets s.Left#1 s.Right#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdLinkBrackets::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiLinkBrackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ElemNo#1/1 - // ( # CmdPushStack s.ElemNo#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdPushStack::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiPushStack::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Mode#1/1 - //8: s.Number#1/1 - //9: s.Sample#1/1 - // ( # CmdCopyVar s.Mode#1 s.Number#1 s.Sample#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdCopyVar::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdArrCopy::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Offset#1/1 - // ( # CmdiOnFailGoTo s.Offset#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiOnFailGoTo::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiOnFailGoTo::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # CmdFail ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdFail::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiFail::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # CmdReturnResult ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdReturnResult::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiReturnResult::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # CmdInitB0 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_CmdInitB0::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiInitB0::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult RemoveNumber(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: s.Number#1/1 - //7: e.Name#1/1 - // ( s.Number#1 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 6, 2}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.Number#1/1 - //7: e.Name#1/1 - // ( s.Number#1 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[6], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_OutlineConstants_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //4: s.Id#2/1 - //5: s.Value#2/1 - // ( s.Id#2 s.Value#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 4, 2}, - {refalrts::icsVarLeft, 0, 5, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.Id#2/1 - //5: s.Value#2/1 - // ( s.Id#2 s.Value#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[4], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult OutlineConstants(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 54 elems - refalrts::Iter context[54]; - refalrts::zeros( context, 54 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { OutlineConstants, "OutlineConstants" }, - { Inc, "Inc" }, - { RemoveNumber, "RemoveNumber" }, - { Map, "Map" }, - { lambda_OutlineConstants_0, "lambda_OutlineConstants_0" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_ElString::name, - & ident_CmdiAllocateElem::name, - & ident_ElHugeNumber::name, - & ident_CmdiHugeNum::name, - & ident_ElIdent::name, - & ident_CmdiIdent::name, - & ident_CmdiADT::name, - & ident_ElName::name, - & ident_CmdiName::name, - & ident_CmdiStringArray::name, - & ident_CmdiNumberArray::name, - & ident_CmdiLabelArray::name, - & ident_CmdiFuncArray::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +88, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //38: s.NextFunc#1/1 - //39: e.Funcs#1/1 - //41: s.NextLabel#1/1 - //42: e.Labels#1/1 - //44: s.NextNumber#1/1 - //45: e.Numbers#1/1 - //47: s.NextString#1/1 - //48: e.Strings#1/1 - // ( s.NextFunc#1 e.Funcs#1 ) ( s.NextLabel#1 e.Labels#1 ) ( s.NextNumber#1 e.Numbers#1 ) ( s.NextString#1 e.Strings#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 38, 2}, - {refalrts::icContextSet, 0, 39, 2}, - {refalrts::icsVarLeft, 0, 41, 4}, - {refalrts::icContextSet, 0, 42, 4}, - {refalrts::icsVarLeft, 0, 44, 6}, - {refalrts::icContextSet, 0, 45, 6}, - {refalrts::icsVarLeft, 0, 47, 8}, - {refalrts::icContextSet, 0, 48, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icIdent, 0, 12, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 3, 13}, - {refalrts::icFunc, 0, 2, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icIdent, 0, 11, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 19}, - {refalrts::icFunc, 0, 3, 20}, - {refalrts::icFunc, 0, 2, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icIdent, 0, 10, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 26}, - {refalrts::icFunc, 0, 3, 27}, - {refalrts::icFunc, 0, 4, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 31}, - {refalrts::icIdent, 0, 9, 32}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 33}, - {refalrts::icFunc, 0, 3, 34}, - {refalrts::icFunc, 0, 2, 35}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 36}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 37}, - {refalrts::icLinkBrackets, 31, 37, 0}, - {refalrts::icSpliceElem, 0, 0, 37}, - {refalrts::icPushStack, 0, 0, 36}, - {refalrts::icPushStack, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 36}, - {refalrts::icSpliceEVar, 0, 0, 48}, - {refalrts::icSpliceElem, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 24, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 17, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 10, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +78, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Labels#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextFunc#1/1 - //41: s.Direction#1/1 - //42: s.BracketNum#1/1 - //43: e.Func#1/1 - //45: e.Func#1/2 - //47: e.Funcs_B#1/1 - //49: e.Funcs_E#1/1 - //51: s.Num#1/1 - //52: s.Num#1/2 - // ( s.NextFunc#1 e.Funcs_B#1 ( s.Num#1 e.Func#1 ) e.Funcs_E#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiName s.Direction#1 s.BracketNum#1 e.Func#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 8, 10}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 6}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 2}, - {refalrts::icsVarLeft, 0, 41, 10}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icContextSet, 0, 43, 10}, - {refalrts::icEPrepare, 0, 47, 2}, - {refalrts::icEStart, 0, 47, 2}, - {refalrts::icSave, 0, 14, 2}, - {refalrts::icBracketLeft, 0, 12, 14}, - {refalrts::iceRepeatRight, 45, 43, 12}, - {refalrts::icContextSet, 0, 49, 14}, - {refalrts::icsVarLeft, 0, 51, 12}, - {refalrts::icEmpty, 0, 0, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 52, 51, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icIdent, 0, 8, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 29, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 52}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 18, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 49}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +79, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //31: e.Labels#1/1 - //33: e.Numbers#1/1 - //35: e.Strings#1/1 - //37: e.Commands#1/1 - //39: s.NextFunc#1/1 - //40: e.Funcs#1/1 - //42: s.Direction#1/1 - //43: s.BracketNum#1/1 - //44: e.Func#1/1 - //46: s.NextFunc#1/2 - //47: s.NextFunc#1/3 - // ( s.NextFunc#1 e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiName s.Direction#1 s.BracketNum#1 e.Func#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 8, 10}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icContextSet, 0, 37, 0}, - {refalrts::icsVarLeft, 0, 39, 2}, - {refalrts::icContextSet, 0, 40, 2}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icContextSet, 0, 44, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 46, 39, 0}, - {refalrts::icCopySTVar, 47, 46, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 1, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 8, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icLinkBrackets, 28, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 14, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +79, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //33: e.Labels#1/1 - //35: e.Numbers#1/1 - //37: e.Strings#1/1 - //39: e.Commands#1/1 - //41: s.NextFunc#1/1 - //42: s.ElemNo#1/1 - //43: e.Func#1/1 - //45: e.Func#1/2 - //47: e.Funcs_B#1/1 - //49: e.Funcs_E#1/1 - //51: s.Num#1/1 - //52: s.Num#1/2 - // ( s.NextFunc#1 e.Funcs_B#1 ( s.Num#1 e.Func#1 ) e.Funcs_E#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElName e.Func#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 33, 4}, - {refalrts::icContextSet, 0, 35, 6}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 2}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icIdentLeft, 0, 7, 10}, - {refalrts::icContextSet, 0, 43, 10}, - {refalrts::icEPrepare, 0, 47, 2}, - {refalrts::icEStart, 0, 47, 2}, - {refalrts::icSave, 0, 14, 2}, - {refalrts::icBracketLeft, 0, 12, 14}, - {refalrts::iceRepeatRight, 45, 43, 12}, - {refalrts::icContextSet, 0, 49, 14}, - {refalrts::icsVarLeft, 0, 51, 12}, - {refalrts::icEmpty, 0, 0, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 52, 51, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icIdent, 0, 1, 30}, - {refalrts::icIdent, 0, 7, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 32}, - {refalrts::icLinkBrackets, 29, 32, 0}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 52}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 18, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 49}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Labels#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextFunc#1/1 - //41: e.Funcs#1/1 - //43: s.ElemNo#1/1 - //44: e.Func#1/1 - //46: s.NextFunc#1/2 - //47: s.NextFunc#1/3 - // ( s.NextFunc#1 e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElName e.Func#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 6}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 2}, - {refalrts::icContextSet, 0, 41, 2}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icIdentLeft, 0, 7, 10}, - {refalrts::icContextSet, 0, 44, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 46, 40, 0}, - {refalrts::icCopySTVar, 47, 46, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 1, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 1, 29}, - {refalrts::icIdent, 0, 7, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 28, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 14, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Labels#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextFunc#1/1 - //41: s.Direction#1/1 - //42: s.BracketNum#1/1 - //43: s.InnerBrackets#1/1 - //44: e.Func#1/1 - //46: e.Func#1/2 - //48: e.Funcs_B#1/1 - //50: e.Funcs_E#1/1 - //52: s.Num#1/1 - //53: s.Num#1/2 - // ( s.NextFunc#1 e.Funcs_B#1 ( s.Num#1 e.Func#1 ) e.Funcs_E#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiADT s.Direction#1 s.BracketNum#1 s.InnerBrackets#1 e.Func#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 6}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 2}, - {refalrts::icsVarLeft, 0, 41, 10}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icContextSet, 0, 44, 10}, - {refalrts::icEPrepare, 0, 48, 2}, - {refalrts::icEStart, 0, 48, 2}, - {refalrts::icSave, 0, 14, 2}, - {refalrts::icBracketLeft, 0, 12, 14}, - {refalrts::iceRepeatRight, 46, 44, 12}, - {refalrts::icContextSet, 0, 50, 14}, - {refalrts::icsVarLeft, 0, 52, 12}, - {refalrts::icEmpty, 0, 0, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 53, 52, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icIdent, 0, 6, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 29, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 53}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 18, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 50}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 52}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 48}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +81, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //31: e.Labels#1/1 - //33: e.Numbers#1/1 - //35: e.Strings#1/1 - //37: e.Commands#1/1 - //39: s.NextFunc#1/1 - //40: e.Funcs#1/1 - //42: s.Direction#1/1 - //43: s.BracketNum#1/1 - //44: s.InnerBrackets#1/1 - //45: e.Func#1/1 - //47: s.NextFunc#1/2 - //48: s.NextFunc#1/3 - // ( s.NextFunc#1 e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiADT s.Direction#1 s.BracketNum#1 s.InnerBrackets#1 e.Func#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icContextSet, 0, 37, 0}, - {refalrts::icsVarLeft, 0, 39, 2}, - {refalrts::icContextSet, 0, 40, 2}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icsVarLeft, 0, 44, 10}, - {refalrts::icContextSet, 0, 45, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 47, 39, 0}, - {refalrts::icCopySTVar, 48, 47, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 1, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 6, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icLinkBrackets, 28, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 48}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 14, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +78, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Funcs#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextLabel#1/1 - //41: s.Direction#1/1 - //42: s.BracketNum#1/1 - //43: e.Label#1/1 - //45: e.Label#1/2 - //47: e.Labels_B#1/1 - //49: e.Labels_E#1/1 - //51: s.Num#1/1 - //52: s.Num#1/2 - // ( e.Funcs#1 ) ( s.NextLabel#1 e.Labels_B#1 ( s.Num#1 e.Label#1 ) e.Labels_E#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiIdent s.Direction#1 s.BracketNum#1 e.Label#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 5, 10}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 6}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 4}, - {refalrts::icsVarLeft, 0, 41, 10}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icContextSet, 0, 43, 10}, - {refalrts::icEPrepare, 0, 47, 4}, - {refalrts::icEStart, 0, 47, 4}, - {refalrts::icSave, 0, 14, 4}, - {refalrts::icBracketLeft, 0, 12, 14}, - {refalrts::iceRepeatRight, 45, 43, 12}, - {refalrts::icContextSet, 0, 49, 14}, - {refalrts::icsVarLeft, 0, 51, 12}, - {refalrts::icEmpty, 0, 0, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 52, 51, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icIdent, 0, 5, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 29, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 52}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 49}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +79, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //31: e.Funcs#1/1 - //33: e.Numbers#1/1 - //35: e.Strings#1/1 - //37: e.Commands#1/1 - //39: s.NextLabel#1/1 - //40: e.Labels#1/1 - //42: s.Direction#1/1 - //43: s.BracketNum#1/1 - //44: e.Label#1/1 - //46: s.NextLabel#1/2 - //47: s.NextLabel#1/3 - // ( e.Funcs#1 ) ( s.NextLabel#1 e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiIdent s.Direction#1 s.BracketNum#1 e.Label#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 5, 10}, - {refalrts::icContextSet, 0, 31, 2}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icContextSet, 0, 37, 0}, - {refalrts::icsVarLeft, 0, 39, 4}, - {refalrts::icContextSet, 0, 40, 4}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icContextSet, 0, 44, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 46, 39, 0}, - {refalrts::icCopySTVar, 47, 46, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 1, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 5, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icLinkBrackets, 28, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 16, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +79, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //33: e.Funcs#1/1 - //35: e.Numbers#1/1 - //37: e.Strings#1/1 - //39: e.Commands#1/1 - //41: s.NextLabel#1/1 - //42: s.ElemNo#1/1 - //43: e.Label#1/1 - //45: e.Label#1/2 - //47: e.Labels_B#1/1 - //49: e.Labels_E#1/1 - //51: s.Num#1/1 - //52: s.Num#1/2 - // ( e.Funcs#1 ) ( s.NextLabel#1 e.Labels_B#1 ( s.Num#1 e.Label#1 ) e.Labels_E#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElIdent e.Label#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::icContextSet, 0, 35, 6}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 4}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icIdentLeft, 0, 4, 10}, - {refalrts::icContextSet, 0, 43, 10}, - {refalrts::icEPrepare, 0, 47, 4}, - {refalrts::icEStart, 0, 47, 4}, - {refalrts::icSave, 0, 14, 4}, - {refalrts::icBracketLeft, 0, 12, 14}, - {refalrts::iceRepeatRight, 45, 43, 12}, - {refalrts::icContextSet, 0, 49, 14}, - {refalrts::icsVarLeft, 0, 51, 12}, - {refalrts::icEmpty, 0, 0, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 52, 51, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icIdent, 0, 1, 30}, - {refalrts::icIdent, 0, 4, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 32}, - {refalrts::icLinkBrackets, 29, 32, 0}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 52}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 49}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Funcs#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextLabel#1/1 - //41: e.Labels#1/1 - //43: s.ElemNo#1/1 - //44: e.Label#1/1 - //46: s.NextLabel#1/2 - //47: s.NextLabel#1/3 - // ( e.Funcs#1 ) ( s.NextLabel#1 e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElIdent e.Label#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 6}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 4}, - {refalrts::icContextSet, 0, 41, 4}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icIdentLeft, 0, 4, 10}, - {refalrts::icContextSet, 0, 44, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 46, 40, 0}, - {refalrts::icCopySTVar, 47, 46, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 1, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 1, 29}, - {refalrts::icIdent, 0, 4, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 28, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 16, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +79, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Funcs#1/1 - //34: e.Labels#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextNumId#1/1 - //41: s.Direction#1/1 - //42: s.BracketNum#1/1 - //43: s.Number#1/1 - //44: s.Number#1/2 - //45: e.Numbers_B#1/1 - //47: e.Numbers_E#1/1 - //49: s.Id#1/1 - //50: s.Id#1/2 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( s.NextNumId#1 e.Numbers_B#1 ( s.Id#1 s.Number#1 ) e.Numbers_E#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiHugeNum s.Direction#1 s.BracketNum#1 s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 3, 10}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 6}, - {refalrts::icsVarLeft, 0, 41, 10}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEPrepare, 0, 45, 6}, - {refalrts::icEStart, 0, 45, 6}, - {refalrts::icSave, 0, 14, 6}, - {refalrts::icBracketLeft, 0, 12, 14}, - {refalrts::icsRepeatRight, 44, 43, 12}, - {refalrts::icContextSet, 0, 47, 14}, - {refalrts::icsVarLeft, 0, 49, 12}, - {refalrts::icEmpty, 0, 0, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 50, 49, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icIdent, 0, 3, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 29, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 50}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 22, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 49}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //31: e.Funcs#1/1 - //33: e.Labels#1/1 - //35: e.Strings#1/1 - //37: e.Commands#1/1 - //39: s.NextNumId#1/1 - //40: e.Numbers#1/1 - //42: s.Direction#1/1 - //43: s.BracketNum#1/1 - //44: s.Number#1/1 - //45: s.NextNumId#1/2 - //46: s.NextNumId#1/3 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( s.NextNumId#1 e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiHugeNum s.Direction#1 s.BracketNum#1 s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 3, 10}, - {refalrts::icContextSet, 0, 31, 2}, - {refalrts::icContextSet, 0, 33, 4}, - {refalrts::icContextSet, 0, 35, 8}, - {refalrts::icContextSet, 0, 37, 0}, - {refalrts::icsVarLeft, 0, 39, 6}, - {refalrts::icContextSet, 0, 40, 6}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icsVarLeft, 0, 44, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 45, 39, 0}, - {refalrts::icCopySTVar, 46, 45, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 19}, - {refalrts::icFunc, 0, 1, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 3, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icLinkBrackets, 28, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 18, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //33: e.Funcs#1/1 - //35: e.Labels#1/1 - //37: e.Strings#1/1 - //39: e.Commands#1/1 - //41: s.NextNumId#1/1 - //42: s.ElemNo#1/1 - //43: s.Number#1/1 - //44: s.Number#1/2 - //45: e.Numbers_B#1/1 - //47: e.Numbers_E#1/1 - //49: s.Id#1/1 - //50: s.Id#1/2 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( s.NextNumId#1 e.Numbers_B#1 ( s.Id#1 s.Number#1 ) e.Numbers_E#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElHugeNumber s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 6}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icIdentLeft, 0, 2, 10}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEPrepare, 0, 45, 6}, - {refalrts::icEStart, 0, 45, 6}, - {refalrts::icSave, 0, 14, 6}, - {refalrts::icBracketLeft, 0, 12, 14}, - {refalrts::icsRepeatRight, 44, 43, 12}, - {refalrts::icContextSet, 0, 47, 14}, - {refalrts::icsVarLeft, 0, 49, 12}, - {refalrts::icEmpty, 0, 0, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 50, 49, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icIdent, 0, 1, 30}, - {refalrts::icIdent, 0, 2, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 32}, - {refalrts::icLinkBrackets, 29, 32, 0}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 50}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 22, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 49}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +81, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Funcs#1/1 - //34: e.Labels#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextNumId#1/1 - //41: e.Numbers#1/1 - //43: s.ElemNo#1/1 - //44: s.Number#1/1 - //45: s.NextNumId#1/2 - //46: s.NextNumId#1/3 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( s.NextNumId#1 e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElHugeNumber s.Number#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 8}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 6}, - {refalrts::icContextSet, 0, 41, 6}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icIdentLeft, 0, 2, 10}, - {refalrts::icsVarLeft, 0, 44, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 45, 40, 0}, - {refalrts::icCopySTVar, 46, 45, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 19}, - {refalrts::icFunc, 0, 1, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 1, 29}, - {refalrts::icIdent, 0, 2, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 28, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 18, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +79, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //33: e.Funcs#1/1 - //35: e.Labels#1/1 - //37: e.Numbers#1/1 - //39: e.Commands#1/1 - //41: s.NextStringId#1/1 - //42: s.ElemNo#1/1 - //43: e.String#1/1 - //45: e.String#1/2 - //47: e.Strings_B#1/1 - //49: e.Strings_E#1/1 - //51: s.Id#1/1 - //52: s.Id#1/2 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( s.NextStringId#1 e.Strings_B#1 ( s.Id#1 e.String#1 ) e.Strings_E#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElString e.String#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icIdentLeft, 0, 0, 10}, - {refalrts::icContextSet, 0, 43, 10}, - {refalrts::icEPrepare, 0, 47, 8}, - {refalrts::icEStart, 0, 47, 8}, - {refalrts::icSave, 0, 14, 8}, - {refalrts::icBracketLeft, 0, 12, 14}, - {refalrts::iceRepeatRight, 45, 43, 12}, - {refalrts::icContextSet, 0, 49, 14}, - {refalrts::icsVarLeft, 0, 51, 12}, - {refalrts::icEmpty, 0, 0, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 52, 51, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icIdent, 0, 1, 30}, - {refalrts::icIdent, 0, 0, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 32}, - {refalrts::icLinkBrackets, 29, 32, 0}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 52}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 24, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 49}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 51}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Funcs#1/1 - //34: e.Labels#1/1 - //36: e.Numbers#1/1 - //38: e.Commands#1/1 - //40: s.NextStringId#1/1 - //41: e.Strings#1/1 - //43: s.ElemNo#1/1 - //44: e.String#1/1 - //46: s.NextStringId#1/2 - //47: s.NextStringId#1/3 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( s.NextStringId#1 e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElString e.String#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketRight, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 6}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 8}, - {refalrts::icContextSet, 0, 41, 8}, - {refalrts::icsVarLeft, 0, 43, 10}, - {refalrts::icIdentLeft, 0, 0, 10}, - {refalrts::icContextSet, 0, 44, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 46, 40, 0}, - {refalrts::icCopySTVar, 47, 46, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 1, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 28}, - {refalrts::icIdent, 0, 1, 29}, - {refalrts::icIdent, 0, 0, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icLinkBrackets, 28, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 20, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.Funcs#1/1 - //23: e.Labels#1/1 - //25: e.Numbers#1/1 - //27: e.Strings#1/1 - //29: t.OtherCommand#1/1 - //30: e.Commands#1/1 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 t.OtherCommand#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 4}, - {refalrts::icContextSet, 0, 25, 6}, - {refalrts::icContextSet, 0, 27, 8}, - {refalrts::ictVarRight, 0, 29, 0}, - {refalrts::icContextSet, 0, 30, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[25]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //38: s.NextFunc#1/1 - //39: e.Funcs#1/1 - //41: s.NextLabel#1/1 - //42: e.Labels#1/1 - //44: s.NextNumber#1/1 - //45: e.Numbers#1/1 - //47: s.NextString#1/1 - //48: e.Strings#1/1 - // ( s.NextFunc#1 e.Funcs#1 ) ( s.NextLabel#1 e.Labels#1 ) ( s.NextNumber#1 e.Numbers#1 ) ( s.NextString#1 e.Strings#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[38], context[2], context[3] ) ) - continue; - context[39] = context[2]; - context[40] = context[3]; - if( ! refalrts::svar_left( context[41], context[4], context[5] ) ) - continue; - context[42] = context[4]; - context[43] = context[5]; - if( ! refalrts::svar_left( context[44], context[6], context[7] ) ) - continue; - context[45] = context[6]; - context[46] = context[7]; - if( ! refalrts::svar_left( context[47], context[8], context[9] ) ) - continue; - context[48] = context[8]; - context[49] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[11], & ident_CmdiFuncArray::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], RemoveNumber, "RemoveNumber" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_CmdiLabelArray::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], RemoveNumber, "RemoveNumber" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[25], & ident_CmdiNumberArray::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[27], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[28], lambda_OutlineConstants_0, "lambda_OutlineConstants_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[32], & ident_CmdiStringArray::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[33] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[34], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[35], RemoveNumber, "RemoveNumber" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[36] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[37] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[31], context[37] ); - res = refalrts::splice_elem( res, context[37] ); - refalrts::push_stack( context[36] ); - refalrts::push_stack( context[33] ); - res = refalrts::splice_elem( res, context[36] ); - res = refalrts::splice_evar( res, context[48], context[49] ); - res = refalrts::splice_elem( res, context[35] ); - res = refalrts::splice_elem( res, context[34] ); - res = refalrts::splice_elem( res, context[33] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[24], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[26] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[17], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[19] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[10], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Labels#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextFunc#1/1 - //41: s.Direction#1/1 - //42: s.BracketNum#1/1 - //43: e.Func#1/1 - //45: e.Func#1/2 - //47: e.Funcs_B#1/1 - //49: e.Funcs_E#1/1 - //51: s.Num#1/1 - //52: s.Num#1/2 - // ( s.NextFunc#1 e.Funcs_B#1 ( s.Num#1 e.Func#1 ) e.Funcs_E#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiName s.Direction#1 s.BracketNum#1 e.Func#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiName::name, context[10], context[11] ) ) - continue; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[6]; - context[35] = context[7]; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[41], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - context[43] = context[10]; - context[44] = context[11]; - context[47] = 0; - context[48] = 0; - refalrts::start_e_loop(); - do { - context[14] = context[2]; - context[15] = context[3]; - context[12] = 0; - context[13] = 0; - if( ! refalrts::brackets_left( context[12], context[13], context[14], context[15] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[45], context[46], context[43], context[44], context[12], context[13] ) ) - continue; - context[49] = context[14]; - context[50] = context[15]; - if( ! refalrts::svar_left( context[51], context[12], context[13] ) ) - continue; - if( ! refalrts::empty_seq( context[12], context[13] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[52], context[51])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_CmdiName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[52] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[18], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[49], context[50] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[51] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[47], context[48], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //31: e.Labels#1/1 - //33: e.Numbers#1/1 - //35: e.Strings#1/1 - //37: e.Commands#1/1 - //39: s.NextFunc#1/1 - //40: e.Funcs#1/1 - //42: s.Direction#1/1 - //43: s.BracketNum#1/1 - //44: e.Func#1/1 - //46: s.NextFunc#1/2 - //47: s.NextFunc#1/3 - // ( s.NextFunc#1 e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiName s.Direction#1 s.BracketNum#1 e.Func#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiName::name, context[10], context[11] ) ) - continue; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[6]; - context[34] = context[7]; - context[35] = context[8]; - context[36] = context[9]; - context[37] = context[0]; - context[38] = context[1]; - if( ! refalrts::svar_left( context[39], context[2], context[3] ) ) - continue; - context[40] = context[2]; - context[41] = context[3]; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - context[44] = context[10]; - context[45] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[46], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[47], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CmdiName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[14], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.Labels#1/1 - //35: e.Numbers#1/1 - //37: e.Strings#1/1 - //39: e.Commands#1/1 - //41: s.NextFunc#1/1 - //42: s.ElemNo#1/1 - //43: e.Func#1/1 - //45: e.Func#1/2 - //47: e.Funcs_B#1/1 - //49: e.Funcs_E#1/1 - //51: s.Num#1/1 - //52: s.Num#1/2 - // ( s.NextFunc#1 e.Funcs_B#1 ( s.Num#1 e.Func#1 ) e.Funcs_E#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElName e.Func#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[10], context[11] ) ) - continue; - context[33] = context[4]; - context[34] = context[5]; - context[35] = context[6]; - context[36] = context[7]; - context[37] = context[8]; - context[38] = context[9]; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElName::name, context[10], context[11] ) ) - continue; - context[43] = context[10]; - context[44] = context[11]; - context[47] = 0; - context[48] = 0; - refalrts::start_e_loop(); - do { - context[14] = context[2]; - context[15] = context[3]; - context[12] = 0; - context[13] = 0; - if( ! refalrts::brackets_left( context[12], context[13], context[14], context[15] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[45], context[46], context[43], context[44], context[12], context[13] ) ) - continue; - context[49] = context[14]; - context[50] = context[15]; - if( ! refalrts::svar_left( context[51], context[12], context[13] ) ) - continue; - if( ! refalrts::empty_seq( context[12], context[13] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[52], context[51])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[31], & ident_ElName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[32] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[32] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_stvar( res, context[52] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[18], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[49], context[50] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[51] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[47], context[48], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Labels#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextFunc#1/1 - //41: e.Funcs#1/1 - //43: s.ElemNo#1/1 - //44: e.Func#1/1 - //46: s.NextFunc#1/2 - //47: s.NextFunc#1/3 - // ( s.NextFunc#1 e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElName e.Func#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[10], context[11] ) ) - continue; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[6]; - context[35] = context[7]; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[2], context[3] ) ) - continue; - context[41] = context[2]; - context[42] = context[3]; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElName::name, context[10], context[11] ) ) - continue; - context[44] = context[10]; - context[45] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[46], context[40])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[47], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_ElName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[14], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Labels#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextFunc#1/1 - //41: s.Direction#1/1 - //42: s.BracketNum#1/1 - //43: s.InnerBrackets#1/1 - //44: e.Func#1/1 - //46: e.Func#1/2 - //48: e.Funcs_B#1/1 - //50: e.Funcs_E#1/1 - //52: s.Num#1/1 - //53: s.Num#1/2 - // ( s.NextFunc#1 e.Funcs_B#1 ( s.Num#1 e.Func#1 ) e.Funcs_E#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiADT s.Direction#1 s.BracketNum#1 s.InnerBrackets#1 e.Func#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiADT::name, context[10], context[11] ) ) - continue; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[6]; - context[35] = context[7]; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[41], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - context[44] = context[10]; - context[45] = context[11]; - context[48] = 0; - context[49] = 0; - refalrts::start_e_loop(); - do { - context[14] = context[2]; - context[15] = context[3]; - context[12] = 0; - context[13] = 0; - if( ! refalrts::brackets_left( context[12], context[13], context[14], context[15] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[46], context[47], context[44], context[45], context[12], context[13] ) ) - continue; - context[50] = context[14]; - context[51] = context[15]; - if( ! refalrts::svar_left( context[52], context[12], context[13] ) ) - continue; - if( ! refalrts::empty_seq( context[12], context[13] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[53], context[52])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_CmdiADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[53] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[18], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[50], context[51] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_stvar( res, context[52] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[48], context[49] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[48], context[49], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //31: e.Labels#1/1 - //33: e.Numbers#1/1 - //35: e.Strings#1/1 - //37: e.Commands#1/1 - //39: s.NextFunc#1/1 - //40: e.Funcs#1/1 - //42: s.Direction#1/1 - //43: s.BracketNum#1/1 - //44: s.InnerBrackets#1/1 - //45: e.Func#1/1 - //47: s.NextFunc#1/2 - //48: s.NextFunc#1/3 - // ( s.NextFunc#1 e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiADT s.Direction#1 s.BracketNum#1 s.InnerBrackets#1 e.Func#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiADT::name, context[10], context[11] ) ) - continue; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[6]; - context[34] = context[7]; - context[35] = context[8]; - context[36] = context[9]; - context[37] = context[0]; - context[38] = context[1]; - if( ! refalrts::svar_left( context[39], context[2], context[3] ) ) - continue; - context[40] = context[2]; - context[41] = context[3]; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[44], context[10], context[11] ) ) - continue; - context[45] = context[10]; - context[46] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[47], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[48], context[47])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CmdiADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[48] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[14], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Funcs#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextLabel#1/1 - //41: s.Direction#1/1 - //42: s.BracketNum#1/1 - //43: e.Label#1/1 - //45: e.Label#1/2 - //47: e.Labels_B#1/1 - //49: e.Labels_E#1/1 - //51: s.Num#1/1 - //52: s.Num#1/2 - // ( e.Funcs#1 ) ( s.NextLabel#1 e.Labels_B#1 ( s.Num#1 e.Label#1 ) e.Labels_E#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiIdent s.Direction#1 s.BracketNum#1 e.Label#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiIdent::name, context[10], context[11] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[6]; - context[35] = context[7]; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[41], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - context[43] = context[10]; - context[44] = context[11]; - context[47] = 0; - context[48] = 0; - refalrts::start_e_loop(); - do { - context[14] = context[4]; - context[15] = context[5]; - context[12] = 0; - context[13] = 0; - if( ! refalrts::brackets_left( context[12], context[13], context[14], context[15] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[45], context[46], context[43], context[44], context[12], context[13] ) ) - continue; - context[49] = context[14]; - context[50] = context[15]; - if( ! refalrts::svar_left( context[51], context[12], context[13] ) ) - continue; - if( ! refalrts::empty_seq( context[12], context[13] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[52], context[51])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_CmdiIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[52] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[49], context[50] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[51] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[47], context[48], context[4], context[5] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //31: e.Funcs#1/1 - //33: e.Numbers#1/1 - //35: e.Strings#1/1 - //37: e.Commands#1/1 - //39: s.NextLabel#1/1 - //40: e.Labels#1/1 - //42: s.Direction#1/1 - //43: s.BracketNum#1/1 - //44: e.Label#1/1 - //46: s.NextLabel#1/2 - //47: s.NextLabel#1/3 - // ( e.Funcs#1 ) ( s.NextLabel#1 e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiIdent s.Direction#1 s.BracketNum#1 e.Label#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiIdent::name, context[10], context[11] ) ) - continue; - context[31] = context[2]; - context[32] = context[3]; - context[33] = context[6]; - context[34] = context[7]; - context[35] = context[8]; - context[36] = context[9]; - context[37] = context[0]; - context[38] = context[1]; - if( ! refalrts::svar_left( context[39], context[4], context[5] ) ) - continue; - context[40] = context[4]; - context[41] = context[5]; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - context[44] = context[10]; - context[45] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[46], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[47], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CmdiIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[16], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.Funcs#1/1 - //35: e.Numbers#1/1 - //37: e.Strings#1/1 - //39: e.Commands#1/1 - //41: s.NextLabel#1/1 - //42: s.ElemNo#1/1 - //43: e.Label#1/1 - //45: e.Label#1/2 - //47: e.Labels_B#1/1 - //49: e.Labels_E#1/1 - //51: s.Num#1/1 - //52: s.Num#1/2 - // ( e.Funcs#1 ) ( s.NextLabel#1 e.Labels_B#1 ( s.Num#1 e.Label#1 ) e.Labels_E#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElIdent e.Label#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[10], context[11] ) ) - continue; - context[33] = context[2]; - context[34] = context[3]; - context[35] = context[6]; - context[36] = context[7]; - context[37] = context[8]; - context[38] = context[9]; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElIdent::name, context[10], context[11] ) ) - continue; - context[43] = context[10]; - context[44] = context[11]; - context[47] = 0; - context[48] = 0; - refalrts::start_e_loop(); - do { - context[14] = context[4]; - context[15] = context[5]; - context[12] = 0; - context[13] = 0; - if( ! refalrts::brackets_left( context[12], context[13], context[14], context[15] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[45], context[46], context[43], context[44], context[12], context[13] ) ) - continue; - context[49] = context[14]; - context[50] = context[15]; - if( ! refalrts::svar_left( context[51], context[12], context[13] ) ) - continue; - if( ! refalrts::empty_seq( context[12], context[13] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[52], context[51])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[31], & ident_ElIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[32] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[32] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_stvar( res, context[52] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[49], context[50] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[51] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[47], context[48], context[4], context[5] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Funcs#1/1 - //34: e.Numbers#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextLabel#1/1 - //41: e.Labels#1/1 - //43: s.ElemNo#1/1 - //44: e.Label#1/1 - //46: s.NextLabel#1/2 - //47: s.NextLabel#1/3 - // ( e.Funcs#1 ) ( s.NextLabel#1 e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElIdent e.Label#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[10], context[11] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[6]; - context[35] = context[7]; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[4], context[5] ) ) - continue; - context[41] = context[4]; - context[42] = context[5]; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElIdent::name, context[10], context[11] ) ) - continue; - context[44] = context[10]; - context[45] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[46], context[40])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[47], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_ElIdent::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[16], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Funcs#1/1 - //34: e.Labels#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextNumId#1/1 - //41: s.Direction#1/1 - //42: s.BracketNum#1/1 - //43: s.Number#1/1 - //44: s.Number#1/2 - //45: e.Numbers_B#1/1 - //47: e.Numbers_E#1/1 - //49: s.Id#1/1 - //50: s.Id#1/2 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( s.NextNumId#1 e.Numbers_B#1 ( s.Id#1 s.Number#1 ) e.Numbers_E#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiHugeNum s.Direction#1 s.BracketNum#1 s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiHugeNum::name, context[10], context[11] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[41], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - context[45] = 0; - context[46] = 0; - refalrts::start_e_loop(); - do { - context[14] = context[6]; - context[15] = context[7]; - context[12] = 0; - context[13] = 0; - if( ! refalrts::brackets_left( context[12], context[13], context[14], context[15] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[44], context[43], context[12], context[13] ) ) - continue; - context[47] = context[14]; - context[48] = context[15]; - if( ! refalrts::svar_left( context[49], context[12], context[13] ) ) - continue; - if( ! refalrts::empty_seq( context[12], context[13] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[50], context[49])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_CmdiHugeNum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[50] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[22], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_stvar( res, context[49] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[45], context[46], context[6], context[7] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //31: e.Funcs#1/1 - //33: e.Labels#1/1 - //35: e.Strings#1/1 - //37: e.Commands#1/1 - //39: s.NextNumId#1/1 - //40: e.Numbers#1/1 - //42: s.Direction#1/1 - //43: s.BracketNum#1/1 - //44: s.Number#1/1 - //45: s.NextNumId#1/2 - //46: s.NextNumId#1/3 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( s.NextNumId#1 e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiHugeNum s.Direction#1 s.BracketNum#1 s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiHugeNum::name, context[10], context[11] ) ) - continue; - context[31] = context[2]; - context[32] = context[3]; - context[33] = context[4]; - context[34] = context[5]; - context[35] = context[8]; - context[36] = context[9]; - context[37] = context[0]; - context[38] = context[1]; - if( ! refalrts::svar_left( context[39], context[6], context[7] ) ) - continue; - context[40] = context[6]; - context[41] = context[7]; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[44], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[45], context[39])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[46], context[45])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CmdiHugeNum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[18], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[19] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.Funcs#1/1 - //35: e.Labels#1/1 - //37: e.Strings#1/1 - //39: e.Commands#1/1 - //41: s.NextNumId#1/1 - //42: s.ElemNo#1/1 - //43: s.Number#1/1 - //44: s.Number#1/2 - //45: e.Numbers_B#1/1 - //47: e.Numbers_E#1/1 - //49: s.Id#1/1 - //50: s.Id#1/2 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( s.NextNumId#1 e.Numbers_B#1 ( s.Id#1 s.Number#1 ) e.Numbers_E#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElHugeNumber s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[10], context[11] ) ) - continue; - context[33] = context[2]; - context[34] = context[3]; - context[35] = context[4]; - context[36] = context[5]; - context[37] = context[8]; - context[38] = context[9]; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElHugeNumber::name, context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - context[45] = 0; - context[46] = 0; - refalrts::start_e_loop(); - do { - context[14] = context[6]; - context[15] = context[7]; - context[12] = 0; - context[13] = 0; - if( ! refalrts::brackets_left( context[12], context[13], context[14], context[15] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[44], context[43], context[12], context[13] ) ) - continue; - context[47] = context[14]; - context[48] = context[15]; - if( ! refalrts::svar_left( context[49], context[12], context[13] ) ) - continue; - if( ! refalrts::empty_seq( context[12], context[13] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[50], context[49])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[31], & ident_ElHugeNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[32] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[32] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_stvar( res, context[50] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[22], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_stvar( res, context[49] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[45], context[46], context[6], context[7] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Funcs#1/1 - //34: e.Labels#1/1 - //36: e.Strings#1/1 - //38: e.Commands#1/1 - //40: s.NextNumId#1/1 - //41: e.Numbers#1/1 - //43: s.ElemNo#1/1 - //44: s.Number#1/1 - //45: s.NextNumId#1/2 - //46: s.NextNumId#1/3 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( s.NextNumId#1 e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElHugeNumber s.Number#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[10], context[11] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[8]; - context[37] = context[9]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[6], context[7] ) ) - continue; - context[41] = context[6]; - context[42] = context[7]; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElHugeNumber::name, context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[44], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[45], context[40])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[46], context[45])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_ElHugeNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[18], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[19] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.Funcs#1/1 - //35: e.Labels#1/1 - //37: e.Numbers#1/1 - //39: e.Commands#1/1 - //41: s.NextStringId#1/1 - //42: s.ElemNo#1/1 - //43: e.String#1/1 - //45: e.String#1/2 - //47: e.Strings_B#1/1 - //49: e.Strings_E#1/1 - //51: s.Id#1/1 - //52: s.Id#1/2 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( s.NextStringId#1 e.Strings_B#1 ( s.Id#1 e.String#1 ) e.Strings_E#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElString e.String#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[10], context[11] ) ) - continue; - context[33] = context[2]; - context[34] = context[3]; - context[35] = context[4]; - context[36] = context[5]; - context[37] = context[6]; - context[38] = context[7]; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElString::name, context[10], context[11] ) ) - continue; - context[43] = context[10]; - context[44] = context[11]; - context[47] = 0; - context[48] = 0; - refalrts::start_e_loop(); - do { - context[14] = context[8]; - context[15] = context[9]; - context[12] = 0; - context[13] = 0; - if( ! refalrts::brackets_left( context[12], context[13], context[14], context[15] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[45], context[46], context[43], context[44], context[12], context[13] ) ) - continue; - context[49] = context[14]; - context[50] = context[15]; - if( ! refalrts::svar_left( context[51], context[12], context[13] ) ) - continue; - if( ! refalrts::empty_seq( context[12], context[13] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[52], context[51])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[31], & ident_ElString::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[32] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[29], context[32] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_stvar( res, context[52] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[24], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[49], context[50] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[51] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[47], context[48], context[8], context[9] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Funcs#1/1 - //34: e.Labels#1/1 - //36: e.Numbers#1/1 - //38: e.Commands#1/1 - //40: s.NextStringId#1/1 - //41: e.Strings#1/1 - //43: s.ElemNo#1/1 - //44: e.String#1/1 - //46: s.NextStringId#1/2 - //47: s.NextStringId#1/3 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( s.NextStringId#1 e.Strings#1 ) e.Commands#1 ( # CmdiAllocateElem s.ElemNo#1 # ElString e.String#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiAllocateElem::name, context[10], context[11] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[6]; - context[37] = context[7]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[8], context[9] ) ) - continue; - context[41] = context[8]; - context[42] = context[9]; - if( ! refalrts::svar_left( context[43], context[10], context[11] ) ) - continue; - if( ! refalrts::ident_left( & ident_ElString::name, context[10], context[11] ) ) - continue; - context[44] = context[10]; - context[45] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[46], context[40])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[47], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[29], & ident_CmdiAllocateElem::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[30], & ident_ElString::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[28], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_stvar( res, context[43] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[20], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.Funcs#1/1 - //23: e.Labels#1/1 - //25: e.Numbers#1/1 - //27: e.Strings#1/1 - //29: t.OtherCommand#1/1 - //30: e.Commands#1/1 - // ( e.Funcs#1 ) ( e.Labels#1 ) ( e.Numbers#1 ) ( e.Strings#1 ) e.Commands#1 t.OtherCommand#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[4]; - context[24] = context[5]; - context[25] = context[6]; - context[26] = context[7]; - context[27] = context[8]; - context[28] = context[9]; - if( ! refalrts::tvar_right( context[29], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[30] = context[0]; - context[31] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], OutlineConstants, "OutlineConstants" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[29] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrepareOpenEStack(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 18 elems - refalrts::Iter context[18]; - refalrts::zeros( context, 18 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PrepareOpenEStack, "PrepareOpenEStack" }, - { Inc, "Inc" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdiReserveStack::name, - & ident_CmdiOnFailGoTo::name, - & ident_CmdiEStart::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +34, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.VarInfo#1/1 - //15: s.Depth#1/1 - //16: e.Commands#1/1 - // ( # CmdiEStart e.VarInfo#1 ) e.Commands#1 s.Depth#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icsVarRight, 0, 15, 0}, - {refalrts::icContextSet, 0, 16, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: s.Offset#1/1 - //14: s.Depth#1/1 - //15: e.Commands#1/1 - // ( # CmdiOnFailGoTo s.Offset#1 ) e.Commands#1 s.Depth#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icsVarLeft, 0, 13, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icsVarRight, 0, 14, 0}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: t.OtherCommand#1/1 - //6: s.Depth#1/1 - //7: e.Commands#1/1 - // t.OtherCommand#1 e.Commands#1 s.Depth#1 - {refalrts::ictVarLeft, 0, 5, 0}, - {refalrts::icsVarRight, 0, 6, 0}, - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Depth#1/1 - // s.Depth#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icIdent, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 4}, - {refalrts::icLinkBrackets, 2, 4, 0}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.VarInfo#1/1 - //15: s.Depth#1/1 - //16: e.Commands#1/1 - // ( # CmdiEStart e.VarInfo#1 ) e.Commands#1 s.Depth#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiEStart::name, context[2], context[3] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::svar_right( context[15], context[0], context[1] ) ) - continue; - context[16] = context[0]; - context[17] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiEStart::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], PrepareOpenEStack, "PrepareOpenEStack" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: s.Offset#1/1 - //14: s.Depth#1/1 - //15: e.Commands#1/1 - // ( # CmdiOnFailGoTo s.Offset#1 ) e.Commands#1 s.Depth#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdiOnFailGoTo::name, context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[13], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::svar_right( context[14], context[0], context[1] ) ) - continue; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdiOnFailGoTo::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], PrepareOpenEStack, "PrepareOpenEStack" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: t.OtherCommand#1/1 - //6: s.Depth#1/1 - //7: e.Commands#1/1 - // t.OtherCommand#1 e.Commands#1 s.Depth#1 - if( ! refalrts::tvar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_right( context[6], context[0], context[1] ) ) - continue; - context[7] = context[0]; - context[8] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], PrepareOpenEStack, "PrepareOpenEStack" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - res = refalrts::splice_stvar( res, context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Depth#1/1 - // s.Depth#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_CmdiReserveStack::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[4] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[4] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenerateResult_Sentences(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 26 elems - refalrts::Iter context[26]; - refalrts::zeros( context, 26 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GenerateResult_Sentences, "GenerateResult_Sentences" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_AlgLeft::name, - & ident_CmdOpenedE_End::name, - & ident_CmdOpenedE_Start::name, - & ident_CmdOpenELoop::name, - & ident_CmdEndSentence::name, - & ident_CmdStartSentence::name, - & ident_CmdSentence::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +39, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.SubCommands#1/1 - //18: e.Tail#1/1 - // ( # CmdSentence e.SubCommands#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 6, 2}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icIdent, 0, 4, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 10, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +52, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //18: e.Tail#1/1 - //20: s.BracketNum#1/1 - //21: s.VarNumber#1/1 - //22: e.SubCommands#1/1 - //24: s.BracketNum#1/2 - //25: s.VarNumber#1/2 - // ( # CmdOpenELoop # AlgLeft s.BracketNum#1 s.VarNumber#1 e.SubCommands#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 2}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icContextSet, 0, 18, 0}, - {refalrts::icsVarLeft, 0, 20, 2}, - {refalrts::icsVarLeft, 0, 21, 2}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 24, 20, 0}, - {refalrts::icCopySTVar, 25, 21, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 2, 5}, - {refalrts::icIdent, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icIdent, 0, 1, 12}, - {refalrts::icIdent, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 11, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: t.Command#1/1 - //6: e.Tail#1/1 - // t.Command#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 5, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.SubCommands#1/1 - //18: e.Tail#1/1 - // ( # CmdSentence e.SubCommands#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdSentence::name, context[2], context[3] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[0]; - context[19] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdStartSentence::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], GenerateResult_Sentences, "GenerateResult_Sentences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[11], & ident_CmdEndSentence::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], GenerateResult_Sentences, "GenerateResult_Sentences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[10], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.Tail#1/1 - //20: s.BracketNum#1/1 - //21: s.VarNumber#1/1 - //22: e.SubCommands#1/1 - //24: s.BracketNum#1/2 - //25: s.VarNumber#1/2 - // ( # CmdOpenELoop # AlgLeft s.BracketNum#1 s.VarNumber#1 e.SubCommands#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdOpenELoop::name, context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_AlgLeft::name, context[2], context[3] ) ) - continue; - context[18] = context[0]; - context[19] = context[1]; - if( ! refalrts::svar_left( context[20], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[21], context[2], context[3] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[24], context[20])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[25], context[21])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdOpenedE_Start::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[6], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], GenerateResult_Sentences, "GenerateResult_Sentences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[12], & ident_CmdOpenedE_End::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[13], & ident_AlgLeft::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], GenerateResult_Sentences, "GenerateResult_Sentences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[11], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: t.Command#1/1 - //6: e.Tail#1/1 - // t.Command#1 e.Tail#1 - if( ! refalrts::tvar_left( context[5], context[0], context[1] ) ) - continue; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], GenerateResult_Sentences, "GenerateResult_Sentences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - res = refalrts::splice_stvar( res, context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/ParseCmdLine.cpp b/bootstrap/ParseCmdLine.cpp deleted file mode 100644 index 0deb77dd..00000000 --- a/bootstrap/ParseCmdLine.cpp +++ /dev/null @@ -1,4989 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult ParseCommandLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CollectorObject(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Collector_Compiler(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Collector_Compiler_ErrorFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Collector_Error(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Collector_ErrorFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Collector_Error_CC(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Collector_Error_EF(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoParseCommandLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoParseFileNamesOnly(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #AddCompileCommand -template -struct ident_AddCompileCommand { - static const char *name() { - return "AddCompileCommand"; - } -}; - -// identifier #AddErrorFile -template -struct ident_AddErrorFile { - static const char *name() { - return "AddErrorFile"; - } -}; - -// identifier #AddFile -template -struct ident_AddFile { - static const char *name() { - return "AddFile"; - } -}; - -// identifier #AddFolder -template -struct ident_AddFolder { - static const char *name() { - return "AddFolder"; - } -}; - -// identifier #CmdLineError -template -struct ident_CmdLineError { - static const char *name() { - return "CmdLineError"; - } -}; - -// identifier #CompileCommand -template -struct ident_CompileCommand { - static const char *name() { - return "CompileCommand"; - } -}; - -// identifier #CompileList -template -struct ident_CompileList { - static const char *name() { - return "CompileList"; - } -}; - -// identifier #ErrorFile -template -struct ident_ErrorFile { - static const char *name() { - return "ErrorFile"; - } -}; - -// identifier #GetInfo -template -struct ident_GetInfo { - static const char *name() { - return "GetInfo"; - } -}; - -// identifier #None -template -struct ident_None { - static const char *name() { - return "None"; - } -}; - -// identifier #SetOutput -template -struct ident_SetOutput { - static const char *name() { - return "SetOutput"; - } -}; - -refalrts::FnResult ParseCommandLine(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { CollectorObject, "CollectorObject" }, - { DoParseCommandLine, "DoParseCommandLine" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Arguments#1/1 - // e.Arguments#1 - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Arguments#1/1 - // e.Arguments#1 - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoParseCommandLine, "DoParseCommandLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], CollectorObject, "CollectorObject" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoParseCommandLine(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoParseCommandLine, "DoParseCommandLine" }, - { DoParseFileNamesOnly, "DoParseFileNamesOnly" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_GetInfo::name, - & ident_AddFile::name, - & ident_SetOutput::name, - & ident_CmdLineError::name, - & ident_AddFolder::name, - & ident_AddErrorFile::name, - & ident_AddCompileCommand::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"After option \'-d\' expected find directory", 41}, - {"After option \'-e\' expected name of error flag file", 50}, - {"After option \'-c\' expected C++ compiler command line", 52} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Collector#1/1 - //13: e.CompileCommand#1/1 - //15: e.Arguments#1/1 - // s.Collector#1 ( '-c' ) ( e.CompileCommand#1 ) e.Arguments#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icCharLeft, 0, static_cast('c'), 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icIdent, 0, 6, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Collector#1/1 - // s.Collector#1 ( '-c' ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icCharLeft, 0, static_cast('c'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 2, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Collector#1/1 - //13: e.ErrorFile#1/1 - //15: e.Arguments#1/1 - // s.Collector#1 ( '-e' ) ( e.ErrorFile#1 ) e.Arguments#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icCharLeft, 0, static_cast('e'), 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icIdent, 0, 5, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Collector#1/1 - // s.Collector#1 ( '-e' ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icCharLeft, 0, static_cast('e'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Collector#1/1 - //13: e.Directory#1/1 - //15: e.Arguments#1/1 - // s.Collector#1 ( '-d' ) ( e.Directory#1 ) e.Arguments#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icCharLeft, 0, static_cast('d'), 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icIdent, 0, 4, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: s.Collector#1/1 - // s.Collector#1 ( '-d' ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icCharLeft, 0, static_cast('d'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 4, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: s.Collector#1/1 - //13: e.OutputFile#1/1 - //15: e.Arguments#1/1 - // s.Collector#1 ( '-o' ) ( e.OutputFile#1 ) e.Arguments#1 - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icCharLeft, 0, static_cast('o'), 2}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icIdent, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +19, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Collector#1/1 - //8: e.Arguments#1/1 - // s.Collector#1 ( '--' ) e.Arguments#1 - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icCharLeft, 0, static_cast('-'), 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 8, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: s.Collector#1/1 - //11: e.NextFileName#1/1 - //13: e.Arguments#1/1 - // s.Collector#1 ( e.NextFileName#1 ) e.Arguments#1 - {refalrts::icsVarLeft, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icIdent, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Collector#1/1 - // s.Collector#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icIdent, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[9]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Collector#1/1 - //13: e.CompileCommand#1/1 - //15: e.Arguments#1/1 - // s.Collector#1 ( '-c' ) ( e.CompileCommand#1 ) e.Arguments#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'c', context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - context[13] = context[4]; - context[14] = context[5]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], DoParseCommandLine, "DoParseCommandLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_AddCompileCommand::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Collector#1/1 - // s.Collector#1 ( '-c' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'c', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdLineError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "After option \'-c\' expected C++ compiler command line", 52 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Collector#1/1 - //13: e.ErrorFile#1/1 - //15: e.Arguments#1/1 - // s.Collector#1 ( '-e' ) ( e.ErrorFile#1 ) e.Arguments#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'e', context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - context[13] = context[4]; - context[14] = context[5]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], DoParseCommandLine, "DoParseCommandLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_AddErrorFile::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Collector#1/1 - // s.Collector#1 ( '-e' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'e', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdLineError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "After option \'-e\' expected name of error flag file", 50 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Collector#1/1 - //13: e.Directory#1/1 - //15: e.Arguments#1/1 - // s.Collector#1 ( '-d' ) ( e.Directory#1 ) e.Arguments#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'd', context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - context[13] = context[4]; - context[14] = context[5]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], DoParseCommandLine, "DoParseCommandLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_AddFolder::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.Collector#1/1 - // s.Collector#1 ( '-d' ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'd', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CmdLineError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "After option \'-d\' expected find directory", 41 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: s.Collector#1/1 - //13: e.OutputFile#1/1 - //15: e.Arguments#1/1 - // s.Collector#1 ( '-o' ) ( e.OutputFile#1 ) e.Arguments#1 - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( 'o', context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - context[13] = context[4]; - context[14] = context[5]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], DoParseCommandLine, "DoParseCommandLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_SetOutput::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Collector#1/1 - //8: e.Arguments#1/1 - // s.Collector#1 ( '--' ) e.Arguments#1 - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::char_left( '-', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - context[8] = context[0]; - context[9] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoParseFileNamesOnly, "DoParseFileNamesOnly" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: s.Collector#1/1 - //11: e.NextFileName#1/1 - //13: e.Arguments#1/1 - // s.Collector#1 ( e.NextFileName#1 ) e.Arguments#1 - if( ! refalrts::svar_left( context[10], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoParseCommandLine, "DoParseCommandLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_AddFile::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Collector#1/1 - // s.Collector#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_GetInfo::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoParseFileNamesOnly(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoParseFileNamesOnly, "DoParseFileNamesOnly" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_GetInfo::name, - & ident_AddFile::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +26, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: s.Collector#1/1 - //11: e.NextFileName#1/1 - //13: e.Files#1/1 - // s.Collector#1 ( e.NextFileName#1 ) e.Files#1 - {refalrts::icsVarLeft, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icIdent, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Collector#1/1 - // s.Collector#1 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icIdent, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: s.Collector#1/1 - //11: e.NextFileName#1/1 - //13: e.Files#1/1 - // s.Collector#1 ( e.NextFileName#1 ) e.Files#1 - if( ! refalrts::svar_left( context[10], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoParseFileNamesOnly, "DoParseFileNamesOnly" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_AddFile::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Collector#1/1 - // s.Collector#1 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[3], & ident_GetInfo::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CollectorObject_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 3 elems - refalrts::Iter context[3]; - refalrts::zeros( context, 3 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_None::name, - & ident_ErrorFile::name, - & ident_CompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # CompileCommand - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ErrorFile - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # CompileCommand - if( ! refalrts::ident_left( & ident_CompileCommand::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_None::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ErrorFile - if( ! refalrts::ident_left( & ident_ErrorFile::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_None::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CollectorObject_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_CollectorObject_0, "lambda_CollectorObject_0" }, - { CollectorObject, "CollectorObject" }, - { Collector_ErrorFile, "Collector_ErrorFile" }, - { Collector_Compiler, "Collector_Compiler" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CompileList::name, - & ident_GetInfo::name, - & ident_AddFolder::name, - & ident_AddFile::name, - & ident_AddErrorFile::name, - & ident_AddCompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Folders#1/1 - //15: e.Files#1/1 - //17: e.Command#2/1 - // ( e.Folders#1 ) ( e.Files#1 ) # AddCompileCommand e.Command#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Folders#1/1 - //15: e.Files#1/1 - //17: e.ErrorFile#2/1 - // ( e.Folders#1 ) ( e.Files#1 ) # AddErrorFile e.ErrorFile#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Folders#1/1 - //15: e.Files#1/1 - //17: e.FileName#2/1 - // ( e.Folders#1 ) ( e.Files#1 ) # AddFile e.FileName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Folders#1/1 - //15: e.Files#1/1 - //17: e.FolderName#2/1 - // ( e.Folders#1 ) ( e.Files#1 ) # AddFolder e.FolderName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 4}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Folders#1/1 - //12: e.Files#1/1 - // ( e.Folders#1 ) ( e.Files#1 ) # GetInfo - {refalrts::icIdentRight, 0, 1, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::icContextSet, 0, 12, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icIdent, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Folders#1/1 - //15: e.Files#1/1 - //17: e.Command#2/1 - // ( e.Folders#1 ) ( e.Files#1 ) # AddCompileCommand e.Command#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddCompileCommand::name, context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[4]; - context[16] = context[5]; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Collector_Compiler, "Collector_Compiler" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Folders#1/1 - //15: e.Files#1/1 - //17: e.ErrorFile#2/1 - // ( e.Folders#1 ) ( e.Files#1 ) # AddErrorFile e.ErrorFile#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddErrorFile::name, context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[4]; - context[16] = context[5]; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Collector_ErrorFile, "Collector_ErrorFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Folders#1/1 - //15: e.Files#1/1 - //17: e.FileName#2/1 - // ( e.Folders#1 ) ( e.Files#1 ) # AddFile e.FileName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFile::name, context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[4]; - context[16] = context[5]; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], CollectorObject, "CollectorObject" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Folders#1/1 - //15: e.Files#1/1 - //17: e.FolderName#2/1 - // ( e.Folders#1 ) ( e.Files#1 ) # AddFolder e.FolderName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFolder::name, context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[4]; - context[16] = context[5]; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], CollectorObject, "CollectorObject" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Folders#1/1 - //12: e.Files#1/1 - // ( e.Folders#1 ) ( e.Files#1 ) # GetInfo - if( ! refalrts::ident_right( & ident_GetInfo::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = context[2]; - context[11] = context[3]; - context[12] = context[4]; - context[13] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_name( context[6], lambda_CollectorObject_0, "lambda_CollectorObject_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_CompileList::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[12], context[13] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CollectorObject(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 16 elems - refalrts::Iter context[16]; - refalrts::zeros( context, 16 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_CollectorObject_1, "lambda_CollectorObject_1" }, - { refalrts::create_closure, "refalrts::create_closure" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Folders#1/1 - //14: e.Files#1/1 - // ( e.Folders#1 ) e.Files#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icContextSet, 0, 14, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 7, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Folders#1/1 - //14: e.Files#1/1 - // ( e.Folders#1 ) e.Files#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[12] = context[2]; - context[13] = context[3]; - context[14] = context[0]; - context[15] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], lambda_CollectorObject_1, "lambda_CollectorObject_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[7], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Collector_Compiler_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_None::name, - & ident_ErrorFile::name, - & ident_CompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: e.Command#1/1 - // ( e.Command#1 ) # CompileCommand - {refalrts::icIdentRight, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 4, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.Command#1 ) # ErrorFile - {refalrts::icIdentRight, 0, 1, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Command#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.Command#1/1 - // ( e.Command#1 ) # CompileCommand - if( ! refalrts::ident_right( & ident_CompileCommand::name, context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[4] = context[2]; - context[5] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.Command#1 ) # ErrorFile - if( ! refalrts::ident_right( & ident_ErrorFile::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Command#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[4], & ident_None::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Collector_Compiler_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 27 elems - refalrts::Iter context[27]; - refalrts::zeros( context, 27 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Collector_Compiler_0, "lambda_Collector_Compiler_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Collector_Compiler, "Collector_Compiler" }, - { Collector_Compiler_ErrorFile, "Collector_Compiler_ErrorFile" }, - { Collector_Error_CC, "Collector_Error_CC" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CompileList::name, - & ident_GetInfo::name, - & ident_AddFolder::name, - & ident_AddFile::name, - & ident_AddErrorFile::name, - & ident_AddCompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddCompileCommand e.NewCommand#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 5, 0}, - // Unused closed variable e.Command#1 - // Unused closed variable e.Folders#1 - // Unused closed variable e.Files#1 - // Unused closed variable e.NewCommand#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 4, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +43, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //19: e.Command#1/1 - //21: e.Folders#1/1 - //23: e.Files#1/1 - //25: e.ErrorFile#2/1 - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddErrorFile e.ErrorFile#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 19, 2}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icContextSet, 0, 23, 6}, - {refalrts::icContextSet, 0, 25, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 3, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +38, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Command#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - //23: e.FileName#2/1 - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFile e.FileName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icContextSet, 0, 23, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 12, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +38, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Command#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - //23: e.FolderName#2/1 - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFolder e.FolderName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icContextSet, 0, 23, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Command#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # GetInfo - {refalrts::icIdentRight, 0, 1, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icIdent, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddCompileCommand e.NewCommand#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddCompileCommand::name, context[0], context[1] ) ) - continue; - // Unused closed variable e.Command#1 - // Unused closed variable e.Folders#1 - // Unused closed variable e.Files#1 - // Unused closed variable e.NewCommand#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Collector_Error_CC, "Collector_Error_CC" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: e.Command#1/1 - //21: e.Folders#1/1 - //23: e.Files#1/1 - //25: e.ErrorFile#2/1 - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddErrorFile e.ErrorFile#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddErrorFile::name, context[0], context[1] ) ) - continue; - context[19] = context[2]; - context[20] = context[3]; - context[21] = context[4]; - context[22] = context[5]; - context[23] = context[6]; - context[24] = context[7]; - context[25] = context[0]; - context[26] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Collector_Compiler_ErrorFile, "Collector_Compiler_ErrorFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Command#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - //23: e.FileName#2/1 - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFile e.FileName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFile::name, context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[4]; - context[20] = context[5]; - context[21] = context[6]; - context[22] = context[7]; - context[23] = context[0]; - context[24] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Collector_Compiler, "Collector_Compiler" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[12], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Command#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - //23: e.FolderName#2/1 - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFolder e.FolderName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFolder::name, context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[4]; - context[20] = context[5]; - context[21] = context[6]; - context[22] = context[7]; - context[23] = context[0]; - context[24] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Collector_Compiler, "Collector_Compiler" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Command#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - // ( e.Command#1 ) ( e.Folders#1 ) ( e.Files#1 ) # GetInfo - if( ! refalrts::ident_right( & ident_GetInfo::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[4]; - context[20] = context[5]; - context[21] = context[6]; - context[22] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], lambda_Collector_Compiler_0, "lambda_Collector_Compiler_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[14], & ident_CompileList::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Collector_Compiler(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Collector_Compiler_1, "lambda_Collector_Compiler_1" }, - { refalrts::create_closure, "refalrts::create_closure" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Folders#1/1 - //18: e.Files#1/1 - //20: e.Command#1/1 - // ( e.Folders#1 ) ( e.Files#1 ) e.Command#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 4}, - {refalrts::icContextSet, 0, 20, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Folders#1/1 - //18: e.Files#1/1 - //20: e.Command#1/1 - // ( e.Folders#1 ) ( e.Files#1 ) e.Command#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[4]; - context[19] = context[5]; - context[20] = context[0]; - context[21] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_Collector_Compiler_1, "lambda_Collector_Compiler_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Collector_Error_CC(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Collector_Error, "Collector_Error" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Multiple declaration of C++ compiler command line", 49} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icString, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Collector_Error, "Collector_Error" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[4], context[5], "Multiple declaration of C++ compiler command line", 49 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Collector_ErrorFile_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_ErrorFile::name, - & ident_None::name, - & ident_CompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +8, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.ErrorFile#1 ) # CompileCommand - {refalrts::icIdentRight, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.ErrorFile#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 1, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: e.ErrorFile#1/1 - // ( e.ErrorFile#1 ) # ErrorFile - {refalrts::icIdentRight, 0, 0, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 4, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.ErrorFile#1 ) # CompileCommand - if( ! refalrts::ident_right( & ident_CompileCommand::name, context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.ErrorFile#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[4], & ident_None::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.ErrorFile#1/1 - // ( e.ErrorFile#1 ) # ErrorFile - if( ! refalrts::ident_right( & ident_ErrorFile::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = context[2]; - context[5] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Collector_ErrorFile_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 27 elems - refalrts::Iter context[27]; - refalrts::zeros( context, 27 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Collector_ErrorFile_0, "lambda_Collector_ErrorFile_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Collector_ErrorFile, "Collector_ErrorFile" }, - { Collector_Error_EF, "Collector_Error_EF" }, - { Collector_Compiler_ErrorFile, "Collector_Compiler_ErrorFile" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CompileList::name, - & ident_GetInfo::name, - & ident_AddFolder::name, - & ident_AddFile::name, - & ident_AddErrorFile::name, - & ident_AddCompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +43, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //19: e.ErrorFile#1/1 - //21: e.Folders#1/1 - //23: e.Files#1/1 - //25: e.Command#2/1 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddCompileCommand e.Command#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icContextSet, 0, 19, 2}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icContextSet, 0, 23, 6}, - {refalrts::icContextSet, 0, 25, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 4, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.ErrorFile#1/1 - //13: e.ErrorFile#1/2 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddErrorFile e.ErrorFile#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::iceRepeatLeft, 13, 11, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Folders#1 - // Unused closed variable e.Files#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 3, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +38, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.ErrorFile#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - //23: e.FileName#2/1 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFile e.FileName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icContextSet, 0, 23, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 12, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +38, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.ErrorFile#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - //23: e.FolderName#2/1 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFolder e.FolderName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icContextSet, 0, 23, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 10, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.ErrorFile#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # GetInfo - {refalrts::icIdentRight, 0, 1, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icIdent, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: e.ErrorFile#1/1 - //21: e.Folders#1/1 - //23: e.Files#1/1 - //25: e.Command#2/1 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddCompileCommand e.Command#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddCompileCommand::name, context[0], context[1] ) ) - continue; - context[19] = context[2]; - context[20] = context[3]; - context[21] = context[4]; - context[22] = context[5]; - context[23] = context[6]; - context[24] = context[7]; - context[25] = context[0]; - context[26] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Collector_Compiler_ErrorFile, "Collector_Compiler_ErrorFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.ErrorFile#1/1 - //13: e.ErrorFile#1/2 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddErrorFile e.ErrorFile#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddErrorFile::name, context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - if( ! refalrts::repeated_evar_left( context[13], context[14], context[11], context[12], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.Folders#1 - // Unused closed variable e.Files#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Collector_Error_EF, "Collector_Error_EF" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.ErrorFile#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - //23: e.FileName#2/1 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFile e.FileName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFile::name, context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[4]; - context[20] = context[5]; - context[21] = context[6]; - context[22] = context[7]; - context[23] = context[0]; - context[24] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Collector_ErrorFile, "Collector_ErrorFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[12], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.ErrorFile#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - //23: e.FolderName#2/1 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFolder e.FolderName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFolder::name, context[0], context[1] ) ) - continue; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[4]; - context[20] = context[5]; - context[21] = context[6]; - context[22] = context[7]; - context[23] = context[0]; - context[24] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Collector_ErrorFile, "Collector_ErrorFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[10], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.ErrorFile#1/1 - //19: e.Folders#1/1 - //21: e.Files#1/1 - // ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # GetInfo - if( ! refalrts::ident_right( & ident_GetInfo::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[4]; - context[20] = context[5]; - context[21] = context[6]; - context[22] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], lambda_Collector_ErrorFile_0, "lambda_Collector_ErrorFile_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[14], & ident_CompileList::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Collector_ErrorFile(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Collector_ErrorFile_1, "lambda_Collector_ErrorFile_1" }, - { refalrts::create_closure, "refalrts::create_closure" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Folders#1/1 - //18: e.Files#1/1 - //20: e.ErrorFile#1/1 - // ( e.Folders#1 ) ( e.Files#1 ) e.ErrorFile#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 4}, - {refalrts::icContextSet, 0, 20, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Folders#1/1 - //18: e.Files#1/1 - //20: e.ErrorFile#1/1 - // ( e.Folders#1 ) ( e.Files#1 ) e.ErrorFile#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[4]; - context[19] = context[5]; - context[20] = context[0]; - context[21] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_Collector_ErrorFile_1, "lambda_Collector_ErrorFile_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Collector_Error_EF(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Collector_Error, "Collector_Error" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Multiple declaration of error flag file name", 44} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icString, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Collector_Error, "Collector_Error" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[4], context[5], "Multiple declaration of error flag file name", 44 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Collector_Compiler_ErrorFile_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_ErrorFile::name, - & ident_CompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +9, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Command#1/1 - // ( e.ErrorFile#1 ) ( e.Command#1 ) # CompileCommand - {refalrts::icIdentRight, 0, 1, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.ErrorFile#1 - {refalrts::icContextSet, 0, 6, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.ErrorFile#1/1 - // ( e.ErrorFile#1 ) ( e.Command#1 ) # ErrorFile - {refalrts::icIdentRight, 0, 0, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 6, 2}, - // Unused closed variable e.Command#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Command#1/1 - // ( e.ErrorFile#1 ) ( e.Command#1 ) # CompileCommand - if( ! refalrts::ident_right( & ident_CompileCommand::name, context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.ErrorFile#1 - context[6] = context[4]; - context[7] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.ErrorFile#1/1 - // ( e.ErrorFile#1 ) ( e.Command#1 ) # ErrorFile - if( ! refalrts::ident_right( & ident_ErrorFile::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[2]; - context[7] = context[3]; - // Unused closed variable e.Command#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Collector_Compiler_ErrorFile_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 33 elems - refalrts::Iter context[33]; - refalrts::zeros( context, 33 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Collector_Compiler_ErrorFile_0, "lambda_Collector_Compiler_ErrorFile_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Collector_Compiler_ErrorFile, "Collector_Compiler_ErrorFile" }, - { Collector_Error_EF, "Collector_Error_EF" }, - { Collector_Error_CC, "Collector_Error_CC" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CompileList::name, - & ident_GetInfo::name, - & ident_AddFolder::name, - & ident_AddFile::name, - & ident_AddErrorFile::name, - & ident_AddCompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddCompileCommand e.NewCommand#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 5, 0}, - // Unused closed variable e.Command#1 - // Unused closed variable e.ErrorFile#1 - // Unused closed variable e.Folders#1 - // Unused closed variable e.Files#1 - // Unused closed variable e.NewCommand#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 4, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +16, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddErrorFile e.NewFile#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 4, 0}, - // Unused closed variable e.Command#1 - // Unused closed variable e.ErrorFile#1 - // Unused closed variable e.Folders#1 - // Unused closed variable e.Files#1 - // Unused closed variable e.NewFile#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 3, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +51, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //23: e.Command#1/1 - //25: e.ErrorFile#1/1 - //27: e.Folders#1/1 - //29: e.Files#1/1 - //31: e.FileName#2/1 - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFile e.FileName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::icContextSet, 0, 29, 8}, - {refalrts::icContextSet, 0, 31, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 14, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +51, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //23: e.Command#1/1 - //25: e.ErrorFile#1/1 - //27: e.Folders#1/1 - //29: e.Files#1/1 - //31: e.FolderName#2/1 - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFolder e.FolderName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::icContextSet, 0, 29, 8}, - {refalrts::icContextSet, 0, 31, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 12, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.Command#1/1 - //23: e.ErrorFile#1/1 - //25: e.Folders#1/1 - //27: e.Files#1/1 - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # GetInfo - {refalrts::icIdentRight, 0, 1, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 4}, - {refalrts::icContextSet, 0, 25, 6}, - {refalrts::icContextSet, 0, 27, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icIdent, 0, 0, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddCompileCommand e.NewCommand#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddCompileCommand::name, context[0], context[1] ) ) - continue; - // Unused closed variable e.Command#1 - // Unused closed variable e.ErrorFile#1 - // Unused closed variable e.Folders#1 - // Unused closed variable e.Files#1 - // Unused closed variable e.NewCommand#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Collector_Error_CC, "Collector_Error_CC" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddErrorFile e.NewFile#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddErrorFile::name, context[0], context[1] ) ) - continue; - // Unused closed variable e.Command#1 - // Unused closed variable e.ErrorFile#1 - // Unused closed variable e.Folders#1 - // Unused closed variable e.Files#1 - // Unused closed variable e.NewFile#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Collector_Error_EF, "Collector_Error_EF" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //23: e.Command#1/1 - //25: e.ErrorFile#1/1 - //27: e.Folders#1/1 - //29: e.Files#1/1 - //31: e.FileName#2/1 - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFile e.FileName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFile::name, context[0], context[1] ) ) - continue; - context[23] = context[2]; - context[24] = context[3]; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[6]; - context[28] = context[7]; - context[29] = context[8]; - context[30] = context[9]; - context[31] = context[0]; - context[32] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Collector_Compiler_ErrorFile, "Collector_Compiler_ErrorFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[14], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //23: e.Command#1/1 - //25: e.ErrorFile#1/1 - //27: e.Folders#1/1 - //29: e.Files#1/1 - //31: e.FolderName#2/1 - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # AddFolder e.FolderName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFolder::name, context[0], context[1] ) ) - continue; - context[23] = context[2]; - context[24] = context[3]; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[6]; - context[28] = context[7]; - context[29] = context[8]; - context[30] = context[9]; - context[31] = context[0]; - context[32] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Collector_Compiler_ErrorFile, "Collector_Compiler_ErrorFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[12], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.Command#1/1 - //23: e.ErrorFile#1/1 - //25: e.Folders#1/1 - //27: e.Files#1/1 - // ( e.Command#1 ) ( e.ErrorFile#1 ) ( e.Folders#1 ) ( e.Files#1 ) # GetInfo - if( ! refalrts::ident_right( & ident_GetInfo::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[4]; - context[24] = context[5]; - context[25] = context[6]; - context[26] = context[7]; - context[27] = context[8]; - context[28] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], lambda_Collector_Compiler_ErrorFile_0, "lambda_Collector_Compiler_ErrorFile_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_CompileList::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Collector_Compiler_ErrorFile(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 30 elems - refalrts::Iter context[30]; - refalrts::zeros( context, 30 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Collector_Compiler_ErrorFile_1, "lambda_Collector_Compiler_ErrorFile_1" }, - { refalrts::create_closure, "refalrts::create_closure" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Folders#1/1 - //24: e.Files#1/1 - //26: e.Command#1/1 - //28: e.ErrorFile#1/1 - // ( e.Folders#1 ) ( e.Files#1 ) ( e.Command#1 ) ( e.ErrorFile#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icContextSet, 0, 24, 4}, - {refalrts::icContextSet, 0, 26, 6}, - {refalrts::icContextSet, 0, 28, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Folders#1/1 - //24: e.Files#1/1 - //26: e.Command#1/1 - //28: e.ErrorFile#1/1 - // ( e.Folders#1 ) ( e.Files#1 ) ( e.Command#1 ) ( e.ErrorFile#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[22] = context[2]; - context[23] = context[3]; - context[24] = context[4]; - context[25] = context[5]; - context[26] = context[6]; - context[27] = context[7]; - context[28] = context[8]; - context[29] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], lambda_Collector_Compiler_ErrorFile_1, "lambda_Collector_Compiler_ErrorFile_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Collector_Error_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Collector_Error, "Collector_Error" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CmdLineError::name, - & ident_GetInfo::name, - & ident_AddFolder::name, - & ident_AddFile::name, - & ident_AddErrorFile::name, - & ident_AddCompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Message#1/1 - // ( e.Message#1 ) # AddCompileCommand e.Command#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icContextSet, 0, 7, 2}, - // Unused closed variable e.Command#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Message#1/1 - // ( e.Message#1 ) # AddErrorFile e.ErrorFile#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 7, 2}, - // Unused closed variable e.ErrorFile#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Message#1/1 - // ( e.Message#1 ) # AddFile e.FileName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icContextSet, 0, 7, 2}, - // Unused closed variable e.FileName#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Message#1/1 - // ( e.Message#1 ) # AddFolder e.FolderName#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 7, 2}, - // Unused closed variable e.FolderName#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Message#1/1 - // ( e.Message#1 ) # GetInfo ( e.Folders#2 ) e.Files#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 9, 2}, - // Unused closed variable e.Folders#2 - // Unused closed variable e.Files#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Message#1/1 - // ( e.Message#1 ) # AddCompileCommand e.Command#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddCompileCommand::name, context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - // Unused closed variable e.Command#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Collector_Error, "Collector_Error" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Message#1/1 - // ( e.Message#1 ) # AddErrorFile e.ErrorFile#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddErrorFile::name, context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - // Unused closed variable e.ErrorFile#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Collector_Error, "Collector_Error" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Message#1/1 - // ( e.Message#1 ) # AddFile e.FileName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFile::name, context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - // Unused closed variable e.FileName#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Collector_Error, "Collector_Error" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Message#1/1 - // ( e.Message#1 ) # AddFolder e.FolderName#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_AddFolder::name, context[0], context[1] ) ) - continue; - context[7] = context[2]; - context[8] = context[3]; - // Unused closed variable e.FolderName#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Collector_Error, "Collector_Error" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Message#1/1 - // ( e.Message#1 ) # GetInfo ( e.Folders#2 ) e.Files#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_GetInfo::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[9] = context[2]; - context[10] = context[3]; - // Unused closed variable e.Folders#2 - // Unused closed variable e.Files#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_CmdLineError::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Collector_Error(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 10 elems - refalrts::Iter context[10]; - refalrts::zeros( context, 10 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Collector_Error_0, "lambda_Collector_Error_0" }, - { refalrts::create_closure, "refalrts::create_closure" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //8: e.Message#1/1 - // e.Message#1 - {refalrts::icContextSet, 0, 8, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icLinkBrackets, 5, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: e.Message#1/1 - // e.Message#1 - context[8] = context[0]; - context[9] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], lambda_Collector_Error_0, "lambda_Collector_Error_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::link_brackets( context[5], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/Parser.cpp b/bootstrap/Parser.cpp deleted file mode 100644 index d1e7d364..00000000 --- a/bootstrap/Parser.cpp +++ /dev/null @@ -1,17585 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult Cntx_AddNewVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_AddVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_CheckVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_Destroy(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_PopScope(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_PushScope(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Cntx_ResetAfterSentence(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Dec(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_AddError(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_AddErrorAt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult EL_AddUnexpected(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ParseProgram(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddDefined(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddExtern(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddFunctionCall(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddIdent(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddUnresolved(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AllFunctions(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AllIdents(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_GetAnyName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult SaveFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Seq(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Sort(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult StrFromInt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AddContextToSentence(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult AddExtern(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CheckAddVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CheckUseVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CreateContext(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult CreateLambdaName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoParseBlock(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DontAdd(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenFunctionBody(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GenFunctionsFromDirective(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult InvalidModeVariableError(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseBlock(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseElement_SwDirective(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseElements(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseFunction(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseNameList(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseNameList_Tail(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParsePattern(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseResult(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseResult_Block(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ParseSentence(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrepareBracket(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ResolveLambdaName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult StrFromBracket(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #ADT_Brackets -template -struct ident_ADT_Brackets { - static const char *name() { - return "ADT_Brackets"; - } -}; - -// identifier #AlreadyBounded -template -struct ident_AlreadyBounded { - static const char *name() { - return "AlreadyBounded"; - } -}; - -// identifier #Brackets -template -struct ident_Brackets { - static const char *name() { - return "Brackets"; - } -}; - -// identifier #CallBrackets -template -struct ident_CallBrackets { - static const char *name() { - return "CallBrackets"; - } -}; - -// identifier #Close -template -struct ident_Close { - static const char *name() { - return "Close"; - } -}; - -// identifier #CreateClosure -template -struct ident_CreateClosure { - static const char *name() { - return "CreateClosure"; - } -}; - -// identifier #Declaration -template -struct ident_Declaration { - static const char *name() { - return "Declaration"; - } -}; - -// identifier #EEnum -template -struct ident_EEnum { - static const char *name() { - return "EEnum"; - } -}; - -// identifier #ESwap -template -struct ident_ESwap { - static const char *name() { - return "ESwap"; - } -}; - -// identifier #Entry -template -struct ident_Entry { - static const char *name() { - return "Entry"; - } -}; - -// identifier #Enum -template -struct ident_Enum { - static const char *name() { - return "Enum"; - } -}; - -// identifier #ExistVariable -template -struct ident_ExistVariable { - static const char *name() { - return "ExistVariable"; - } -}; - -// identifier #Extern -template -struct ident_Extern { - static const char *name() { - return "Extern"; - } -}; - -// identifier #Forward -template -struct ident_Forward { - static const char *name() { - return "Forward"; - } -}; - -// identifier #Function -template -struct ident_Function { - static const char *name() { - return "Function"; - } -}; - -// identifier #GN_Entry -template -struct ident_GN_Entry { - static const char *name() { - return "GN_Entry"; - } -}; - -// identifier #GN_Local -template -struct ident_GN_Local { - static const char *name() { - return "GN_Local"; - } -}; - -// identifier #Ident -template -struct ident_Ident { - static const char *name() { - return "Ident"; - } -}; - -// identifier #InvalidMode -template -struct ident_InvalidMode { - static const char *name() { - return "InvalidMode"; - } -}; - -// identifier #LambdaName -template -struct ident_LambdaName { - static const char *name() { - return "LambdaName"; - } -}; - -// identifier #NotFound -template -struct ident_NotFound { - static const char *name() { - return "NotFound"; - } -}; - -// identifier #Open -template -struct ident_Open { - static const char *name() { - return "Open"; - } -}; - -// identifier #Separator -template -struct ident_Separator { - static const char *name() { - return "Separator"; - } -}; - -// identifier #Stub -template -struct ident_Stub { - static const char *name() { - return "Stub"; - } -}; - -// identifier #Success -template -struct ident_Success { - static const char *name() { - return "Success"; - } -}; - -// identifier #Swap -template -struct ident_Swap { - static const char *name() { - return "Swap"; - } -}; - -// identifier #TkChar -template -struct ident_TkChar { - static const char *name() { - return "TkChar"; - } -}; - -// identifier #TkCloseADT -template -struct ident_TkCloseADT { - static const char *name() { - return "TkCloseADT"; - } -}; - -// identifier #TkCloseBlock -template -struct ident_TkCloseBlock { - static const char *name() { - return "TkCloseBlock"; - } -}; - -// identifier #TkCloseBracket -template -struct ident_TkCloseBracket { - static const char *name() { - return "TkCloseBracket"; - } -}; - -// identifier #TkCloseCall -template -struct ident_TkCloseCall { - static const char *name() { - return "TkCloseCall"; - } -}; - -// identifier #TkComma -template -struct ident_TkComma { - static const char *name() { - return "TkComma"; - } -}; - -// identifier #TkDirective -template -struct ident_TkDirective { - static const char *name() { - return "TkDirective"; - } -}; - -// identifier #TkEOF -template -struct ident_TkEOF { - static const char *name() { - return "TkEOF"; - } -}; - -// identifier #TkIdentMarker -template -struct ident_TkIdentMarker { - static const char *name() { - return "TkIdentMarker"; - } -}; - -// identifier #TkIdentifier -template -struct ident_TkIdentifier { - static const char *name() { - return "TkIdentifier"; - } -}; - -// identifier #TkName -template -struct ident_TkName { - static const char *name() { - return "TkName"; - } -}; - -// identifier #TkNumber -template -struct ident_TkNumber { - static const char *name() { - return "TkNumber"; - } -}; - -// identifier #TkOpenADT -template -struct ident_TkOpenADT { - static const char *name() { - return "TkOpenADT"; - } -}; - -// identifier #TkOpenBlock -template -struct ident_TkOpenBlock { - static const char *name() { - return "TkOpenBlock"; - } -}; - -// identifier #TkOpenBracket -template -struct ident_TkOpenBracket { - static const char *name() { - return "TkOpenBracket"; - } -}; - -// identifier #TkOpenCall -template -struct ident_TkOpenCall { - static const char *name() { - return "TkOpenCall"; - } -}; - -// identifier #TkRedefinition -template -struct ident_TkRedefinition { - static const char *name() { - return "TkRedefinition"; - } -}; - -// identifier #TkReplace -template -struct ident_TkReplace { - static const char *name() { - return "TkReplace"; - } -}; - -// identifier #TkSemicolon -template -struct ident_TkSemicolon { - static const char *name() { - return "TkSemicolon"; - } -}; - -// identifier #TkVariable -template -struct ident_TkVariable { - static const char *name() { - return "TkVariable"; - } -}; - -static refalrts::FnResult lambda_ParseProgram_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ST_AddUnresolved, "ST_AddUnresolved" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: t.ErrorList#2/1 - //6: t.SymTable#2/1 - //7: e.AST#2/1 - // t.ErrorList#2 t.SymTable#2 e.AST#2 - {refalrts::ictVarLeft, 0, 5, 0}, - {refalrts::ictVarLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: t.ErrorList#2/1 - //6: t.SymTable#2/1 - //7: e.AST#2/1 - // t.ErrorList#2 t.SymTable#2 e.AST#2 - if( ! refalrts::tvar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[0]; - context[8] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ST_AddUnresolved, "ST_AddUnresolved" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[7], context[8] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ParseProgram(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ParseProgram_0, "lambda_ParseProgram_0" }, - { PrepareBracket, "PrepareBracket" }, - { Map, "Map" }, - { ST_Create, "ST_Create" }, - { ParseElements, "ParseElements" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //18: t.ErrorList#1/1 - //19: e.Tokens#1/1 - // t.ErrorList#1 e.Tokens#1 - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 5, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 2, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icFunc, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: t.ErrorList#1/1 - //19: e.Tokens#1/1 - // t.ErrorList#1 e.Tokens#1 - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ParseElements, "ParseElements" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ST_Create, "ST_Create" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], PrepareBracket, "PrepareBracket" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], lambda_ParseProgram_0, "lambda_ParseProgram_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrepareBracket(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkCloseCall::name, - & ident_Close::name, - & ident_TkOpenCall::name, - & ident_Open::name, - & ident_TkCloseADT::name, - & ident_TkOpenADT::name, - & ident_TkCloseBracket::name, - & ident_TkOpenBracket::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.LnNum#1/1 - // ( # TkOpenBracket s.LnNum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 7, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icIdent, 0, 7, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.LnNum#1/1 - // ( # TkCloseBracket s.LnNum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 6, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icIdent, 0, 6, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.LnNum#1/1 - // ( # TkOpenADT s.LnNum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 5, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icIdent, 0, 5, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.LnNum#1/1 - // ( # TkCloseADT s.LnNum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icIdent, 0, 4, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.LnNum#1/1 - // ( # TkOpenCall s.LnNum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 3, 5}, - {refalrts::icIdent, 0, 2, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.LnNum#1/1 - // ( # TkCloseCall s.LnNum#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icIdent, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 4, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: t.OtherToken#1/1 - // t.OtherToken#1 - {refalrts::ictVarLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[6]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.LnNum#1/1 - // ( # TkOpenBracket s.LnNum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkOpenBracket::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Open::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[6], & ident_TkOpenBracket::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.LnNum#1/1 - // ( # TkCloseBracket s.LnNum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkCloseBracket::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Close::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[6], & ident_TkCloseBracket::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.LnNum#1/1 - // ( # TkOpenADT s.LnNum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkOpenADT::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Open::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[6], & ident_TkOpenADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.LnNum#1/1 - // ( # TkCloseADT s.LnNum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkCloseADT::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Close::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[6], & ident_TkCloseADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.LnNum#1/1 - // ( # TkOpenCall s.LnNum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkOpenCall::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Open::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[6], & ident_TkOpenCall::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.LnNum#1/1 - // ( # TkCloseCall s.LnNum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkCloseCall::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Close::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[6], & ident_TkCloseCall::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.OtherToken#1/1 - // t.OtherToken#1 - if( ! refalrts::tvar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseElements_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 10 elems - refalrts::Iter context[10]; - refalrts::zeros( context, 10 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_Declaration::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( s.ScopeClass#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.ScopeClass#2/1 - //8: e.Name#2/1 - // ( s.ScopeClass#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Declaration::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseElements_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_Ident::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Name#2/1 - // ( e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Name#2/1 - // ( e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Ident::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseElements_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParseElements, "ParseElements" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: e.AST#1/1 - //13: e.NewASTItems#2/1 - //15: t.ErrorList#2/1 - //16: t.SymTable#2/1 - //17: e.Tail#2/1 - // ( e.AST#1 ) ( e.NewASTItems#2 ) t.ErrorList#2 t.SymTable#2 e.Tail#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::ictVarLeft, 0, 16, 0}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.AST#1/1 - //13: e.NewASTItems#2/1 - //15: t.ErrorList#2/1 - //16: t.SymTable#2/1 - //17: e.Tail#2/1 - // ( e.AST#1 ) ( e.NewASTItems#2 ) t.ErrorList#2 t.SymTable#2 e.Tail#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[4]; - context[14] = context[5]; - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ParseElements, "ParseElements" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseElements_3(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParseElements, "ParseElements" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: e.AST#1/1 - //13: e.NewASTItems#2/1 - //15: t.ErrorList#2/1 - //16: t.SymTable#2/1 - //17: e.Tail#2/1 - // ( e.AST#1 ) ( e.NewASTItems#2 ) t.ErrorList#2 t.SymTable#2 e.Tail#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::ictVarLeft, 0, 16, 0}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.AST#1/1 - //13: e.NewASTItems#2/1 - //15: t.ErrorList#2/1 - //16: t.SymTable#2/1 - //17: e.Tail#2/1 - // ( e.AST#1 ) ( e.NewASTItems#2 ) t.ErrorList#2 t.SymTable#2 e.Tail#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[4]; - context[14] = context[5]; - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ParseElements, "ParseElements" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseElements(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 36 elems - refalrts::Iter context[36]; - refalrts::zeros( context, 36 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddUnexpected, "EL_AddUnexpected" }, - { ParseElements, "ParseElements" }, - { lambda_ParseElements_3, "lambda_ParseElements_3" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { ST_AddDefined, "ST_AddDefined" }, - { ParseFunction, "ParseFunction" }, - { Fetch, "Fetch" }, - { lambda_ParseElements_2, "lambda_ParseElements_2" }, - { ParseElement_SwDirective, "ParseElement_SwDirective" }, - { ST_AllIdents, "ST_AllIdents" }, - { Sort, "Sort" }, - { lambda_ParseElements_1, "lambda_ParseElements_1" }, - { Map, "Map" }, - { ST_AllFunctions, "ST_AllFunctions" }, - { lambda_ParseElements_0, "lambda_ParseElements_0" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkSemicolon::name, - & ident_GN_Local::name, - & ident_TkName::name, - & ident_TkDirective::name, - & ident_Separator::name, - & ident_TkEOF::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"directive or name", 17} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +78, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.AST#1/1 - //31: s.LnNum#1/1 - //32: t.ErrorList#1/1 - //33: t.SymTable#1/1 - //34: t.SymTable#1/2 - //35: t.SymTable#1/3 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) ( # TkEOF s.LnNum#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 5, 2}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 29, 4}, - {refalrts::icsVarLeft, 0, 31, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 34, 33, 0}, - {refalrts::icCopySTVar, 35, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 12, 7}, - {refalrts::icFunc, 0, 14, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 10, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 13, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 4, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 19}, - {refalrts::icFunc, 0, 12, 20}, - {refalrts::icFunc, 0, 11, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 22}, - {refalrts::icFunc, 0, 10, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 24}, - {refalrts::icFunc, 0, 9, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 16, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +49, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //18: t.ErrorList#1/1 - //19: t.SymTable#1/1 - //20: e.AST#1/1 - //22: e.Tail#1/1 - //24: s.LnNum#1/1 - //25: s.Directive#1/1 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) ( # TkDirective s.LnNum#1 s.Directive#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::ictVarLeft, 0, 19, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 3, 4}, - {refalrts::icContextSet, 0, 20, 2}, - {refalrts::icContextSet, 0, 22, 0}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icsVarLeft, 0, 25, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 6, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 8, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 3, 12}, - {refalrts::icFunc, 0, 7, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +68, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: t.ErrorList#1/1 - //26: t.SymTable#1/1 - //27: e.AST#1/1 - //29: e.Tail#1/1 - //31: s.LnNum#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 2, 4}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icContextSet, 0, 29, 0}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 34, 32, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 6, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 5, 9}, - {refalrts::icIdent, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 4, 14}, - {refalrts::icIdent, 0, 1, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 3, 19}, - {refalrts::icFunc, 0, 2, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: t.ErrorList#1/1 - //12: t.SymTable#1/1 - //13: e.AST#1/1 - //15: e.Tail#1/1 - //17: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) ( # TkSemicolon s.LnNum#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 11, 0}, - {refalrts::ictVarLeft, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 17, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: t.ErrorList#1/1 - //15: t.SymTable#1/1 - //16: e.AST#1/1 - //18: t.Unexpected#1/1 - //19: e.Tail#1/1 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) t.Unexpected#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.AST#1/1 - //31: s.LnNum#1/1 - //32: t.ErrorList#1/1 - //33: t.SymTable#1/1 - //34: t.SymTable#1/2 - //35: t.SymTable#1/3 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) ( # TkEOF s.LnNum#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkEOF::name, context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[29] = context[4]; - context[30] = context[5]; - if( ! refalrts::svar_left( context[31], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[34], context[33])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[35], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_ParseElements_0, "lambda_ParseElements_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Sort, "Sort" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], ST_AllFunctions, "ST_AllFunctions" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_Separator::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], lambda_ParseElements_1, "lambda_ParseElements_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[23], Sort, "Sort" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[25], ST_AllIdents, "ST_AllIdents" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[19] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[22] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[24] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[16], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_stvar( res, context[32] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: t.ErrorList#1/1 - //19: t.SymTable#1/1 - //20: e.AST#1/1 - //22: e.Tail#1/1 - //24: s.LnNum#1/1 - //25: s.Directive#1/1 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) ( # TkDirective s.LnNum#1 s.Directive#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[19], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkDirective::name, context[4], context[5] ) ) - continue; - context[20] = context[2]; - context[21] = context[3]; - context[22] = context[0]; - context[23] = context[1]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[25], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParseElement_SwDirective, "ParseElement_SwDirective" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], lambda_ParseElements_2, "lambda_ParseElements_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: t.ErrorList#1/1 - //26: t.SymTable#1/1 - //27: e.AST#1/1 - //29: e.Tail#1/1 - //31: s.LnNum#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[4], context[5] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - context[29] = context[0]; - context[30] = context[1]; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - context[32] = context[4]; - context[33] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[34], context[35], context[32], context[33])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParseFunction, "ParseFunction" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[10], & ident_GN_Local::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], ST_AddDefined, "ST_AddDefined" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[15], & ident_GN_Local::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], lambda_ParseElements_3, "lambda_ParseElements_3" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: t.ErrorList#1/1 - //12: t.SymTable#1/1 - //13: e.AST#1/1 - //15: e.Tail#1/1 - //17: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) ( # TkSemicolon s.LnNum#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[12], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkSemicolon::name, context[4], context[5] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - if( ! refalrts::svar_left( context[17], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ParseElements, "ParseElements" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: t.ErrorList#1/1 - //15: t.SymTable#1/1 - //16: e.AST#1/1 - //18: t.Unexpected#1/1 - //19: e.Tail#1/1 - // t.ErrorList#1 t.SymTable#1 ( e.AST#1 ) t.Unexpected#1 e.Tail#1 - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ParseElements, "ParseElements" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], EL_AddUnexpected, "EL_AddUnexpected" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], "directive or name", 17 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenFunctionsFromDirective(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 5 elems - refalrts::Iter context[5]; - refalrts::zeros( context, 5 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DontAdd, "DontAdd" }, - { AddExtern, "AddExtern" }, - { ST_AddDefined, "ST_AddDefined" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_GN_Entry::name, - & ident_Stub::name, - & ident_Ident::name, - & ident_GN_Local::name, - & ident_Forward::name, - & ident_Extern::name, - & ident_Swap::name, - & ident_ESwap::name, - & ident_Enum::name, - & ident_EEnum::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # EEnum - {refalrts::icIdentLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 8, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icIdent, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Enum - {refalrts::icIdentLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 8, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icIdent, 0, 3, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ESwap - {refalrts::icIdentLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 6, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icIdent, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Swap - {refalrts::icIdentLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 6, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icIdent, 0, 3, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Extern - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 1, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icIdent, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Forward - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 1, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icIdent, 0, 3, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Ident - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 1, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icIdent, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[6]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # EEnum - if( ! refalrts::ident_left( & ident_EEnum::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Enum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ST_AddDefined, "ST_AddDefined" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_GN_Entry::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Enum - if( ! refalrts::ident_left( & ident_Enum::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Enum::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ST_AddDefined, "ST_AddDefined" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_GN_Local::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ESwap - if( ! refalrts::ident_left( & ident_ESwap::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Swap::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ST_AddDefined, "ST_AddDefined" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_GN_Entry::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Swap - if( ! refalrts::ident_left( & ident_Swap::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Swap::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ST_AddDefined, "ST_AddDefined" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_GN_Local::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Extern - if( ! refalrts::ident_left( & ident_Extern::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Stub::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], AddExtern, "AddExtern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_GN_Entry::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Forward - if( ! refalrts::ident_left( & ident_Forward::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Stub::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DontAdd, "DontAdd" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_GN_Local::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Ident - if( ! refalrts::ident_left( & ident_Ident::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Stub::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DontAdd, "DontAdd" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[4], & ident_GN_Entry::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AddExtern(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ST_AddExtern, "ST_AddExtern" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: t.ErrorList#1/1 - //6: t.SymTable#1/1 - //7: s.ScopeClass#1/1 - //8: s.LnNum#1/1 - //9: e.Name#1/1 - // t.ErrorList#1 t.SymTable#1 s.ScopeClass#1 s.LnNum#1 e.Name#1 - {refalrts::ictVarLeft, 0, 5, 0}, - {refalrts::ictVarLeft, 0, 6, 0}, - {refalrts::icsVarLeft, 0, 7, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: t.ErrorList#1/1 - //6: t.SymTable#1/1 - //7: s.ScopeClass#1/1 - //8: s.LnNum#1/1 - //9: e.Name#1/1 - // t.ErrorList#1 t.SymTable#1 s.ScopeClass#1 s.LnNum#1 e.Name#1 - if( ! refalrts::tvar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ST_AddExtern, "ST_AddExtern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DontAdd(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //2: t.ErrorList#1/1 - //3: t.SymTable#1/1 - //4: s.ScopeClass#1/1 - //5: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 s.ScopeClass#1 s.LnNum#1 e.Name#1 - {refalrts::ictVarLeft, 0, 2, 0}, - {refalrts::ictVarLeft, 0, 3, 0}, - {refalrts::icsVarLeft, 0, 4, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - // Unused closed variable e.Name#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 3}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: t.ErrorList#1/1 - //3: t.SymTable#1/1 - //4: s.ScopeClass#1/1 - //5: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 s.ScopeClass#1 s.LnNum#1 e.Name#1 - if( ! refalrts::tvar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[4], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Name#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[3] ); - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseElement_SwDirective(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GenFunctionsFromDirective, "GenFunctionsFromDirective" }, - { ParseNameList, "ParseNameList" }, - { EL_AddUnexpected, "EL_AddUnexpected" }, - { ST_AddDefined, "ST_AddDefined" }, - { ParseFunction, "ParseFunction" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Entry::name, - & ident_GN_Entry::name, - & ident_TkName::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"function name", 13} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +43, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: t.ErrorList#1/1 - //15: t.SymTable#1/1 - //16: e.Tail#1/1 - //18: s.LnNum#1/1 - //19: e.Name#1/1 - //21: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 # Entry ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icContextSet, 0, 16, 0}, - {refalrts::icsVarLeft, 0, 18, 2}, - {refalrts::icContextSet, 0, 19, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 21, 19, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icIdent, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 3, 10}, - {refalrts::icIdent, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icLinkBrackets, 7, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: t.ErrorList#1/1 - //10: t.SymTable#1/1 - //11: t.Unexpected#1/1 - //12: e.Tail#1/1 - //14: t.Unexpected#1/2 - // t.ErrorList#1 t.SymTable#1 # Entry t.Unexpected#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 9, 0}, - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::ictVarLeft, 0, 11, 0}, - {refalrts::icContextSet, 0, 12, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 14, 11, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icLinkBrackets, 2, 3, 0}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: t.ErrorList#1/1 - //11: t.SymTable#1/1 - //12: s.Directive#1/1 - //13: e.Tail#1/1 - // t.ErrorList#1 t.SymTable#1 s.Directive#1 e.Tail#1 - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::ictVarLeft, 0, 11, 0}, - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: t.ErrorList#1/1 - //15: t.SymTable#1/1 - //16: e.Tail#1/1 - //18: s.LnNum#1/1 - //19: e.Name#1/1 - //21: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 # Entry ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Entry::name, context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[2], context[3] ) ) - continue; - context[16] = context[0]; - context[17] = context[1]; - if( ! refalrts::svar_left( context[18], context[2], context[3] ) ) - continue; - context[19] = context[2]; - context[20] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[21], context[22], context[19], context[20])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ParseFunction, "ParseFunction" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[6], & ident_GN_Entry::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], ST_AddDefined, "ST_AddDefined" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[11], & ident_GN_Entry::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::link_brackets( context[7], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: t.ErrorList#1/1 - //10: t.SymTable#1/1 - //11: t.Unexpected#1/1 - //12: e.Tail#1/1 - //14: t.Unexpected#1/2 - // t.ErrorList#1 t.SymTable#1 # Entry t.Unexpected#1 e.Tail#1 - if( ! refalrts::tvar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Entry::name, context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[11], context[0], context[1] ) ) - continue; - context[12] = context[0]; - context[13] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[14], context[11])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], EL_AddUnexpected, "EL_AddUnexpected" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "function name", 13 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_stvar( res, context[10] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::link_brackets( context[2], context[3] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: t.ErrorList#1/1 - //11: t.SymTable#1/1 - //12: s.Directive#1/1 - //13: e.Tail#1/1 - // t.ErrorList#1 t.SymTable#1 s.Directive#1 e.Tail#1 - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ParseNameList, "ParseNameList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], GenFunctionsFromDirective, "GenFunctionsFromDirective" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_stvar( res, context[10] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseNameList(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 33 elems - refalrts::Iter context[33]; - refalrts::zeros( context, 33 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddUnexpected, "EL_AddUnexpected" }, - { ParseNameList_Tail, "ParseNameList_Tail" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkName::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"function name", 13} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +58, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //15: e.AST#1/1 - //17: t.ErrorList#1/1 - //18: t.SymTable#1/1 - //19: s.ASTItem#1/1 - //20: s.TableChangeFunc#1/1 - //21: s.ScopeClass#1/1 - //22: e.Tail#1/1 - //24: s.LnNum#1/1 - //25: e.Name#1/1 - //27: s.ASTItem#1/2 - //28: s.ScopeClass#1/2 - //29: s.ScopeClass#1/3 - //30: e.Name#1/2 - //32: s.TableChangeFunc#1/2 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::ictVarLeft, 0, 17, 0}, - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::icsVarLeft, 0, 19, 0}, - {refalrts::icsVarLeft, 0, 20, 0}, - {refalrts::icsVarLeft, 0, 21, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 22, 0}, - {refalrts::icsVarLeft, 0, 24, 4}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 27, 19, 0}, - {refalrts::icCopySTVar, 28, 21, 0}, - {refalrts::icCopySTVar, 29, 28, 0}, - {refalrts::icCopyEVar, 30, 25, 0}, - {refalrts::icCopySTVar, 32, 20, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 8, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.AST#1/1 - //13: t.ErrorList#1/1 - //14: t.SymTable#1/1 - //15: s.ASTItem#1/1 - //16: s.TableChangeFunc#1/1 - //17: s.ScopeClass#1/1 - //18: t.Unexpected#1/1 - //19: e.Tail#1/1 - //21: t.Unexpected#1/2 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 t.Unexpected#1 e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::ictVarLeft, 0, 13, 0}, - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icsVarLeft, 0, 17, 0}, - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 21, 18, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.AST#1/1 - //17: t.ErrorList#1/1 - //18: t.SymTable#1/1 - //19: s.ASTItem#1/1 - //20: s.TableChangeFunc#1/1 - //21: s.ScopeClass#1/1 - //22: e.Tail#1/1 - //24: s.LnNum#1/1 - //25: e.Name#1/1 - //27: s.ASTItem#1/2 - //28: s.ScopeClass#1/2 - //29: s.ScopeClass#1/3 - //30: e.Name#1/2 - //32: s.TableChangeFunc#1/2 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[15] = context[2]; - context[16] = context[3]; - if( ! refalrts::tvar_left( context[17], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[19], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[20], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[21], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[4], context[5] ) ) - continue; - context[22] = context[0]; - context[23] = context[1]; - if( ! refalrts::svar_left( context[24], context[4], context[5] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[27], context[19])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[28], context[21])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[29], context[28])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[30], context[31], context[25], context[26])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[32], context[20])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ParseNameList_Tail, "ParseNameList_Tail" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_stvar( res, context[27] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[8], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.AST#1/1 - //13: t.ErrorList#1/1 - //14: t.SymTable#1/1 - //15: s.ASTItem#1/1 - //16: s.TableChangeFunc#1/1 - //17: s.ScopeClass#1/1 - //18: t.Unexpected#1/1 - //19: e.Tail#1/1 - //21: t.Unexpected#1/2 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 t.Unexpected#1 e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[2]; - context[12] = context[3]; - if( ! refalrts::tvar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[17], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[21], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], EL_AddUnexpected, "EL_AddUnexpected" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], "function name", 13 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[14] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseNameList_Tail(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddUnexpected, "EL_AddUnexpected" }, - { ParseNameList, "ParseNameList" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkSemicolon::name, - & ident_TkComma::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"comma or semicolon", 18} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +35, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.AST#1/1 - //13: t.ErrorList#1/1 - //14: t.SymTable#1/1 - //15: s.ASTItem#1/1 - //16: s.TableChangeFunc#1/1 - //17: s.ScopeClass#1/1 - //18: e.Tail#1/1 - //20: s.LnNum#1/1 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 ( # TkComma s.LnNum#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::ictVarLeft, 0, 13, 0}, - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icsVarLeft, 0, 17, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icContextSet, 0, 18, 0}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: e.AST#1/1 - //10: t.ErrorList#1/1 - //11: t.SymTable#1/1 - //12: s.ASTItem#1/1 - //13: s.TableChangeFunc#1/1 - //14: s.ScopeClass#1/1 - //15: e.Tail#1/1 - //17: s.LnNum#1/1 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 ( # TkSemicolon s.LnNum#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::ictVarLeft, 0, 11, 0}, - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icsVarLeft, 0, 13, 0}, - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 17, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.AST#1/1 - //13: t.ErrorList#1/1 - //14: t.SymTable#1/1 - //15: s.ASTItem#1/1 - //16: s.TableChangeFunc#1/1 - //17: s.ScopeClass#1/1 - //18: t.Unexpected#1/1 - //19: e.Tail#1/1 - //21: t.Unexpected#1/2 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 t.Unexpected#1 e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::ictVarLeft, 0, 13, 0}, - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icsVarLeft, 0, 17, 0}, - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 21, 18, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.AST#1/1 - //13: t.ErrorList#1/1 - //14: t.SymTable#1/1 - //15: s.ASTItem#1/1 - //16: s.TableChangeFunc#1/1 - //17: s.ScopeClass#1/1 - //18: e.Tail#1/1 - //20: s.LnNum#1/1 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 ( # TkComma s.LnNum#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - if( ! refalrts::tvar_left( context[13], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[17], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkComma::name, context[4], context[5] ) ) - continue; - context[18] = context[0]; - context[19] = context[1]; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ParseNameList, "ParseNameList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_stvar( res, context[13] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: e.AST#1/1 - //10: t.ErrorList#1/1 - //11: t.SymTable#1/1 - //12: s.ASTItem#1/1 - //13: s.TableChangeFunc#1/1 - //14: s.ScopeClass#1/1 - //15: e.Tail#1/1 - //17: s.LnNum#1/1 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 ( # TkSemicolon s.LnNum#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[8] = context[2]; - context[9] = context[3]; - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[13], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkSemicolon::name, context[4], context[5] ) ) - continue; - context[15] = context[0]; - context[16] = context[1]; - if( ! refalrts::svar_left( context[17], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_stvar( res, context[10] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.AST#1/1 - //13: t.ErrorList#1/1 - //14: t.SymTable#1/1 - //15: s.ASTItem#1/1 - //16: s.TableChangeFunc#1/1 - //17: s.ScopeClass#1/1 - //18: t.Unexpected#1/1 - //19: e.Tail#1/1 - //21: t.Unexpected#1/2 - // ( e.AST#1 ) t.ErrorList#1 t.SymTable#1 s.ASTItem#1 s.TableChangeFunc#1 s.ScopeClass#1 t.Unexpected#1 e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[2]; - context[12] = context[3]; - if( ! refalrts::tvar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[17], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[21], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], EL_AddUnexpected, "EL_AddUnexpected" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], "comma or semicolon", 18 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[14] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CreateLambdaName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"lambda_", 7} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Number#1/1 - //9: e.Name#1/1 - // e.Name#1 s.Number#1 - {refalrts::icsVarRight, 0, 8, 0}, - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 2}, - {refalrts::icChar, 0, '_', 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Number#1/1 - //9: e.Name#1/1 - // e.Name#1 s.Number#1 - if( ! refalrts::svar_right( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[2], context[3], "lambda_", 7 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[4], '_' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseFunction_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 24 elems - refalrts::Iter context[24]; - refalrts::zeros( context, 24 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { CreateLambdaName, "CreateLambdaName" }, - { GenFunctionBody, "GenFunctionBody" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_GN_Local::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Name#1/1 - //19: s.Number#3/1 - //20: e.Sentences#3/1 - //22: e.Name#1/2 - // ( e.Name#1 ) ( s.Number#3 e.Sentences#3 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icsVarLeft, 0, 19, 4}, - {refalrts::icContextSet, 0, 20, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 22, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icIdent, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icLinkBrackets, 11, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Name#1/1 - //19: s.Number#3/1 - //20: e.Sentences#3/1 - //22: e.Name#1/2 - // ( e.Name#1 ) ( s.Number#3 e.Sentences#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::svar_left( context[19], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[20] = context[4]; - context[21] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[22], context[23], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], GenFunctionBody, "GenFunctionBody" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[8], & ident_GN_Local::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], CreateLambdaName, "CreateLambdaName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - refalrts::link_brackets( context[11], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseFunction_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GenFunctionBody, "GenFunctionBody" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //13: e.Name#1/1 - //15: s.ScopeClass#1/1 - //16: s.Number#3/1 - //17: e.Sentences#3/1 - //19: e.Name#1/2 - // s.ScopeClass#1 ( e.Name#1 ) ( s.Number#3 e.Sentences#3 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icContextSet, 0, 13, 4}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 16, 2}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.Name#1/1 - //15: s.ScopeClass#1/1 - //16: s.Number#3/1 - //17: e.Sentences#3/1 - //19: e.Name#1/2 - // s.ScopeClass#1 ( e.Name#1 ) ( s.Number#3 e.Sentences#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[13] = context[4]; - context[14] = context[5]; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], GenFunctionBody, "GenFunctionBody" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseFunction_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 45 elems - refalrts::Iter context[45]; - refalrts::zeros( context, 45 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ParseFunction_1, "lambda_ParseFunction_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" }, - { lambda_ParseFunction_0, "lambda_ParseFunction_0" }, - { Map, "Map" }, - { Cntx_Destroy, "Cntx_Destroy" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //31: e.Name#1/1 - //33: s.ScopeClass#1/1 - //34: s.NextNumber#2/1 - //35: t.ErrorList#2/1 - //36: t.SymTable#2/1 - //37: e.Tail#2/1 - //39: t.Context#2/1 - //40: t.MainBody#2/1 - //41: e.FunctionBodies#2/1 - //43: e.Name#1/2 - // ( e.Name#1 ) s.ScopeClass#1 ( s.NextNumber#2 e.FunctionBodies#2 t.MainBody#2 ) t.ErrorList#2 t.SymTable#2 ( t.Context#2 ) e.Tail#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 31, 2}, - {refalrts::icsVarLeft, 0, 33, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icsVarLeft, 0, 34, 4}, - {refalrts::ictVarLeft, 0, 35, 0}, - {refalrts::ictVarLeft, 0, 36, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 37, 0}, - {refalrts::ictVarLeft, 0, 39, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::ictVarRight, 0, 40, 4}, - {refalrts::icContextSet, 0, 41, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 43, 31, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 5, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 4, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icFunc, 0, 3, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 2, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 1, 24}, - {refalrts::icFunc, 0, 0, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icLinkBrackets, 11, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //31: e.Name#1/1 - //33: s.ScopeClass#1/1 - //34: s.NextNumber#2/1 - //35: t.ErrorList#2/1 - //36: t.SymTable#2/1 - //37: e.Tail#2/1 - //39: t.Context#2/1 - //40: t.MainBody#2/1 - //41: e.FunctionBodies#2/1 - //43: e.Name#1/2 - // ( e.Name#1 ) s.ScopeClass#1 ( s.NextNumber#2 e.FunctionBodies#2 t.MainBody#2 ) t.ErrorList#2 t.SymTable#2 ( t.Context#2 ) e.Tail#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[31] = context[2]; - context[32] = context[3]; - if( ! refalrts::svar_left( context[33], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[34], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[35], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[36], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[37] = context[0]; - context[38] = context[1]; - if( ! refalrts::tvar_left( context[39], context[6], context[7] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_right( context[40], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[41] = context[4]; - context[42] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[43], context[44], context[31], context[32])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Cntx_Destroy, "Cntx_Destroy" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], lambda_ParseFunction_0, "lambda_ParseFunction_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[25], lambda_ParseFunction_1, "lambda_ParseFunction_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_stvar( res, context[35] ); - refalrts::link_brackets( context[11], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseFunction(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 32 elems - refalrts::Iter context[32]; - refalrts::zeros( context, 32 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddUnexpected, "EL_AddUnexpected" }, - { lambda_ParseFunction_2, "lambda_ParseFunction_2" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Cntx_Create, "Cntx_Create" }, - { ParseBlock, "ParseBlock" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkOpenBlock::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"open brace", 10} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +64, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: s.ScopeClass#1/1 - //25: e.Name#1/1 - //27: t.ErrorList#1/1 - //28: t.SymTable#1/1 - //29: e.Tail#1/1 - //31: s.LnNum#1/1 - // s.ScopeClass#1 ( e.Name#1 ) t.ErrorList#1 t.SymTable#1 ( # TkOpenBlock s.LnNum#1 ) e.Tail#1 - {refalrts::icsVarLeft, 0, 24, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 25, 2}, - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::ictVarLeft, 0, 28, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 29, 0}, - {refalrts::icsVarLeft, 0, 31, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 5, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 4, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icInt, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 3, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 2, 18}, - {refalrts::icFunc, 0, 1, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 10, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: s.ScopeClass#1/1 - //12: t.ErrorList#1/1 - //13: t.SymTable#1/1 - //14: t.Unexpected#1/1 - //15: e.Tail#1/1 - //17: t.Unexpected#1/2 - // s.ScopeClass#1 ( e.Name#1 ) t.ErrorList#1 t.SymTable#1 t.Unexpected#1 e.Tail#1 - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Name#1 - {refalrts::ictVarLeft, 0, 12, 0}, - {refalrts::ictVarLeft, 0, 13, 0}, - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 17, 14, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: s.ScopeClass#1/1 - //25: e.Name#1/1 - //27: t.ErrorList#1/1 - //28: t.SymTable#1/1 - //29: e.Tail#1/1 - //31: s.LnNum#1/1 - // s.ScopeClass#1 ( e.Name#1 ) t.ErrorList#1 t.SymTable#1 ( # TkOpenBlock s.LnNum#1 ) e.Tail#1 - if( ! refalrts::svar_left( context[24], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[25] = context[2]; - context[26] = context[3]; - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[28], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkOpenBlock::name, context[4], context[5] ) ) - continue; - context[29] = context[0]; - context[30] = context[1]; - if( ! refalrts::svar_left( context[31], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParseBlock, "ParseBlock" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[11], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], Cntx_Create, "Cntx_Create" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], lambda_ParseFunction_2, "lambda_ParseFunction_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[24] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_stvar( res, context[27] ); - refalrts::link_brackets( context[10], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.ScopeClass#1/1 - //12: t.ErrorList#1/1 - //13: t.SymTable#1/1 - //14: t.Unexpected#1/1 - //15: e.Tail#1/1 - //17: t.Unexpected#1/2 - // s.ScopeClass#1 ( e.Name#1 ) t.ErrorList#1 t.SymTable#1 t.Unexpected#1 e.Tail#1 - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Name#1 - if( ! refalrts::tvar_left( context[12], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[17], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], EL_AddUnexpected, "EL_AddUnexpected" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], "open brace", 10 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[13] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ResolveLambdaName_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 24 elems - refalrts::Iter context[24]; - refalrts::zeros( context, 24 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ResolveLambdaName, "ResolveLambdaName" }, - { CreateLambdaName, "CreateLambdaName" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CallBrackets::name, - & ident_ADT_Brackets::name, - & ident_Brackets::name, - & ident_TkName::name, - & ident_LambdaName::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +28, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.MainName#1/1 - //14: s.Number#2/1 - // ( e.MainName#1 ) ( # TkName # LambdaName s.Number#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 3, 4}, - {refalrts::icIdentLeft, 0, 4, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::icsVarLeft, 0, 14, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icLinkBrackets, 6, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.MainName#1/1 - //16: e.SubResult#2/1 - // ( e.MainName#1 ) ( # Brackets e.SubResult#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 2, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icContextSet, 0, 16, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 2, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icLinkBrackets, 6, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +39, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //18: e.MainName#1/1 - //20: e.Name#2/1 - //22: e.SubResult#2/1 - // ( e.MainName#1 ) ( # ADT_Brackets ( e.Name#2 ) e.SubResult#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icBracketLeft, 0, 6, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 18, 2}, - {refalrts::icContextSet, 0, 20, 6}, - {refalrts::icContextSet, 0, 22, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icIdent, 0, 1, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icLinkBrackets, 8, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +31, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.MainName#1/1 - //16: e.SubResult#2/1 - // ( e.MainName#1 ) ( # CallBrackets e.SubResult#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icContextSet, 0, 16, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icLinkBrackets, 6, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: t.OtherTerm#2/1 - // ( e.MainName#1 ) t.OtherTerm#2 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.MainName#1 - {refalrts::ictVarLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.MainName#1/1 - //14: s.Number#2/1 - // ( e.MainName#1 ) ( # TkName # LambdaName s.Number#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_LambdaName::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[12] = context[2]; - context[13] = context[3]; - if( ! refalrts::svar_left( context[14], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], CreateLambdaName, "CreateLambdaName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.MainName#1/1 - //16: e.SubResult#2/1 - // ( e.MainName#1 ) ( # Brackets e.SubResult#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Brackets::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[14] = context[2]; - context[15] = context[3]; - context[16] = context[4]; - context[17] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ResolveLambdaName, "ResolveLambdaName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: e.MainName#1/1 - //20: e.Name#2/1 - //22: e.SubResult#2/1 - // ( e.MainName#1 ) ( # ADT_Brackets ( e.Name#2 ) e.SubResult#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_ADT_Brackets::name, context[4], context[5] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[18] = context[2]; - context[19] = context[3]; - context[20] = context[6]; - context[21] = context[7]; - context[22] = context[4]; - context[23] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_ADT_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ResolveLambdaName, "ResolveLambdaName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.MainName#1/1 - //16: e.SubResult#2/1 - // ( e.MainName#1 ) ( # CallBrackets e.SubResult#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CallBrackets::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[14] = context[2]; - context[15] = context[3]; - context[16] = context[4]; - context[17] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_CallBrackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ResolveLambdaName, "ResolveLambdaName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: t.OtherTerm#2/1 - // ( e.MainName#1 ) t.OtherTerm#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.MainName#1 - if( ! refalrts::tvar_left( context[4], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ResolveLambdaName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ResolveLambdaName_0, "lambda_ResolveLambdaName_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //13: e.MainName#1/1 - //15: e.Result#1/1 - // ( e.MainName#1 ) e.Result#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.MainName#1/1 - //15: e.Result#1/1 - // ( e.MainName#1 ) e.Result#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[13] = context[2]; - context[14] = context[3]; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_ResolveLambdaName_0, "lambda_ResolveLambdaName_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_GenFunctionBody_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 27 elems - refalrts::Iter context[27]; - refalrts::zeros( context, 27 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ResolveLambdaName, "ResolveLambdaName" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //21: e.MainName#1/1 - //23: e.Pattern#2/1 - //25: e.Result#2/1 - // ( e.MainName#1 ) ( ( e.Pattern#2 ) ( e.Result#2 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 4}, - {refalrts::icBracketLeft, 0, 8, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 6}, - {refalrts::icContextSet, 0, 25, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icLinkBrackets, 10, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 13, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.MainName#1/1 - //23: e.Pattern#2/1 - //25: e.Result#2/1 - // ( e.MainName#1 ) ( ( e.Pattern#2 ) ( e.Result#2 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[6]; - context[24] = context[7]; - context[25] = context[8]; - context[26] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], ResolveLambdaName, "ResolveLambdaName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[10], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[13], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GenFunctionBody(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 30 elems - refalrts::Iter context[30]; - refalrts::zeros( context, 30 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_GenFunctionBody_0, "lambda_GenFunctionBody_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Map, "Map" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Function::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //23: s.ScopeClass#1/1 - //24: e.MainName#1/1 - //26: e.Name#1/1 - //28: e.Sentences#1/1 - // s.ScopeClass#1 ( e.MainName#1 ) ( e.Name#1 ) e.Sentences#1 - {refalrts::icsVarLeft, 0, 23, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 24, 2}, - {refalrts::icContextSet, 0, 26, 4}, - {refalrts::icContextSet, 0, 28, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 3, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icFunc, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icLinkBrackets, 6, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 12, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //23: s.ScopeClass#1/1 - //24: e.MainName#1/1 - //26: e.Name#1/1 - //28: e.Sentences#1/1 - // s.ScopeClass#1 ( e.MainName#1 ) ( e.Name#1 ) e.Sentences#1 - if( ! refalrts::svar_left( context[23], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[24] = context[2]; - context[25] = context[3]; - context[26] = context[4]; - context[27] = context[5]; - context[28] = context[0]; - context[29] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_Function::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], lambda_GenFunctionBody_0, "lambda_GenFunctionBody_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[12], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseBlock(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Cntx_PushScope, "Cntx_PushScope" }, - { DoParseBlock, "DoParseBlock" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Functions#1/1 - //16: t.ErrorList#1/1 - //17: t.SymTable#1/1 - //18: t.Context#1/1 - //19: e.Tokens#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 e.Tokens#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::ictVarLeft, 0, 16, 0}, - {refalrts::ictVarLeft, 0, 17, 0}, - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Functions#1/1 - //16: t.ErrorList#1/1 - //17: t.SymTable#1/1 - //18: t.Context#1/1 - //19: e.Tokens#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 e.Tokens#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[14] = context[2]; - context[15] = context[3]; - if( ! refalrts::tvar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[17], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DoParseBlock, "DoParseBlock" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Cntx_PushScope, "Cntx_PushScope" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[16] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_DoParseBlock_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 34 elems - refalrts::Iter context[34]; - refalrts::zeros( context, 34 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { AddContextToSentence, "AddContextToSentence" }, - { Map, "Map" }, - { Inc, "Inc" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //21: s.Number#1/1 - //22: e.Functions#1/1 - //24: e.Sentences#1/1 - //26: t.ErrorList#1/1 - //27: t.SymTable#1/1 - //28: t.Context#2/1 - //29: e.FreeContext#2/1 - //31: s.Number#1/2 - //32: e.FreeContext#2/2 - // s.Number#1 ( e.Functions#1 ) ( e.Sentences#1 ) t.ErrorList#1 t.SymTable#1 t.Context#2 e.FreeContext#2 - {refalrts::icsVarLeft, 0, 21, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icContextSet, 0, 24, 4}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::ictVarLeft, 0, 28, 0}, - {refalrts::icContextSet, 0, 29, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 31, 21, 0}, - {refalrts::icCopyEVar, 32, 29, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 2, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 1, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icLinkBrackets, 6, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 10, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icLinkBrackets, 13, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: s.Number#1/1 - //22: e.Functions#1/1 - //24: e.Sentences#1/1 - //26: t.ErrorList#1/1 - //27: t.SymTable#1/1 - //28: t.Context#2/1 - //29: e.FreeContext#2/1 - //31: s.Number#1/2 - //32: e.FreeContext#2/2 - // s.Number#1 ( e.Functions#1 ) ( e.Sentences#1 ) t.ErrorList#1 t.SymTable#1 t.Context#2 e.FreeContext#2 - if( ! refalrts::svar_left( context[21], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[22] = context[2]; - context[23] = context[3]; - context[24] = context[4]; - context[25] = context[5]; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[28], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[29] = context[0]; - context[30] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[31], context[21])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[32], context[33], context[29], context[30])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], AddContextToSentence, "AddContextToSentence" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_stvar( res, context[26] ); - refalrts::link_brackets( context[6], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[10], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::link_brackets( context[13], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoParseBlock(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 41 elems - refalrts::Iter context[41]; - refalrts::zeros( context, 41 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParseSentence, "ParseSentence" }, - { DoParseBlock, "DoParseBlock" }, - { Cntx_PopScope, "Cntx_PopScope" }, - { EL_AddErrorAt, "EL_AddErrorAt" }, - { Inc, "Inc" }, - { lambda_DoParseBlock_0, "lambda_DoParseBlock_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkEOF::name, - & ident_TkCloseBlock::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Unexpected EOF, expected \"}\"", 28} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +59, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: s.Number#1/1 - //23: e.Functions#1/1 - //25: t.ErrorList#1/1 - //26: t.SymTable#1/1 - //27: t.Context#1/1 - //28: e.Sentences#1/1 - //30: e.Tail#1/1 - //32: s.LnNumber#1/1 - // ( s.Number#1 e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.Sentences#1 ) ( # TkCloseBlock s.LnNumber#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 22, 2}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 1, 6}, - {refalrts::icContextSet, 0, 28, 4}, - {refalrts::icContextSet, 0, 30, 0}, - {refalrts::icsVarLeft, 0, 32, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 7, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 6, 14}, - {refalrts::icFunc, 0, 5, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +76, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //28: s.Number#1/1 - //29: e.Functions#1/1 - //31: t.ErrorList#1/1 - //32: t.SymTable#1/1 - //33: t.Context#1/1 - //34: e.Sentences#1/1 - //36: e.Tail#1/1 - //38: s.LnNum#1/1 - //39: s.Number#1/2 - //40: s.LnNum#1/2 - // ( s.Number#1 e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.Sentences#1 ) ( # TkEOF s.LnNum#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 28, 2}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icsVarLeft, 0, 38, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 39, 28, 0}, - {refalrts::icCopySTVar, 40, 38, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 4, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 3, 16}, - {refalrts::icString, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 21}, - {refalrts::icFunc, 0, 2, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icIdent, 0, 0, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 25, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 20, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceRange, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 8, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: e.Functions#1/1 - //18: t.ErrorList#1/1 - //19: t.SymTable#1/1 - //20: t.Context#1/1 - //21: e.Sentences#1/1 - //23: e.Tokens#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.Sentences#1 ) e.Tokens#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::ictVarLeft, 0, 19, 0}, - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icContextSet, 0, 23, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: s.Number#1/1 - //23: e.Functions#1/1 - //25: t.ErrorList#1/1 - //26: t.SymTable#1/1 - //27: t.Context#1/1 - //28: e.Sentences#1/1 - //30: e.Tail#1/1 - //32: s.LnNumber#1/1 - // ( s.Number#1 e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.Sentences#1 ) ( # TkCloseBlock s.LnNumber#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[22], context[2], context[3] ) ) - continue; - context[23] = context[2]; - context[24] = context[3]; - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkCloseBlock::name, context[6], context[7] ) ) - continue; - context[28] = context[4]; - context[29] = context[5]; - context[30] = context[0]; - context[31] = context[1]; - if( ! refalrts::svar_left( context[32], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Cntx_PopScope, "Cntx_PopScope" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], lambda_DoParseBlock_0, "lambda_DoParseBlock_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[30], context[31] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //28: s.Number#1/1 - //29: e.Functions#1/1 - //31: t.ErrorList#1/1 - //32: t.SymTable#1/1 - //33: t.Context#1/1 - //34: e.Sentences#1/1 - //36: e.Tail#1/1 - //38: s.LnNum#1/1 - //39: s.Number#1/2 - //40: s.LnNum#1/2 - // ( s.Number#1 e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.Sentences#1 ) ( # TkEOF s.LnNum#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[28], context[2], context[3] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkEOF::name, context[6], context[7] ) ) - continue; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[0]; - context[37] = context[1]; - if( ! refalrts::svar_left( context[38], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[39], context[28])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[40], context[38])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[17], context[18], "Unexpected EOF, expected \"}\"", 28 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], Cntx_PopScope, "Cntx_PopScope" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[26], & ident_TkEOF::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[25], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[20], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[21] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[32] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[8], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: e.Functions#1/1 - //18: t.ErrorList#1/1 - //19: t.SymTable#1/1 - //20: t.Context#1/1 - //21: e.Sentences#1/1 - //23: e.Tokens#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.Sentences#1 ) e.Tokens#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[19], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[4]; - context[22] = context[5]; - context[23] = context[0]; - context[24] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], DoParseBlock, "DoParseBlock" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParseSentence, "ParseSentence" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult AddContextToSentence(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { CreateContext, "CreateContext" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Context#1/1 - //19: e.Pattern#1/1 - //21: e.Result#1/1 - // e.Context#1 ( ( e.Pattern#1 ) ( e.Result#1 ) ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icContextSet, 0, 21, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 9, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Context#1/1 - //19: e.Pattern#1/1 - //21: e.Result#1/1 - // e.Context#1 ( ( e.Pattern#1 ) ( e.Result#1 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[0]; - context[18] = context[1]; - context[19] = context[4]; - context[20] = context[5]; - context[21] = context[6]; - context[22] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], CreateContext, "CreateContext" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[9], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CreateContext_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkVariable::name, - & ident_Brackets::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +24, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Index#2/1 - // ( 'e e.Index#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icCharLeft, 0, static_cast('e'), 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 0, 7}, - {refalrts::icChar, 0, 'e', 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 4, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 6, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: s.Mode#2/1 - //8: e.Index#2/1 - // ( s.Mode#2 e.Index#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 7, 2}, - {refalrts::icContextSet, 0, 8, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Index#2/1 - // ( 'e e.Index#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( 'e', context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_TkVariable::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[8], 'e' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[6], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: s.Mode#2/1 - //8: e.Index#2/1 - // ( s.Mode#2 e.Index#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = context[2]; - context[9] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_TkVariable::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CreateContext(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_CreateContext_0, "lambda_CreateContext_0" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Context#1/1 - // e.Context#1 - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Context#1/1 - // e.Context#1 - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], lambda_CreateContext_0, "lambda_CreateContext_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseSentence_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddErrorAt, "EL_AddErrorAt" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkReplace::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Incorrect pattern termination", 29} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: t.ErrorList#2/1 - //9: t.SymTable#2/1 - //10: t.Context#2/1 - //11: e.Pattern#2/1 - //13: e.Tokens#2/1 - //15: s.LnNum#2/1 - // t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Pattern#2 ) ( # TkReplace s.LnNum#2 ) e.Tokens#2 - {refalrts::ictVarLeft, 0, 8, 0}, - {refalrts::ictVarLeft, 0, 9, 0}, - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icsVarLeft, 0, 15, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: t.ErrorList#2/1 - //14: t.SymTable#2/1 - //15: t.Context#2/1 - //16: e.Pattern#2/1 - //18: e.Tokens#2/1 - //20: s.NextResultTerm#2/1 - //21: s.LnNum#2/1 - // t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Pattern#2 ) ( s.NextResultTerm#2 s.LnNum#2 e.Info#2 ) e.Tokens#2 - {refalrts::ictVarLeft, 0, 13, 0}, - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 0}, - {refalrts::icsVarLeft, 0, 20, 4}, - {refalrts::icsVarLeft, 0, 21, 4}, - // Unused closed variable e.Info#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: t.ErrorList#2/1 - //9: t.SymTable#2/1 - //10: t.Context#2/1 - //11: e.Pattern#2/1 - //13: e.Tokens#2/1 - //15: s.LnNum#2/1 - // t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Pattern#2 ) ( # TkReplace s.LnNum#2 ) e.Tokens#2 - if( ! refalrts::tvar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkReplace::name, context[4], context[5] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[0]; - context[14] = context[1]; - if( ! refalrts::svar_left( context[15], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: t.ErrorList#2/1 - //14: t.SymTable#2/1 - //15: t.Context#2/1 - //16: e.Pattern#2/1 - //18: e.Tokens#2/1 - //20: s.NextResultTerm#2/1 - //21: s.LnNum#2/1 - // t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Pattern#2 ) ( s.NextResultTerm#2 s.LnNum#2 e.Info#2 ) e.Tokens#2 - if( ! refalrts::tvar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[0]; - context[19] = context[1]; - if( ! refalrts::svar_left( context[20], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[21], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Info#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], "Incorrect pattern termination", 29 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[18], context[19] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_stvar( res, context[14] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseSentence_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 26 elems - refalrts::Iter context[26]; - refalrts::zeros( context, 26 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParseResult, "ParseResult" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Functions#1/1 - //19: t.ErrorList#2/1 - //20: t.SymTable#2/1 - //21: t.Context#2/1 - //22: e.Pattern#2/1 - //24: e.Tokens#2/1 - // ( e.Functions#1 ) t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Pattern#2 ) e.Tokens#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::ictVarLeft, 0, 19, 0}, - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::ictVarLeft, 0, 21, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 22, 4}, - {refalrts::icContextSet, 0, 24, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Functions#1/1 - //19: t.ErrorList#2/1 - //20: t.SymTable#2/1 - //21: t.Context#2/1 - //22: e.Pattern#2/1 - //24: e.Tokens#2/1 - // ( e.Functions#1 ) t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Pattern#2 ) e.Tokens#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - if( ! refalrts::tvar_left( context[19], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[21], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[22] = context[4]; - context[23] = context[5]; - context[24] = context[0]; - context[25] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[19] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseSentence_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 48 elems - refalrts::Iter context[48]; - refalrts::zeros( context, 48 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Cntx_ResetAfterSentence, "Cntx_ResetAfterSentence" }, - { EL_AddUnexpected, "EL_AddUnexpected" }, - { EL_AddErrorAt, "EL_AddErrorAt" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkCloseBlock::name, - & ident_TkSemicolon::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"semicolon", 9}, - {"Missed semicolon", 16} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Sentences#1/1 - //27: e.Pattern#2/1 - //29: e.Functions#2/1 - //31: t.ErrorList#2/1 - //32: t.SymTable#2/1 - //33: t.Context#2/1 - //34: e.Result#2/1 - //36: e.Tokens#2/1 - //38: s.LnNum#2/1 - // ( e.Sentences#1 ) ( e.Pattern#2 ) ( e.Functions#2 ) t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Result#2 ) ( # TkSemicolon s.LnNum#2 ) e.Tokens#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 25, 2}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icContextSet, 0, 29, 6}, - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 1, 10}, - {refalrts::icContextSet, 0, 34, 8}, - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icsVarLeft, 0, 38, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 17, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +80, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //33: e.Sentences#1/1 - //35: e.Pattern#2/1 - //37: e.Functions#2/1 - //39: t.ErrorList#2/1 - //40: t.SymTable#2/1 - //41: t.Context#2/1 - //42: e.Result#2/1 - //44: e.Tokens#2/1 - //46: s.LnNum#2/1 - //47: s.LnNum#2/2 - // ( e.Sentences#1 ) ( e.Pattern#2 ) ( e.Functions#2 ) t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Result#2 ) ( # TkCloseBlock s.LnNum#2 ) e.Tokens#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::ictVarLeft, 0, 39, 0}, - {refalrts::ictVarLeft, 0, 40, 0}, - {refalrts::ictVarLeft, 0, 41, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 0, 10}, - {refalrts::icContextSet, 0, 42, 8}, - {refalrts::icContextSet, 0, 44, 0}, - {refalrts::icsVarLeft, 0, 46, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 47, 46, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 2, 15}, - {refalrts::icString, 0, 1, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 19}, - {refalrts::icFunc, 0, 0, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 30}, - {refalrts::icIdent, 0, 0, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 32}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icLinkBrackets, 30, 32, 0}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icLinkBrackets, 22, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 23, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //28: e.Sentences#1/1 - //30: e.Pattern#2/1 - //32: e.Functions#2/1 - //34: t.ErrorList#2/1 - //35: t.SymTable#2/1 - //36: t.Context#2/1 - //37: e.Result#2/1 - //39: t.Unexpected#2/1 - //40: e.Tokens#2/1 - //42: t.Unexpected#2/2 - // ( e.Sentences#1 ) ( e.Pattern#2 ) ( e.Functions#2 ) t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Result#2 ) t.Unexpected#2 e.Tokens#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 28, 2}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 6}, - {refalrts::ictVarLeft, 0, 34, 0}, - {refalrts::ictVarLeft, 0, 35, 0}, - {refalrts::ictVarLeft, 0, 36, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::ictVarLeft, 0, 39, 0}, - {refalrts::icContextSet, 0, 40, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 42, 39, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icString, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 17}, - {refalrts::icFunc, 0, 0, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icLinkBrackets, 20, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 21, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Sentences#1/1 - //27: e.Pattern#2/1 - //29: e.Functions#2/1 - //31: t.ErrorList#2/1 - //32: t.SymTable#2/1 - //33: t.Context#2/1 - //34: e.Result#2/1 - //36: e.Tokens#2/1 - //38: s.LnNum#2/1 - // ( e.Sentences#1 ) ( e.Pattern#2 ) ( e.Functions#2 ) t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Result#2 ) ( # TkSemicolon s.LnNum#2 ) e.Tokens#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[25] = context[2]; - context[26] = context[3]; - context[27] = context[4]; - context[28] = context[5]; - context[29] = context[6]; - context[30] = context[7]; - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkSemicolon::name, context[10], context[11] ) ) - continue; - context[34] = context[8]; - context[35] = context[9]; - context[36] = context[0]; - context[37] = context[1]; - if( ! refalrts::svar_left( context[38], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], Cntx_ResetAfterSentence, "Cntx_ResetAfterSentence" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[17], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[18], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_stvar( res, context[31] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.Sentences#1/1 - //35: e.Pattern#2/1 - //37: e.Functions#2/1 - //39: t.ErrorList#2/1 - //40: t.SymTable#2/1 - //41: t.Context#2/1 - //42: e.Result#2/1 - //44: e.Tokens#2/1 - //46: s.LnNum#2/1 - //47: s.LnNum#2/2 - // ( e.Sentences#1 ) ( e.Pattern#2 ) ( e.Functions#2 ) t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Result#2 ) ( # TkCloseBlock s.LnNum#2 ) e.Tokens#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[33] = context[2]; - context[34] = context[3]; - context[35] = context[4]; - context[36] = context[5]; - context[37] = context[6]; - context[38] = context[7]; - if( ! refalrts::tvar_left( context[39], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[40], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[41], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkCloseBlock::name, context[10], context[11] ) ) - continue; - context[42] = context[8]; - context[43] = context[9]; - context[44] = context[0]; - context[45] = context[1]; - if( ! refalrts::svar_left( context[46], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[47], context[46])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], "Missed semicolon", 16 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], Cntx_ResetAfterSentence, "Cntx_ResetAfterSentence" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[31], & ident_TkCloseBlock::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[32] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[44], context[45] ); - refalrts::link_brackets( context[30], context[32] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::link_brackets( context[22], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[23], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[19] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[40] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //28: e.Sentences#1/1 - //30: e.Pattern#2/1 - //32: e.Functions#2/1 - //34: t.ErrorList#2/1 - //35: t.SymTable#2/1 - //36: t.Context#2/1 - //37: e.Result#2/1 - //39: t.Unexpected#2/1 - //40: e.Tokens#2/1 - //42: t.Unexpected#2/2 - // ( e.Sentences#1 ) ( e.Pattern#2 ) ( e.Functions#2 ) t.ErrorList#2 t.SymTable#2 t.Context#2 ( e.Result#2 ) t.Unexpected#2 e.Tokens#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[28] = context[2]; - context[29] = context[3]; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[6]; - context[33] = context[7]; - if( ! refalrts::tvar_left( context[34], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[35], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[36], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[37] = context[8]; - context[38] = context[9]; - if( ! refalrts::tvar_left( context[39], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[40] = context[0]; - context[41] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[42], context[39])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], EL_AddUnexpected, "EL_AddUnexpected" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "semicolon", 9 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], Cntx_ResetAfterSentence, "Cntx_ResetAfterSentence" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_stvar( res, context[42] ); - refalrts::link_brackets( context[20], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[21], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[17] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[35] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseSentence(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 41 elems - refalrts::Iter context[41]; - refalrts::zeros( context, 41 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ParseSentence_2, "lambda_ParseSentence_2" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { lambda_ParseSentence_1, "lambda_ParseSentence_1" }, - { lambda_ParseSentence_0, "lambda_ParseSentence_0" }, - { Seq, "Seq" }, - { ParsePattern, "ParsePattern" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //32: e.Functions#1/1 - //34: t.ErrorList#1/1 - //35: t.SymTable#1/1 - //36: t.Context#1/1 - //37: e.Sentences#1/1 - //39: e.Tokens#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.Sentences#1 ) e.Tokens#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::ictVarLeft, 0, 34, 0}, - {refalrts::ictVarLeft, 0, 35, 0}, - {refalrts::ictVarLeft, 0, 36, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 37, 4}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 6, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 5, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 4, 16}, - {refalrts::icFunc, 0, 3, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 1, 19}, - {refalrts::icFunc, 0, 2, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 24}, - {refalrts::icFunc, 0, 1, 25}, - {refalrts::icFunc, 0, 0, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 27, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.Functions#1/1 - //34: t.ErrorList#1/1 - //35: t.SymTable#1/1 - //36: t.Context#1/1 - //37: e.Sentences#1/1 - //39: e.Tokens#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.Sentences#1 ) e.Tokens#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::tvar_left( context[34], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[35], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[36], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[37] = context[4]; - context[38] = context[5]; - context[39] = context[0]; - context[40] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], lambda_ParseSentence_0, "lambda_ParseSentence_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[20], lambda_ParseSentence_1, "lambda_ParseSentence_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[25], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[26], lambda_ParseSentence_2, "lambda_ParseSentence_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::push_stack( context[30] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[24] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[27], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParsePattern_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 33 elems - refalrts::Iter context[33]; - refalrts::zeros( context, 33 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParsePattern, "ParsePattern" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkVariable::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //20: t.SymTable#1/1 - //21: e.MultiBracket#1/1 - //23: e.Scanned#1/1 - //25: e.Index#1/1 - //27: e.Tail#1/1 - //29: t.ErrorList#2/1 - //30: t.Context#2/1 - //31: s.Mode#2/1 - //32: s.Depth#2/1 - // t.SymTable#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Index#1 ) ( e.Tail#1 ) t.ErrorList#2 t.Context#2 s.Mode#2 s.Depth#2 - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 4}, - {refalrts::icContextSet, 0, 25, 6}, - {refalrts::icContextSet, 0, 27, 8}, - {refalrts::ictVarLeft, 0, 29, 0}, - {refalrts::ictVarLeft, 0, 30, 0}, - {refalrts::icsVarLeft, 0, 31, 0}, - {refalrts::icsVarLeft, 0, 32, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 14, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 15, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: t.SymTable#1/1 - //21: e.MultiBracket#1/1 - //23: e.Scanned#1/1 - //25: e.Index#1/1 - //27: e.Tail#1/1 - //29: t.ErrorList#2/1 - //30: t.Context#2/1 - //31: s.Mode#2/1 - //32: s.Depth#2/1 - // t.SymTable#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Index#1 ) ( e.Tail#1 ) t.ErrorList#2 t.Context#2 s.Mode#2 s.Depth#2 - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[4]; - context[24] = context[5]; - context[25] = context[6]; - context[26] = context[7]; - context[27] = context[8]; - context[28] = context[9]; - if( ! refalrts::tvar_left( context[29], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[30], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[31], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[32], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_TkVariable::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[14], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[15], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParsePattern_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 33 elems - refalrts::Iter context[33]; - refalrts::zeros( context, 33 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParsePattern, "ParsePattern" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkVariable::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //20: t.SymTable#1/1 - //21: e.MultiBracket#1/1 - //23: e.Scanned#1/1 - //25: e.Index#1/1 - //27: e.Tail#1/1 - //29: t.ErrorList#2/1 - //30: t.Context#2/1 - //31: s.Mode#2/1 - //32: s.Depth#2/1 - // t.SymTable#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Index#1 ) ( e.Tail#1 ) t.ErrorList#2 t.Context#2 s.Mode#2 s.Depth#2 - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 4}, - {refalrts::icContextSet, 0, 25, 6}, - {refalrts::icContextSet, 0, 27, 8}, - {refalrts::ictVarLeft, 0, 29, 0}, - {refalrts::ictVarLeft, 0, 30, 0}, - {refalrts::icsVarLeft, 0, 31, 0}, - {refalrts::icsVarLeft, 0, 32, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icIdent, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 14, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 15, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: t.SymTable#1/1 - //21: e.MultiBracket#1/1 - //23: e.Scanned#1/1 - //25: e.Index#1/1 - //27: e.Tail#1/1 - //29: t.ErrorList#2/1 - //30: t.Context#2/1 - //31: s.Mode#2/1 - //32: s.Depth#2/1 - // t.SymTable#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Index#1 ) ( e.Tail#1 ) t.ErrorList#2 t.Context#2 s.Mode#2 s.Depth#2 - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[4]; - context[24] = context[5]; - context[25] = context[6]; - context[26] = context[7]; - context[27] = context[8]; - context[28] = context[9]; - if( ! refalrts::tvar_left( context[29], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[30], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[31], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[32], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[16], & ident_TkVariable::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[14], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[15], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParsePattern(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 48 elems - refalrts::Iter context[48]; - refalrts::zeros( context, 48 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromBracket, "StrFromBracket" }, - { EL_AddErrorAt, "EL_AddErrorAt" }, - { ParsePattern, "ParsePattern" }, - { ST_GetAnyName, "ST_GetAnyName" }, - { ST_AddFunctionCall, "ST_AddFunctionCall" }, - { lambda_ParsePattern_1, "lambda_ParsePattern_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Cntx_AddVariable, "Cntx_AddVariable" }, - { CheckAddVariable, "CheckAddVariable" }, - { Fetch, "Fetch" }, - { lambda_ParsePattern_0, "lambda_ParsePattern_0" }, - { Cntx_AddNewVariable, "Cntx_AddNewVariable" }, - { ST_AddIdent, "ST_AddIdent" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Close::name, - & ident_TkCloseCall::name, - & ident_Brackets::name, - & ident_TkOpenCall::name, - & ident_Open::name, - & ident_TkCloseADT::name, - & ident_ADT_Brackets::name, - & ident_TkOpenADT::name, - & ident_TkName::name, - & ident_TkCloseBracket::name, - & ident_TkOpenBracket::name, - & ident_TkRedefinition::name, - & ident_TkVariable::name, - & ident_TkIdentMarker::name, - & ident_TkIdentifier::name, - & ident_TkNumber::name, - & ident_TkChar::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Unbalanced bracket \"", 20}, - {"Unexpected call bracket in pattern expression", 45}, - {"Expected name after \"[\"", 23}, - {"Naked redefinition sign", 23}, - {"Missed name after \'#\'", 21} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //18: t.ErrorList#1/1 - //19: t.SymTable#1/1 - //20: t.Context#1/1 - //21: e.MultiBrackets#1/1 - //23: e.Scanned#1/1 - //25: e.Tail#1/1 - //27: s.LnNum#1/1 - //28: s.Char#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkChar s.LnNum#1 s.Char#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::ictVarLeft, 0, 19, 0}, - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 16, 6}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 4}, - {refalrts::icContextSet, 0, 25, 0}, - {refalrts::icsVarLeft, 0, 27, 6}, - {refalrts::icsVarLeft, 0, 28, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icIdent, 0, 16, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icLinkBrackets, 12, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 13, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +48, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //18: t.ErrorList#1/1 - //19: t.SymTable#1/1 - //20: t.Context#1/1 - //21: e.MultiBrackets#1/1 - //23: e.Scanned#1/1 - //25: e.Tail#1/1 - //27: s.LnNum#1/1 - //28: s.Number#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkNumber s.LnNum#1 s.Number#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 18, 0}, - {refalrts::ictVarLeft, 0, 19, 0}, - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 15, 6}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::icContextSet, 0, 23, 4}, - {refalrts::icContextSet, 0, 25, 0}, - {refalrts::icsVarLeft, 0, 27, 6}, - {refalrts::icsVarLeft, 0, 28, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icIdent, 0, 15, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icLinkBrackets, 12, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 13, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +58, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: t.ErrorList#1/1 - //22: t.SymTable#1/1 - //23: t.Context#1/1 - //24: e.MultiBrackets#1/1 - //26: e.Scanned#1/1 - //28: e.Tail#1/1 - //30: s.LnNum#1/1 - //31: e.Name#1/1 - //33: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 21, 0}, - {refalrts::ictVarLeft, 0, 22, 0}, - {refalrts::ictVarLeft, 0, 23, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 8, 6}, - {refalrts::icContextSet, 0, 24, 2}, - {refalrts::icContextSet, 0, 26, 4}, - {refalrts::icContextSet, 0, 28, 0}, - {refalrts::icsVarLeft, 0, 30, 6}, - {refalrts::icContextSet, 0, 31, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 33, 31, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 4, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 8, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icLinkBrackets, 15, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 16, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +61, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //23: t.ErrorList#1/1 - //24: t.SymTable#1/1 - //25: t.Context#1/1 - //26: e.MultiBrackets#1/1 - //28: e.Scanned#1/1 - //30: e.Tail#1/1 - //32: s.LnNumMarker#1/1 - //33: s.LnNumName#1/1 - //34: e.Name#1/1 - //36: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkIdentMarker s.LnNumMarker#1 ) ( # TkName s.LnNumName#1 e.Name#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 23, 0}, - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 13, 6}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 8, 8}, - {refalrts::icContextSet, 0, 26, 2}, - {refalrts::icContextSet, 0, 28, 4}, - {refalrts::icContextSet, 0, 30, 0}, - {refalrts::icsVarLeft, 0, 32, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icsVarLeft, 0, 33, 8}, - {refalrts::icContextSet, 0, 34, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 36, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 12, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icIdent, 0, 14, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icLinkBrackets, 17, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 18, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +50, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //20: t.ErrorList#1/1 - //21: t.SymTable#1/1 - //22: t.Context#1/1 - //23: e.MultiBrackets#1/1 - //25: e.Scanned#1/1 - //27: e.Tail#1/1 - //29: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkIdentMarker s.LnNum#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::ictVarLeft, 0, 21, 0}, - {refalrts::ictVarLeft, 0, 22, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 13, 6}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 0}, - {refalrts::icsVarLeft, 0, 29, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icString, 0, 4, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +79, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: t.ErrorList#1/1 - //30: t.SymTable#1/1 - //31: t.Context#1/1 - //32: e.MultiBracket#1/1 - //34: e.Scanned#1/1 - //36: e.Tail#1/1 - //38: s.LnNumVar#1/1 - //39: s.Mode#1/1 - //40: e.Index#1/1 - //42: s.LnNumRedef#1/1 - //43: e.Index#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkVariable s.LnNumVar#1 s.Mode#1 e.Index#1 ) ( # TkRedefinition s.LnNumRedef#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 29, 0}, - {refalrts::ictVarLeft, 0, 30, 0}, - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 12, 6}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 11, 8}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icsVarLeft, 0, 38, 6}, - {refalrts::icsVarLeft, 0, 39, 6}, - {refalrts::icContextSet, 0, 40, 6}, - {refalrts::icsVarLeft, 0, 42, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 43, 40, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 9, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 8, 13}, - {refalrts::icFunc, 0, 11, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 6, 17}, - {refalrts::icFunc, 0, 10, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +75, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: t.ErrorList#1/1 - //28: t.SymTable#1/1 - //29: t.Context#1/1 - //30: e.MultiBracket#1/1 - //32: e.Scanned#1/1 - //34: e.Tail#1/1 - //36: s.LnNum#1/1 - //37: s.Mode#1/1 - //38: e.Index#1/1 - //40: e.Index#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkVariable s.LnNum#1 s.Mode#1 e.Index#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::ictVarLeft, 0, 28, 0}, - {refalrts::ictVarLeft, 0, 29, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 12, 6}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 0}, - {refalrts::icsVarLeft, 0, 36, 6}, - {refalrts::icsVarLeft, 0, 37, 6}, - {refalrts::icContextSet, 0, 38, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 40, 38, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 9, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 8, 11}, - {refalrts::icFunc, 0, 7, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 6, 15}, - {refalrts::icFunc, 0, 5, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +50, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //20: t.ErrorList#1/1 - //21: t.SymTable#1/1 - //22: t.Context#1/1 - //23: e.MultiBracket#1/1 - //25: e.Scanned#1/1 - //27: e.Tail#1/1 - //29: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkRedefinition s.LnNum#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::ictVarLeft, 0, 21, 0}, - {refalrts::ictVarLeft, 0, 22, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 11, 6}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 0}, - {refalrts::icsVarLeft, 0, 29, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icString, 0, 3, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +50, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //19: t.ErrorList#1/1 - //20: t.SymTable#1/1 - //21: t.Context#1/1 - //22: e.MultiBracket#1/1 - //24: e.Scanned#1/1 - //26: e.Tail#1/1 - //28: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 # TkOpenBracket ) e.Tail#1 - {refalrts::ictVarLeft, 0, 19, 0}, - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::ictVarLeft, 0, 21, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 4, 6}, - {refalrts::icIdentRight, 0, 10, 6}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icContextSet, 0, 24, 4}, - {refalrts::icContextSet, 0, 26, 0}, - {refalrts::icsVarLeft, 0, 28, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icIdent, 0, 2, 12}, - {refalrts::icIdent, 0, 9, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 10, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 11, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +71, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //26: t.ErrorList#1/1 - //27: t.SymTable#1/1 - //28: t.Context#1/1 - //29: e.MultiBracket#1/1 - //31: e.Scanned#1/1 - //33: e.Tail#1/1 - //35: s.LnNumBracket#1/1 - //36: s.LnNumName#1/1 - //37: e.Name#1/1 - //39: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNumBracket#1 # TkOpenADT ) ( # TkName s.LnNumName#1 e.Name#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::ictVarLeft, 0, 28, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 4, 6}, - {refalrts::icIdentRight, 0, 7, 6}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 8, 8}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 0}, - {refalrts::icsVarLeft, 0, 35, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icsVarLeft, 0, 36, 8}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 39, 37, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 4, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 6, 17}, - {refalrts::icIdent, 0, 5, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 21, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 15, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 16, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +77, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: t.ErrorList#1/1 - //30: t.SymTable#1/1 - //31: t.Context#1/1 - //32: e.MultiBracket#1/1 - //34: e.Scanned#1/1 - //36: e.Tail#1/1 - //38: s.LnNum#1/1 - //39: s.LnNum#1/2 - //40: t.SymTable#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 # TkOpenADT ) e.Tail#1 - {refalrts::ictVarLeft, 0, 29, 0}, - {refalrts::ictVarLeft, 0, 30, 0}, - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 4, 6}, - {refalrts::icIdentRight, 0, 7, 6}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icsVarLeft, 0, 38, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 39, 38, 0}, - {refalrts::icCopySTVar, 40, 30, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icString, 0, 2, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 6, 17}, - {refalrts::icIdent, 0, 5, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 3, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 21, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 22, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 15, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 16, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +62, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: s.LnNum#1/1 - //34: s.LnNum#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 # TkOpenCall ) e.Tail#1 - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 4, 6}, - {refalrts::icIdentRight, 0, 3, 6}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icContextSet, 0, 29, 4}, - {refalrts::icContextSet, 0, 31, 0}, - {refalrts::icsVarLeft, 0, 33, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 34, 33, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icString, 0, 1, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 2, 17}, - {refalrts::icIdent, 0, 1, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 15, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 16, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +52, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //19: t.ErrorList#1/1 - //20: t.SymTable#1/1 - //21: t.Context#1/1 - //22: e.MultiBracket#1/1 - //24: e.InnerScanned#1/1 - //26: e.Tail#1/1 - //28: s.BracketsSign#1/1 - //29: s.InnerLnNum#1/1 - //30: s.CloseBracket#1/1 - //31: s.CloseBracket#1/2 - //32: e.Scanned#1/1 - //34: s.ClosedLnNum#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.InnerLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) ( # Close s.ClosedLnNum#1 s.CloseBracket#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 19, 0}, - {refalrts::ictVarLeft, 0, 20, 0}, - {refalrts::ictVarLeft, 0, 21, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icBracketRight, 0, 8, 2}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::icContextSet, 0, 24, 4}, - {refalrts::icContextSet, 0, 26, 0}, - {refalrts::icsVarLeft, 0, 28, 8}, - {refalrts::icsVarLeft, 0, 29, 8}, - {refalrts::icsVarLeft, 0, 30, 8}, - {refalrts::icsRepeatRight, 31, 30, 6}, - {refalrts::icContextSet, 0, 32, 8}, - {refalrts::icsVarLeft, 0, 34, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icLinkBrackets, 14, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +84, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //31: t.ErrorList#1/1 - //32: t.SymTable#1/1 - //33: t.Context#1/1 - //34: e.MultiBracket#1/1 - //36: e.InnerScanned#1/1 - //38: e.Tail#1/1 - //40: s.BracketsSign#1/1 - //41: s.InnerLnNum#1/1 - //42: s.CloseBracket#1/1 - //43: e.Scanned#1/1 - //45: s.LnNum#1/1 - //46: s.OtherCloseBracket#1/1 - //47: s.BracketsSign#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.InnerLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) ( # Close s.LnNum#1 s.OtherCloseBracket#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icBracketRight, 0, 8, 2}, - {refalrts::icContextSet, 0, 34, 2}, - {refalrts::icContextSet, 0, 36, 4}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 8}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icsVarLeft, 0, 42, 8}, - {refalrts::icContextSet, 0, 43, 8}, - {refalrts::icsVarLeft, 0, 45, 6}, - {refalrts::icsVarLeft, 0, 46, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 47, 40, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icString, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icChar, 0, '\"', 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 27}, - {refalrts::icIdent, 0, 0, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 30}, - {refalrts::icPushStack, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 27, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 23, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +61, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.Scanned#1/1 - //29: e.Tail#1/1 - //31: s.LnNum#1/1 - //32: s.CloseBracket#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( ) ( e.Scanned#1 ) ( # Close s.LnNum#1 s.CloseBracket#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icContextSet, 0, 29, 0}, - {refalrts::icsVarLeft, 0, 31, 6}, - {refalrts::icsVarLeft, 0, 32, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icString, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icChar, 0, '\"', 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +70, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //26: t.ErrorList#1/1 - //27: t.SymTable#1/1 - //28: t.Context#1/1 - //29: e.MultiBracket#1/1 - //31: e.InnerScanned#1/1 - //33: e.Tail#1/1 - //35: s.BracketsSign#1/1 - //36: s.InnerLnNum#1/1 - //37: s.CloseBracket#1/1 - //38: e.Scanned#1/1 - //40: s.BracketsSign#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.InnerLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::ictVarLeft, 0, 28, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketRight, 0, 6, 2}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 31, 4}, - {refalrts::icContextSet, 0, 33, 0}, - {refalrts::icsVarLeft, 0, 35, 6}, - {refalrts::icsVarLeft, 0, 36, 6}, - {refalrts::icsVarLeft, 0, 37, 6}, - {refalrts::icContextSet, 0, 38, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 40, 35, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icString, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icChar, 0, '\"', 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 21, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: t.ErrorList#1/1 - //9: t.SymTable#1/1 - //10: t.Context#1/1 - //11: e.Pattern#1/1 - //13: e.Tail#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( ) ( e.Pattern#1 ) e.Tail#1 - {refalrts::ictVarLeft, 0, 8, 0}, - {refalrts::ictVarLeft, 0, 9, 0}, - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 2}, - {refalrts::icContextSet, 0, 11, 4}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[16]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: t.ErrorList#1/1 - //19: t.SymTable#1/1 - //20: t.Context#1/1 - //21: e.MultiBrackets#1/1 - //23: e.Scanned#1/1 - //25: e.Tail#1/1 - //27: s.LnNum#1/1 - //28: s.Char#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkChar s.LnNum#1 s.Char#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[19], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[6], context[7] ) ) - continue; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[4]; - context[24] = context[5]; - context[25] = context[0]; - context[26] = context[1]; - if( ! refalrts::svar_left( context[27], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[28], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[14], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - refalrts::link_brackets( context[12], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[13], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //18: t.ErrorList#1/1 - //19: t.SymTable#1/1 - //20: t.Context#1/1 - //21: e.MultiBrackets#1/1 - //23: e.Scanned#1/1 - //25: e.Tail#1/1 - //27: s.LnNum#1/1 - //28: s.Number#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkNumber s.LnNum#1 s.Number#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[18], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[19], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNumber::name, context[6], context[7] ) ) - continue; - context[21] = context[2]; - context[22] = context[3]; - context[23] = context[4]; - context[24] = context[5]; - context[25] = context[0]; - context[26] = context[1]; - if( ! refalrts::svar_left( context[27], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[28], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[14], & ident_TkNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - refalrts::link_brackets( context[12], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[13], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_stvar( res, context[18] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: t.ErrorList#1/1 - //22: t.SymTable#1/1 - //23: t.Context#1/1 - //24: e.MultiBrackets#1/1 - //26: e.Scanned#1/1 - //28: e.Tail#1/1 - //30: s.LnNum#1/1 - //31: e.Name#1/1 - //33: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[21], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[22], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[23], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[6], context[7] ) ) - continue; - context[24] = context[2]; - context[25] = context[3]; - context[26] = context[4]; - context[27] = context[5]; - context[28] = context[0]; - context[29] = context[1]; - if( ! refalrts::svar_left( context[30], context[6], context[7] ) ) - continue; - context[31] = context[6]; - context[32] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[33], context[34], context[31], context[32])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ST_AddFunctionCall, "ST_AddFunctionCall" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - refalrts::link_brackets( context[15], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[16], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[23] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //23: t.ErrorList#1/1 - //24: t.SymTable#1/1 - //25: t.Context#1/1 - //26: e.MultiBrackets#1/1 - //28: e.Scanned#1/1 - //30: e.Tail#1/1 - //32: s.LnNumMarker#1/1 - //33: s.LnNumName#1/1 - //34: e.Name#1/1 - //36: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkIdentMarker s.LnNumMarker#1 ) ( # TkName s.LnNumName#1 e.Name#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[23], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkIdentMarker::name, context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[8], context[9] ) ) - continue; - context[26] = context[2]; - context[27] = context[3]; - context[28] = context[4]; - context[29] = context[5]; - context[30] = context[0]; - context[31] = context[1]; - if( ! refalrts::svar_left( context[32], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[33], context[8], context[9] ) ) - continue; - context[34] = context[8]; - context[35] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[36], context[37], context[34], context[35])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ST_AddIdent, "ST_AddIdent" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[19], & ident_TkIdentifier::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - refalrts::link_brackets( context[17], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[18], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[25] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: t.ErrorList#1/1 - //21: t.SymTable#1/1 - //22: t.Context#1/1 - //23: e.MultiBrackets#1/1 - //25: e.Scanned#1/1 - //27: e.Tail#1/1 - //29: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBrackets#1 ) ( e.Scanned#1 ) ( # TkIdentMarker s.LnNum#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[21], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[22], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkIdentMarker::name, context[6], context[7] ) ) - continue; - context[23] = context[2]; - context[24] = context[3]; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[0]; - context[28] = context[1]; - if( ! refalrts::svar_left( context[29], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], "Missed name after \'#\'", 21 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_stvar( res, context[21] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: t.ErrorList#1/1 - //30: t.SymTable#1/1 - //31: t.Context#1/1 - //32: e.MultiBracket#1/1 - //34: e.Scanned#1/1 - //36: e.Tail#1/1 - //38: s.LnNumVar#1/1 - //39: s.Mode#1/1 - //40: e.Index#1/1 - //42: s.LnNumRedef#1/1 - //43: e.Index#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkVariable s.LnNumVar#1 s.Mode#1 e.Index#1 ) ( # TkRedefinition s.LnNumRedef#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[29], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[30], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkRedefinition::name, context[8], context[9] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[0]; - context[37] = context[1]; - if( ! refalrts::svar_left( context[38], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[39], context[6], context[7] ) ) - continue; - context[40] = context[6]; - context[41] = context[7]; - if( ! refalrts::svar_left( context[42], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[43], context[44], context[40], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], CheckAddVariable, "CheckAddVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], Cntx_AddNewVariable, "Cntx_AddNewVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], lambda_ParsePattern_0, "lambda_ParsePattern_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: t.ErrorList#1/1 - //28: t.SymTable#1/1 - //29: t.Context#1/1 - //30: e.MultiBracket#1/1 - //32: e.Scanned#1/1 - //34: e.Tail#1/1 - //36: s.LnNum#1/1 - //37: s.Mode#1/1 - //38: e.Index#1/1 - //40: e.Index#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkVariable s.LnNum#1 s.Mode#1 e.Index#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[28], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[29], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[6], context[7] ) ) - continue; - context[30] = context[2]; - context[31] = context[3]; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[0]; - context[35] = context[1]; - if( ! refalrts::svar_left( context[36], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[37], context[6], context[7] ) ) - continue; - context[38] = context[6]; - context[39] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[40], context[41], context[38], context[39])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], CheckAddVariable, "CheckAddVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], Cntx_AddVariable, "Cntx_AddVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], lambda_ParsePattern_1, "lambda_ParsePattern_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: t.ErrorList#1/1 - //21: t.SymTable#1/1 - //22: t.Context#1/1 - //23: e.MultiBracket#1/1 - //25: e.Scanned#1/1 - //27: e.Tail#1/1 - //29: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkRedefinition s.LnNum#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[21], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[22], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkRedefinition::name, context[6], context[7] ) ) - continue; - context[23] = context[2]; - context[24] = context[3]; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[0]; - context[28] = context[1]; - if( ! refalrts::svar_left( context[29], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], "Naked redefinition sign", 23 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_stvar( res, context[21] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: t.ErrorList#1/1 - //20: t.SymTable#1/1 - //21: t.Context#1/1 - //22: e.MultiBracket#1/1 - //24: e.Scanned#1/1 - //26: e.Tail#1/1 - //28: s.LnNum#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 # TkOpenBracket ) e.Tail#1 - if( ! refalrts::tvar_left( context[19], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[21], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Open::name, context[6], context[7] ) ) - continue; - if( ! refalrts::ident_right( & ident_TkOpenBracket::name, context[6], context[7] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - context[24] = context[4]; - context[25] = context[5]; - context[26] = context[0]; - context[27] = context[1]; - if( ! refalrts::svar_left( context[28], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[12], & ident_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[13], & ident_TkCloseBracket::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[10], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[11], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: t.ErrorList#1/1 - //27: t.SymTable#1/1 - //28: t.Context#1/1 - //29: e.MultiBracket#1/1 - //31: e.Scanned#1/1 - //33: e.Tail#1/1 - //35: s.LnNumBracket#1/1 - //36: s.LnNumName#1/1 - //37: e.Name#1/1 - //39: e.Name#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNumBracket#1 # TkOpenADT ) ( # TkName s.LnNumName#1 e.Name#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[28], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Open::name, context[6], context[7] ) ) - continue; - if( ! refalrts::ident_right( & ident_TkOpenADT::name, context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[8], context[9] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[0]; - context[34] = context[1]; - if( ! refalrts::svar_left( context[35], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[36], context[8], context[9] ) ) - continue; - context[37] = context[8]; - context[38] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[39], context[40], context[37], context[38])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ST_AddFunctionCall, "ST_AddFunctionCall" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ADT_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_TkCloseADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[21], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[15], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[16], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[28] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: t.ErrorList#1/1 - //30: t.SymTable#1/1 - //31: t.Context#1/1 - //32: e.MultiBracket#1/1 - //34: e.Scanned#1/1 - //36: e.Tail#1/1 - //38: s.LnNum#1/1 - //39: s.LnNum#1/2 - //40: t.SymTable#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 # TkOpenADT ) e.Tail#1 - if( ! refalrts::tvar_left( context[29], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[30], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Open::name, context[6], context[7] ) ) - continue; - if( ! refalrts::ident_right( & ident_TkOpenADT::name, context[6], context[7] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[0]; - context[37] = context[1]; - if( ! refalrts::svar_left( context[38], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[39], context[38])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[40], context[30])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], "Expected name after \"[\"", 23 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_ADT_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_TkCloseADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], ST_GetAnyName, "ST_GetAnyName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[21], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[22], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[15], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[16], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_stvar( res, context[30] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: s.LnNum#1/1 - //34: s.LnNum#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 # TkOpenCall ) e.Tail#1 - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Open::name, context[6], context[7] ) ) - continue; - if( ! refalrts::ident_right( & ident_TkOpenCall::name, context[6], context[7] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - context[29] = context[4]; - context[30] = context[5]; - context[31] = context[0]; - context[32] = context[1]; - if( ! refalrts::svar_left( context[33], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[34], context[33])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], "Unexpected call bracket in pattern expression", 45 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_TkCloseCall::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[15], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[16], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: t.ErrorList#1/1 - //20: t.SymTable#1/1 - //21: t.Context#1/1 - //22: e.MultiBracket#1/1 - //24: e.InnerScanned#1/1 - //26: e.Tail#1/1 - //28: s.BracketsSign#1/1 - //29: s.InnerLnNum#1/1 - //30: s.CloseBracket#1/1 - //31: s.CloseBracket#1/2 - //32: e.Scanned#1/1 - //34: s.ClosedLnNum#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.InnerLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) ( # Close s.ClosedLnNum#1 s.CloseBracket#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[19], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[20], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[21], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Close::name, context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[2], context[3] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - context[24] = context[4]; - context[25] = context[5]; - context[26] = context[0]; - context[27] = context[1]; - if( ! refalrts::svar_left( context[28], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[29], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[30], context[8], context[9] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[31], context[30], context[6], context[7] ) ) - continue; - context[32] = context[8]; - context[33] = context[9]; - if( ! refalrts::svar_left( context[34], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - refalrts::link_brackets( context[14], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //31: t.ErrorList#1/1 - //32: t.SymTable#1/1 - //33: t.Context#1/1 - //34: e.MultiBracket#1/1 - //36: e.InnerScanned#1/1 - //38: e.Tail#1/1 - //40: s.BracketsSign#1/1 - //41: s.InnerLnNum#1/1 - //42: s.CloseBracket#1/1 - //43: e.Scanned#1/1 - //45: s.LnNum#1/1 - //46: s.OtherCloseBracket#1/1 - //47: s.BracketsSign#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.InnerLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) ( # Close s.LnNum#1 s.OtherCloseBracket#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Close::name, context[6], context[7] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[2], context[3] ) ) - continue; - context[34] = context[2]; - context[35] = context[3]; - context[36] = context[4]; - context[37] = context[5]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[8], context[9] ) ) - continue; - context[43] = context[8]; - context[44] = context[9]; - if( ! refalrts::svar_left( context[45], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[46], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[47], context[40])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[14], context[15], "Unbalanced bracket \"", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], StrFromBracket, "StrFromBracket" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[19], '\"' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[28], & ident_Close::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[30] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[30] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[27], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[23], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_stvar( res, context[32] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.Scanned#1/1 - //29: e.Tail#1/1 - //31: s.LnNum#1/1 - //32: s.CloseBracket#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( ) ( e.Scanned#1 ) ( # Close s.LnNum#1 s.CloseBracket#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Close::name, context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - continue; - context[27] = context[4]; - context[28] = context[5]; - context[29] = context[0]; - context[30] = context[1]; - if( ! refalrts::svar_left( context[31], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[32], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], "Unbalanced bracket \"", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], StrFromBracket, "StrFromBracket" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[17], '\"' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_stvar( res, context[24] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: t.ErrorList#1/1 - //27: t.SymTable#1/1 - //28: t.Context#1/1 - //29: e.MultiBracket#1/1 - //31: e.InnerScanned#1/1 - //33: e.Tail#1/1 - //35: s.BracketsSign#1/1 - //36: s.InnerLnNum#1/1 - //37: s.CloseBracket#1/1 - //38: e.Scanned#1/1 - //40: s.BracketsSign#1/2 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.InnerLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[28], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[2], context[3] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - context[31] = context[4]; - context[32] = context[5]; - context[33] = context[0]; - context[34] = context[1]; - if( ! refalrts::svar_left( context[35], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[36], context[6], context[7] ) ) - continue; - if( ! refalrts::svar_left( context[37], context[6], context[7] ) ) - continue; - context[38] = context[6]; - context[39] = context[7]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[40], context[35])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], ParsePattern, "ParsePattern" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[12], context[13], "Unbalanced bracket \"", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], StrFromBracket, "StrFromBracket" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[17], '\"' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[21], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_stvar( res, context[27] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: t.ErrorList#1/1 - //9: t.SymTable#1/1 - //10: t.Context#1/1 - //11: e.Pattern#1/1 - //13: e.Tail#1/1 - // t.ErrorList#1 t.SymTable#1 t.Context#1 ( ) ( e.Pattern#1 ) e.Tail#1 - if( ! refalrts::tvar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[4]; - context[12] = context[5]; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult InvalidModeVariableError(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddErrorAt, "EL_AddErrorAt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" has different modes", 20}, - {" and ", 5}, - {"Variables ", 10} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //13: t.ErrorList#1/1 - //14: s.LnNum#1/1 - //15: s.OldMode#1/1 - //16: s.NewMode#1/1 - //17: e.Index#1/1 - //19: e.Index#1/2 - // t.ErrorList#1 s.LnNum#1 s.OldMode#1 s.NewMode#1 e.Index#1 - {refalrts::ictVarLeft, 0, 13, 0}, - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 19, 17, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icString, 0, 2, 4}, - {refalrts::icChar, 0, '.', 6}, - {refalrts::icString, 0, 1, 7}, - {refalrts::icChar, 0, '.', 9}, - {refalrts::icString, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: t.ErrorList#1/1 - //14: s.LnNum#1/1 - //15: s.OldMode#1/1 - //16: s.NewMode#1/1 - //17: e.Index#1/1 - //19: e.Index#1/2 - // t.ErrorList#1 s.LnNum#1 s.OldMode#1 s.NewMode#1 e.Index#1 - if( ! refalrts::tvar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[19], context[20], context[17], context[18])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[4], context[5], "Variables ", 10 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '.' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], " and ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[9], '.' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[10], context[11], " has different modes", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CheckAddVariable_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 18 elems - refalrts::Iter context[18]; - refalrts::zeros( context, 18 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddErrorAt, "EL_AddErrorAt" }, - { InvalidModeVariableError, "InvalidModeVariableError" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_AlreadyBounded::name, - & ident_InvalidMode::name, - & ident_Success::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Variable hide operator^ must be applied to first occurence of variable ", 71} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: t.ErrorList#1/1 - //5: s.LnNum#1/1 - //6: s.Mode#1/1 - //7: t.Context#2/1 - //8: s.Depth#2/1 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # Success s.Depth#2 - {refalrts::ictVarLeft, 0, 4, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Index#1 - {refalrts::ictVarLeft, 0, 7, 0}, - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: t.ErrorList#1/1 - //8: s.LnNum#1/1 - //9: s.Mode#1/1 - //10: e.Index#1/1 - //12: t.Context#2/1 - //13: s.Depth#2/1 - //14: s.OldMode#2/1 - //15: s.OldMode#2/2 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # InvalidMode s.Depth#2 s.OldMode#2 - {refalrts::ictVarLeft, 0, 7, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::ictVarLeft, 0, 12, 0}, - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icsVarLeft, 0, 13, 0}, - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 15, 14, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: t.ErrorList#1/1 - //11: s.LnNum#1/1 - //12: s.Mode#1/1 - //13: e.Index#1/1 - //15: t.Context#2/1 - //16: s.Depth#2/1 - //17: s.Mode#1/2 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # AlreadyBounded s.Depth#2 - {refalrts::ictVarLeft, 0, 10, 0}, - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icsVarLeft, 0, 12, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 17, 12, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icChar, 0, '.', 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: t.ErrorList#1/1 - //5: s.LnNum#1/1 - //6: s.Mode#1/1 - //7: t.Context#2/1 - //8: s.Depth#2/1 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # Success s.Depth#2 - if( ! refalrts::tvar_left( context[4], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Index#1 - if( ! refalrts::tvar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Success::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_stvar( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: t.ErrorList#1/1 - //8: s.LnNum#1/1 - //9: s.Mode#1/1 - //10: e.Index#1/1 - //12: t.Context#2/1 - //13: s.Depth#2/1 - //14: s.OldMode#2/1 - //15: s.OldMode#2/2 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # InvalidMode s.Depth#2 s.OldMode#2 - if( ! refalrts::tvar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - if( ! refalrts::tvar_left( context[12], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_InvalidMode::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[13], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[15], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], InvalidModeVariableError, "InvalidModeVariableError" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_stvar( res, context[12] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: t.ErrorList#1/1 - //11: s.LnNum#1/1 - //12: s.Mode#1/1 - //13: e.Index#1/1 - //15: t.Context#2/1 - //16: s.Depth#2/1 - //17: s.Mode#1/2 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # AlreadyBounded s.Depth#2 - if( ! refalrts::tvar_left( context[10], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[12], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[13] = context[2]; - context[14] = context[3]; - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_AlreadyBounded::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[17], context[12])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Variable hide operator^ must be applied to first occurence of variable ", 71 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[8], '.' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CheckAddVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_CheckAddVariable_0, "lambda_CheckAddVariable_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //13: t.ErrorList#1/1 - //14: t.Context#1/1 - //15: s.FnContextModifier#1/1 - //16: s.LnNum#1/1 - //17: s.Mode#1/1 - //18: e.Index#1/1 - //20: s.Mode#1/2 - //21: e.Index#1/2 - // t.ErrorList#1 t.Context#1 s.FnContextModifier#1 s.LnNum#1 s.Mode#1 e.Index#1 - {refalrts::ictVarLeft, 0, 13, 0}, - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::icsVarLeft, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icsVarLeft, 0, 17, 0}, - {refalrts::icContextSet, 0, 18, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 20, 17, 0}, - {refalrts::icCopyEVar, 21, 18, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: t.ErrorList#1/1 - //14: t.Context#1/1 - //15: s.FnContextModifier#1/1 - //16: s.LnNum#1/1 - //17: s.Mode#1/1 - //18: e.Index#1/1 - //20: s.Mode#1/2 - //21: e.Index#1/2 - // t.ErrorList#1 t.Context#1 s.FnContextModifier#1 s.LnNum#1 s.Mode#1 e.Index#1 - if( ! refalrts::tvar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[17], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[0]; - context[19] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[20], context[17])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[21], context[22], context[18], context[19])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_CheckAddVariable_0, "lambda_CheckAddVariable_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult StrFromBracket(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 3 elems - refalrts::Iter context[3]; - refalrts::zeros( context, 3 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CallBrackets::name, - & ident_ADT_Brackets::name, - & ident_Brackets::name, - & ident_TkCloseADT::name, - & ident_TkOpenADT::name, - & ident_TkCloseCall::name, - & ident_TkOpenCall::name, - & ident_TkCloseBracket::name, - & ident_TkOpenBracket::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenBracket - {refalrts::icIdentLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '(', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkCloseBracket - {refalrts::icIdentLeft, 0, 7, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, ')', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenCall - {refalrts::icIdentLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '<', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkCloseCall - {refalrts::icIdentLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '>', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenADT - {refalrts::icIdentLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '[', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkCloseADT - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, ']', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Brackets - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '(', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # ADT_Brackets - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '[', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # CallBrackets - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '<', 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[8]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenBracket - if( ! refalrts::ident_left( & ident_TkOpenBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '(' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkCloseBracket - if( ! refalrts::ident_left( & ident_TkCloseBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], ')' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenCall - if( ! refalrts::ident_left( & ident_TkOpenCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '<' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkCloseCall - if( ! refalrts::ident_left( & ident_TkCloseCall::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '>' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenADT - if( ! refalrts::ident_left( & ident_TkOpenADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '[' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkCloseADT - if( ! refalrts::ident_left( & ident_TkCloseADT::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], ']' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Brackets - if( ! refalrts::ident_left( & ident_Brackets::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '(' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # ADT_Brackets - if( ! refalrts::ident_left( & ident_ADT_Brackets::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '[' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # CallBrackets - if( ! refalrts::ident_left( & ident_CallBrackets::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '<' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseResult_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 39 elems - refalrts::Iter context[39]; - refalrts::zeros( context, 39 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParseResult, "ParseResult" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkVariable::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +59, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: e.Functions#1/1 - //26: t.SymTable#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: e.Index#1/1 - //35: t.ErrorList#2/1 - //36: t.Context#2/1 - //37: s.Mode#2/1 - //38: s.Depth#2/1 - // ( e.Functions#1 ) t.SymTable#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Tail#1 ) ( e.Index#1 ) t.ErrorList#2 t.Context#2 s.Mode#2 s.Depth#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 24, 2}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 10, 0}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icContextSet, 0, 29, 6}, - {refalrts::icContextSet, 0, 31, 8}, - {refalrts::icContextSet, 0, 33, 10}, - {refalrts::ictVarLeft, 0, 35, 0}, - {refalrts::ictVarLeft, 0, 36, 0}, - {refalrts::icsVarLeft, 0, 37, 0}, - {refalrts::icsVarLeft, 0, 38, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 0, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 18, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 19, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.Functions#1/1 - //23: t.SymTable#1/1 - //24: e.MultiBracket#1/1 - //26: e.Scanned#1/1 - //28: e.Tail#1/1 - //30: t.ErrorList#2/1 - //31: t.Context#2/1 - // ( e.Functions#1 ) t.SymTable#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Tail#1 ) ( e.Index#1 ) t.ErrorList#2 t.Context#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 21, 2}, - {refalrts::ictVarLeft, 0, 23, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 10, 0}, - {refalrts::icContextSet, 0, 24, 4}, - {refalrts::icContextSet, 0, 26, 6}, - {refalrts::icContextSet, 0, 28, 8}, - // Unused closed variable e.Index#1 - {refalrts::ictVarLeft, 0, 30, 0}, - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: e.Functions#1/1 - //26: t.SymTable#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: e.Index#1/1 - //35: t.ErrorList#2/1 - //36: t.Context#2/1 - //37: s.Mode#2/1 - //38: s.Depth#2/1 - // ( e.Functions#1 ) t.SymTable#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Tail#1 ) ( e.Index#1 ) t.ErrorList#2 t.Context#2 s.Mode#2 s.Depth#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[24] = context[2]; - context[25] = context[3]; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[0], context[1] ) ) - continue; - context[27] = context[4]; - context[28] = context[5]; - context[29] = context[6]; - context[30] = context[7]; - context[31] = context[8]; - context[32] = context[9]; - context[33] = context[10]; - context[34] = context[11]; - if( ! refalrts::tvar_left( context[35], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[36], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[37], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[38], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_TkVariable::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::link_brackets( context[18], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[19], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[35] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.Functions#1/1 - //23: t.SymTable#1/1 - //24: e.MultiBracket#1/1 - //26: e.Scanned#1/1 - //28: e.Tail#1/1 - //30: t.ErrorList#2/1 - //31: t.Context#2/1 - // ( e.Functions#1 ) t.SymTable#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Tail#1 ) ( e.Index#1 ) t.ErrorList#2 t.Context#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[2]; - context[22] = context[3]; - if( ! refalrts::tvar_left( context[23], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[24] = context[4]; - context[25] = context[5]; - context[26] = context[6]; - context[27] = context[7]; - context[28] = context[8]; - context[29] = context[9]; - // Unused closed variable e.Index#1 - if( ! refalrts::tvar_left( context[30], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_stvar( res, context[23] ); - res = refalrts::splice_stvar( res, context[30] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseResult_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 3 elems - refalrts::Iter context[3]; - refalrts::zeros( context, 3 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_CallBrackets::name, - & ident_TkOpenCall::name, - & ident_Brackets::name, - & ident_TkOpenBracket::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenBracket - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 2, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenCall - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenBracket - if( ! refalrts::ident_left( & ident_TkOpenBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Brackets::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenCall - if( ! refalrts::ident_left( & ident_TkOpenCall::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_CallBrackets::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseResult_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 3 elems - refalrts::Iter context[3]; - refalrts::zeros( context, 3 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_TkCloseCall::name, - & ident_TkOpenCall::name, - & ident_TkCloseBracket::name, - & ident_TkOpenBracket::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +7, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenBracket - {refalrts::icIdentLeft, 0, 3, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 2, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # TkOpenCall - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenBracket - if( ! refalrts::ident_left( & ident_TkOpenBracket::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkCloseBracket::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # TkOpenCall - if( ! refalrts::ident_left( & ident_TkOpenCall::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_TkCloseCall::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseResult(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 47 elems - refalrts::Iter context[47]; - refalrts::zeros( context, 47 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromBracket, "StrFromBracket" }, - { EL_AddErrorAt, "EL_AddErrorAt" }, - { ParseResult, "ParseResult" }, - { ParseBlock, "ParseBlock" }, - { ParseResult_Block, "ParseResult_Block" }, - { lambda_ParseResult_2, "lambda_ParseResult_2" }, - { Fetch, "Fetch" }, - { lambda_ParseResult_1, "lambda_ParseResult_1" }, - { ST_GetAnyName, "ST_GetAnyName" }, - { ST_AddFunctionCall, "ST_AddFunctionCall" }, - { lambda_ParseResult_0, "lambda_ParseResult_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { CheckUseVariable, "CheckUseVariable" }, - { ST_AddIdent, "ST_AddIdent" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Close::name, - & ident_TkOpenBlock::name, - & ident_Open::name, - & ident_TkCloseADT::name, - & ident_ADT_Brackets::name, - & ident_TkOpenADT::name, - & ident_TkName::name, - & ident_TkVariable::name, - & ident_TkIdentMarker::name, - & ident_TkIdentifier::name, - & ident_TkNumber::name, - & ident_TkChar::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"Unbalanced bracket \"", 20}, - {"Expected name after \"[\"", 23}, - {"Missed name after \"#\"", 21} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +56, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Functions#1/1 - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: s.LnNum#1/1 - //34: s.Char#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkChar s.LnNum#1 s.Char#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 11, 8}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icContextSet, 0, 29, 6}, - {refalrts::icContextSet, 0, 31, 0}, - {refalrts::icsVarLeft, 0, 33, 8}, - {refalrts::icsVarLeft, 0, 34, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icIdent, 0, 11, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 16, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 17, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +56, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Functions#1/1 - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: s.LnNum#1/1 - //34: s.Number#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkNumber s.LnNum#1 s.Number#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 10, 8}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icContextSet, 0, 29, 6}, - {refalrts::icContextSet, 0, 31, 0}, - {refalrts::icsVarLeft, 0, 33, 8}, - {refalrts::icsVarLeft, 0, 34, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icIdent, 0, 10, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 16, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 17, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +66, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.Functions#1/1 - //27: t.ErrorList#1/1 - //28: t.SymTable#1/1 - //29: t.Context#1/1 - //30: e.MultiBracket#1/1 - //32: e.Scanned#1/1 - //34: e.Tail#1/1 - //36: s.LnNum#1/1 - //37: e.Name#1/1 - //39: e.Name#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 25, 2}, - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::ictVarLeft, 0, 28, 0}, - {refalrts::ictVarLeft, 0, 29, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 6, 8}, - {refalrts::icContextSet, 0, 30, 4}, - {refalrts::icContextSet, 0, 32, 6}, - {refalrts::icContextSet, 0, 34, 0}, - {refalrts::icsVarLeft, 0, 36, 8}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 39, 37, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 9, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icIdent, 0, 6, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 24}, - {refalrts::icPushStack, 0, 0, 24}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icLinkBrackets, 19, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 20, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +69, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: e.Functions#1/1 - //29: t.ErrorList#1/1 - //30: t.SymTable#1/1 - //31: t.Context#1/1 - //32: e.MultiBracket#1/1 - //34: e.Scanned#1/1 - //36: e.Tail#1/1 - //38: s.MarkerLnNum#1/1 - //39: s.NameLnNum#1/1 - //40: e.Name#1/1 - //42: e.Name#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkIdentMarker s.MarkerLnNum#1 ) ( # TkName s.NameLnNum#1 e.Name#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::ictVarLeft, 0, 29, 0}, - {refalrts::ictVarLeft, 0, 30, 0}, - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 8, 8}, - {refalrts::icBracketLeft, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 32, 4}, - {refalrts::icContextSet, 0, 34, 6}, - {refalrts::icContextSet, 0, 36, 0}, - {refalrts::icsVarLeft, 0, 38, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icsVarLeft, 0, 39, 10}, - {refalrts::icContextSet, 0, 40, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 42, 40, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 13, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icIdent, 0, 9, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 21, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 22, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +58, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: e.Functions#1/1 - //26: t.ErrorList#1/1 - //27: t.SymTable#1/1 - //28: t.Context#1/1 - //29: e.MultiBracket#1/1 - //31: e.Scanned#1/1 - //33: e.Tail#1/1 - //35: s.LnNum#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkIdentMarker s.LnNum#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 24, 2}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::ictVarLeft, 0, 28, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 8, 8}, - {refalrts::icContextSet, 0, 29, 4}, - {refalrts::icContextSet, 0, 31, 6}, - {refalrts::icContextSet, 0, 33, 0}, - {refalrts::icsVarLeft, 0, 35, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icString, 0, 2, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +81, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Functions#1/1 - //32: t.ErrorList#1/1 - //33: t.SymTable#1/1 - //34: t.Context#1/1 - //35: e.MultiBracket#1/1 - //37: e.Scanned#1/1 - //39: e.Tail#1/1 - //41: s.LnNum#1/1 - //42: s.Mode#1/1 - //43: e.Index#1/1 - //45: e.Index#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkVariable s.LnNum#1 s.Mode#1 e.Index#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::ictVarLeft, 0, 34, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 7, 8}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icsVarLeft, 0, 42, 8}, - {refalrts::icContextSet, 0, 43, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 45, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 6, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 12, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 15}, - {refalrts::icFunc, 0, 11, 16}, - {refalrts::icFunc, 0, 10, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 24, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +79, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Functions#1/1 - //32: t.ErrorList#1/1 - //33: t.SymTable#1/1 - //34: t.Context#1/1 - //35: e.MultiBracket#1/1 - //37: e.Scanned#1/1 - //39: e.Tail#1/1 - //41: s.LnNumADT#1/1 - //42: s.LnNumName#1/1 - //43: e.Name#1/1 - //45: e.Name#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNumADT#1 # TkOpenADT ) ( # TkName s.LnNumName#1 e.Name#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::ictVarLeft, 0, 34, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icIdentRight, 0, 5, 8}, - {refalrts::icBracketLeft, 0, 10, 0}, - {refalrts::icIdentLeft, 0, 6, 10}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icsVarLeft, 0, 42, 10}, - {refalrts::icContextSet, 0, 43, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 45, 43, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 9, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icIdent, 0, 4, 21}, - {refalrts::icIdent, 0, 3, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 25, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 19, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +85, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //33: e.Functions#1/1 - //35: t.ErrorList#1/1 - //36: t.SymTable#1/1 - //37: t.Context#1/1 - //38: e.MultiBracket#1/1 - //40: e.Scanned#1/1 - //42: e.Tail#1/1 - //44: s.LnNum#1/1 - //45: s.LnNum#1/2 - //46: t.SymTable#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 # TkOpenADT ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::ictVarLeft, 0, 35, 0}, - {refalrts::ictVarLeft, 0, 36, 0}, - {refalrts::ictVarLeft, 0, 37, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icIdentRight, 0, 5, 8}, - {refalrts::icContextSet, 0, 38, 4}, - {refalrts::icContextSet, 0, 40, 6}, - {refalrts::icContextSet, 0, 42, 0}, - {refalrts::icsVarLeft, 0, 44, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 45, 44, 0}, - {refalrts::icCopySTVar, 46, 36, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icString, 0, 1, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icIdent, 0, 4, 21}, - {refalrts::icIdent, 0, 3, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 27}, - {refalrts::icFunc, 0, 8, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 32}, - {refalrts::icPushStack, 0, 0, 32}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icLinkBrackets, 25, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 26, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 19, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 36}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +77, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.Functions#1/1 - //31: t.ErrorList#1/1 - //32: t.SymTable#1/1 - //33: t.Context#1/1 - //34: e.MultiBracket#1/1 - //36: e.Scanned#1/1 - //38: e.Tail#1/1 - //40: s.LnNum#1/1 - //41: s.OpenBracket#1/1 - //42: s.OpenBracket#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 s.OpenBracket#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 2, 8}, - {refalrts::icContextSet, 0, 34, 4}, - {refalrts::icContextSet, 0, 36, 6}, - {refalrts::icContextSet, 0, 38, 0}, - {refalrts::icsVarLeft, 0, 40, 8}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 42, 41, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 6, 17}, - {refalrts::icFunc, 0, 7, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 20}, - {refalrts::icFunc, 0, 6, 21}, - {refalrts::icFunc, 0, 5, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icLinkBrackets, 14, 25, 0}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 15, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icPushStack, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +60, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //23: e.Functions#1/1 - //25: t.ErrorList#1/1 - //26: t.SymTable#1/1 - //27: t.Context#1/1 - //28: e.MultiBracket#1/1 - //30: e.InnerScanned#1/1 - //32: e.Tail#1/1 - //34: s.BracketsSign#1/1 - //35: s.OpenLnNum#1/1 - //36: s.CloseBracket#1/1 - //37: s.CloseBracket#1/2 - //38: e.Scanned#1/1 - //40: s.LnNum#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.OpenLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) ( # Close s.LnNum#1 s.CloseBracket#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::ictVarLeft, 0, 27, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 0, 8}, - {refalrts::icBracketRight, 0, 10, 4}, - {refalrts::icContextSet, 0, 28, 4}, - {refalrts::icContextSet, 0, 30, 6}, - {refalrts::icContextSet, 0, 32, 0}, - {refalrts::icsVarLeft, 0, 34, 10}, - {refalrts::icsVarLeft, 0, 35, 10}, - {refalrts::icsVarLeft, 0, 36, 10}, - {refalrts::icsRepeatRight, 37, 36, 8}, - {refalrts::icContextSet, 0, 38, 10}, - {refalrts::icsVarLeft, 0, 40, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 18, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 27}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +55, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //22: e.Functions#1/1 - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: s.LnNum#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkOpenBlock s.LnNum#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 22, 2}, - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::ictVarLeft, 0, 26, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 1, 8}, - {refalrts::icContextSet, 0, 27, 4}, - {refalrts::icContextSet, 0, 29, 6}, - {refalrts::icContextSet, 0, 31, 0}, - {refalrts::icsVarLeft, 0, 33, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 4, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 3, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 21}, - {refalrts::icPushStack, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +78, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //30: e.Functions#1/1 - //32: t.ErrorList#1/1 - //33: t.SymTable#1/1 - //34: t.Context#1/1 - //35: e.MultiBracket#1/1 - //37: e.InnerScanned#1/1 - //39: e.Tail#1/1 - //41: s.BracketsSign#1/1 - //42: s.OpenLnNum#1/1 - //43: s.CloseBracket#1/1 - //44: e.Scanned#1/1 - //46: s.BracketsSign#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.OpenLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::ictVarLeft, 0, 34, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketRight, 0, 8, 4}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icContextSet, 0, 37, 6}, - {refalrts::icContextSet, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 41, 8}, - {refalrts::icsVarLeft, 0, 42, 8}, - {refalrts::icsVarLeft, 0, 43, 8}, - {refalrts::icContextSet, 0, 44, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 46, 41, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icString, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icChar, 0, '\"', 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 29}, - {refalrts::icPushStack, 0, 0, 29}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 25, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icLinkBrackets, 26, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 42}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +69, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //28: e.Functions#1/1 - //30: t.ErrorList#1/1 - //31: t.SymTable#1/1 - //32: t.Context#1/1 - //33: e.Scanned#1/1 - //35: e.Tail#1/1 - //37: s.LnNum#1/1 - //38: s.CloseBracket#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( ) ( e.Scanned#1 ) ( # Close s.LnNum#1 s.CloseBracket#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 28, 2}, - {refalrts::ictVarLeft, 0, 30, 0}, - {refalrts::ictVarLeft, 0, 31, 0}, - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icIdentLeft, 0, 0, 8}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icContextSet, 0, 33, 6}, - {refalrts::icContextSet, 0, 35, 0}, - {refalrts::icsVarLeft, 0, 37, 8}, - {refalrts::icsVarLeft, 0, 38, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icString, 0, 0, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icChar, 0, '\"', 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: e.Functions#1/1 - //14: t.ErrorList#1/1 - //15: t.SymTable#1/1 - //16: t.Context#1/1 - //17: e.Result#1/1 - //19: e.Tail#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( ) ( e.Result#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::ictVarLeft, 0, 16, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icContextSet, 0, 17, 6}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[13]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Functions#1/1 - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: s.LnNum#1/1 - //34: s.Char#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkChar s.LnNum#1 s.Char#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkChar::name, context[8], context[9] ) ) - continue; - context[27] = context[4]; - context[28] = context[5]; - context[29] = context[6]; - context[30] = context[7]; - context[31] = context[0]; - context[32] = context[1]; - if( ! refalrts::svar_left( context[33], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[34], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_TkChar::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::link_brackets( context[16], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[17], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_stvar( res, context[24] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Functions#1/1 - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: s.LnNum#1/1 - //34: s.Number#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkNumber s.LnNum#1 s.Number#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkNumber::name, context[8], context[9] ) ) - continue; - context[27] = context[4]; - context[28] = context[5]; - context[29] = context[6]; - context[30] = context[7]; - context[31] = context[0]; - context[32] = context[1]; - if( ! refalrts::svar_left( context[33], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[34], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_TkNumber::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::link_brackets( context[16], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[17], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_stvar( res, context[24] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.Functions#1/1 - //27: t.ErrorList#1/1 - //28: t.SymTable#1/1 - //29: t.Context#1/1 - //30: e.MultiBracket#1/1 - //32: e.Scanned#1/1 - //34: e.Tail#1/1 - //36: s.LnNum#1/1 - //37: e.Name#1/1 - //39: e.Name#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkName s.LnNum#1 e.Name#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[25] = context[2]; - context[26] = context[3]; - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[28], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[29], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[8], context[9] ) ) - continue; - context[30] = context[4]; - context[31] = context[5]; - context[32] = context[6]; - context[33] = context[7]; - context[34] = context[0]; - context[35] = context[1]; - if( ! refalrts::svar_left( context[36], context[8], context[9] ) ) - continue; - context[37] = context[8]; - context[38] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[39], context[40], context[37], context[38])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], ST_AddFunctionCall, "ST_AddFunctionCall" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[24] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[24] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - refalrts::link_brackets( context[19], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[20], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[29] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[36] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[27] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: e.Functions#1/1 - //29: t.ErrorList#1/1 - //30: t.SymTable#1/1 - //31: t.Context#1/1 - //32: e.MultiBracket#1/1 - //34: e.Scanned#1/1 - //36: e.Tail#1/1 - //38: s.MarkerLnNum#1/1 - //39: s.NameLnNum#1/1 - //40: e.Name#1/1 - //42: e.Name#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkIdentMarker s.MarkerLnNum#1 ) ( # TkName s.NameLnNum#1 e.Name#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::tvar_left( context[29], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[30], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkIdentMarker::name, context[8], context[9] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[10], context[11] ) ) - continue; - context[32] = context[4]; - context[33] = context[5]; - context[34] = context[6]; - context[35] = context[7]; - context[36] = context[0]; - context[37] = context[1]; - if( ! refalrts::svar_left( context[38], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[39], context[10], context[11] ) ) - continue; - context[40] = context[10]; - context[41] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[42], context[43], context[40], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ST_AddIdent, "ST_AddIdent" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[23], & ident_TkIdentifier::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[21], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[22], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[31] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[29] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: e.Functions#1/1 - //26: t.ErrorList#1/1 - //27: t.SymTable#1/1 - //28: t.Context#1/1 - //29: e.MultiBracket#1/1 - //31: e.Scanned#1/1 - //33: e.Tail#1/1 - //35: s.LnNum#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkIdentMarker s.LnNum#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[24] = context[2]; - context[25] = context[3]; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[28], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkIdentMarker::name, context[8], context[9] ) ) - continue; - context[29] = context[4]; - context[30] = context[5]; - context[31] = context[6]; - context[32] = context[7]; - context[33] = context[0]; - context[34] = context[1]; - if( ! refalrts::svar_left( context[35], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], "Missed name after \"#\"", 21 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_stvar( res, context[27] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Functions#1/1 - //32: t.ErrorList#1/1 - //33: t.SymTable#1/1 - //34: t.Context#1/1 - //35: e.MultiBracket#1/1 - //37: e.Scanned#1/1 - //39: e.Tail#1/1 - //41: s.LnNum#1/1 - //42: s.Mode#1/1 - //43: e.Index#1/1 - //45: e.Index#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkVariable s.LnNum#1 s.Mode#1 e.Index#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[30] = context[2]; - context[31] = context[3]; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[34], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkVariable::name, context[8], context[9] ) ) - continue; - context[35] = context[4]; - context[36] = context[5]; - context[37] = context[6]; - context[38] = context[7]; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[8], context[9] ) ) - continue; - context[43] = context[8]; - context[44] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[45], context[46], context[43], context[44])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], CheckUseVariable, "CheckUseVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[16], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], lambda_ParseResult_0, "lambda_ParseResult_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[15] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[24], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[33] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Functions#1/1 - //32: t.ErrorList#1/1 - //33: t.SymTable#1/1 - //34: t.Context#1/1 - //35: e.MultiBracket#1/1 - //37: e.Scanned#1/1 - //39: e.Tail#1/1 - //41: s.LnNumADT#1/1 - //42: s.LnNumName#1/1 - //43: e.Name#1/1 - //45: e.Name#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNumADT#1 # TkOpenADT ) ( # TkName s.LnNumName#1 e.Name#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[30] = context[2]; - context[31] = context[3]; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[34], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Open::name, context[8], context[9] ) ) - continue; - if( ! refalrts::ident_right( & ident_TkOpenADT::name, context[8], context[9] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkName::name, context[10], context[11] ) ) - continue; - context[35] = context[4]; - context[36] = context[5]; - context[37] = context[6]; - context[38] = context[7]; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[10], context[11] ) ) - continue; - context[43] = context[10]; - context[44] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[45], context[46], context[43], context[44])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ST_AddFunctionCall, "ST_AddFunctionCall" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_ADT_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_TkCloseADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[25], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[19], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[34] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[32] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.Functions#1/1 - //35: t.ErrorList#1/1 - //36: t.SymTable#1/1 - //37: t.Context#1/1 - //38: e.MultiBracket#1/1 - //40: e.Scanned#1/1 - //42: e.Tail#1/1 - //44: s.LnNum#1/1 - //45: s.LnNum#1/2 - //46: t.SymTable#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 # TkOpenADT ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[33] = context[2]; - context[34] = context[3]; - if( ! refalrts::tvar_left( context[35], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[36], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[37], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Open::name, context[8], context[9] ) ) - continue; - if( ! refalrts::ident_right( & ident_TkOpenADT::name, context[8], context[9] ) ) - continue; - context[38] = context[4]; - context[39] = context[5]; - context[40] = context[6]; - context[41] = context[7]; - context[42] = context[0]; - context[43] = context[1]; - if( ! refalrts::svar_left( context[44], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[45], context[44])) - return refalrts::cNoMemory; - if (! refalrts::copy_stvar(context[46], context[36])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], "Expected name after \"[\"", 23 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[21], & ident_ADT_Brackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_TkCloseADT::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[28], ST_GetAnyName, "ST_GetAnyName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[32] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[32] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[32] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - refalrts::link_brackets( context[25], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[26], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[27] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[19], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[45] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_stvar( res, context[36] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.Functions#1/1 - //31: t.ErrorList#1/1 - //32: t.SymTable#1/1 - //33: t.Context#1/1 - //34: e.MultiBracket#1/1 - //36: e.Scanned#1/1 - //38: e.Tail#1/1 - //40: s.LnNum#1/1 - //41: s.OpenBracket#1/1 - //42: s.OpenBracket#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # Open s.LnNum#1 s.OpenBracket#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Open::name, context[8], context[9] ) ) - continue; - context[34] = context[4]; - context[35] = context[5]; - context[36] = context[6]; - context[37] = context[7]; - context[38] = context[0]; - context[39] = context[1]; - if( ! refalrts::svar_left( context[40], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[42], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[18], lambda_ParseResult_1, "lambda_ParseResult_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], lambda_ParseResult_2, "lambda_ParseResult_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - refalrts::link_brackets( context[14], context[25] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[15], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[20] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[40] ); - refalrts::push_stack( context[19] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_stvar( res, context[31] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //23: e.Functions#1/1 - //25: t.ErrorList#1/1 - //26: t.SymTable#1/1 - //27: t.Context#1/1 - //28: e.MultiBracket#1/1 - //30: e.InnerScanned#1/1 - //32: e.Tail#1/1 - //34: s.BracketsSign#1/1 - //35: s.OpenLnNum#1/1 - //36: s.CloseBracket#1/1 - //37: s.CloseBracket#1/2 - //38: e.Scanned#1/1 - //40: s.LnNum#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.OpenLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) ( # Close s.LnNum#1 s.CloseBracket#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[23] = context[2]; - context[24] = context[3]; - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[27], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Close::name, context[8], context[9] ) ) - continue; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_right( context[10], context[11], context[4], context[5] ) ) - continue; - context[28] = context[4]; - context[29] = context[5]; - context[30] = context[6]; - context[31] = context[7]; - context[32] = context[0]; - context[33] = context[1]; - if( ! refalrts::svar_left( context[34], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[35], context[10], context[11] ) ) - continue; - if( ! refalrts::svar_left( context[36], context[10], context[11] ) ) - continue; - if( ! refalrts::repeated_stvar_right( context[37], context[36], context[8], context[9] ) ) - continue; - context[38] = context[10]; - context[39] = context[11]; - if( ! refalrts::svar_left( context[40], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[18], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[27] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //22: e.Functions#1/1 - //24: t.ErrorList#1/1 - //25: t.SymTable#1/1 - //26: t.Context#1/1 - //27: e.MultiBracket#1/1 - //29: e.Scanned#1/1 - //31: e.Tail#1/1 - //33: s.LnNum#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( # TkOpenBlock s.LnNum#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[22] = context[2]; - context[23] = context[3]; - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[26], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_TkOpenBlock::name, context[8], context[9] ) ) - continue; - context[27] = context[4]; - context[28] = context[5]; - context[29] = context[6]; - context[30] = context[7]; - context[31] = context[0]; - context[32] = context[1]; - if( ! refalrts::svar_left( context[33], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult_Block, "ParseResult_Block" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], ParseBlock, "ParseBlock" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[21] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[21] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_stvar( res, context[25] ); - res = refalrts::splice_stvar( res, context[24] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[22], context[23] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //30: e.Functions#1/1 - //32: t.ErrorList#1/1 - //33: t.SymTable#1/1 - //34: t.Context#1/1 - //35: e.MultiBracket#1/1 - //37: e.InnerScanned#1/1 - //39: e.Tail#1/1 - //41: s.BracketsSign#1/1 - //42: s.OpenLnNum#1/1 - //43: s.CloseBracket#1/1 - //44: e.Scanned#1/1 - //46: s.BracketsSign#1/2 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ( s.BracketsSign#1 s.OpenLnNum#1 s.CloseBracket#1 e.Scanned#1 ) ) ( e.InnerScanned#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[30] = context[2]; - context[31] = context[3]; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[34], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[4], context[5] ) ) - continue; - context[35] = context[4]; - context[36] = context[5]; - context[37] = context[6]; - context[38] = context[7]; - context[39] = context[0]; - context[40] = context[1]; - if( ! refalrts::svar_left( context[41], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[42], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[43], context[8], context[9] ) ) - continue; - context[44] = context[8]; - context[45] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[46], context[41])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], "Unbalanced bracket \"", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], StrFromBracket, "StrFromBracket" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[21], '\"' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[29] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[29] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[25], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::link_brackets( context[26], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_stvar( res, context[33] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[42] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //28: e.Functions#1/1 - //30: t.ErrorList#1/1 - //31: t.SymTable#1/1 - //32: t.Context#1/1 - //33: e.Scanned#1/1 - //35: e.Tail#1/1 - //37: s.LnNum#1/1 - //38: s.CloseBracket#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( ) ( e.Scanned#1 ) ( # Close s.LnNum#1 s.CloseBracket#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[28] = context[2]; - context[29] = context[3]; - if( ! refalrts::tvar_left( context[30], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[31], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Close::name, context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - context[33] = context[6]; - context[34] = context[7]; - context[35] = context[0]; - context[36] = context[1]; - if( ! refalrts::svar_left( context[37], context[8], context[9] ) ) - continue; - if( ! refalrts::svar_left( context[38], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], "Unbalanced bracket \"", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], StrFromBracket, "StrFromBracket" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[21], '\"' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_stvar( res, context[31] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: e.Functions#1/1 - //14: t.ErrorList#1/1 - //15: t.SymTable#1/1 - //16: t.Context#1/1 - //17: e.Result#1/1 - //19: e.Tail#1/1 - // ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( ) ( e.Result#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[12] = context[2]; - context[13] = context[3]; - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[6]; - context[18] = context[7]; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_stvar( res, context[14] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_CheckUseVariable_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 18 elems - refalrts::Iter context[18]; - refalrts::zeros( context, 18 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddErrorAt, "EL_AddErrorAt" }, - { InvalidModeVariableError, "InvalidModeVariableError" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_NotFound::name, - & ident_InvalidMode::name, - & ident_ExistVariable::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" not found", 10}, - {"Variable ", 9} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: t.ErrorList#1/1 - //5: s.LnNum#1/1 - //6: s.Mode#1/1 - //7: t.Context#2/1 - //8: s.Depth#2/1 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # ExistVariable s.Depth#2 - {refalrts::ictVarLeft, 0, 4, 0}, - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.Index#1 - {refalrts::ictVarLeft, 0, 7, 0}, - {refalrts::icIdentLeft, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: t.ErrorList#1/1 - //8: s.LnNum#1/1 - //9: s.Mode#1/1 - //10: e.Index#1/1 - //12: t.Context#2/1 - //13: s.Depth#2/1 - //14: s.OldMode#2/1 - //15: s.OldMode#2/2 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # InvalidMode s.Depth#2 s.OldMode#2 - {refalrts::ictVarLeft, 0, 7, 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 10, 2}, - {refalrts::ictVarLeft, 0, 12, 0}, - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icsVarLeft, 0, 13, 0}, - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 15, 14, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //12: t.ErrorList#1/1 - //13: s.LnNum#1/1 - //14: s.Mode#1/1 - //15: e.Index#1/1 - //17: t.Context#2/1 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # NotFound - {refalrts::icIdentRight, 0, 0, 0}, - {refalrts::ictVarLeft, 0, 12, 0}, - {refalrts::icsVarLeft, 0, 13, 0}, - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::ictVarLeft, 0, 17, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icChar, 0, '.', 8}, - {refalrts::icString, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceSTVar, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: t.ErrorList#1/1 - //5: s.LnNum#1/1 - //6: s.Mode#1/1 - //7: t.Context#2/1 - //8: s.Depth#2/1 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # ExistVariable s.Depth#2 - if( ! refalrts::tvar_left( context[4], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - // Unused closed variable e.Index#1 - if( ! refalrts::tvar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_ExistVariable::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_stvar( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: t.ErrorList#1/1 - //8: s.LnNum#1/1 - //9: s.Mode#1/1 - //10: e.Index#1/1 - //12: t.Context#2/1 - //13: s.Depth#2/1 - //14: s.OldMode#2/1 - //15: s.OldMode#2/2 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # InvalidMode s.Depth#2 s.OldMode#2 - if( ! refalrts::tvar_left( context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[10] = context[2]; - context[11] = context[3]; - if( ! refalrts::tvar_left( context[12], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_InvalidMode::name, context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[13], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[15], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], InvalidModeVariableError, "InvalidModeVariableError" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_stvar( res, context[12] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_stvar( res, context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //12: t.ErrorList#1/1 - //13: s.LnNum#1/1 - //14: s.Mode#1/1 - //15: e.Index#1/1 - //17: t.Context#2/1 - // t.ErrorList#1 s.LnNum#1 s.Mode#1 ( e.Index#1 ) t.Context#2 # NotFound - if( ! refalrts::ident_right( & ident_NotFound::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[12], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[13], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[2]; - context[16] = context[3]; - if( ! refalrts::tvar_left( context[17], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Variable ", 9 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[8], '.' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[9], context[10], " not found", 10 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - res = refalrts::splice_stvar( res, context[17] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_stvar( res, context[12] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult CheckUseVariable(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_CheckUseVariable_0, "lambda_CheckUseVariable_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Cntx_CheckVariable, "Cntx_CheckVariable" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: t.ErrorList#1/1 - //15: t.Context#1/1 - //16: s.LnNum#1/1 - //17: s.Mode#1/1 - //18: e.Index#1/1 - //20: s.Mode#1/2 - //21: e.Index#1/2 - // t.ErrorList#1 t.Context#1 s.LnNum#1 s.Mode#1 e.Index#1 - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::ictVarLeft, 0, 15, 0}, - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icsVarLeft, 0, 17, 0}, - {refalrts::icContextSet, 0, 18, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 20, 17, 0}, - {refalrts::icCopyEVar, 21, 18, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 3, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 20}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icSpliceSTVar, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: t.ErrorList#1/1 - //15: t.Context#1/1 - //16: s.LnNum#1/1 - //17: s.Mode#1/1 - //18: e.Index#1/1 - //20: s.Mode#1/2 - //21: e.Index#1/2 - // t.ErrorList#1 t.Context#1 s.LnNum#1 s.Mode#1 e.Index#1 - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[15], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[17], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[18] = context[0]; - context[19] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[20], context[17])) - return refalrts::cNoMemory; - if (! refalrts::copy_evar(context[21], context[22], context[18], context[19])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Cntx_CheckVariable, "Cntx_CheckVariable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], lambda_CheckUseVariable_0, "lambda_CheckUseVariable_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[20] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_stvar( res, context[17] ); - res = refalrts::splice_stvar( res, context[15] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ParseResult_Block_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 47 elems - refalrts::Iter context[47]; - refalrts::zeros( context, 47 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParseResult, "ParseResult" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_LambdaName::name, - & ident_TkName::name, - & ident_CreateClosure::name, - & ident_CallBrackets::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //32: e.RealContext#2/1 - //34: s.NextNum#1/1 - //35: e.Functions#1/1 - //37: t.ErrorList#1/1 - //38: t.SymTable#1/1 - //39: t.Context#1/1 - //40: e.MultiBracket#1/1 - //42: e.Scanned#1/1 - //44: e.Tail#1/1 - //46: s.FunctionNumber#2/1 - // s.NextNum#1 ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Tail#1 ) s.FunctionNumber#2 ( e.RealContext#2 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::ictVarLeft, 0, 37, 0}, - {refalrts::ictVarLeft, 0, 38, 0}, - {refalrts::ictVarLeft, 0, 39, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 10, 0}, - {refalrts::icContextSet, 0, 40, 6}, - {refalrts::icContextSet, 0, 42, 8}, - {refalrts::icContextSet, 0, 44, 10}, - {refalrts::icsVarLeft, 0, 46, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 3, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icIdent, 0, 1, 22}, - {refalrts::icIdent, 0, 2, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icIdent, 0, 1, 26}, - {refalrts::icIdent, 0, 0, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 44}, - {refalrts::icLinkBrackets, 18, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icLinkBrackets, 19, 29, 0}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icLinkBrackets, 25, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceSTVar, 0, 0, 46}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 21, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: e.RealContext#2/1 - //34: s.NextNum#1/1 - //35: e.Functions#1/1 - //37: t.ErrorList#1/1 - //38: t.SymTable#1/1 - //39: t.Context#1/1 - //40: e.MultiBracket#1/1 - //42: e.Scanned#1/1 - //44: e.Tail#1/1 - //46: s.FunctionNumber#2/1 - // s.NextNum#1 ( e.Functions#1 ) t.ErrorList#1 t.SymTable#1 t.Context#1 ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( e.Tail#1 ) s.FunctionNumber#2 ( e.RealContext#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[32] = context[2]; - context[33] = context[3]; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[35] = context[4]; - context[36] = context[5]; - if( ! refalrts::tvar_left( context[37], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[38], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[39], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[40] = context[6]; - context[41] = context[7]; - context[42] = context[8]; - context[43] = context[9]; - context[44] = context[10]; - context[45] = context[11]; - if( ! refalrts::svar_left( context[46], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_CallBrackets::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[22], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[23], & ident_CreateClosure::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[26], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[27], & ident_LambdaName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[44], context[45] ); - refalrts::link_brackets( context[18], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - refalrts::link_brackets( context[19], context[29] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - refalrts::link_brackets( context[25], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_stvar( res, context[46] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[21], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[39] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_stvar( res, context[37] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ParseResult_Block(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 48 elems - refalrts::Iter context[48]; - refalrts::zeros( context, 48 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ParseResult_Block_0, "lambda_ParseResult_Block_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { CreateContext, "CreateContext" }, - { Dec, "Dec" }, - { Fetch, "Fetch" }, - { ParseResult, "ParseResult" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_LambdaName::name, - & ident_TkName::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +66, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //26: e.MultiBracket#1/1 - //28: e.Scanned#1/1 - //30: s.NextNum#1/1 - //31: e.Functions#1/1 - //33: t.ErrorList#1/1 - //34: t.SymTable#1/1 - //35: e.Tail#1/1 - //37: t.Context#1/1 - //38: s.NextNum#1/2 - // ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( s.NextNum#1 e.Functions#1 ) t.ErrorList#1 t.SymTable#1 ( t.Context#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 26, 2}, - {refalrts::icContextSet, 0, 28, 4}, - {refalrts::icsVarLeft, 0, 30, 6}, - {refalrts::icContextSet, 0, 31, 6}, - {refalrts::ictVarLeft, 0, 33, 0}, - {refalrts::ictVarLeft, 0, 34, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 35, 0}, - {refalrts::ictVarLeft, 0, 37, 8}, - {refalrts::icEmpty, 0, 0, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 38, 30, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 5, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icIdent, 0, 1, 18}, - {refalrts::icIdent, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 20}, - {refalrts::icFunc, 0, 3, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 25}, - {refalrts::icPushStack, 0, 0, 25}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icLinkBrackets, 16, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icLinkBrackets, 17, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 34}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceSTVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //33: e.MultiBracket#1/1 - //35: e.Scanned#1/1 - //37: s.NextNum#1/1 - //38: e.Functions#1/1 - //40: t.ErrorList#1/1 - //41: t.SymTable#1/1 - //42: e.Tail#1/1 - //44: t.Context#1/1 - //45: e.FreeContext#1/1 - //47: s.NextNum#1/2 - // ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( s.NextNum#1 e.Functions#1 ) t.ErrorList#1 t.SymTable#1 ( t.Context#1 e.FreeContext#1 ) e.Tail#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 6, 0}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icsVarLeft, 0, 37, 6}, - {refalrts::icContextSet, 0, 38, 6}, - {refalrts::ictVarLeft, 0, 40, 0}, - {refalrts::ictVarLeft, 0, 41, 0}, - {refalrts::icBracketLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 42, 0}, - {refalrts::ictVarLeft, 0, 44, 8}, - {refalrts::icContextSet, 0, 45, 8}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 47, 37, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 4, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 3, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 2, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 20}, - {refalrts::icFunc, 0, 1, 21}, - {refalrts::icFunc, 0, 0, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 31}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 32}, - {refalrts::icPushStack, 0, 0, 32}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 32}, - {refalrts::icPushStack, 0, 0, 31}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icLinkBrackets, 29, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icLinkBrackets, 27, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceSTVar, 0, 0, 44}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceSTVar, 0, 0, 47}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 15, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //26: e.MultiBracket#1/1 - //28: e.Scanned#1/1 - //30: s.NextNum#1/1 - //31: e.Functions#1/1 - //33: t.ErrorList#1/1 - //34: t.SymTable#1/1 - //35: e.Tail#1/1 - //37: t.Context#1/1 - //38: s.NextNum#1/2 - // ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( s.NextNum#1 e.Functions#1 ) t.ErrorList#1 t.SymTable#1 ( t.Context#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - continue; - context[26] = context[2]; - context[27] = context[3]; - context[28] = context[4]; - context[29] = context[5]; - if( ! refalrts::svar_left( context[30], context[6], context[7] ) ) - continue; - context[31] = context[6]; - context[32] = context[7]; - if( ! refalrts::tvar_left( context[33], context[0], context[1] ) ) - continue; - if( ! refalrts::tvar_left( context[34], context[0], context[1] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - continue; - context[35] = context[0]; - context[36] = context[1]; - if( ! refalrts::tvar_left( context[37], context[8], context[9] ) ) - continue; - if( ! refalrts::empty_seq( context[8], context[9] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[38], context[30])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ParseResult, "ParseResult" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[18], & ident_TkName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[19], & ident_LambdaName::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], Dec, "Dec" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[25] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[25] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - refalrts::link_brackets( context[16], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - refalrts::link_brackets( context[17], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[20] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[38] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_stvar( res, context[34] ); - res = refalrts::splice_stvar( res, context[33] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_stvar( res, context[30] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //33: e.MultiBracket#1/1 - //35: e.Scanned#1/1 - //37: s.NextNum#1/1 - //38: e.Functions#1/1 - //40: t.ErrorList#1/1 - //41: t.SymTable#1/1 - //42: e.Tail#1/1 - //44: t.Context#1/1 - //45: e.FreeContext#1/1 - //47: s.NextNum#1/2 - // ( e.MultiBracket#1 ) ( e.Scanned#1 ) ( s.NextNum#1 e.Functions#1 ) t.ErrorList#1 t.SymTable#1 ( t.Context#1 e.FreeContext#1 ) e.Tail#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[33] = context[2]; - context[34] = context[3]; - context[35] = context[4]; - context[36] = context[5]; - if( ! refalrts::svar_left( context[37], context[6], context[7] ) ) - return refalrts::cRecognitionImpossible; - context[38] = context[6]; - context[39] = context[7]; - if( ! refalrts::tvar_left( context[40], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[41], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[42] = context[0]; - context[43] = context[1]; - if( ! refalrts::tvar_left( context[44], context[8], context[9] ) ) - return refalrts::cRecognitionImpossible; - context[45] = context[8]; - context[46] = context[9]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[47], context[37])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Dec, "Dec" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], CreateContext, "CreateContext" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[21], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], lambda_ParseResult_Block_0, "lambda_ParseResult_Block_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[31] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[32] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[32] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[32] ); - refalrts::push_stack( context[31] ); - refalrts::push_stack( context[20] ); - res = refalrts::splice_elem( res, context[31] ); - refalrts::link_brackets( context[29], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[29] ); - refalrts::link_brackets( context[27], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_stvar( res, context[44] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_stvar( res, context[40] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_stvar( res, context[47] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[15], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[37] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/SymTable.cpp b/bootstrap/SymTable.cpp deleted file mode 100644 index 8bcd87e0..00000000 --- a/bootstrap/SymTable.cpp +++ /dev/null @@ -1,3011 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult EL_AddErrorAt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Reduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddDefined(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddExtern(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddFunctionCall(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddIdent(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AddUnresolved(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AllFunctions(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_AllIdents(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ST_GetAnyName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PatchReferences(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult SymTable(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #GN_Entry -template -struct ident_GN_Entry { - static const char *name() { - return "GN_Entry"; - } -}; - -static refalrts::FnResult SymTable(refalrts::Iter, refalrts::Iter) { - refalrts::this_is_generated_function(); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -} - -refalrts::FnResult ST_Create(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymTable, "SymTable" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 10}, - {refalrts::icLinkBrackets, 2, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_PatchReferences_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +10, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Name#1/1 - //8: e.Name#1/2 - //10: s.LnNum#2/1 - // ( e.Name#1 ) ( s.LnNum#2 e.Name#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 6, 2}, - {refalrts::iceRepeatRight, 8, 6, 4}, - {refalrts::icsVarLeft, 0, 10, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.LnNum#2/1 - //9: e.Name#2/1 - // ( e.Name#1 ) ( s.LnNum#2 e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Name#1 - {refalrts::icsVarLeft, 0, 8, 4}, - {refalrts::icContextSet, 0, 9, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 7}, - {refalrts::icLinkBrackets, 6, 7, 0}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Name#1/1 - //8: e.Name#1/2 - //10: s.LnNum#2/1 - // ( e.Name#1 ) ( s.LnNum#2 e.Name#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[6] = context[2]; - context[7] = context[3]; - if( ! refalrts::repeated_evar_right( context[8], context[9], context[6], context[7], context[4], context[5] ) ) - continue; - if( ! refalrts::svar_left( context[10], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.LnNum#2/1 - //9: e.Name#2/1 - // ( e.Name#1 ) ( s.LnNum#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Name#1 - if( ! refalrts::svar_left( context[8], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[9] = context[4]; - context[10] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[7] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[7] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PatchReferences(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_PatchReferences_0, "lambda_PatchReferences_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //15: e.References#1/1 - //17: e.Name#1/1 - // ( e.References#1 ) e.Name#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 15, 2}, - {refalrts::icContextSet, 0, 17, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 2, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icLinkBrackets, 4, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //15: e.References#1/1 - //17: e.Name#1/1 - // ( e.References#1 ) e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[2]; - context[16] = context[3]; - context[17] = context[0]; - context[18] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], lambda_PatchReferences_0, "lambda_PatchReferences_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ST_AddDefined(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 50 elems - refalrts::Iter context[50]; - refalrts::zeros( context, 50 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PatchReferences, "PatchReferences" }, - { SymTable, "SymTable" }, - { EL_AddErrorAt, "EL_AddErrorAt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" already defined", 16}, - {"Function ", 9} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +71, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //32: t.ErrorList#1/1 - //33: e.References#1/1 - //35: e.Idents#1/1 - //37: e.Externs#1/1 - //39: s.ScopeClass#1/1 - //40: s.LnNum#1/1 - //41: e.Name#1/1 - //43: e.Name#1/2 - //45: e.Names_B#1/1 - //47: e.Names_E#1/1 - //49: s.AnyScopeClass#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names_B#1 ( s.AnyScopeClass#1 e.Name#1 ) e.Names_E#1 ] s.ScopeClass#1 s.LnNum#1 e.Name#1 - {refalrts::ictVarLeft, 0, 32, 0}, - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 33, 4}, - {refalrts::icContextSet, 0, 35, 6}, - {refalrts::icContextSet, 0, 37, 8}, - {refalrts::icsVarLeft, 0, 39, 0}, - {refalrts::icsVarLeft, 0, 40, 0}, - {refalrts::icContextSet, 0, 41, 0}, - {refalrts::icEPrepare, 0, 45, 2}, - {refalrts::icEStart, 0, 45, 2}, - {refalrts::icSave, 0, 12, 2}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::iceRepeatRight, 43, 41, 10}, - {refalrts::icContextSet, 0, 47, 12}, - {refalrts::icsVarLeft, 0, 49, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 2, 15}, - {refalrts::icString, 0, 1, 16}, - {refalrts::icString, 0, 0, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 21}, - {refalrts::icFunc, 0, 1, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 28}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 29}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 30}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 31}, - {refalrts::icLinkBrackets, 21, 31, 0}, - {refalrts::icSpliceElem, 0, 0, 31}, - {refalrts::icSpliceEVar, 0, 0, 47}, - {refalrts::icLinkBrackets, 29, 30, 0}, - {refalrts::icSpliceElem, 0, 0, 30}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceSTVar, 0, 0, 49}, - {refalrts::icSpliceElem, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 45}, - {refalrts::icLinkBrackets, 27, 28, 0}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceRange, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceSTVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +65, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //28: t.ErrorList#1/1 - //29: e.References#1/1 - //31: e.Idents#1/1 - //33: e.Names#1/1 - //35: s.ScopeClass#1/1 - //36: s.LnNum#1/1 - //37: e.Name#1/1 - //39: e.Name#1/2 - //41: e.Externs_B#1/1 - //43: e.Externs_E#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs_B#1 ( e.Name#1 ) e.Externs_E#1 ) e.Names#1 ] s.ScopeClass#1 s.LnNum#1 e.Name#1 - {refalrts::ictVarLeft, 0, 28, 0}, - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 29, 4}, - {refalrts::icContextSet, 0, 31, 6}, - {refalrts::icContextSet, 0, 33, 2}, - {refalrts::icsVarLeft, 0, 35, 0}, - {refalrts::icsVarLeft, 0, 36, 0}, - {refalrts::icContextSet, 0, 37, 0}, - {refalrts::icEPrepare, 0, 41, 8}, - {refalrts::icEStart, 0, 41, 8}, - {refalrts::icSave, 0, 12, 8}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::iceRepeatLeft, 39, 37, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icContextSet, 0, 43, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 16}, - {refalrts::icFunc, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 27}, - {refalrts::icLinkBrackets, 14, 27, 0}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 23, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 43}, - {refalrts::icSpliceEVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: t.ErrorList#1/1 - //25: e.References#1/1 - //27: e.Idents#1/1 - //29: e.Externs#1/1 - //31: e.Names#1/1 - //33: s.ScopeClass#1/1 - //34: s.LnNum#1/1 - //35: e.Name#1/1 - //37: e.Name#1/2 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] s.ScopeClass#1 s.LnNum#1 e.Name#1 - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::icContextSet, 0, 29, 8}, - {refalrts::icContextSet, 0, 31, 2}, - {refalrts::icsVarLeft, 0, 33, 0}, - {refalrts::icsVarLeft, 0, 34, 0}, - {refalrts::icContextSet, 0, 35, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 37, 35, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 23}, - {refalrts::icLinkBrackets, 10, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceSTVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //32: t.ErrorList#1/1 - //33: e.References#1/1 - //35: e.Idents#1/1 - //37: e.Externs#1/1 - //39: s.ScopeClass#1/1 - //40: s.LnNum#1/1 - //41: e.Name#1/1 - //43: e.Name#1/2 - //45: e.Names_B#1/1 - //47: e.Names_E#1/1 - //49: s.AnyScopeClass#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names_B#1 ( s.AnyScopeClass#1 e.Name#1 ) e.Names_E#1 ] s.ScopeClass#1 s.LnNum#1 e.Name#1 - if( ! refalrts::tvar_left( context[32], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - continue; - context[33] = context[4]; - context[34] = context[5]; - context[35] = context[6]; - context[36] = context[7]; - context[37] = context[8]; - context[38] = context[9]; - if( ! refalrts::svar_left( context[39], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[40], context[0], context[1] ) ) - continue; - context[41] = context[0]; - context[42] = context[1]; - context[45] = 0; - context[46] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[2]; - context[13] = context[3]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[43], context[44], context[41], context[42], context[10], context[11] ) ) - continue; - context[47] = context[12]; - context[48] = context[13]; - if( ! refalrts::svar_left( context[49], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], "Function ", 9 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[18], context[19], " already defined", 16 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[22], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[28] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[29] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[30] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[31] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[21], context[31] ); - res = refalrts::splice_elem( res, context[31] ); - res = refalrts::splice_evar( res, context[47], context[48] ); - refalrts::link_brackets( context[29], context[30] ); - res = refalrts::splice_elem( res, context[30] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_stvar( res, context[49] ); - res = refalrts::splice_elem( res, context[29] ); - res = refalrts::splice_evar( res, context[45], context[46] ); - refalrts::link_brackets( context[27], context[28] ); - res = refalrts::splice_elem( res, context[28] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[25] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_stvar( res, context[32] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[45], context[46], context[2], context[3] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //28: t.ErrorList#1/1 - //29: e.References#1/1 - //31: e.Idents#1/1 - //33: e.Names#1/1 - //35: s.ScopeClass#1/1 - //36: s.LnNum#1/1 - //37: e.Name#1/1 - //39: e.Name#1/2 - //41: e.Externs_B#1/1 - //43: e.Externs_E#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs_B#1 ( e.Name#1 ) e.Externs_E#1 ) e.Names#1 ] s.ScopeClass#1 s.LnNum#1 e.Name#1 - if( ! refalrts::tvar_left( context[28], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - continue; - context[29] = context[4]; - context[30] = context[5]; - context[31] = context[6]; - context[32] = context[7]; - context[33] = context[2]; - context[34] = context[3]; - if( ! refalrts::svar_left( context[35], context[0], context[1] ) ) - continue; - if( ! refalrts::svar_left( context[36], context[0], context[1] ) ) - continue; - context[37] = context[0]; - context[38] = context[1]; - context[41] = 0; - context[42] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[8]; - context[13] = context[9]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[39], context[40], context[37], context[38], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - context[43] = context[12]; - context[44] = context[13]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[17], PatchReferences, "PatchReferences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[24] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[27] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[27] ); - res = refalrts::splice_elem( res, context[27] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[23], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[43], context[44] ); - res = refalrts::splice_evar( res, context[41], context[42] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[21] ); - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[16] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[28] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[41], context[42], context[8], context[9] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: t.ErrorList#1/1 - //25: e.References#1/1 - //27: e.Idents#1/1 - //29: e.Externs#1/1 - //31: e.Names#1/1 - //33: s.ScopeClass#1/1 - //34: s.LnNum#1/1 - //35: e.Name#1/1 - //37: e.Name#1/2 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] s.ScopeClass#1 s.LnNum#1 e.Name#1 - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[6]; - context[28] = context[7]; - context[29] = context[8]; - context[30] = context[9]; - context[31] = context[2]; - context[32] = context[3]; - if( ! refalrts::svar_left( context[33], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[34], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[35] = context[0]; - context[36] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[37], context[38], context[35], context[36])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], PatchReferences, "PatchReferences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[23] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[10], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_stvar( res, context[33] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[24] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ST_AddExtern(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 41 elems - refalrts::Iter context[41]; - refalrts::zeros( context, 41 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { PatchReferences, "PatchReferences" }, - { SymTable, "SymTable" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +53, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: t.ErrorList#1/1 - //26: e.References#1/1 - //28: e.Idents#1/1 - //30: e.Names#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - //36: e.Externs_B#1/1 - //38: e.Externs_E#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs_B#1 ( e.Name#1 ) e.Externs_E#1 ) e.Names#1 ] e.Name#1 - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 26, 4}, - {refalrts::icContextSet, 0, 28, 6}, - {refalrts::icContextSet, 0, 30, 2}, - {refalrts::icContextSet, 0, 32, 0}, - {refalrts::icEPrepare, 0, 36, 8}, - {refalrts::icEStart, 0, 36, 8}, - {refalrts::icSave, 0, 12, 8}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::iceRepeatLeft, 34, 32, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icContextSet, 0, 38, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 24}, - {refalrts::icLinkBrackets, 14, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +55, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: t.ErrorList#1/1 - //26: e.References#1/1 - //28: e.Idents#1/1 - //30: e.Externs#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - //36: e.Names_B#1/1 - //38: e.Names_E#1/1 - //40: s.ScopeClass#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names_B#1 ( s.ScopeClass#1 e.Name#1 ) e.Names_E#1 ] e.Name#1 - {refalrts::ictVarLeft, 0, 25, 0}, - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 26, 4}, - {refalrts::icContextSet, 0, 28, 6}, - {refalrts::icContextSet, 0, 30, 8}, - {refalrts::icContextSet, 0, 32, 0}, - {refalrts::icEPrepare, 0, 36, 2}, - {refalrts::icEStart, 0, 36, 2}, - {refalrts::icSave, 0, 12, 2}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::iceRepeatRight, 34, 32, 10}, - {refalrts::icContextSet, 0, 38, 12}, - {refalrts::icsVarLeft, 0, 40, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 24}, - {refalrts::icLinkBrackets, 14, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 25}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: t.ErrorList#1/1 - //25: e.References#1/1 - //27: e.Idents#1/1 - //29: e.Externs#1/1 - //31: e.Names#1/1 - //33: e.Name#1/1 - //35: e.Name#1/2 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] e.Name#1 - {refalrts::ictVarLeft, 0, 24, 0}, - {refalrts::icADTLeft, 1, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::icContextSet, 0, 29, 8}, - {refalrts::icContextSet, 0, 31, 2}, - {refalrts::icContextSet, 0, 33, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 35, 33, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 23}, - {refalrts::icLinkBrackets, 10, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 19, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 17, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 14, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceSTVar, 0, 0, 24}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: t.ErrorList#1/1 - //26: e.References#1/1 - //28: e.Idents#1/1 - //30: e.Names#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - //36: e.Externs_B#1/1 - //38: e.Externs_E#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs_B#1 ( e.Name#1 ) e.Externs_E#1 ) e.Names#1 ] e.Name#1 - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - continue; - context[26] = context[4]; - context[27] = context[5]; - context[28] = context[6]; - context[29] = context[7]; - context[30] = context[2]; - context[31] = context[3]; - context[32] = context[0]; - context[33] = context[1]; - context[36] = 0; - context[37] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[8]; - context[13] = context[9]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[34], context[35], context[32], context[33], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - context[38] = context[12]; - context[39] = context[13]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[24] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[25] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[36], context[37], context[8], context[9] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: t.ErrorList#1/1 - //26: e.References#1/1 - //28: e.Idents#1/1 - //30: e.Externs#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - //36: e.Names_B#1/1 - //38: e.Names_E#1/1 - //40: s.ScopeClass#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names_B#1 ( s.ScopeClass#1 e.Name#1 ) e.Names_E#1 ] e.Name#1 - if( ! refalrts::tvar_left( context[25], context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - continue; - context[26] = context[4]; - context[27] = context[5]; - context[28] = context[6]; - context[29] = context[7]; - context[30] = context[8]; - context[31] = context[9]; - context[32] = context[0]; - context[33] = context[1]; - context[36] = 0; - context[37] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[2]; - context[13] = context[3]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[34], context[35], context[32], context[33], context[10], context[11] ) ) - continue; - context[38] = context[12]; - context[39] = context[13]; - if( ! refalrts::svar_left( context[40], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[24] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[28], context[29] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[25] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[36], context[37], context[2], context[3] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: t.ErrorList#1/1 - //25: e.References#1/1 - //27: e.Idents#1/1 - //29: e.Externs#1/1 - //31: e.Names#1/1 - //33: e.Name#1/1 - //35: e.Name#1/2 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] e.Name#1 - if( ! refalrts::tvar_left( context[24], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[6]; - context[28] = context[7]; - context[29] = context[8]; - context[30] = context[9]; - context[31] = context[2]; - context[32] = context[3]; - context[33] = context[0]; - context[34] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[35], context[36], context[33], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_adt( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], PatchReferences, "PatchReferences" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[23] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[10], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::link_brackets( context[19], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[17], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[14], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_stvar( res, context[24] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ST_AddFunctionCall(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 41 elems - refalrts::Iter context[41]; - refalrts::zeros( context, 41 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymTable, "SymTable" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +52, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.References#1/1 - //27: e.Idents#1/1 - //29: e.Names#1/1 - //31: s.LnNum#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - //36: e.Externs_B#1/1 - //38: e.Externs_E#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs_B#1 ( e.Name#1 ) e.Externs_E#1 ) e.Names#1 ] s.LnNum#1 e.Name#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icsVarLeft, 0, 31, 0}, - {refalrts::icContextSet, 0, 32, 0}, - {refalrts::icEPrepare, 0, 36, 8}, - {refalrts::icEStart, 0, 36, 8}, - {refalrts::icSave, 0, 12, 8}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::iceRepeatLeft, 34, 32, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icContextSet, 0, 38, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 24}, - {refalrts::icLinkBrackets, 14, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icLinkBrackets, 20, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 21, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +54, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.References#1/1 - //27: e.Idents#1/1 - //29: e.Externs#1/1 - //31: s.LnNum#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - //36: e.Names_B#1/1 - //38: e.Names_E#1/1 - //40: s.ScopeClass#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names_B#1 ( s.ScopeClass#1 e.Name#1 ) e.Names_E#1 ] s.LnNum#1 e.Name#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 6}, - {refalrts::icContextSet, 0, 29, 8}, - {refalrts::icsVarLeft, 0, 31, 0}, - {refalrts::icContextSet, 0, 32, 0}, - {refalrts::icEPrepare, 0, 36, 2}, - {refalrts::icEStart, 0, 36, 2}, - {refalrts::icSave, 0, 12, 2}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::iceRepeatRight, 34, 32, 10}, - {refalrts::icContextSet, 0, 38, 12}, - {refalrts::icsVarLeft, 0, 40, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 24}, - {refalrts::icLinkBrackets, 14, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceSTVar, 0, 0, 40}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.References#1/1 - //23: e.Idents#1/1 - //25: e.Externs#1/1 - //27: e.Names#1/1 - //29: s.LnNum#1/1 - //30: e.Name#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] s.LnNum#1 e.Name#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icContextSet, 0, 23, 6}, - {refalrts::icContextSet, 0, 25, 8}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icsVarLeft, 0, 29, 0}, - {refalrts::icContextSet, 0, 30, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 20}, - {refalrts::icLinkBrackets, 10, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 12, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 30}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[4]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.References#1/1 - //27: e.Idents#1/1 - //29: e.Names#1/1 - //31: s.LnNum#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - //36: e.Externs_B#1/1 - //38: e.Externs_E#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs_B#1 ( e.Name#1 ) e.Externs_E#1 ) e.Names#1 ] s.LnNum#1 e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[6]; - context[28] = context[7]; - context[29] = context[2]; - context[30] = context[3]; - if( ! refalrts::svar_left( context[31], context[0], context[1] ) ) - continue; - context[32] = context[0]; - context[33] = context[1]; - context[36] = 0; - context[37] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[8]; - context[13] = context[9]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[34], context[35], context[32], context[33], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - context[38] = context[12]; - context[39] = context[13]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[24] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::link_brackets( context[20], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[21], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[36], context[37], context[8], context[9] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.References#1/1 - //27: e.Idents#1/1 - //29: e.Externs#1/1 - //31: s.LnNum#1/1 - //32: e.Name#1/1 - //34: e.Name#1/2 - //36: e.Names_B#1/1 - //38: e.Names_E#1/1 - //40: s.ScopeClass#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names_B#1 ( s.ScopeClass#1 e.Name#1 ) e.Names_E#1 ] s.LnNum#1 e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[6]; - context[28] = context[7]; - context[29] = context[8]; - context[30] = context[9]; - if( ! refalrts::svar_left( context[31], context[0], context[1] ) ) - continue; - context[32] = context[0]; - context[33] = context[1]; - context[36] = 0; - context[37] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[2]; - context[13] = context[3]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_evar_right( context[34], context[35], context[32], context[33], context[10], context[11] ) ) - continue; - context[38] = context[12]; - context[39] = context[13]; - if( ! refalrts::svar_left( context[40], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[24] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_stvar( res, context[40] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[20] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[36], context[37], context[2], context[3] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.References#1/1 - //23: e.Idents#1/1 - //25: e.Externs#1/1 - //27: e.Names#1/1 - //29: s.LnNum#1/1 - //30: e.Name#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] s.LnNum#1 e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[4]; - context[22] = context[5]; - context[23] = context[6]; - context[24] = context[7]; - context[25] = context[8]; - context[26] = context[9]; - context[27] = context[2]; - context[28] = context[3]; - if( ! refalrts::svar_left( context[29], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[30] = context[0]; - context[31] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[20] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[10], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[12], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[30], context[31] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ST_AddIdent(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 39 elems - refalrts::Iter context[39]; - refalrts::zeros( context, 39 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymTable, "SymTable" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +51, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //25: e.References#1/1 - //27: e.Externs#1/1 - //29: e.Names#1/1 - //31: e.Name#1/1 - //33: e.Name#1/2 - //35: e.Idents_B#1/1 - //37: e.Idents_E#1/1 - // [SymTable ( e.References#1 ) ( e.Idents_B#1 ( e.Name#1 ) e.Idents_E#1 ) ( e.Externs#1 ) e.Names#1 ] e.Name#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 25, 4}, - {refalrts::icContextSet, 0, 27, 8}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 31, 0}, - {refalrts::icEPrepare, 0, 35, 6}, - {refalrts::icEStart, 0, 35, 6}, - {refalrts::icSave, 0, 12, 6}, - {refalrts::icBracketLeft, 0, 10, 12}, - {refalrts::iceRepeatLeft, 33, 31, 10}, - {refalrts::icEmpty, 0, 0, 10}, - {refalrts::icContextSet, 0, 37, 12}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 23}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 24}, - {refalrts::icLinkBrackets, 14, 24, 0}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icLinkBrackets, 22, 23, 0}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 18, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 19, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.References#1/1 - //23: e.Idents#1/1 - //25: e.Externs#1/1 - //27: e.Names#1/1 - //29: e.Name#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] e.Name#1 - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icContextSet, 0, 23, 6}, - {refalrts::icContextSet, 0, 25, 8}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icContextSet, 0, 29, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenADT, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseADT, 20}, - {refalrts::icLinkBrackets, 10, 20, 0}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icLinkBrackets, 18, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 14, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icLinkBrackets, 15, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icLinkBrackets, 12, 13, 0}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //25: e.References#1/1 - //27: e.Externs#1/1 - //29: e.Names#1/1 - //31: e.Name#1/1 - //33: e.Name#1/2 - //35: e.Idents_B#1/1 - //37: e.Idents_E#1/1 - // [SymTable ( e.References#1 ) ( e.Idents_B#1 ( e.Name#1 ) e.Idents_E#1 ) ( e.Externs#1 ) e.Names#1 ] e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - continue; - context[25] = context[4]; - context[26] = context[5]; - context[27] = context[8]; - context[28] = context[9]; - context[29] = context[2]; - context[30] = context[3]; - context[31] = context[0]; - context[32] = context[1]; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[6]; - context[13] = context[7]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[33], context[34], context[31], context[32], context[10], context[11] ) ) - continue; - if( ! refalrts::empty_seq( context[10], context[11] ) ) - continue; - context[37] = context[12]; - context[38] = context[13]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[24] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[14], context[24] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - refalrts::link_brackets( context[22], context[23] ); - res = refalrts::splice_elem( res, context[23] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[18], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[19], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[6], context[7] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.References#1/1 - //23: e.Idents#1/1 - //25: e.Externs#1/1 - //27: e.Names#1/1 - //29: e.Name#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] e.Name#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[4]; - context[22] = context[5]; - context[23] = context[6]; - context[24] = context[7]; - context[25] = context[8]; - context[26] = context[9]; - context[27] = context[2]; - context[28] = context[3]; - context[29] = context[0]; - context[30] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_adt( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], SymTable, "SymTable" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_adt( context[20] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[10], context[20] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - refalrts::link_brackets( context[18], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[14], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::link_brackets( context[15], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::link_brackets( context[12], context[13] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ST_AddUnresolved_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { EL_AddErrorAt, "EL_AddErrorAt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" is not defined", 15}, - {"Function ", 9} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: s.LnNum#2/1 - //12: e.Name#2/1 - //14: t.ErrorList#2/1 - // t.ErrorList#2 ( s.LnNum#2 e.Name#2 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icsVarLeft, 0, 11, 2}, - {refalrts::icContextSet, 0, 12, 2}, - {refalrts::ictVarLeft, 0, 14, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 12}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.LnNum#2/1 - //12: e.Name#2/1 - //14: t.ErrorList#2/1 - // t.ErrorList#2 ( s.LnNum#2 e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[11], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[12] = context[2]; - context[13] = context[3]; - if( ! refalrts::tvar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], EL_AddErrorAt, "EL_AddErrorAt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "Function ", 9 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], " is not defined", 15 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_evar( res, context[12], context[13] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ST_AddUnresolved(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ST_AddUnresolved_0, "lambda_ST_AddUnresolved_0" }, - { Reduce, "Reduce" }, - { SymTable, "SymTable" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: e.References#1/1 - //16: t.ErrorList#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] - {refalrts::icADTRight, 2, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icContextSet, 0, 14, 4}, - // Unused closed variable e.Idents#1 - // Unused closed variable e.Externs#1 - // Unused closed variable e.Names#1 - {refalrts::ictVarLeft, 0, 16, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.References#1/1 - //16: t.ErrorList#1/1 - // t.ErrorList#1 [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_right( context[2], context[3], SymTable, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[14] = context[4]; - context[15] = context[5]; - // Unused closed variable e.Idents#1 - // Unused closed variable e.Externs#1 - // Unused closed variable e.Names#1 - if( ! refalrts::tvar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Reduce, "Reduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], lambda_ST_AddUnresolved_0, "lambda_ST_AddUnresolved_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ST_AllFunctions_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_GN_Entry::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Name#2/1 - // ( e.Name#2 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Name#2/1 - // ( e.Name#2 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_GN_Entry::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ST_AllFunctions(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 18 elems - refalrts::Iter context[18]; - refalrts::zeros( context, 18 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ST_AllFunctions_0, "lambda_ST_AllFunctions_0" }, - { Map, "Map" }, - { SymTable, "SymTable" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Externs#1/1 - //16: e.Names#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] - {refalrts::icADTLeft, 2, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.References#1 - // Unused closed variable e.Idents#1 - {refalrts::icContextSet, 0, 14, 8}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 1, 11}, - {refalrts::icFunc, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Externs#1/1 - //16: e.Names#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.References#1 - // Unused closed variable e.Idents#1 - context[14] = context[8]; - context[15] = context[9]; - context[16] = context[2]; - context[17] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], lambda_ST_AllFunctions_0, "lambda_ST_AllFunctions_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ST_AllIdents(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymTable, "SymTable" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Idents#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.References#1 - {refalrts::icContextSet, 0, 10, 6}, - // Unused closed variable e.Externs#1 - // Unused closed variable e.Names#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Idents#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names#1 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.References#1 - context[10] = context[6]; - context[11] = context[7]; - // Unused closed variable e.Externs#1 - // Unused closed variable e.Names#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[10], context[11] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -refalrts::FnResult ST_GetAnyName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 19 elems - refalrts::Iter context[19]; - refalrts::zeros( context, 19 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SymTable, "SymTable" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: e.Names_B#1/1 - //16: s.ScopeClass#1/1 - //17: e.Name#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names_B#1 ( s.ScopeClass#1 e.Name#1 ) e.Names_E#1 ] - {refalrts::icADTLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icBracketLeft, 0, 6, 2}, - {refalrts::icBracketLeft, 0, 8, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.References#1 - // Unused closed variable e.Idents#1 - // Unused closed variable e.Externs#1 - {refalrts::icEPrepare, 0, 14, 2}, - {refalrts::icEStart, 0, 14, 2}, - {refalrts::icSave, 0, 12, 2}, - {refalrts::icBracketLeft, 0, 10, 12}, - // Unused closed variable e.Names_E#1 - {refalrts::icsVarLeft, 0, 16, 10}, - {refalrts::icContextSet, 0, 17, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icFail, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.Names_B#1/1 - //16: s.ScopeClass#1/1 - //17: e.Name#1/1 - // [SymTable ( e.References#1 ) ( e.Idents#1 ) ( e.Externs#1 ) e.Names_B#1 ( s.ScopeClass#1 e.Name#1 ) e.Names_E#1 ] - context[2] = 0; - context[3] = 0; - if( ! refalrts::adt_left( context[2], context[3], SymTable, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.References#1 - // Unused closed variable e.Idents#1 - // Unused closed variable e.Externs#1 - context[14] = 0; - context[15] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[2]; - context[13] = context[3]; - context[10] = 0; - context[11] = 0; - if( ! refalrts::brackets_left( context[10], context[11], context[12], context[13] ) ) - continue; - // Unused closed variable e.Names_E#1 - if( ! refalrts::svar_left( context[16], context[10], context[11] ) ) - continue; - context[17] = context[10]; - context[18] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[17], context[18] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[14], context[15], context[2], context[3] ) ); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -#endif -} - - -//End of file diff --git a/bootstrap/make.bat b/bootstrap/make.bat deleted file mode 100644 index 44c9361b..00000000 --- a/bootstrap/make.bat +++ /dev/null @@ -1,16 +0,0 @@ -@echo off -setlocal - mkdir ..\bin >NUL 2>NUL - call ..\c-plus-plus.conf.bat - set FILELIST=srefc.cpp - for %%c in (*.cpp) do call :ADD_FILE_TO_LIST %%c - %CPPLINE% -I..\srlib %FILELIST% - if exist srefc.exe move srefc.exe ..\bin - if exist a.exe move a.exe ..\bin\srefc.exe - if exist *.obj erase *.obj - if exist *.tds erase *.tds - - :ADD_FILE_TO_LIST - if not {%1}=={srefc.cpp} set FILELIST=%FILELIST% %1 - goto :EOF -endlocal diff --git a/bootstrap/make.sh b/bootstrap/make.sh deleted file mode 100755 index 75ca96da..00000000 --- a/bootstrap/make.sh +++ /dev/null @@ -1,3 +0,0 @@ -#!/bin/sh -mkdir -p ../bin -g++ -I../srlib -o../bin/srefc *.cpp diff --git a/bootstrap/refalrts.cpp b/bootstrap/refalrts.cpp deleted file mode 100644 index 8948a83b..00000000 --- a/bootstrap/refalrts.cpp +++ /dev/null @@ -1,2888 +0,0 @@ -#include -#include -#include -#include - -#include - -#include "refalrts.h" - -#if 1 -# define VALID_LINKED( iter ) -#else -# define VALID_LINKED( iter ) valid_linked_aux( #iter, iter ); -#endif - -#ifndef SHOW_DEBUG -#define SHOW_DEBUG 0 -#endif // ifdef SHOW_DEBUG - -enum { SWITCH_DEFAULT_VIOLATION = 0 }; - -void valid_linked_aux( const char *text, refalrts::Iter i ) { - printf("checking %s\n", text); - if( 0 == i ) { - return; - } - - if( i->next ) { - assert( i->next->prev == i ); - } - - if( i->prev ) { - assert( i->prev->next == i ); - } -} - -//============================================================================== -// Примитивные операции -//============================================================================== - -// Операции распознавания - -void refalrts::use( refalrts::Iter& ) { - /* Ничего не делаем. Эта функция добавляется, чтобы подавить предупреждение - компилятора о том, что переменная не используется */; -} - -void refalrts::zeros(refalrts::Iter context[], int size){ - for (int i = 0; i < size; i++) { - context[i] = 0; - } -} - -void refalrts::use_counter( unsigned& ) { - /* Ничего не делаем. Эта функция добавляется, чтобы подавить предупреждение - компилятора о том, что переменная не используется */; -} - -namespace { - -refalrts::Iter next( refalrts::Iter current ) { - return current->next; -} - -refalrts::Iter prev( refalrts::Iter current ) { - return current->prev; -} - -bool is_open_bracket( refalrts::Iter node ) { - return (refalrts::cDataOpenBracket == node->tag) - || (refalrts::cDataOpenADT == node->tag); -} - -bool is_close_bracket( refalrts::Iter node ) { - return (refalrts::cDataCloseBracket == node->tag) - || (refalrts::cDataCloseADT == node->tag); -} - -} // unnamed namespace - -void refalrts::move_left( - refalrts::Iter& first, refalrts::Iter& last -) { - //assert( (first == 0) == (last == 0) ); - if( first == 0 ) assert (last == 0); - if( first != 0 ) assert (last != 0); - - if( first == last ) { - first = 0; - last = 0; - } else { - first = next( first ); - } -} - -void refalrts::move_right( - refalrts::Iter& first, refalrts::Iter& last -) { - //assert( (first == 0) == (last == 0) ); - if( first == 0 ) assert (last == 0); - if( first != 0 ) assert (last != 0); - - if( first == last ) { - first = 0; - last = 0; - } else { - last = prev( last ); - } -} - -bool refalrts::empty_seq( refalrts::Iter first, refalrts::Iter last ) { - //assert( (first == 0) == (last == 0) ); - if( first == 0 ) assert (last == 0); - if( first != 0 ) assert (last != 0); - - return (first == 0) && (last == 0); -} - -bool refalrts::function_left( - refalrts::RefalFunctionPtr fn, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if( first->tag != cDataFunction ) { - return false; - } else if ( first->function_info.ptr != fn ) { - return false; - } else { - move_left( first, last ); - return true; - } -} - -bool refalrts::function_right( - refalrts::RefalFunctionPtr fn, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataFunction != last->tag ) { - return false; - } else if ( last->function_info.ptr != fn ) { - return false; - } else { - move_right( first, last ); - return true; - } -} - -bool refalrts::char_left( - char ch, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataChar != first->tag ) { - return false; - } else if ( first->char_info != ch ) { - return false; - } else { - move_left( first, last ); - return true; - } -} - -bool refalrts::char_right( - char ch, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataChar != last->tag ) { - return false; - } else if ( last->char_info != ch ) { - return false; - } else { - move_right( first, last ); - return true; - } -} - - -bool refalrts::number_left( - refalrts::RefalNumber num, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataNumber != first->tag ) { - return false; - } else if ( first->number_info != num ) { - return false; - } else { - move_left( first, last ); - return true; - } -} - -bool refalrts::number_right( - refalrts::RefalNumber num, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataNumber != last->tag ) { - return false; - } else if ( last->number_info != num ) { - return false; - } else { - move_right( first, last ); - return true; - } -} - -bool refalrts::ident_left( - refalrts::RefalIdentifier ident, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataIdentifier != first->tag ) { - return false; - } else if ( first->ident_info != ident ) { - return false; - } else { - move_left( first, last ); - return true; - } -} - -bool refalrts::ident_right( - refalrts::RefalIdentifier ident, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataIdentifier != last->tag ) { - return false; - } else if ( last->ident_info != ident ) { - return false; - } else { - move_right( first, last ); - return true; - } -} - -bool refalrts::brackets_left( - refalrts::Iter& res_first, refalrts::Iter& res_last, - refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataOpenBracket != first->tag ) { - return false; - } else { - refalrts::Iter left_bracket = first; - refalrts::Iter right_bracket = left_bracket->link_info; - - if( next( left_bracket ) != right_bracket ) { - res_first = next( left_bracket ); - res_last = prev( right_bracket ); - } else { - res_first = 0; - res_last = 0; - } - - if( right_bracket == last ) { - first = 0; - last = 0; - } else { - first = next( right_bracket ); - } - - return true; - } -} - -bool refalrts::brackets_right( - refalrts::Iter& res_first, refalrts::Iter& res_last, - refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if( cDataCloseBracket != last->tag ) { - return false; - } else { - refalrts::Iter right_bracket = last; - refalrts::Iter left_bracket = right_bracket->link_info; - - if( next( left_bracket ) != right_bracket ) { - res_first = next( left_bracket ); - res_last = prev( right_bracket ); - } else { - res_first = 0; - res_last = 0; - } - - if( first == left_bracket ) { - first = 0; - last = 0; - } else { - last = prev( left_bracket ); - } - - return true; - } -} - -bool refalrts::adt_left( - refalrts::Iter& res_first, refalrts::Iter& res_last, - refalrts::RefalFunctionPtr tag, - refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( cDataOpenADT != first->tag ) { - return false; - } else { - refalrts::Iter left_bracket = first; - refalrts::Iter right_bracket = left_bracket->link_info; - refalrts::Iter pnext = next( left_bracket ); - - if( pnext == right_bracket ) { - return false; - } else if( cDataFunction != pnext->tag ) { - return false; - } else if( pnext->function_info.ptr != tag ) { - return false; - } else { - if( next( pnext ) != right_bracket ) { - res_first = next( pnext ); - res_last = prev( right_bracket ); - } else { - res_first = 0; - res_last = 0; - } - - if( right_bracket == last ) { - first = 0; - last = 0; - } else { - first = next( right_bracket ); - } - - return true; - } - } -} - -bool refalrts::adt_right( - refalrts::Iter& res_first, refalrts::Iter& res_last, - refalrts::RefalFunctionPtr tag, - refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if( cDataCloseADT != last->tag ) { - return false; - } else { - refalrts::Iter right_bracket = last; - refalrts::Iter left_bracket = right_bracket->link_info; - refalrts::Iter pnext = next( left_bracket ); - - if( pnext == right_bracket ) { - return false; - } else if( cDataFunction != pnext->tag ) { - return false; - } else if( pnext->function_info.ptr != tag ) { - return false; - } else { - if( next( pnext ) != right_bracket ) { - res_first = next( pnext ); - res_last = prev( right_bracket ); - } else { - res_first = 0; - res_last = 0; - } - - if( first == left_bracket ) { - first = 0; - last = 0; - } else { - last = prev( left_bracket ); - } - - return true; - } - } -} - -bool refalrts::svar_left( - refalrts::Iter& svar, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( is_open_bracket( first ) ) { - return false; - } else { - svar = first; - move_left( first, last ); - return true; - } -} - -bool refalrts::svar_right( - refalrts::Iter& svar, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( is_close_bracket( last ) ) { - return false; - } else { - svar = last; - move_right( first, last ); - return true; - } -} - -bool refalrts::tvar_left( - refalrts::Iter& tvar, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( is_open_bracket( first ) ) { - refalrts::Iter right_bracket = first->link_info; - - tvar = first; - first = right_bracket; - move_left( first, last ); - return true; - } else { - tvar = first; - move_left( first, last ); - return true; - } -} - -bool refalrts::tvar_right( - refalrts::Iter& tvar, refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - if( empty_seq( first, last ) ) { - return false; - } else if ( is_close_bracket( last ) ) { - refalrts::Iter right_bracket = last; - refalrts::Iter left_bracket = right_bracket->link_info; - - tvar = left_bracket; - last = left_bracket; - move_right( first, last ); - return true; - } else { - tvar = last; - move_right( first, last ); - return true; - } -} - -namespace refalrts { - -class UnexpectedTypeException { }; - -} // namespace refalrts - -namespace { - -bool equal_nodes( - refalrts::Iter node1, refalrts::Iter node2 -) // throws refalrts::UnexpectedTypeException -{ - if( node1->tag != node2->tag ) { - return false; - } else { - switch( node1->tag ) { - case refalrts::cDataChar: - return (node1->char_info == node2->char_info); - // break; - - case refalrts::cDataNumber: - return (node1->number_info == node2->number_info); - // break; - - case refalrts::cDataFunction: - return (node1->function_info.ptr == node2->function_info.ptr); - // break; - - case refalrts::cDataIdentifier: - return (node1->ident_info == node2->ident_info); - // break; - - /* - Сведения о связях между скобками нужны для других целей, здесь - же нам важны только их одновременные появления. - */ - case refalrts::cDataOpenBracket: - case refalrts::cDataCloseBracket: - case refalrts::cDataOpenADT: - case refalrts::cDataCloseADT: - return true; - // break; - - case refalrts::cDataFile: - return (node1->file_info == node2->file_info); - // break; - - case refalrts::cDataClosure: - return (node1->link_info == node2->link_info); - // break; - - /* - Данная функция предназначена только для использования функциями рас- - познавания образца. Поэтому других узлов мы тут не ожидаем. - */ - default: - assert( SWITCH_DEFAULT_VIOLATION ); - throw refalrts::UnexpectedTypeException(); - // break; - } - // Все ветви в case завершаются либо return, либо throw. - } -} - -} // unnamed namespace - -namespace refalrts { - -namespace profiler { - -void add_match_repeated_tvar_time(clock_t duration); -void add_match_repeated_evar_time(clock_t duration); - -} - -} - -namespace { - -bool equal_expressions( - refalrts::Iter first1, refalrts::Iter last1, - refalrts::Iter first2, refalrts::Iter last2 -) // throws refalrts::UnexpectedTypeException -{ - assert( (first1 == 0) == (last1 == 0) ); - assert( (first2 == 0) == (last2 == 0) ); - - clock_t start_match = clock(); - - for( - /* Пользуемся аргументами функции, инициализация не нужна */; - // Порядок условий важен - ! refalrts::empty_seq( first1, last1 ) - && ! refalrts::empty_seq( first2, last2 ) - && equal_nodes( first1, first2 ); - refalrts::move_left( first1, last1 ), refalrts::move_left( first2, last2 ) - ) { - continue; - } - - /* - Здесь empty_seq( first1, last1 ) || empty_seq( first2, last2 ) - || !equal_nodes( first1, first2 ) - */ - - refalrts::profiler::add_match_repeated_tvar_time(clock() - start_match); - - // Успешное завершение -- если мы достигли конца в обоих выражениях - if( - refalrts::empty_seq( first1, last1 ) && refalrts::empty_seq( first2, last2 ) - ) { - return true; - } else { - // Любое другое завершение цикла свидетельствует о несовпадении - return false; - } -} - -} // unnamed namespace - -bool refalrts::repeated_stvar_left( - refalrts::Iter& stvar, refalrts::Iter stvar_sample, - refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - refalrts::Iter left_term = 0; - refalrts::Iter copy_last = last; - - if( ! is_open_bracket( stvar_sample ) && svar_left( stvar, first, last ) ) { - return equal_nodes( stvar, stvar_sample ); - } else if( tvar_left( left_term, first, last ) ) { - refalrts::Iter left_term_e; - refalrts::Iter stvar_sample_e; - - if( empty_seq( first, last ) ) { - left_term_e = copy_last; - } else { - left_term_e = prev( first ); - } - - if( is_open_bracket( stvar_sample ) ) { - stvar_sample_e = stvar_sample->link_info; - } else { - stvar_sample_e = stvar_sample; - } - - bool equal = equal_expressions( - left_term, left_term_e, - stvar_sample, stvar_sample_e - ); - - if( equal ) { - stvar = left_term; - - return true; - } else { - return false; - } - } else { - return false; - } -} - -bool refalrts::repeated_stvar_right( - refalrts::Iter& stvar, refalrts::Iter stvar_sample, - refalrts::Iter& first, refalrts::Iter& last -) { - assert( (first == 0) == (last == 0) ); - - refalrts::Iter right_term = 0; - refalrts::Iter old_last = last; - - if( ! is_open_bracket( stvar_sample ) && svar_right( stvar, first, last ) ) { - return equal_nodes( stvar, stvar_sample ); - } else if( tvar_right( right_term, first, last ) ) { - refalrts::Iter right_term_e = old_last; - refalrts::Iter stvar_sample_e; - - if( is_open_bracket( stvar_sample ) ) { - stvar_sample_e = stvar_sample->link_info; - } else { - stvar_sample_e = stvar_sample; - } - - bool equal = equal_expressions( - right_term, right_term_e, - stvar_sample, stvar_sample_e - ); - - if( equal ) { - stvar = right_term; - - return true; - } else { - return false; - } - } else { - return false; - } -} - -bool refalrts::repeated_evar_left( - refalrts::Iter& evar_b, refalrts::Iter& evar_e, - refalrts::Iter evar_b_sample, refalrts::Iter evar_e_sample, - refalrts::Iter& first, refalrts::Iter& last -) { - clock_t start_match = clock(); - refalrts::Iter current = first; - refalrts::Iter cur_sample = evar_b_sample; - refalrts::Iter copy_last = last; - - for( - /* инициализация выше */; - // порядок условий важен - !empty_seq( current, copy_last ) - && !empty_seq( cur_sample, evar_e_sample ) - && equal_nodes( current, cur_sample ); - move_left( cur_sample, evar_e_sample ), move_left( current, copy_last ) - ) { - continue; - } - - refalrts::profiler::add_match_repeated_evar_time(clock() - start_match); - - /* - Здесь empty_seq( current, copy_last ) - || empty_seq( cur_sample, evar_e_sample - || ! equal_nodes( current, cur_sample ) - */ - if( empty_seq( cur_sample, evar_e_sample ) ) { - // Это нормальное завершение цикла -- вся образцовая переменная проверена - - if( empty_seq( current, copy_last ) ) { - evar_b = first; - evar_e = last; - - first = 0; - last = 0; - } else { - evar_b = first; - evar_e = prev( current ); - - first = current; - } - - return true; - } else { - return false; - } -} - -bool refalrts::repeated_evar_right( - refalrts::Iter& evar_b, refalrts::Iter& evar_e, - refalrts::Iter evar_b_sample, refalrts::Iter evar_e_sample, - refalrts::Iter& first, refalrts::Iter& last -) { - clock_t start_match = clock(); - refalrts::Iter current = last; - refalrts::Iter cur_sample = evar_e_sample; - refalrts::Iter copy_first = first; - - for( - /* инициализация выше */; - // порядок перечисления условий важен - !empty_seq( copy_first, current ) - && !empty_seq( evar_b_sample, cur_sample ) - && equal_nodes( current, cur_sample ); - move_right( copy_first, current ), move_right( evar_b_sample, cur_sample ) - ) { - continue; - } - - refalrts::profiler::add_match_repeated_evar_time(clock() - start_match); - - /* - Здесь empty_seq( copy_first, current ) - || empty_seq( evar_b_sample, cur_sample ) - || ! equal_nodes( current, cur_sample ) - */ - - if( empty_seq( evar_b_sample, cur_sample ) ) { - // Это нормальное завершение цикла: вся переменная-образец просмотрена - - if( empty_seq( copy_first, current ) ) { - evar_b = first; - evar_e = last; - - first = 0; - last = 0; - } else { - evar_b = next( current ); - evar_e = last; - - last = current; - } - - return true; - } else { - return false; - } -} - -bool refalrts::open_evar_advance( - Iter& evar_b, Iter& evar_e, - Iter& first, Iter& last -) { - assert( (evar_b == 0) == (evar_e == 0) ); - - refalrts::Iter prev_first = 0; - - if ( tvar_left( prev_first, first, last ) ) { - if (! evar_b) { - evar_b = prev_first; - } - - if ( is_open_bracket( prev_first ) ) { - evar_e = prev_first->link_info; - } else { - evar_e = prev_first; - } - - return true; - } else { - return false; - } -} - -unsigned refalrts::read_chars( - char buffer[], unsigned buflen, refalrts::Iter& first, refalrts::Iter& last -) { - unsigned read = 0; - while ( - read != buflen && ! empty_seq(first, last) - && first->tag == refalrts::cDataChar - ) { - buffer[read] = first->char_info; - ++ read; - move_left( first, last ); - } - return read; -} - -//------------------------------------------------------------------------------ - -// Операции распределителя памяти - -namespace refalrts{ - -namespace allocator { - -void reset_allocator(); -bool alloc_node( Iter& node ); -Iter free_ptr(); -void splice_to_freelist( Iter begin, Iter end ); -void splice_from_freelist( Iter pos ); - -} // namespace allocator - -} // namespace refalrts - -//------------------------------------------------------------------------------ - -// Средства профилирования - -namespace refalrts { - -namespace profiler { - -extern void start_building_result(); - -} // namespace profiler - -} // namespace refalrts - -//------------------------------------------------------------------------------ - -// Операции построения результата - -void refalrts::reset_allocator() { - profiler::start_building_result(); - allocator::reset_allocator(); -} - -namespace { - -bool copy_node( refalrts::Iter& res, refalrts::Iter sample ) { - switch( sample->tag ) { - case refalrts::cDataChar: - return refalrts::alloc_char( res, sample->char_info ); - // break; - - case refalrts::cDataNumber: - return refalrts::alloc_number( res, sample->number_info ); - // break; - - case refalrts::cDataFunction: - return refalrts::alloc_name( - res, sample->function_info.ptr, sample->function_info.name - ); - // break; - - case refalrts::cDataIdentifier: - return refalrts::alloc_ident( res, sample->ident_info ); - //break; - - case refalrts::cDataOpenBracket: - return refalrts::alloc_open_bracket( res ); - // break; - - case refalrts::cDataCloseBracket: - return refalrts::alloc_close_bracket( res ); - // break; - - case refalrts::cDataOpenADT: - return refalrts::alloc_open_adt( res ); - // break; - - case refalrts::cDataCloseADT: - return refalrts::alloc_close_adt( res ); - // break; - - case refalrts::cDataClosure: { - bool allocated = refalrts::allocator::alloc_node( res ); - if( allocated ) { - res->tag = refalrts::cDataClosure; - refalrts::Iter head = sample->link_info; - res->link_info = head; - ++ (head->number_info); - return true; - } else { - return false; - } - } - // break; - - case refalrts::cDataFile: { - bool allocated = refalrts::allocator::alloc_node( res ); - if( allocated ) { - res->tag = refalrts::cDataFile; - res->file_info = sample->file_info; - return true; - } else { - return false; - } - } - // break; - - /* - Копируем только объектное выражение -- никаких вызовов функций - быть не должно. - */ - default: - assert( SWITCH_DEFAULT_VIOLATION ); - throw refalrts::UnexpectedTypeException(); - // break; - } -} - -} // unnamed namespace - - -namespace refalrts { - -namespace vm { - -void make_dump( refalrts::Iter begin, refalrts::Iter end ); - -} // namespace vm - -namespace profiler { - -void add_copy_tevar_time(clock_t duration); - -} // namespace profiler - -} // namespace refalrts - -namespace { - -bool copy_nonempty_evar( - refalrts::Iter& evar_res_b, refalrts::Iter& evar_res_e, - refalrts::Iter evar_b_sample, refalrts::Iter evar_e_sample -) { - clock_t start_copy_time = clock(); - - refalrts::Iter res = 0; - refalrts::Iter bracket_stack = 0; - - refalrts::Iter prev_res_begin = - prev( refalrts::allocator::free_ptr() ); - - while( ! refalrts::empty_seq( evar_b_sample, evar_e_sample ) ) { - if( ! copy_node( res, evar_b_sample ) ) { - return false; - } - - if( is_open_bracket( res ) ) { - res->link_info = bracket_stack; - bracket_stack = res; - } else if( is_close_bracket( res ) ) { - assert( bracket_stack != 0 ); - - refalrts::Iter open_cobracket = bracket_stack; - bracket_stack = bracket_stack->link_info; - refalrts::link_brackets( open_cobracket, res ); - } - - refalrts::move_left( evar_b_sample, evar_e_sample ); - } - - assert( bracket_stack == 0 ); - - evar_res_b = next( prev_res_begin ); - evar_res_e = res; - - refalrts::profiler::add_copy_tevar_time(clock() - start_copy_time); - - return true; -} - -} // unnamed namespace - -bool refalrts::copy_evar( - refalrts::Iter& evar_res_b, refalrts::Iter& evar_res_e, - refalrts::Iter evar_b_sample, refalrts::Iter evar_e_sample -) { - if( empty_seq( evar_b_sample, evar_e_sample ) ) { - evar_res_b = 0; - evar_res_e = 0; - return true; - } else { - return copy_nonempty_evar( - evar_res_b, evar_res_e, evar_b_sample, evar_e_sample - ); - } -} - -bool refalrts::copy_stvar( - refalrts::Iter& stvar_res, refalrts::Iter stvar_sample -) { - if( is_open_bracket( stvar_sample ) ) { - refalrts::Iter end_of_sample = stvar_sample->link_info; - refalrts::Iter end_of_res; - return copy_evar( - stvar_res, end_of_res, stvar_sample, end_of_sample - ); - } else { - return copy_node(stvar_res, stvar_sample); - } -} - -bool refalrts::alloc_copy_evar( - refalrts::Iter& res, - refalrts::Iter evar_b_sample, refalrts::Iter evar_e_sample -) { - if( empty_seq( evar_b_sample, evar_e_sample ) ) { - res = 0; - return true; - } else { - refalrts::Iter res_e = 0; - return copy_nonempty_evar( - res, res_e, evar_b_sample, evar_e_sample - ); - } -} - -bool refalrts::alloc_copy_svar_( - refalrts::Iter& svar_res, refalrts::Iter svar_sample -) { - return copy_node( svar_res, svar_sample ); -} - - -bool refalrts::alloc_char( refalrts::Iter& res, char ch ) { - if( allocator::alloc_node( res ) ) { - res->tag = cDataChar; - res->char_info = ch; - return true; - } else { - return false; - } -} - -bool refalrts::alloc_number( - refalrts::Iter& res, refalrts::RefalNumber num -) { - if( allocator::alloc_node( res ) ) { - res->tag = cDataNumber; - res->number_info = num; - return true; - } else { - return false; - } -} - -#ifdef MODULE_REFAL -const char *unknown() { return "@unknown"; } -#else -const char *unknown = "@unknown"; -#endif - -bool refalrts::alloc_name( - refalrts::Iter& res, - refalrts::RefalFunctionPtr fn, - refalrts::RefalFuncName name -) { - if( allocator::alloc_node( res ) ) { - res->tag = cDataFunction; - res->function_info.ptr = fn; - if( name != 0 ) { - res->function_info.name = name; - } else { - res->function_info.name = unknown; - } - return true; - } else { - return false; - } -} - -bool refalrts::alloc_ident( - refalrts::Iter& res, refalrts::RefalIdentifier ident -) { - if( allocator::alloc_node( res ) ) { - res->tag = cDataIdentifier; - res->ident_info = ident; - return true; - } else { - return false; - } -} - -namespace { - -bool alloc_some_bracket( refalrts::Iter& res, refalrts::DataTag tag ) { - if( refalrts::allocator::alloc_node( res ) ) { - res->tag = tag; - return true; - } else { - return false; - } -} - -void link_adjacent( refalrts::Iter left, refalrts::Iter right ) { - if( left != 0 ) { - left->next = right; - } - - if( right != 0 ) { - right->prev = left; - } -} - -bool alloc_closure( refalrts::Iter& res ) { - bool allocated = refalrts::allocator::alloc_node( res ); - if( allocated ) { - refalrts::Iter head = 0; - allocated = refalrts::allocator::alloc_node( head ); - if( allocated ) { - refalrts::Iter prev_head = prev( head ); - refalrts::Iter next_head = next( head ); - - link_adjacent( prev_head, next_head ); - link_adjacent( head, head ); - - res->tag = refalrts::cDataClosure; - res->link_info = head; - - head->tag = refalrts::cDataClosureHead; - head->number_info = 1; - - return true; - } else { - return false; - } - } else { - return false; - } -} - -} // unnamed namespace - -bool refalrts::alloc_open_adt( refalrts::Iter& res ) { - return alloc_some_bracket( res, cDataOpenADT ); -} - -bool refalrts::alloc_close_adt( refalrts::Iter& res ) { - return alloc_some_bracket( res, cDataCloseADT ); -} - -bool refalrts::alloc_open_bracket( refalrts::Iter& res ) { - return alloc_some_bracket( res, cDataOpenBracket ); -} - -bool refalrts::alloc_close_bracket( refalrts::Iter& res ) { - return alloc_some_bracket( res, cDataCloseBracket ); -} - -bool refalrts::alloc_open_call( refalrts::Iter& res ) { - return alloc_some_bracket( res, cDataOpenCall ); -} - -bool refalrts::alloc_close_call( refalrts::Iter& res ) { - return alloc_some_bracket( res, cDataCloseCall ); -} - -bool refalrts::alloc_chars( - refalrts::Iter& res_b, refalrts::Iter& res_e, - const char buffer[], unsigned buflen -) { - if( buflen == 0 ) { - res_b = 0; - res_e = 0; - return true; - } else { - refalrts::Iter before_begin_seq = prev( refalrts::allocator::free_ptr() ); - refalrts::Iter end_seq = 0; - - for( unsigned i = 0; i < buflen; ++ i ) { - if( ! alloc_char( end_seq, buffer[i] ) ) { - return false; - } - } - - res_b = next( before_begin_seq ); - res_e = end_seq; - - return true; - } -} - -bool refalrts::alloc_string( - refalrts::Iter& res_b, refalrts::Iter& res_e, const char *string -) { - if( *string == '\0' ) { - res_b = 0; - res_e = 0; - return true; - } else { - refalrts::Iter before_begin_seq = prev( refalrts::allocator::free_ptr() ); - refalrts::Iter end_seq = 0; - - for( const char *p = string; *p != '\0'; ++ p ) { - if( ! alloc_char( end_seq, *p ) ) { - return false; - } - } - - res_b = next( before_begin_seq ); - res_e = end_seq; - - return true; - } -} - -namespace refalrts { - -namespace vm { - -void push_stack( refalrts::Iter call_bracket ); - -} // namespace vm - -} // namespace refalrts - -void refalrts::push_stack( Iter call_bracket ) { - vm::push_stack( call_bracket ); -} - -void refalrts::link_brackets( Iter left, Iter right ) { - left->link_info = right; - right->link_info = left; -} - -namespace { - -refalrts::Iter list_splice( - refalrts::Iter res, refalrts::Iter begin, refalrts::Iter end -) { - - VALID_LINKED( res ); - VALID_LINKED( res->prev ); - VALID_LINKED( begin ); - VALID_LINKED( begin->prev ); - VALID_LINKED( end ); - VALID_LINKED( end->prev ); - - if( (res == begin) || refalrts::empty_seq( begin, end ) ) { - - // Цель достигнута сама по себе - return res; - } else { - refalrts::Iter prev_res = prev( res ); - refalrts::Iter prev_begin = prev( begin ); - refalrts::Iter next_end = next( end ); - - link_adjacent( prev_res, begin ); - link_adjacent( end, res ); - link_adjacent( prev_begin, next_end ); - } - - VALID_LINKED( res ); - VALID_LINKED( res->prev ); - VALID_LINKED( begin ); - VALID_LINKED( begin->prev ); - VALID_LINKED( end ); - VALID_LINKED( end->next ); - - return begin; -} - -} // unnamed namespace - -refalrts::Iter refalrts::splice_elem( - refalrts::Iter res, refalrts::Iter elem -) { - return list_splice( res, elem, elem ); -} - -refalrts::Iter refalrts::splice_stvar( - refalrts::Iter res, refalrts::Iter var -) { - refalrts::Iter var_end; - if( is_open_bracket( var ) ) { - var_end = var->link_info; - } else { - var_end = var; - } - - return list_splice( res, var, var_end ); -} - -refalrts::Iter refalrts::splice_evar( - refalrts::Iter res, refalrts::Iter begin, refalrts::Iter end -) { - return list_splice( res, begin, end ); -} - -void refalrts::splice_to_freelist( refalrts::Iter begin, refalrts::Iter end ) { - allocator::splice_to_freelist( begin, end ); -} - -void refalrts::splice_from_freelist( refalrts::Iter pos ) { - allocator::splice_from_freelist( pos ); -} - -refalrts::FnResult refalrts::create_closure( - refalrts::Iter begin, refalrts::Iter end -) { - refalrts::Iter closure_b = begin; - refalrts::Iter closure_e = end; - - refalrts::move_left( closure_b, closure_e ); // пропуск < - refalrts::move_left( closure_b, closure_e ); // пропуск имени функции - refalrts::move_right( closure_b, closure_e ); // пропуск > - - if( empty_seq( closure_b, closure_e ) ) - return refalrts::cRecognitionImpossible; - - refalrts::Iter closure = 0; - - if( ! alloc_closure( closure ) ) - return refalrts::cNoMemory; - - refalrts::Iter head = closure->link_info; - - list_splice( head, closure_b, closure_e ); - list_splice( begin, closure, closure ); - refalrts::splice_to_freelist( begin, end ); - - return refalrts::cSuccess; -} - -/* - Собственно замыкание (функция + контекст) определяется как - [next(head), prev(head)]. Т.к. замыкание создаётся только функцией - create_closure, которая гарантирует непустоту замыкания, то - next(head) != head, prev(head) != head. -*/ - -// Развернуть замыкание -refalrts::Iter refalrts::unwrap_closure( refalrts::Iter closure ) { - assert( closure->tag == refalrts::cDataClosure ); - - refalrts::Iter before_closure = prev( closure ); - refalrts::Iter head = closure->link_info; - refalrts::Iter end_of_closure = prev( head ); - - assert( head != prev( head ) ); - assert( head != next( head ) ); - - link_adjacent( before_closure, head ); - link_adjacent( end_of_closure, closure ); - - closure->tag = refalrts::cDataUnwrappedClosure; - - return prev(head); -} - -// Свернуть замыкание -refalrts::Iter refalrts::wrap_closure( refalrts::Iter closure ) { - assert( closure->tag == refalrts::cDataUnwrappedClosure ); - - refalrts::Iter head = closure->link_info; - refalrts::Iter before_closure = prev( head ); - refalrts::Iter end_of_closure = prev( closure ); - - assert( head != prev( head ) ); - assert( head != next( head ) ); - - link_adjacent( before_closure, closure ); - link_adjacent( end_of_closure, head ); - - closure->tag = refalrts::cDataClosure; - - return next(closure); -} - -//------------------------------------------------------------------------------ - -// Инициализация головного узла статического ящика - -namespace refalrts { - -namespace vm { - -extern NodePtr g_left_swap_ptr; - -} // namespace vm - -} // namespace refalrts - -refalrts::Iter refalrts::initialize_swap_head( refalrts::Iter head ) { - assert( cDataFunction == head->tag ); - - splice_elem( vm::g_left_swap_ptr, head ); - refalrts::RefalFuncName name = head->function_info.name; - head->tag = cDataSwapHead; - head->swap_info.next_head = vm::g_left_swap_ptr; - head->swap_info.name = name; - vm::g_left_swap_ptr = head; - return vm::g_left_swap_ptr; -} - -void refalrts::swap_info_bounds( - refalrts::Iter& first, refalrts::Iter& last, refalrts::Iter head -) { - assert( cDataSwapHead == head->tag ); - - first = head; - last = head->swap_info.next_head; - move_left( first, last ); - move_right( first, last ); -} - -void refalrts::swap_save( - refalrts::Iter head, refalrts::Iter first, refalrts::Iter last -) { - assert( cDataSwapHead == head->tag ); - - list_splice( head->swap_info.next_head, first, last ); -} - -//------------------------------------------------------------------------------ - -// Средства профилирования - -namespace refalrts { - -namespace profiler { - -extern void start_generated_function(); -extern void read_counters(unsigned long counters[]); -extern void start_e_loop(); -extern void stop_e_loop(); - -} // namespace profiler - -} // namespace refalrts - -void refalrts::this_is_generated_function() { - refalrts::profiler::start_generated_function(); -} - -unsigned long refalrts::ticks_per_second() { - return CLOCKS_PER_SEC; -} - -void refalrts::read_performance_counters(unsigned long counters[]) { - refalrts::profiler::read_counters(counters); -} - -void refalrts::start_sentence() { - refalrts::profiler::stop_e_loop(); -} - -void refalrts::start_e_loop() { - refalrts::profiler::start_e_loop(); -} - -//------------------------------------------------------------------------------ - -// Прочие операции - -namespace refalrts { - -namespace vm { - -extern int g_ret_code; -extern void print_seq(FILE *output, refalrts::Iter begin, refalrts::Iter end); - -} // namespace vm - -} // namespace refalrts - -void refalrts::set_return_code( int code ) { - refalrts::vm::g_ret_code = code; -} - -void refalrts::debug_print_expr( - void *file, refalrts::Iter first, refalrts::Iter last -) { - refalrts::vm::print_seq( static_cast(file), first, last ); -} - -//============================================================================== -// Распределитель памяти -//============================================================================== - -namespace refalrts { - -namespace allocator { - -bool create_nodes(); - -void free_memory(); - -extern refalrts::Node g_last_marker; - -refalrts::Node g_first_marker = - { 0, & g_last_marker, refalrts::cDataIllegal, { '\0' } }; -refalrts::Node g_last_marker = - { & g_first_marker, 0, refalrts::cDataIllegal, { '\0' } }; - -refalrts::NodePtr g_free_ptr = & g_last_marker; - -namespace pool { - -enum { cChunkSize = 1000 }; -typedef struct Chunk { - Chunk *next; - refalrts::Node elems[cChunkSize]; -} Chunk; - -typedef Chunk *ChunkPtr; - -refalrts::NodePtr alloc_node(); -void free(); -bool grow(); - -ChunkPtr g_pool = 0; -unsigned g_avail = 0; -refalrts::Node *g_pnext_node = 0; - -} // namespace pool - -unsigned g_memory_use = 0; - -} // namespace allocator - -} // namespace refalrts - -inline void refalrts::allocator::reset_allocator() { - g_free_ptr = g_first_marker.next; -} - -bool refalrts::allocator::alloc_node( refalrts::Iter& node ) { - if( (g_free_ptr == & g_last_marker) && ! create_nodes() ) { - return false; - } else { - if( refalrts::cDataClosure == g_free_ptr->tag ) { - refalrts::Iter head = g_free_ptr->link_info; - -- head->number_info; - - if( 0 == head->number_info ) { - unwrap_closure( g_free_ptr ); - // теперь перед g_free_ptr находится "развёрнутое" замыкание - g_free_ptr->tag = refalrts::cDataClosureHead; - g_free_ptr->number_info = 407193; // :-) - - g_free_ptr = head; - } - } - - node = g_free_ptr; - g_free_ptr = next( g_free_ptr ); - node->tag = refalrts::cDataIllegal; - return true; - } -} - -refalrts::Iter refalrts::allocator::free_ptr() { - return g_free_ptr; -} - -void refalrts::allocator::splice_to_freelist( - refalrts::Iter begin, refalrts::Iter end -) { - reset_allocator(); - g_free_ptr = list_splice( g_free_ptr, begin, end ); -} - -void refalrts::allocator::splice_from_freelist( refalrts::Iter pos ) { - if (g_free_ptr != g_first_marker.next ) { - list_splice( pos, g_first_marker.next, g_free_ptr->prev ); - } -} - -bool refalrts::allocator::create_nodes() { - refalrts::NodePtr new_node = refalrts::allocator::pool::alloc_node(); - -#ifdef MEMORY_LIMIT - - if( g_memory_use >= MEMORY_LIMIT ) { - return false; - } - -#endif //ifdef MEMORY_LIMIT - - if( new_node == 0 ) { - return false; - } else { - refalrts::NodePtr before_free_ptr = prev( g_free_ptr ); - before_free_ptr->next = new_node; - new_node->prev = before_free_ptr; - - g_free_ptr->prev = new_node; - new_node->next = g_free_ptr; - - g_free_ptr = new_node; - g_free_ptr->tag = refalrts::cDataIllegal; - ++ g_memory_use; - - return true; - } -} - -void refalrts::allocator::free_memory() { - refalrts::allocator::pool::free(); -#ifndef DONT_PRINT_STATISTICS - fprintf( - stderr, - "Memory used %d nodes, %d * %lu = %lu bytes\n", - g_memory_use, - g_memory_use, - static_cast(sizeof(Node)), - static_cast(g_memory_use * sizeof(Node)) - ); -#endif // DONT_PRINT_STATISTICS -} - -refalrts::NodePtr refalrts::allocator::pool::alloc_node() { - if( (g_avail != 0) || grow() ) { - -- g_avail; - return g_pnext_node++; - } else { - return 0; - } -} - -bool refalrts::allocator::pool::grow() { - ChunkPtr p = static_cast( malloc( sizeof(Chunk) ) ); - if( p != 0 ) { - p->next = g_pool; - g_pool = p; - g_avail = cChunkSize; - g_pnext_node = p->elems; - return true; - } else { - return false; - } -} - -void refalrts::allocator::pool::free() { - while( g_pool != 0 ) { - ChunkPtr p = g_pool; - g_pool = g_pool->next; - ::free( p ); - } -} - -//============================================================================== -// Упрощённый профилировщик -//============================================================================== - -namespace refalrts { - -namespace profiler { - -clock_t g_start_program_time; -clock_t g_start_pattern_match_time; -clock_t g_total_pattern_match_time; -clock_t g_start_building_result_time; -clock_t g_total_building_result_time; -clock_t g_total_copy_tevar_time; -clock_t g_total_match_repeated_tvar_time; -clock_t g_total_match_repeated_evar_time; -clock_t g_start_e_loop; -clock_t g_total_e_loop; -clock_t g_total_match_repeated_tvar_time_outside_e; -clock_t g_total_match_repeated_evar_time_outside_e; - -bool g_in_generated; -int g_in_e_loop; - -void start_profiler(); -void end_profiler(); -void start_generated_function(); -void after_step(); -void read_counters(unsigned long counters[]); -void add_copy_tevar_time(clock_t duration); -void add_match_repeated_tvar_time(clock_t duration); -void add_match_repeated_evar_time(clock_t duration); -void start_e_loop(); -void stop_e_loop(); - -#ifndef DONT_PRINT_STATISTICS -struct TimeItem { - const char *name; - unsigned long counter; -}; - -int reverse_compare(const void *left_void, const void *right_void); -#endif // DONT_PRINT_STATISTICS - -} // namespace profiler - -} // namespace refalrts - -void refalrts::profiler::start_profiler() { - g_start_program_time = clock(); - g_in_generated = false; -} - -#ifndef DONT_PRINT_STATISTICS - -int refalrts::profiler::reverse_compare( - const void *left_void, const void *right_void -) { - const TimeItem *left = static_cast(left_void); - const TimeItem *right = static_cast(right_void); - - if (left->counter > right->counter) { - return -1; - } else if (left->counter < right->counter) { - return +1; - } else { - return 0; - } -} - -#endif // DONT_PRINT_STATISTICS - -void refalrts::profiler::end_profiler() { - refalrts::profiler::after_step(); -#ifndef DONT_PRINT_STATISTICS - - unsigned long counters[cPerformanceCounter_COUNTERS_NUMBER]; - read_counters(counters); - - TimeItem items[] = { - { "\nTotal program time", cPerformanceCounter_TotalTime }, - { "Builtin time", cPerformanceCounter_BuiltInTime }, - { "(Total refal time)", cPerformanceCounter_RefalTime }, - { "Linear pattern time", cPerformanceCounter_LinearPatternTime }, - { "Linear result time", cPerformanceCounter_LinearResultTime }, - { "Open e-loop time (clear)", cPerformanceCounter_OpenELoopTimeClear }, - { - "Repeated e-var match time (inside e-loops)", - cPerformanceCounter_RepeatEvarMatchTime - }, - { - "Repeated e-var match time (outside e-loops)", - cPerformanceCounter_RepeatEvarMatchTimeOutsideECycle - }, - { - "Repeated t-var match time (inside e-loops)", - cPerformanceCounter_RepeatTvarMatchTime - }, - { - "Repeated t-var match time (outside e-loops)", - cPerformanceCounter_RepeatTvarMatchTimeOutsideECycle - }, - { "t- and e-var copy time", cPerformanceCounter_TEvarCopyTime } - }; - - enum { nItems = sizeof(items) / sizeof(items[0]) }; - - for (size_t i = 0; i < nItems; ++i) { - items[i].counter = counters[items[i].counter]; - } - - qsort(items, nItems, sizeof(items[0]), reverse_compare); - - const double cfSECS_PER_CLOCK = 1.0 / CLOCKS_PER_SEC; - unsigned long total = counters[refalrts::cPerformanceCounter_TotalTime]; - - for (size_t i = 0; i < nItems; ++i) { - unsigned long value = items[i].counter; - - if (value > 0) { - double percent = (total != 0) ? 100.0 * value / total : 0.0; - fprintf( - stderr, "%s: %.3f seconds (%.1f %%).\n", - items[i].name, value * cfSECS_PER_CLOCK, percent - ); - } - } - -#endif // DONT_PRINT_STATISTICS -} - -void refalrts::profiler::start_generated_function() { - g_start_pattern_match_time = clock(); - g_in_generated = true; -} - -void refalrts::profiler::start_building_result() { - if( g_in_generated ) { - g_start_building_result_time = clock(); - clock_t pattern_match = - g_start_building_result_time - g_start_pattern_match_time; - g_total_pattern_match_time += pattern_match; - - stop_e_loop(); - } -} - -void refalrts::profiler::after_step() { - if( g_in_generated ) { - clock_t building_result = clock() - g_start_building_result_time; - g_total_building_result_time += building_result; - } - - assert(g_in_e_loop == 0); - - g_in_generated = false; - g_in_e_loop = 0; -} - -namespace refalrts { - -namespace vm { - -extern unsigned g_step_counter; - -} // namespace vm - -} // namespace refalrts - -void refalrts::profiler::read_counters(unsigned long counters[]) { - clock_t full_time = clock() - g_start_program_time; - clock_t refal_time = - g_total_pattern_match_time + g_total_building_result_time; - clock_t pattern_time = g_total_pattern_match_time; - clock_t result_time = g_total_building_result_time; - counters[cPerformanceCounter_TotalTime] = full_time; - counters[cPerformanceCounter_BuiltInTime] = full_time - refal_time; - counters[cPerformanceCounter_RefalTime] = refal_time; - counters[cPerformanceCounter_PatternMatchTime] = pattern_time; - counters[cPerformanceCounter_BuildResultTime] = result_time; - counters[cPerformanceCounter_TotalSteps] = ::refalrts::vm::g_step_counter; - counters[cPerformanceCounter_HeapSize] = - static_cast( - ::refalrts::allocator::g_memory_use * sizeof(Node) - ); - counters[cPerformanceCounter_TEvarCopyTime] = g_total_copy_tevar_time; - refal_time -= g_total_copy_tevar_time; - result_time -= g_total_copy_tevar_time; - counters[cPerformanceCounter_RepeatTvarMatchTime] = - g_total_match_repeated_tvar_time; - counters[cPerformanceCounter_RepeatTvarMatchTimeOutsideECycle] = - g_total_match_repeated_tvar_time_outside_e; - refal_time -= g_total_match_repeated_tvar_time_outside_e; - pattern_time -= g_total_match_repeated_tvar_time_outside_e; - counters[cPerformanceCounter_RepeatEvarMatchTime] = - g_total_match_repeated_evar_time; - counters[cPerformanceCounter_RepeatEvarMatchTimeOutsideECycle] = - g_total_match_repeated_evar_time_outside_e; - refal_time -= g_total_match_repeated_evar_time_outside_e; - pattern_time -= g_total_match_repeated_evar_time_outside_e; - counters[cPerformanceCounter_OpenELoopTime] = g_total_e_loop; - refal_time -= g_total_e_loop; - pattern_time -= g_total_e_loop; - counters[cPerformanceCounter_OpenELoopTimeClear] = g_total_e_loop - - (g_total_match_repeated_tvar_time + g_total_match_repeated_evar_time); - counters[cPerformanceCounter_LinearRefalTime] = refal_time; - counters[cPerformanceCounter_LinearPatternTime] = pattern_time; - counters[cPerformanceCounter_LinearResultTime] = result_time; -} - -void refalrts::profiler::add_copy_tevar_time(clock_t duration) { - g_total_copy_tevar_time += duration; -} - -void refalrts::profiler::add_match_repeated_tvar_time(clock_t duration) { - if (g_in_e_loop) { - g_total_match_repeated_tvar_time += duration; - } else { - g_total_match_repeated_tvar_time_outside_e += duration; - } -} - -void refalrts::profiler::add_match_repeated_evar_time(clock_t duration) { - if (g_in_e_loop) { - g_total_match_repeated_evar_time += duration; - } else { - g_total_match_repeated_evar_time_outside_e += duration; - } -} - -void refalrts::profiler::start_e_loop() { - if (g_in_e_loop++ == 0) { - g_start_e_loop = clock(); - } -} - -void refalrts::profiler::stop_e_loop() { - if (g_in_e_loop > 0) { - g_total_e_loop += (clock() - g_start_e_loop); - g_in_e_loop = 0; - } -} - -//============================================================================== -// Виртуальная машина -//============================================================================== - -#ifdef MODULE_REFAL -#define GO_START_FUNCTION Entry_Go -#else -#define GO_START_FUNCTION Go -#endif - -extern refalrts::FnResult GO_START_FUNCTION( - refalrts::Iter, refalrts::Iter -); - -namespace refalrts { - -namespace vm { - -void push_stack( refalrts::Iter call_bracket ); -refalrts::Iter pop_stack(); -bool empty_stack(); - -bool init_view_field(); - -refalrts::FnResult main_loop(); -refalrts::FnResult execute_active( refalrts::Iter begin, refalrts::Iter end ); -void make_dump( refalrts::Iter begin, refalrts::Iter end ); -FILE* dump_stream(); - -void free_view_field(); - -refalrts::NodePtr g_stack_ptr = 0; - -extern refalrts::Node g_last_marker; - -refalrts::Node g_first_marker = - { 0, & g_last_marker, refalrts::cDataIllegal, { '\0' } }; -refalrts::Node g_last_marker = - { & g_first_marker, 0, refalrts::cDataIllegal, { '\0' } }; - -refalrts::Iter g_begin_view_field = & g_last_marker; -const refalrts::Iter g_end_view_field = & g_last_marker; - -refalrts::NodePtr g_left_swap_ptr = g_end_view_field; - -unsigned g_step_counter = 0; - -int g_ret_code; - -} // namespace vm - -} // namespace refalrts - -void refalrts::vm::push_stack( refalrts::Iter call_bracket ) { - call_bracket->link_info = g_stack_ptr; - g_stack_ptr = call_bracket; -} - -refalrts::Iter refalrts::vm::pop_stack() { - refalrts::Iter res = g_stack_ptr; - g_stack_ptr = g_stack_ptr->link_info; - return res; -} - -bool refalrts::vm::empty_stack() { - return (g_stack_ptr == 0); -} - -#ifdef MODULE_REFAL -//$LABEL Go -template -struct GoL_ { - static const char *name() { - return "Go"; - } -}; -#define GO_NAME GoL_::name -#else -#define GO_NAME "Go" -#endif - -bool refalrts::vm::init_view_field() { - refalrts::reset_allocator(); - refalrts::Iter res = g_begin_view_field; - refalrts::Iter n0 = 0; - if( ! refalrts::alloc_open_call( n0 ) ) - return false; - refalrts::Iter n1 = 0; - if( ! refalrts::alloc_name( n1, GO_START_FUNCTION, GO_NAME ) ) - return false; - refalrts::Iter n2 = 0; - if( ! refalrts::alloc_close_call( n2 ) ) - return false; - refalrts::push_stack( n2 ); - refalrts::push_stack( n0 ); - res = refalrts::splice_elem( res, n2 ); - res = refalrts::splice_elem( res, n1 ); - res = refalrts::splice_elem( res, n0 ); - g_begin_view_field = res; - - return true; -} - -refalrts::FnResult refalrts::vm::main_loop() { - FnResult res = cSuccess; - while( ! empty_stack() ) { - refalrts::Iter active_begin = pop_stack(); - assert( ! empty_stack() ); - refalrts::Iter active_end = pop_stack(); - - res = execute_active( active_begin, active_end ); - - ++ g_step_counter; - - if( res != cSuccess ) { - switch( res ) { - case refalrts::cRecognitionImpossible: - fprintf(stderr, "\nRECOGNITION IMPOSSIBLE\n\n"); - break; - - case refalrts::cNoMemory: - fprintf(stderr, "\nNO MEMORY\n\n"); - break; - - case refalrts::cExit: - return res; - - default: - fprintf(stderr, "\nUNKNOWN ERROR\n\n"); - break; - } - make_dump( active_begin, active_end ); - return res; - } - - refalrts::profiler::after_step(); - } - - return res; -} - -refalrts::FnResult refalrts::vm::execute_active( - refalrts::Iter begin, refalrts::Iter end -) { - -#if SHOW_DEBUG - - if( g_step_counter >= (unsigned) SHOW_DEBUG ) { - make_dump( begin, end ); - } - -#endif // SHOW_DEBUG - - refalrts::Iter function = next( begin ); - if( cDataFunction == function->tag ) { - return refalrts::FnResult( - (function->function_info.ptr)( begin, end ) & 0xFFU - ); - } else if( cDataClosure == function->tag ) { - refalrts::Iter head = function->link_info; - - if( 1 == head->number_info ) { - /* - Пользуемся тем, что при развёртке содержимое замыкания оказывается - в поле зрения между головой и (развёрнутым!) узлом замыкания. - Во избежание проблем, связанным с помещением развёрнутого замыкания - в список свободных блоков, проинициализируем его как голову замыкания. - */ - unwrap_closure( function ); - function->tag = cDataClosureHead; - function->number_info = 73501505; // :-) - splice_to_freelist( function, function ); - splice_to_freelist( head, head ); - } else { - refalrts::Iter begin_argument = next( function ); - refalrts::Iter closure_b = 0; - refalrts::Iter closure_e = 0; - - if( ! copy_evar( closure_b, closure_e, next(head), prev(head) ) ) - return cNoMemory; - - list_splice( begin_argument, closure_b, closure_e ); - splice_to_freelist( function, function ); - } - - refalrts::vm::push_stack( end ); - refalrts::vm::push_stack( begin ); - - return cSuccess; - } else { - return cRecognitionImpossible; - } -} - -namespace { - -void print_indent(FILE *output, int level) -{ - enum { cPERIOD = 4 }; - putc( '\n', output ); - if (level < 0) { - putc( '!', output ); - return; - } - for( int i = 0; i < level; ++i ) - { - // Каждые cPERIOD позиций вместо пробела ставим точку. - bool put_marker = ((i % cPERIOD) == (cPERIOD - 1)); - - const char cSpace = ' '; - const char cMarker = '.'; - - putc( (put_marker ? cMarker : cSpace), output ); - } -} - -} // unnamed namespace - -void refalrts::vm::print_seq( - FILE *output, refalrts::Iter begin, refalrts::Iter end -) { - enum { - cStateView = 100, - cStateString, - cStateFinish - } state = cStateView; - - int indent = 0; - bool after_bracket = false; - bool reset_after_bracket = true; - - while( (state != cStateFinish) && ! refalrts::empty_seq( begin, end ) ) { - if( reset_after_bracket ) - { - after_bracket = false; - reset_after_bracket = false; - } - - if( after_bracket ) - { - reset_after_bracket = true; - } - - switch( state ) { - case cStateView: - switch( begin->tag ) { - case refalrts::cDataIllegal: - if( 0 == begin->prev ) { - fprintf( output, "[FIRST] " ); - } else if ( 0 == begin->next ) { - fprintf( output, "\n[LAST]" ); - state = cStateFinish; - } else { - fprintf( output, "\n[NONE]" ); - } - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataSwapHead: -#ifdef MODULE_REFAL - fprintf( output, "\n\n*Swap %s:\n", (begin->swap_info.name)() ); -#else - fprintf( output, "\n\n*Swap %s:\n", begin->swap_info.name ); -#endif - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataChar: - state = cStateString; - fprintf( output, "\'" ); - continue; - - case refalrts::cDataNumber: - fprintf( output, "%ld ", begin->number_info ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataFunction: -#ifdef MODULE_REFAL - fprintf( output, "&%s ", (begin->function_info.name)() ); -#else - if( begin->function_info.name[0] != 0 ) { - fprintf( output, "&%s ", begin->function_info.name ); - } else { - fprintf( output, "&%p ", begin->function_info.ptr ); - } -#endif - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataIdentifier: - fprintf( output, "#%s ", (begin->ident_info)() ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataOpenADT: - if( ! after_bracket ) - { - print_indent( output, indent ); - } - ++indent; - after_bracket = true; - reset_after_bracket = false; - fprintf( output, "[" ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataCloseADT: - --indent; - fprintf( output, "]" ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataOpenBracket: - if( ! after_bracket ) - { - print_indent( output, indent ); - } - ++indent; - after_bracket = true; - reset_after_bracket = false; - fprintf( output, "(" ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataCloseBracket: - --indent; - fprintf( output, ")" ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataOpenCall: - if( ! after_bracket ) - { - print_indent( output, indent ); - } - ++indent; - after_bracket = true; - reset_after_bracket = false; - fprintf( output, "<" ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataCloseCall: - --indent; - fprintf( output, ">" ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataFile: - fprintf( output, "*%p ", begin->file_info ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataClosure: - if( ! after_bracket ) - { - print_indent( output, indent ); - } - ++indent; - after_bracket = true; - reset_after_bracket = false; - fprintf( output, "{" ); - begin = unwrap_closure( begin ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataClosureHead: - fprintf( output, "[%ld] ", begin->number_info ); - refalrts::move_left( begin, end ); - continue; - - case refalrts::cDataUnwrappedClosure: - --indent; - fprintf( output, "}" ); - begin = wrap_closure( begin ); - continue; - - default: - assert( SWITCH_DEFAULT_VIOLATION ); - throw refalrts::UnexpectedTypeException(); - // break; - } - - case cStateString: - switch( begin->tag ) { - case refalrts::cDataChar: { - unsigned char ch = static_cast( begin->char_info ); - switch( ch ) - { - case '(': case ')': - case '<': case '>': - fprintf( output, "\\%c", ch ); - break; - - case '\n': - fprintf( output, "\\n" ); - break; - - case '\t': - fprintf( output, "\\t" ); - break; - - case '\\': - fprintf( output, "\\\\" ); - break; - - case '\'': - fprintf( output, "\\\'" ); - break; - - default: - if( ch < '\x20' ) { - fprintf( output, "\\x%02x", static_cast(ch) ); - } else { - fprintf( output, "%c", ch ); - } - break; - } - refalrts::move_left( begin, end ); - continue; - } - - default: - state = cStateView; - fprintf( output, "\' " ); - continue; - } - - case cStateFinish: - continue; - - default: - assert( SWITCH_DEFAULT_VIOLATION ); - throw refalrts::UnexpectedTypeException(); - } - } - - if( cStateString == state ) { - fprintf( output, "\'" ); - } -} - -void refalrts::vm::make_dump( refalrts::Iter begin, refalrts::Iter end ) { - using refalrts::vm::dump_stream; - - fprintf( dump_stream(), "\nSTEP NUMBER %u\n", g_step_counter ); - fprintf( dump_stream(), "\nERROR EXPRESSION:\n" ); - print_seq( dump_stream(), begin, end ); - fprintf( dump_stream(), "\nVIEW FIELD:\n" ); - print_seq( dump_stream(), & g_first_marker, & g_last_marker ); - -#ifdef DUMP_FREE_LIST - - fprintf( dump_stream(), "\nFREE LIST:\n" ); - print_seq( - dump_stream(), - & refalrts::allocator::g_first_marker, - & refalrts::allocator::g_last_marker - ); - -#endif //ifdef DUMP_FREE_LIST - - fprintf( dump_stream(),"\nEnd dump\n"); - fflush(dump_stream()); -} - -FILE *refalrts::vm::dump_stream() { -#ifdef DUMP_FILE - - static FILE *dump_file = 0; - - if( dump_file == 0 ) { - // Необходимо открыть файл. - // Если файл не открывается, используем stderr - dump_file = fopen( DUMP_FILE, "wt" ); - - if( dump_file == 0 ) { - dump_file = stderr; - } - } - - return dump_file; - -#else //ifdef DUMP_FILE - - return stderr; - -#endif //ifdef DUMP_FILE -} - -void refalrts::vm::free_view_field() { - refalrts::Iter begin = g_first_marker.next; - refalrts::Iter end = & g_last_marker; - - if( begin != end ) { - end = end->prev; - refalrts::allocator::splice_to_freelist( begin, end ); - } else { - /* - Поле зрения пустое -- его не нужно освобождать. - */; - } - -#ifndef DONT_PRINT_STATISTICS - fprintf( stderr, "Step count %d\n", g_step_counter ); -#endif // DONT_PRINT_STATISTICS -} - -//============================================================================== -// Интерпретатор -//============================================================================== - -refalrts::FnResult refalrts::interpret_array( - const refalrts::RASLCommand raa[], - refalrts::Iter context[], - refalrts::Iter begin, refalrts::Iter end, - const RefalFunction functions[], - const RefalIdentifier idents[], - const RefalNumber numbers[], - const StringItem strings[], - int open_e_stack[] -) { - int i = 0; - Iter res = begin; - unsigned int index; - int stack_top = 0; - -#define MATCH_FAIL \ - { \ - if (stack_top == 0) \ - return refalrts::cRecognitionImpossible; \ - else { \ - i = open_e_stack[--stack_top]; \ - continue; \ - } \ - } - - start_sentence(); - while(raa[i].cmd != icEnd) - { - // Интерпретация команд - // Для ряда команд эти переменные могут не иметь смысла - Iter &bb = context[raa[i].bracket]; - Iter &be = context[raa[i].bracket + 1]; - Iter &elem = context[raa[i].bracket]; - - switch(raa[i].cmd) - { - case icInitB0: - context[0] = begin; - context[1] = end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - break; - - case icBracketLeft: - if( !refalrts::brackets_left( context[raa[i].val2], - context[raa[i].val2 + 1], - bb, be ) - ) - MATCH_FAIL - break; - - case icBracketRight: - if( !refalrts::brackets_right( context[raa[i].val2], - context[raa[i].val2 + 1], - bb, be ) - ) - MATCH_FAIL - break; - - case ictVarRight: - index = raa[i].val2; - if( !refalrts::tvar_right( context[index], bb, be) ) - MATCH_FAIL - break; - - case ictVarLeft: - index = raa[i].val2; - if( !refalrts::tvar_left( context[index], bb, be) ) - MATCH_FAIL - break; - - case icsVarRight: - index = raa[i].val2; - if( !refalrts::svar_right( context[index], bb, be) ) - MATCH_FAIL - break; - - case icsVarLeft: - index = raa[i].val2; - if( !refalrts::svar_left( context[index], bb, be) ) - MATCH_FAIL - break; - - case icContextSet: - index = raa[i].val2; - context[index] = bb; - context[index + 1] = be; - break; - - - case icNumRight: - if( ! refalrts::number_right( - static_cast(raa[i].val2), bb, be ) - ) - MATCH_FAIL - break; - - case icHugeNumRight: - if( ! refalrts::number_right( numbers[raa[i].val2], bb, be ) ) - MATCH_FAIL - break; - - case icNumLeft: - if( ! refalrts::number_left( - static_cast(raa[i].val2), bb, be ) - ) - MATCH_FAIL - break; - - case icHugeNumLeft: - if( ! refalrts::number_left( numbers[raa[i].val2], bb, be ) ) - MATCH_FAIL - break; - - case icIdentRight: - if( ! refalrts::ident_right( idents[raa[i].val2], bb, be ) ) - MATCH_FAIL - break; - - case icIdentLeft: - if( ! refalrts::ident_left( idents[raa[i].val2], bb, be ) ) - MATCH_FAIL - break; - - case icADTRight: - if( ! refalrts::adt_right( context[raa[i].val2], - context[raa[i].val2 + 1], - functions[raa[i].val1].ptr, - bb, be) - ) - MATCH_FAIL - break; - - case icADTLeft: - if( ! refalrts::adt_left( context[raa[i].val2], - context[raa[i].val2 + 1], - functions[raa[i].val1].ptr, - bb, be) - ) - MATCH_FAIL - break; - - case icFuncRight: - if ( !function_right( functions[raa[i].val2].ptr, bb, be ) ) - MATCH_FAIL - break; - - case icFuncLeft: - if ( !function_left( functions[raa[i].val2].ptr, bb, be ) ) - MATCH_FAIL - break; - - case icCharRight: - if ( !char_right( static_cast(raa[i].val2), bb, be) ) - MATCH_FAIL - break; - - case icCharLeft: - if ( !char_left( static_cast(raa[i].val2), bb, be) ) - MATCH_FAIL - break; - - case iceRepeatRight: - { - int ind1, ind2; - ind1 = raa[i].val1; - ind2 = raa[i].val2; - if( ! refalrts::repeated_evar_right( context[ind1], context[ind1 + 1], - context[ind2], context[ind2 + 1], - bb, be) - ) - MATCH_FAIL - } - break; - - case iceRepeatLeft: - { - int ind1, ind2; - ind1 = raa[i].val1; - ind2 = raa[i].val2; - if( ! refalrts::repeated_evar_left( context[ind1], context[ind1 + 1], - context[ind2], context[ind2 + 1], - bb, be) - ) - MATCH_FAIL - } - break; - - case icsRepeatRight: - case ictRepeatRight: - { - int ind1, ind2; - ind1 = raa[i].val1; - ind2 = raa[i].val2; - if( ! refalrts::repeated_stvar_right( context[ind1], context[ind2], - bb, be) ) - MATCH_FAIL - } - break; - - case icsRepeatLeft: - case ictRepeatLeft: - { - int ind1, ind2; - ind1 = raa[i].val1; - ind2 = raa[i].val2; - if( ! refalrts::repeated_stvar_left( context[ind1], context[ind2], - bb, be) ) - MATCH_FAIL - } - break; - - case icSave: - context[raa[i].val2] = bb; - context[raa[i].val2 + 1] = be; - break; - - case icEPrepare: - context[raa[i].val2] = 0; - context[raa[i].val2 + 1] = 0; - open_e_stack[stack_top++] = ++i; - start_e_loop(); - break; - - case icEStart: - { - bool advance = open_evar_advance( - context[raa[i].val2], context[raa[i].val2 + 1], bb, be - ); - if ( ! advance ) { - MATCH_FAIL - } - open_e_stack[stack_top++] = i; - } - break; - - case icEmpty: - if ( !empty_seq( bb, be ) ) - MATCH_FAIL - break; - - case icChar: - if(!alloc_char(elem, static_cast(raa[i].val2))) - return cNoMemory; - break; - - case icInt: - if(!alloc_number(elem, static_cast(raa[i].val2))) - return cNoMemory; - break; - - case icHugeInt: - if(!alloc_number(elem, numbers[raa[i].val2])) - return cNoMemory; - break; - - case icFunc: - if( - !alloc_name( - elem, - functions[raa[i].val2].ptr, - functions[raa[i].val2].name - ) - ) - return cNoMemory; - break; - - case icIdent: - if(!alloc_ident(elem, idents[raa[i].val2])) - return cNoMemory; - break; - - case icString: - { - if ( - ! alloc_chars( - bb, be, - strings[raa[i].val2].string, strings[raa[i].val2].string_len - ) - ) - return cNoMemory; - } - break; - - case icBracket: - switch(raa[i].val2) - { - case ibOpenADT: - if(!alloc_open_adt(elem)) - return cNoMemory; - break; - - case ibOpenBracket: - if(!alloc_open_bracket(elem)) - return cNoMemory; - break; - - case ibOpenCall: - if(!alloc_open_call(elem)) - return cNoMemory; - break; - - case ibCloseADT: - if(!alloc_close_adt(elem)) - return cNoMemory; - break; - - case ibCloseBracket: - if(!alloc_close_bracket(elem)) - return cNoMemory; - break; - - case ibCloseCall: - if(!alloc_close_call(elem)) - return cNoMemory; - break; - - default: - throw UnexpectedTypeException(); - } - break; - - case icCopySTVar: { - unsigned int target = raa[i].val1; - unsigned int sample = raa[i].val2; - if (! copy_stvar(context[target], context[sample])) - return cNoMemory; - break; - } - - case icCopyEVar: { - unsigned int target = raa[i].val1; - unsigned int sample = raa[i].val2; - if ( - ! copy_evar( - context[target], context[target + 1], - context[sample], context[sample + 1] - ) - ) - return cNoMemory; - break; - } - - case icEmptyResult: - reset_allocator(); - break; - - case icSpliceElem: - res = splice_elem(res, elem); - break; - - case icSpliceRange: { - res = splice_evar(res, bb, be); - break; - } - - case icSpliceSTVar: - res = splice_stvar(res, elem); - break; - - case icSpliceEVar: - res = splice_evar(res, bb, be); - break; - - case icLinkBrackets: - link_brackets(context[raa[i].val1], context[raa[i].val2]); - break; - - case icPushStack: - push_stack(elem); - break; - - case icOnFailGoTo: - open_e_stack[stack_top++] = i + raa[i].val1 + 1; - break; - - case icFail: - MATCH_FAIL; - - case icReturnResult: - splice_to_freelist(begin, end); - return cSuccess; - - default: - assert( SWITCH_DEFAULT_VIOLATION ); - throw UnexpectedTypeException(); - } - i++; - } - - return cSuccess; -} - - -const refalrts::RefalFunction refalrts::functions[] = { { 0, 0 } }; -const refalrts::RefalIdentifier refalrts::idents[] = { 0 }; -const refalrts::RefalNumber refalrts::numbers[] = { 0 }; -const refalrts::StringItem refalrts::strings[] = { { "", 0 } }; - - -//============================================================================== - -// Используются в Library.cpp - -char **g_argv = 0; -int g_argc = 0; - -int main(int argc, char **argv) { - g_argc = argc; - g_argv = argv; - - refalrts::FnResult res; - try { - refalrts::vm::init_view_field(); - refalrts::profiler::start_profiler(); - res = refalrts::vm::main_loop(); - fflush(stderr); - fflush(stdout); - } catch (refalrts::UnexpectedTypeException) { - fprintf(stderr, "INTERNAL ERROR: check all switches\n"); - return 3; - } catch (std::exception& e) { - fprintf(stderr, "INTERNAL ERROR: std::exception %s\n", e.what()); - return 4; - } catch (...) { - fprintf(stderr, "INTERNAL ERROR: unknown exception\n"); - return 5; - } - - refalrts::profiler::end_profiler(); - refalrts::vm::free_view_field(); - refalrts::allocator::free_memory(); - - fflush(stdout); - - switch( res ) { - case refalrts::cSuccess: - return 0; - - case refalrts::cRecognitionImpossible: - return 1; - - case refalrts::cNoMemory: - return 2; - - case refalrts::cExit: - return refalrts::vm::g_ret_code; - - case refalrts::cEndErr: - fprintf(stderr, "ERROR: check start-end commands in raa\n"); - return 5; - - default: - fprintf(stderr, "INTERNAL ERROR: check switch in main"); - return 5; - } -} diff --git a/bootstrap/srefc.cpp b/bootstrap/srefc.cpp deleted file mode 100644 index dc798d0c..00000000 --- a/bootstrap/srefc.cpp +++ /dev/null @@ -1,5114 +0,0 @@ -// Automatically generated file. Don't edit! -#include "refalrts.h" - - -extern refalrts::FnResult ArgList(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult CompileFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult DelAccumulator(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Exit(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Fetch(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult FindFiles(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Go(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Inc(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult LoadFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Map(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult MapReduce(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult ParseCommandLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult SaveFile(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult Seq(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult StrFromInt(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult System(refalrts::Iter arg_begin, refalrts::Iter arg_end); -extern refalrts::FnResult WriteLine(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult DoGetFileName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult FindFiles_Compilers(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ForEach(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GetFileName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult GetFileName_Aux(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Link(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Lower(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Main(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult PrintNotFound(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult RenameFiles(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult Renumerate(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult RestoreName(refalrts::Iter arg_begin, refalrts::Iter arg_end); -static refalrts::FnResult ScanCollisions(refalrts::Iter arg_begin, refalrts::Iter arg_end); - -// identifier #CmdLineError -template -struct ident_CmdLineError { - static const char *name() { - return "CmdLineError"; - } -}; - -// identifier #CompileCommand -template -struct ident_CompileCommand { - static const char *name() { - return "CompileCommand"; - } -}; - -// identifier #CompileList -template -struct ident_CompileList { - static const char *name() { - return "CompileList"; - } -}; - -// identifier #CompileToTarget -template -struct ident_CompileToTarget { - static const char *name() { - return "CompileToTarget"; - } -}; - -// identifier #ErrorFile -template -struct ident_ErrorFile { - static const char *name() { - return "ErrorFile"; - } -}; - -// identifier #Fails -template -struct ident_Fails { - static const char *name() { - return "Fails"; - } -}; - -// identifier #None -template -struct ident_None { - static const char *name() { - return "None"; - } -}; - -// identifier #NotFound -template -struct ident_NotFound { - static const char *name() { - return "NotFound"; - } -}; - -// identifier #Output -template -struct ident_Output { - static const char *name() { - return "Output"; - } -}; - -// identifier #Source -template -struct ident_Source { - static const char *name() { - return "Source"; - } -}; - -// identifier #Success -template -struct ident_Success { - static const char *name() { - return "Success"; - } -}; - -refalrts::FnResult Go(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ArgList, "ArgList" }, - { Main, "Main" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Main, "Main" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], ArgList, "ArgList" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Main(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 18 elems - refalrts::Iter context[18]; - refalrts::zeros( context, 18 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { ParseCommandLine, "ParseCommandLine" }, - { FindFiles_Compilers, "FindFiles_Compilers" }, - { LoadFile, "LoadFile" }, - { Main, "Main" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +32, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //14: e.ProgName#1/1 - //16: e.Config#1/1 - // ( e.ProgName#1 ) ( '@ e.Config#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketLeft, 0, 4, 0}, - {refalrts::icCharLeft, 0, static_cast('@'), 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 14, 2}, - {refalrts::icContextSet, 0, 16, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: e.Arguments#1/1 - // ( e.ProgName#1 ) e.Arguments#1 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.ProgName#1 - {refalrts::icContextSet, 0, 10, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: e.ProgName#1/1 - //16: e.Config#1/1 - // ( e.ProgName#1 ) ( '@ e.Config#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[0], context[1] ) ) - continue; - if( ! refalrts::char_left( '@', context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[14] = context[2]; - context[15] = context[3]; - context[16] = context[4]; - context[17] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Main, "Main" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], LoadFile, "LoadFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[14], context[15] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: e.Arguments#1/1 - // ( e.ProgName#1 ) e.Arguments#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.ProgName#1 - context[10] = context[0]; - context[11] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], FindFiles_Compilers, "FindFiles_Compilers" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], ParseCommandLine, "ParseCommandLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[10], context[11] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_FindFiles_Compilers_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_Fails::name, - & ident_Success::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +11, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: e.OutputName#4/1 - // # Success e.OutputName#4 - {refalrts::icIdentLeft, 0, 1, 0}, - {refalrts::icContextSet, 0, 4, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 2}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 3}, - {refalrts::icLinkBrackets, 2, 3, 0}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceEVar, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # Fails - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icIdent, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: e.OutputName#4/1 - // # Success e.OutputName#4 - if( ! refalrts::ident_left( & ident_Success::name, context[0], context[1] ) ) - continue; - context[4] = context[0]; - context[5] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[3] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[2], context[3] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # Fails - if( ! refalrts::ident_left( & ident_Fails::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_ident( context[2], & ident_Fails::name ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_FindFiles_Compilers_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 27 elems - refalrts::Iter context[27]; - refalrts::zeros( context, 27 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_FindFiles_Compilers_0, "lambda_FindFiles_Compilers_0" }, - { CompileFile, "CompileFile" }, - { Fetch, "Fetch" }, - { WriteLine, "WriteLine" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Source::name, - & ident_Output::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"*Compiling ", 11}, - {"+Linking ", 9} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +25, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.OutputName#3/1 - //13: e.OutputName#3/2 - // ( # Output e.OutputName#3 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 13, 11, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 9, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //21: e.Source#3/1 - //23: e.OutputName#3/1 - //25: e.Source#3/2 - // ( # Source ( e.Source#3 ) e.OutputName#3 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 21, 4}, - {refalrts::icContextSet, 0, 23, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 25, 21, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 3, 7}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icChar, 0, ':', 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 2, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 1, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icFunc, 0, 0, 19}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 20}, - {refalrts::icPushStack, 0, 0, 20}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 23}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.OutputName#3/1 - //13: e.OutputName#3/2 - // ( # Output e.OutputName#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[13], context[14], context[11], context[12])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], WriteLine, "WriteLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "+Linking ", 9 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[9], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //21: e.Source#3/1 - //23: e.OutputName#3/1 - //25: e.Source#3/2 - // ( # Source ( e.Source#3 ) e.OutputName#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_Source::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[21] = context[4]; - context[22] = context[5]; - context[23] = context[2]; - context[24] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[25], context[26], context[21], context[22])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], WriteLine, "WriteLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], "*Compiling ", 11 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[10], ':' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], CompileFile, "CompileFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], lambda_FindFiles_Compilers_0, "lambda_FindFiles_Compilers_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[20] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[20] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[23], context[24] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[25], context[26] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_FindFiles_Compilers_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { SaveFile, "SaveFile" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_None::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +5, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # None - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.ErrorFileName#4/1 - // e.ErrorFileName#4 - {refalrts::icContextSet, 0, 7, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icLinkBrackets, 4, 5, 0}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # None - if( ! refalrts::ident_left( & ident_None::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.ErrorFileName#4/1 - // e.ErrorFileName#4 - context[7] = context[0]; - context[8] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], SaveFile, "SaveFile" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::link_brackets( context[4], context[5] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_FindFiles_Compilers_3(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 14 elems - refalrts::Iter context[14]; - refalrts::zeros( context, 14 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { WriteLine, "WriteLine" }, - { Link, "Link" }, - { lambda_FindFiles_Compilers_2, "lambda_FindFiles_Compilers_2" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_ErrorFile::name, - & ident_Fails::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"** Compilation successed **", 27} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +27, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: s.CommandLineInfo#1/1 - //12: e.Outputs_B#3/1 - // s.CommandLineInfo#1 e.Outputs_B#3 # Fails e.Outputs_E#3 - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icEPrepare, 0, 12, 0}, - {refalrts::icEStart, 0, 12, 0}, - {refalrts::icSave, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - // Unused closed variable e.Outputs_E#3 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icIdent, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icFunc, 0, 2, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //10: s.CommandLineInfo#1/1 - //11: e.Outputs#3/1 - // s.CommandLineInfo#1 e.Outputs#3 - {refalrts::icsVarLeft, 0, 10, 0}, - {refalrts::icContextSet, 0, 11, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icString, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.CommandLineInfo#1/1 - //12: e.Outputs_B#3/1 - // s.CommandLineInfo#1 e.Outputs_B#3 # Fails e.Outputs_E#3 - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - continue; - context[12] = 0; - context[13] = 0; - refalrts::start_e_loop(); - do { - context[2] = context[0]; - context[3] = context[1]; - if( ! refalrts::ident_left( & ident_Fails::name, context[2], context[3] ) ) - continue; - // Unused closed variable e.Outputs_E#3 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_ErrorFile::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], lambda_FindFiles_Compilers_2, "lambda_FindFiles_Compilers_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[12], context[13], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //10: s.CommandLineInfo#1/1 - //11: e.Outputs#3/1 - // s.CommandLineInfo#1 e.Outputs#3 - if( ! refalrts::svar_left( context[10], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[0]; - context[12] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Link, "Link" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], WriteLine, "WriteLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[7], context[8], "** Compilation successed **", 27 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_stvar( res, context[10] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_FindFiles_Compilers_4(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_FindFiles_Compilers_3, "lambda_FindFiles_Compilers_3" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { lambda_FindFiles_Compilers_1, "lambda_FindFiles_Compilers_1" }, - { ForEach, "ForEach" }, - { RenameFiles, "RenameFiles" }, - { Seq, "Seq" }, - { Fetch, "Fetch" }, - { PrintNotFound, "PrintNotFound" }, - { Map, "Map" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_NotFound::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +30, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: s.CommandLineInfo#1/1 - //14: e.Files_B#2/1 - //16: e.FileName#2/1 - //18: e.Files_E#2/1 - // s.CommandLineInfo#1 e.Files_B#2 ( # NotFound e.FileName#2 ) e.Files_E#2 - {refalrts::icsVarLeft, 0, 13, 0}, - {refalrts::icEPrepare, 0, 14, 0}, - {refalrts::icEStart, 0, 14, 0}, - {refalrts::icSave, 0, 4, 0}, - {refalrts::icBracketLeft, 0, 2, 4}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icContextSet, 0, 16, 2}, - {refalrts::icContextSet, 0, 18, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 8, 7}, - {refalrts::icFunc, 0, 7, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icIdent, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 18}, - {refalrts::icLinkBrackets, 9, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //19: s.CommandLineInfo#1/1 - //20: e.FoundFiles#2/1 - //22: s.CommandLineInfo#1/2 - // s.CommandLineInfo#1 e.FoundFiles#2 - {refalrts::icsVarLeft, 0, 19, 0}, - {refalrts::icContextSet, 0, 20, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 22, 19, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 6, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 5, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 4, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 9}, - {refalrts::icFunc, 0, 3, 10}, - {refalrts::icFunc, 0, 2, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 13}, - {refalrts::icFunc, 0, 1, 14}, - {refalrts::icFunc, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 18}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icPushStack, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 22}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceSTVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: s.CommandLineInfo#1/1 - //14: e.Files_B#2/1 - //16: e.FileName#2/1 - //18: e.Files_E#2/1 - // s.CommandLineInfo#1 e.Files_B#2 ( # NotFound e.FileName#2 ) e.Files_E#2 - if( ! refalrts::svar_left( context[13], context[0], context[1] ) ) - continue; - context[14] = 0; - context[15] = 0; - refalrts::start_e_loop(); - do { - context[4] = context[0]; - context[5] = context[1]; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_NotFound::name, context[2], context[3] ) ) - continue; - context[16] = context[2]; - context[17] = context[3]; - context[18] = context[4]; - context[19] = context[5]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], PrintNotFound, "PrintNotFound" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[10], & ident_NotFound::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - refalrts::link_brackets( context[9], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[14], context[15], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //19: s.CommandLineInfo#1/1 - //20: e.FoundFiles#2/1 - //22: s.CommandLineInfo#1/2 - // s.CommandLineInfo#1 e.FoundFiles#2 - if( ! refalrts::svar_left( context[19], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[20] = context[0]; - context[21] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[22], context[19])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Seq, "Seq" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], RenameFiles, "RenameFiles" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], ForEach, "ForEach" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], lambda_FindFiles_Compilers_1, "lambda_FindFiles_Compilers_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], lambda_FindFiles_Compilers_3, "lambda_FindFiles_Compilers_3" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[18] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[18] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::push_stack( context[17] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[17] ); - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[13] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[22] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[9] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_stvar( res, context[19] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult FindFiles_Compilers(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_FindFiles_Compilers_4, "lambda_FindFiles_Compilers_4" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { FindFiles, "FindFiles" }, - { Fetch, "Fetch" }, - { WriteLine, "WriteLine" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CompileList::name, - & ident_CompileToTarget::name, - & ident_CmdLineError::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"COMMAND LINE ERROR: ", 20} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +18, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Message#1/1 - // ( # CmdLineError e.Message#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 9, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 4, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +9, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.CommandLineInfo#1/1 - // s.CommandLineInfo#1 # CompileToTarget ( e.Folders#1 ) ( e.Source#1 ) ( e.Output#1 ) - {refalrts::icBracketRight, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icBracketRight, 0, 6, 0}, - {refalrts::icIdentRight, 0, 1, 0}, - // Unused closed variable e.Folders#1 - // Unused closed variable e.Source#1 - // Unused closed variable e.Output#1 - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //16: s.CommandLineInfo#1/1 - //17: e.Folders#1/1 - //19: e.Files#1/1 - // s.CommandLineInfo#1 # CompileList ( e.Folders#1 ) e.Files#1 - {refalrts::icsVarLeft, 0, 16, 0}, - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 11}, - {refalrts::icFunc, 0, 1, 12}, - {refalrts::icFunc, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Message#1/1 - // ( # CmdLineError e.Message#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_CmdLineError::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[9] = context[2]; - context[10] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], WriteLine, "WriteLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "COMMAND LINE ERROR: ", 20 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.CommandLineInfo#1/1 - // s.CommandLineInfo#1 # CompileToTarget ( e.Folders#1 ) ( e.Source#1 ) ( e.Output#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_right( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_right( & ident_CompileToTarget::name, context[0], context[1] ) ) - continue; - // Unused closed variable e.Folders#1 - // Unused closed variable e.Source#1 - // Unused closed variable e.Output#1 - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //16: s.CommandLineInfo#1/1 - //17: e.Folders#1/1 - //19: e.Files#1/1 - // s.CommandLineInfo#1 # CompileList ( e.Folders#1 ) e.Files#1 - if( ! refalrts::svar_left( context[16], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_CompileList::name, context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], FindFiles, "FindFiles" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[12], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], lambda_FindFiles_Compilers_4, "lambda_FindFiles_Compilers_4" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[15] ); - refalrts::push_stack( context[14] ); - refalrts::push_stack( context[11] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[16] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_ForEach_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 8 elems - refalrts::Iter context[8]; - refalrts::zeros( context, 8 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Map, "Map" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: s.Converter#1/1 - //6: e.Elems#2/1 - // s.Converter#1 e.Elems#2 - {refalrts::icsVarLeft, 0, 5, 0}, - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: s.Converter#1/1 - //6: e.Elems#2/1 - // s.Converter#1 e.Elems#2 - if( ! refalrts::svar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ForEach(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_ForEach_0, "lambda_ForEach_0" }, - { refalrts::create_closure, "refalrts::create_closure" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //6: s.Converter#1/1 - // s.Converter#1 - {refalrts::icsVarLeft, 0, 6, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: s.Converter#1/1 - // s.Converter#1 - if( ! refalrts::svar_left( context[6], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], lambda_ForEach_0, "lambda_ForEach_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[6] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult PrintNotFound(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 13 elems - refalrts::Iter context[13]; - refalrts::zeros( context, 13 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { WriteLine, "WriteLine" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Source::name, - & ident_Output::name, - & ident_NotFound::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" not found", 10}, - {"COMMAND LINE ERROR: file ", 25} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +20, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.FileName#1/1 - // ( # NotFound e.FileName#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 2, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 0, 5}, - {refalrts::icString, 0, 1, 6}, - {refalrts::icString, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceRange, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +6, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # Output e.FileName#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.FileName#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( # Source ( e.Source#1 ) e.Output#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Source#1 - // Unused closed variable e.Output#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.FileName#1/1 - // ( # NotFound e.FileName#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_NotFound::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[2]; - context[12] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], WriteLine, "WriteLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "COMMAND LINE ERROR: file ", 25 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[8], context[9], " not found", 10 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[8], context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # Output e.FileName#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.FileName#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( # Source ( e.Source#1 ) e.Output#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_Source::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Source#1 - // Unused closed variable e.Output#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Link_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" \"", 2} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //7: e.FileName#3/1 - // ( e.FileName#3 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icString, 0, 0, 4}, - {refalrts::icChar, 0, '\"', 6}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.FileName#3/1 - // ( e.FileName#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_chars( context[4], context[5], " \"", 2 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_char( context[6], '\"' ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Link_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Link_0, "lambda_Link_0" }, - { Map, "Map" }, - { System, "System" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_None::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +6, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // ( e.Files#1 ) # None - {refalrts::icIdentRight, 0, 0, 0}, - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icEmpty, 0, 0, 0}, - // Unused closed variable e.Files#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Files#1/1 - //13: e.CommandLine#2/1 - // ( e.Files#1 ) e.CommandLine#2 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 11, 2}, - {refalrts::icContextSet, 0, 13, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // ( e.Files#1 ) # None - if( ! refalrts::ident_right( & ident_None::name, context[0], context[1] ) ) - continue; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - // Unused closed variable e.Files#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Files#1/1 - //13: e.CommandLine#2/1 - // ( e.Files#1 ) e.CommandLine#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[11] = context[2]; - context[12] = context[3]; - context[13] = context[0]; - context[14] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], System, "System" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_Link_0, "lambda_Link_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Link(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Link_1, "lambda_Link_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //14: s.CommandLineInfo#1/1 - //15: e.Files#1/1 - // s.CommandLineInfo#1 e.Files#1 - {refalrts::icsVarLeft, 0, 14, 0}, - {refalrts::icContextSet, 0, 15, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 1, 8}, - {refalrts::icFunc, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //14: s.CommandLineInfo#1/1 - //15: e.Files#1/1 - // s.CommandLineInfo#1 e.Files#1 - if( ! refalrts::svar_left( context[14], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[15] = context[0]; - context[16] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CompileCommand::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], lambda_Link_1, "lambda_Link_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[14] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_RenameFiles_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 15 elems - refalrts::Iter context[15]; - refalrts::zeros( context, 15 ); -#ifdef INTERPRET - using refalrts::functions; - static const refalrts::RefalIdentifier idents[] = { - & ident_Output::name, - & ident_Source::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //11: e.Source#3/1 - //13: e.Output#3/1 - // ( # Source ( e.Source#3 ) e.Output#3 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 11, 4}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 10}, - {refalrts::icLinkBrackets, 6, 10, 0}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icLinkBrackets, 8, 9, 0}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //7: e.Output#3/1 - // ( # Output e.Output#3 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 7, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 6}, - {refalrts::icLinkBrackets, 4, 6, 0}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceEVar, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: e.Source#3/1 - //13: e.Output#3/1 - // ( # Source ( e.Source#3 ) e.Output#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Source::name, context[2], context[3] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[11] = context[4]; - context[12] = context[5]; - context[13] = context[2]; - context[14] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_Source::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[10] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[10] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - refalrts::link_brackets( context[8], context[9] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[11], context[12] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //7: e.Output#3/1 - // ( # Output e.Output#3 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_Output::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[7] = context[2]; - context[8] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_Output::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[6] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[6] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[7], context[8] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_RenameFiles_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GetFileName, "GetFileName" }, - { Map, "Map" }, - { ScanCollisions, "ScanCollisions" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //9: e.Files#3/1 - // e.Files#3 - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 1, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.Files#3/1 - // e.Files#3 - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ScanCollisions, "ScanCollisions" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], GetFileName, "GetFileName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_RenameFiles_2(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 6 elems - refalrts::Iter context[6]; - refalrts::zeros( context, 6 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_RenameFiles_1, "lambda_RenameFiles_1" }, - { lambda_RenameFiles_0, "lambda_RenameFiles_0" }, - { ForEach, "ForEach" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_None::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +15, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // # None - {refalrts::icIdentLeft, 0, 0, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icFunc, 0, 1, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // e.CommandLine#2 - // Unused closed variable e.CommandLine#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icFunc, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // # None - if( ! refalrts::ident_left( & ident_None::name, context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], ForEach, "ForEach" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], lambda_RenameFiles_0, "lambda_RenameFiles_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // e.CommandLine#2 - // Unused closed variable e.CommandLine#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_name( context[2], lambda_RenameFiles_1, "lambda_RenameFiles_1" ) ) - return refalrts::cNoMemory; - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult RenameFiles(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 10 elems - refalrts::Iter context[10]; - refalrts::zeros( context, 10 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_RenameFiles_2, "lambda_RenameFiles_2" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_CompileCommand::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //9: s.CommandLineInfo#1/1 - // s.CommandLineInfo#1 - {refalrts::icsVarLeft, 0, 9, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icIdent, 0, 0, 5}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 6}, - {refalrts::icFunc, 0, 0, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 8}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: s.CommandLineInfo#1/1 - // s.CommandLineInfo#1 - if( ! refalrts::svar_left( context[9], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[5], & ident_CompileCommand::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], lambda_RenameFiles_2, "lambda_RenameFiles_2" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[8] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[8] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - refalrts::push_stack( context[6] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[9] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GetFileName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 23 elems - refalrts::Iter context[23]; - refalrts::zeros( context, 23 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { GetFileName_Aux, "GetFileName_Aux" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Source::name, - & ident_Output::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +32, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: e.FileName#1/1 - //15: e.FileName#1/2 - // ( # Output e.FileName#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 1, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 13, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 15, 13, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icInt, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 9}, - {refalrts::icIdent, 0, 1, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icLinkBrackets, 4, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 9, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceEVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Source#1/1 - //19: e.Output#1/1 - //21: e.Output#1/2 - // ( # Source ( e.Source#1 ) e.Output#1 ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icIdentLeft, 0, 0, 2}, - {refalrts::icBracketLeft, 0, 4, 2}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 4}, - {refalrts::icContextSet, 0, 19, 2}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 21, 19, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icInt, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icIdent, 0, 0, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 6, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icLinkBrackets, 11, 15, 0}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 21}, - {refalrts::icLinkBrackets, 13, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: e.FileName#1/1 - //15: e.FileName#1/2 - // ( # Output e.FileName#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[2], context[3] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[13] = context[2]; - context[14] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[15], context[16], context[13], context[14])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], GetFileName_Aux, "GetFileName_Aux" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[8], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[10], & ident_Output::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[4], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[9], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[15], context[16] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_evar( res, context[13], context[14] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Source#1/1 - //19: e.Output#1/1 - //21: e.Output#1/2 - // ( # Source ( e.Source#1 ) e.Output#1 ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_Source::name, context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[4]; - context[18] = context[5]; - context[19] = context[2]; - context[20] = context[3]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[21], context[22], context[19], context[20])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[7] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], GetFileName_Aux, "GetFileName_Aux" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[10], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[12], & ident_Source::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::link_brackets( context[11], context[15] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[21], context[22] ); - refalrts::link_brackets( context[13], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[7] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult GetFileName_Aux(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 7 elems - refalrts::Iter context[7]; - refalrts::zeros( context, 7 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { DoGetFileName, "DoGetFileName" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //5: e.FileName#1/1 - // e.FileName#1 '.cpp' - {refalrts::icCharRight, 0, static_cast('p'), 0}, - {refalrts::icCharRight, 0, static_cast('p'), 0}, - {refalrts::icCharRight, 0, static_cast('c'), 0}, - {refalrts::icCharRight, 0, static_cast('.'), 0}, - {refalrts::icContextSet, 0, 5, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 0, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //5: e.FileName#1/1 - // e.FileName#1 '.cpp' - if( ! refalrts::char_right( 'p', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'p', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'c', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( '.', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[5] = context[0]; - context[6] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoGetFileName, "DoGetFileName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[5], context[6] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult DoGetFileName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Lower, "Lower" }, - { DoGetFileName, "DoGetFileName" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +4, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // e.FileName#1 '/' - {refalrts::icCharRight, 0, static_cast('/'), 0}, - // Unused closed variable e.FileName#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +4, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // e.FileName#1 '\\' - {refalrts::icCharRight, 0, static_cast('\\'), 0}, - // Unused closed variable e.FileName#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +23, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Last#1/1 - //9: e.FileName#1/1 - // e.FileName#1 s.Last#1 - {refalrts::icsVarRight, 0, 8, 0}, - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 5}, - {refalrts::icFunc, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 7}, - {refalrts::icPushStack, 0, 0, 7}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - // - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[3]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // e.FileName#1 '/' - if( ! refalrts::char_right( '/', context[0], context[1] ) ) - continue; - // Unused closed variable e.FileName#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // e.FileName#1 '\\' - if( ! refalrts::char_right( '\\', context[0], context[1] ) ) - continue; - // Unused closed variable e.FileName#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Last#1/1 - //9: e.FileName#1/1 - // e.FileName#1 s.Last#1 - if( ! refalrts::svar_right( context[8], context[0], context[1] ) ) - continue; - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], DoGetFileName, "DoGetFileName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[6], Lower, "Lower" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[7] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[7] ); - refalrts::push_stack( context[5] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - refalrts::push_stack( context[4] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - // - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Lower_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 9 elems - refalrts::Iter context[9]; - refalrts::zeros( context, 9 ); -#ifdef INTERPRET - using refalrts::functions; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //4: s.Char#1/1 - //5: s.Char#1/2 - //6: e.UpLo_B#3/1 - //8: s.Lower#3/1 - // s.Char#1 e.UpLo_B#3 s.Char#1 s.Lower#3 e.UpLo_E#3 - {refalrts::icsVarLeft, 0, 4, 0}, - {refalrts::icEPrepare, 0, 6, 0}, - {refalrts::icEStart, 0, 6, 0}, - {refalrts::icSave, 0, 2, 0}, - {refalrts::icsRepeatLeft, 5, 4, 2}, - {refalrts::icsVarLeft, 0, 8, 2}, - // Unused closed variable e.UpLo_E#3 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icFail, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.Char#1/1 - //5: s.Char#1/2 - //6: e.UpLo_B#3/1 - //8: s.Lower#3/1 - // s.Char#1 e.UpLo_B#3 s.Char#1 s.Lower#3 e.UpLo_E#3 - if( ! refalrts::svar_left( context[4], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - refalrts::start_e_loop(); - do { - context[2] = context[0]; - context[3] = context[1]; - if( ! refalrts::repeated_stvar_left( context[5], context[4], context[2], context[3] ) ) - continue; - if( ! refalrts::svar_left( context[8], context[2], context[3] ) ) - continue; - // Unused closed variable e.UpLo_E#3 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[6], context[7], context[0], context[1] ) ); - return refalrts::FnResult(refalrts::cRecognitionImpossible | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Lower_1(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 17 elems - refalrts::Iter context[17]; - refalrts::zeros( context, 17 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Lower_0, "lambda_Lower_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz", 52} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +29, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //13: s.Char#1/1 - //14: s.Char#1/2 - //15: e.Uppers_B#2/1 - // s.Char#1 e.Uppers_B#2 s.Char#1 e.Uppers_E#2 - {refalrts::icsVarLeft, 0, 13, 0}, - {refalrts::icEPrepare, 0, 15, 0}, - {refalrts::icEStart, 0, 15, 0}, - {refalrts::icSave, 0, 2, 0}, - {refalrts::icsRepeatLeft, 14, 13, 2}, - // Unused closed variable e.Uppers_E#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 2, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 11}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceSTVar, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: s.Char#1/1 - // s.Char#1 e.Uppers#2 - {refalrts::icsVarLeft, 0, 2, 0}, - // Unused closed variable e.Uppers#2 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[2]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //13: s.Char#1/1 - //14: s.Char#1/2 - //15: e.Uppers_B#2/1 - // s.Char#1 e.Uppers_B#2 s.Char#1 e.Uppers_E#2 - if( ! refalrts::svar_left( context[13], context[0], context[1] ) ) - continue; - context[15] = 0; - context[16] = 0; - refalrts::start_e_loop(); - do { - context[2] = context[0]; - context[3] = context[1]; - if( ! refalrts::repeated_stvar_left( context[14], context[13], context[2], context[3] ) ) - continue; - // Unused closed variable e.Uppers_E#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz", 52 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], lambda_Lower_0, "lambda_Lower_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::push_stack( context[11] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_stvar( res, context[13] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[15], context[16], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: s.Char#1/1 - // s.Char#1 e.Uppers#2 - if( ! refalrts::svar_left( context[2], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.Uppers#2 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Lower(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 12 elems - refalrts::Iter context[12]; - refalrts::zeros( context, 12 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Lower_1, "lambda_Lower_1" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { Fetch, "Fetch" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {"ABCDEFGHIJKLMNOPQRSTUVWXYZ", 26} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //11: s.Char#1/1 - // s.Char#1 - {refalrts::icsVarLeft, 0, 11, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 2, 3}, - {refalrts::icString, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 1, 7}, - {refalrts::icFunc, 0, 0, 8}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 9}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 10}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icPushStack, 0, 0, 9}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceSTVar, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceRange, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //11: s.Char#1/1 - // s.Char#1 - if( ! refalrts::svar_left( context[11], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[4], context[5], "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 26 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[8], lambda_Lower_1, "lambda_Lower_1" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[9] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[10] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[10] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::push_stack( context[9] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_stvar( res, context[11] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_evar( res, context[4], context[5] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult ScanCollisions(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 44 elems - refalrts::Iter context[44]; - refalrts::zeros( context, 44 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { RestoreName, "RestoreName" }, - { Map, "Map" }, - { Renumerate, "Renumerate" }, - { ScanCollisions, "ScanCollisions" }, - { Exit, "Exit" }, - { WriteLine, "WriteLine" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Output::name - }; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {" has some filename ", 19}, - {" and ", 5}, - {"COMMAND LINE ERROR: output files ", 33} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +49, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //27: e.Files_B#1/1 - //29: e.FileName#1/1 - //31: e.FileName#1/2 - //33: e.Output1#1/1 - //35: e.Files_M#1/1 - //37: e.Output2#1/1 - // e.Files_B#1 ( e.FileName#1 0 ( # Output e.Output1#1 ) ) e.Files_M#1 ( e.FileName#1 0 ( # Output e.Output2#1 ) ) e.Files_E#1 - {refalrts::icEPrepare, 0, 27, 0}, - {refalrts::icEStart, 0, 27, 0}, - {refalrts::icSave, 0, 10, 0}, - {refalrts::icBracketLeft, 0, 2, 10}, - {refalrts::icBracketRight, 0, 4, 2}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icNumRight, 0, 0, 2}, - {refalrts::icContextSet, 0, 29, 2}, - {refalrts::icContextSet, 0, 33, 4}, - {refalrts::icEPrepare, 0, 35, 10}, - {refalrts::icEStart, 0, 35, 10}, - {refalrts::icSave, 0, 12, 10}, - {refalrts::icBracketLeft, 0, 6, 12}, - {refalrts::icBracketRight, 0, 8, 6}, - {refalrts::icIdentLeft, 0, 0, 8}, - {refalrts::icNumRight, 0, 0, 6}, - {refalrts::iceRepeatLeft, 31, 29, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icContextSet, 0, 37, 8}, - // Unused closed variable e.Files_E#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 14}, - {refalrts::icFunc, 0, 5, 15}, - {refalrts::icString, 0, 2, 16}, - {refalrts::icString, 0, 1, 18}, - {refalrts::icString, 0, 0, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 4, 24}, - {refalrts::icInt, 0, 1, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 26}, - {refalrts::icPushStack, 0, 0, 26}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 14}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceRange, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icSpliceRange, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceRange, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +72, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.Files_B#1/1 - //31: t.Location#1/1 - //32: e.FileName#1/1 - //34: e.FileName#1/2 - //36: e.Files_M#1/1 - //38: e.Output#1/1 - //40: e.Files_E#1/1 - //42: e.FileName#1/3 - // e.Files_B#1 ( e.FileName#1 0 t.Location#1 ) e.Files_M#1 ( e.FileName#1 0 ( # Output e.Output#1 ) ) e.Files_E#1 - {refalrts::icEPrepare, 0, 29, 0}, - {refalrts::icEStart, 0, 29, 0}, - {refalrts::icSave, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 2, 8}, - {refalrts::ictVarRight, 0, 31, 2}, - {refalrts::icNumRight, 0, 0, 2}, - {refalrts::icContextSet, 0, 32, 2}, - {refalrts::icEPrepare, 0, 36, 8}, - {refalrts::icEStart, 0, 36, 8}, - {refalrts::icSave, 0, 10, 8}, - {refalrts::icBracketLeft, 0, 4, 10}, - {refalrts::icBracketRight, 0, 6, 4}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icNumRight, 0, 0, 4}, - {refalrts::iceRepeatLeft, 34, 32, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icContextSet, 0, 38, 6}, - {refalrts::icContextSet, 0, 40, 10}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 42, 34, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 3, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icInt, 0, 1, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 17}, - {refalrts::icInt, 0, 0, 18}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 19}, - {refalrts::icIdent, 0, 0, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 2, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 40}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 17, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icLinkBrackets, 19, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 38}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 34}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icLinkBrackets, 14, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceSTVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 32}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +72, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //29: e.Files_B#1/1 - //31: e.FileName#1/1 - //33: e.FileName#1/2 - //35: e.Output#1/1 - //37: e.Files_M#1/1 - //39: e.Files_E#1/1 - //41: t.Location#1/1 - //42: e.FileName#1/3 - // e.Files_B#1 ( e.FileName#1 0 ( # Output e.Output#1 ) ) e.Files_M#1 ( e.FileName#1 0 t.Location#1 ) e.Files_E#1 - {refalrts::icEPrepare, 0, 29, 0}, - {refalrts::icEStart, 0, 29, 0}, - {refalrts::icSave, 0, 8, 0}, - {refalrts::icBracketLeft, 0, 2, 8}, - {refalrts::icBracketRight, 0, 4, 2}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icNumRight, 0, 0, 2}, - {refalrts::icContextSet, 0, 31, 2}, - {refalrts::icContextSet, 0, 35, 4}, - {refalrts::icEPrepare, 0, 37, 8}, - {refalrts::icEStart, 0, 37, 8}, - {refalrts::icSave, 0, 10, 8}, - {refalrts::icBracketLeft, 0, 6, 10}, - {refalrts::iceRepeatLeft, 33, 31, 6}, - {refalrts::icNumLeft, 0, 0, 6}, - {refalrts::icContextSet, 0, 39, 10}, - {refalrts::ictVarLeft, 0, 41, 6}, - {refalrts::icEmpty, 0, 0, 6}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 42, 33, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 3, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icInt, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icIdent, 0, 0, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icInt, 0, 1, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 22}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 23}, - {refalrts::icFunc, 0, 2, 24}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 25}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 26}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 27}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 28}, - {refalrts::icPushStack, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 28}, - {refalrts::icPushStack, 0, 0, 27}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icSpliceElem, 0, 0, 27}, - {refalrts::icSpliceEVar, 0, 0, 39}, - {refalrts::icLinkBrackets, 25, 26, 0}, - {refalrts::icSpliceElem, 0, 0, 26}, - {refalrts::icSpliceEVar, 0, 0, 42}, - {refalrts::icSpliceElem, 0, 0, 25}, - {refalrts::icSpliceElem, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icLinkBrackets, 20, 22, 0}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceSTVar, 0, 0, 41}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceEVar, 0, 0, 37}, - {refalrts::icLinkBrackets, 14, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 16, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icOnFailGoTo, +63, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //24: e.Files_B#1/1 - //26: t.Location1#1/1 - //27: e.FileName#1/1 - //29: e.FileName#1/2 - //31: e.Files_M#1/1 - //33: e.Files_E#1/1 - //35: t.Location2#1/1 - //36: e.FileName#1/3 - // e.Files_B#1 ( e.FileName#1 0 t.Location1#1 ) e.Files_M#1 ( e.FileName#1 0 t.Location2#1 ) e.Files_E#1 - {refalrts::icEPrepare, 0, 24, 0}, - {refalrts::icEStart, 0, 24, 0}, - {refalrts::icSave, 0, 6, 0}, - {refalrts::icBracketLeft, 0, 2, 6}, - {refalrts::ictVarRight, 0, 26, 2}, - {refalrts::icNumRight, 0, 0, 2}, - {refalrts::icContextSet, 0, 27, 2}, - {refalrts::icEPrepare, 0, 31, 6}, - {refalrts::icEStart, 0, 31, 6}, - {refalrts::icSave, 0, 8, 6}, - {refalrts::icBracketLeft, 0, 4, 8}, - {refalrts::iceRepeatLeft, 29, 27, 4}, - {refalrts::icNumLeft, 0, 0, 4}, - {refalrts::icContextSet, 0, 33, 8}, - {refalrts::ictVarLeft, 0, 35, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopyEVar, 36, 29, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 3, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 12}, - {refalrts::icInt, 0, 0, 13}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 14}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 15}, - {refalrts::icInt, 0, 1, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 18}, - {refalrts::icFunc, 0, 2, 19}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 20}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 21}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 22}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 23}, - {refalrts::icPushStack, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 23}, - {refalrts::icPushStack, 0, 0, 22}, - {refalrts::icPushStack, 0, 0, 18}, - {refalrts::icSpliceElem, 0, 0, 22}, - {refalrts::icSpliceEVar, 0, 0, 33}, - {refalrts::icLinkBrackets, 20, 21, 0}, - {refalrts::icSpliceElem, 0, 0, 21}, - {refalrts::icSpliceEVar, 0, 0, 36}, - {refalrts::icSpliceElem, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icLinkBrackets, 15, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceSTVar, 0, 0, 35}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceEVar, 0, 0, 29}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 31}, - {refalrts::icLinkBrackets, 12, 14, 0}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 26}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceEVar, 0, 0, 27}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //6: e.Files#1/1 - // e.Files#1 - {refalrts::icContextSet, 0, 6, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 2}, - {refalrts::icFunc, 0, 1, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 2}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceEVar, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[12]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //27: e.Files_B#1/1 - //29: e.FileName#1/1 - //31: e.FileName#1/2 - //33: e.Output1#1/1 - //35: e.Files_M#1/1 - //37: e.Output2#1/1 - // e.Files_B#1 ( e.FileName#1 0 ( # Output e.Output1#1 ) ) e.Files_M#1 ( e.FileName#1 0 ( # Output e.Output2#1 ) ) e.Files_E#1 - context[27] = 0; - context[28] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[0]; - context[11] = context[1]; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[10], context[11] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[4], context[5] ) ) - continue; - if( ! refalrts::number_right( 0UL, context[2], context[3] ) ) - continue; - context[29] = context[2]; - context[30] = context[3]; - context[33] = context[4]; - context[34] = context[5]; - context[35] = 0; - context[36] = 0; - refalrts::start_e_loop(); - do { - context[12] = context[10]; - context[13] = context[11]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[12], context[13] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_right( context[8], context[9], context[6], context[7] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[8], context[9] ) ) - continue; - if( ! refalrts::number_right( 0UL, context[6], context[7] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[31], context[32], context[29], context[30], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - context[37] = context[8]; - context[38] = context[9]; - // Unused closed variable e.Files_E#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[15], WriteLine, "WriteLine" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[16], context[17], "COMMAND LINE ERROR: output files ", 33 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[18], context[19], " and ", 5 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[20], context[21], " has some filename ", 19 ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], Exit, "Exit" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[25], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[26] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[26] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[14] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - res = refalrts::splice_evar( res, context[18], context[19] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_evar( res, context[16], context[17] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[35], context[36], context[10], context[11] ) ); - } while ( refalrts::open_evar_advance( context[27], context[28], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.Files_B#1/1 - //31: t.Location#1/1 - //32: e.FileName#1/1 - //34: e.FileName#1/2 - //36: e.Files_M#1/1 - //38: e.Output#1/1 - //40: e.Files_E#1/1 - //42: e.FileName#1/3 - // e.Files_B#1 ( e.FileName#1 0 t.Location#1 ) e.Files_M#1 ( e.FileName#1 0 ( # Output e.Output#1 ) ) e.Files_E#1 - context[29] = 0; - context[30] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[0]; - context[9] = context[1]; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[8], context[9] ) ) - continue; - if( ! refalrts::tvar_right( context[31], context[2], context[3] ) ) - continue; - if( ! refalrts::number_right( 0UL, context[2], context[3] ) ) - continue; - context[32] = context[2]; - context[33] = context[3]; - context[36] = 0; - context[37] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[8]; - context[11] = context[9]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[10], context[11] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[6], context[7] ) ) - continue; - if( ! refalrts::number_right( 0UL, context[4], context[5] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[34], context[35], context[32], context[33], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - context[38] = context[6]; - context[39] = context[7]; - context[40] = context[10]; - context[41] = context[11]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[42], context[43], context[34], context[35])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ScanCollisions, "ScanCollisions" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[15], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[18], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[20], & ident_Output::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], Renumerate, "Renumerate" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[40], context[41] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[17], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - refalrts::link_brackets( context[19], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[38], context[39] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[34], context[35] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - refalrts::link_brackets( context[14], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_stvar( res, context[31] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[32], context[33] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[36], context[37], context[8], context[9] ) ); - } while ( refalrts::open_evar_advance( context[29], context[30], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //29: e.Files_B#1/1 - //31: e.FileName#1/1 - //33: e.FileName#1/2 - //35: e.Output#1/1 - //37: e.Files_M#1/1 - //39: e.Files_E#1/1 - //41: t.Location#1/1 - //42: e.FileName#1/3 - // e.Files_B#1 ( e.FileName#1 0 ( # Output e.Output#1 ) ) e.Files_M#1 ( e.FileName#1 0 t.Location#1 ) e.Files_E#1 - context[29] = 0; - context[30] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[0]; - context[9] = context[1]; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[8], context[9] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[4], context[5] ) ) - continue; - if( ! refalrts::number_right( 0UL, context[2], context[3] ) ) - continue; - context[31] = context[2]; - context[32] = context[3]; - context[35] = context[4]; - context[36] = context[5]; - context[37] = 0; - context[38] = 0; - refalrts::start_e_loop(); - do { - context[10] = context[8]; - context[11] = context[9]; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[10], context[11] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[33], context[34], context[31], context[32], context[6], context[7] ) ) - continue; - if( ! refalrts::number_left( 0UL, context[6], context[7] ) ) - continue; - context[39] = context[10]; - context[40] = context[11]; - if( ! refalrts::tvar_left( context[41], context[6], context[7] ) ) - continue; - if( ! refalrts::empty_seq( context[6], context[7] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[42], context[43], context[33], context[34])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], ScanCollisions, "ScanCollisions" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[15], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[17], & ident_Output::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[21], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[23] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[24], Renumerate, "Renumerate" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[25] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[26] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[27] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[28] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[28] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[28] ); - refalrts::push_stack( context[27] ); - refalrts::push_stack( context[23] ); - res = refalrts::splice_elem( res, context[27] ); - res = refalrts::splice_evar( res, context[39], context[40] ); - refalrts::link_brackets( context[25], context[26] ); - res = refalrts::splice_elem( res, context[26] ); - res = refalrts::splice_evar( res, context[42], context[43] ); - res = refalrts::splice_elem( res, context[25] ); - res = refalrts::splice_elem( res, context[24] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::link_brackets( context[20], context[22] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_stvar( res, context[41] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_evar( res, context[37], context[38] ); - refalrts::link_brackets( context[14], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[16], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[35], context[36] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[37], context[38], context[8], context[9] ) ); - } while ( refalrts::open_evar_advance( context[29], context[30], context[0], context[1] ) ); - } while ( 0 ); - - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //24: e.Files_B#1/1 - //26: t.Location1#1/1 - //27: e.FileName#1/1 - //29: e.FileName#1/2 - //31: e.Files_M#1/1 - //33: e.Files_E#1/1 - //35: t.Location2#1/1 - //36: e.FileName#1/3 - // e.Files_B#1 ( e.FileName#1 0 t.Location1#1 ) e.Files_M#1 ( e.FileName#1 0 t.Location2#1 ) e.Files_E#1 - context[24] = 0; - context[25] = 0; - refalrts::start_e_loop(); - do { - context[6] = context[0]; - context[7] = context[1]; - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[6], context[7] ) ) - continue; - if( ! refalrts::tvar_right( context[26], context[2], context[3] ) ) - continue; - if( ! refalrts::number_right( 0UL, context[2], context[3] ) ) - continue; - context[27] = context[2]; - context[28] = context[3]; - context[31] = 0; - context[32] = 0; - refalrts::start_e_loop(); - do { - context[8] = context[6]; - context[9] = context[7]; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_left( context[4], context[5], context[8], context[9] ) ) - continue; - if( ! refalrts::repeated_evar_left( context[29], context[30], context[27], context[28], context[4], context[5] ) ) - continue; - if( ! refalrts::number_left( 0UL, context[4], context[5] ) ) - continue; - context[33] = context[8]; - context[34] = context[9]; - if( ! refalrts::tvar_left( context[35], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_evar(context[36], context[37], context[29], context[30])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], ScanCollisions, "ScanCollisions" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[13], 0UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[16], 1UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[19], Renumerate, "Renumerate" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[20] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[21] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[22] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[23] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[23] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[23] ); - refalrts::push_stack( context[22] ); - refalrts::push_stack( context[18] ); - res = refalrts::splice_elem( res, context[22] ); - res = refalrts::splice_evar( res, context[33], context[34] ); - refalrts::link_brackets( context[20], context[21] ); - res = refalrts::splice_elem( res, context[21] ); - res = refalrts::splice_evar( res, context[36], context[37] ); - res = refalrts::splice_elem( res, context[20] ); - res = refalrts::splice_elem( res, context[19] ); - res = refalrts::splice_elem( res, context[18] ); - refalrts::link_brackets( context[15], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_stvar( res, context[35] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_evar( res, context[29], context[30] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[31], context[32] ); - refalrts::link_brackets( context[12], context[14] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[26] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_evar( res, context[27], context[28] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( refalrts::open_evar_advance( context[31], context[32], context[6], context[7] ) ); - } while ( refalrts::open_evar_advance( context[24], context[25], context[0], context[1] ) ); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //6: e.Files#1/1 - // e.Files#1 - context[6] = context[0]; - context[7] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[2] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[3], Map, "Map" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], RestoreName, "RestoreName" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[2] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_evar( res, context[6], context[7] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_Renumerate_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 30 elems - refalrts::Iter context[30]; - refalrts::zeros( context, 30 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { Inc, "Inc" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Source::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +47, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //20: e.FileName#1/1 - //22: e.FileName#1/2 - //24: e.Source#2/1 - //26: e.Output#2/1 - //28: s.NextNumber#2/1 - //29: s.NextNumber#2/2 - // ( e.FileName#1 ) s.NextNumber#2 ( e.FileName#1 0 ( # Source ( e.Source#2 ) e.Output#2 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 0}, - {refalrts::icBracketRight, 0, 6, 4}, - {refalrts::icIdentLeft, 0, 0, 6}, - {refalrts::icNumRight, 0, 0, 4}, - {refalrts::icBracketLeft, 0, 8, 6}, - {refalrts::icContextSet, 0, 20, 2}, - {refalrts::iceRepeatLeft, 22, 20, 4}, - {refalrts::icEmpty, 0, 0, 4}, - {refalrts::icContextSet, 0, 24, 8}, - {refalrts::icContextSet, 0, 26, 6}, - {refalrts::icsVarLeft, 0, 28, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icCopySTVar, 29, 28, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 10}, - {refalrts::icFunc, 0, 0, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 12}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 13}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 14}, - {refalrts::icIdent, 0, 0, 15}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 16}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 17}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 18}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 19}, - {refalrts::icLinkBrackets, 13, 19, 0}, - {refalrts::icSpliceElem, 0, 0, 19}, - {refalrts::icLinkBrackets, 14, 18, 0}, - {refalrts::icSpliceElem, 0, 0, 18}, - {refalrts::icSpliceEVar, 0, 0, 26}, - {refalrts::icLinkBrackets, 16, 17, 0}, - {refalrts::icSpliceElem, 0, 0, 17}, - {refalrts::icSpliceEVar, 0, 0, 24}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceSTVar, 0, 0, 29}, - {refalrts::icSpliceEVar, 0, 0, 20}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icPushStack, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceSTVar, 0, 0, 28}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //4: s.NextNumber#2/1 - //5: t.NextFile#2/1 - // ( e.FileName#1 ) s.NextNumber#2 t.NextFile#2 - {refalrts::icBracketLeft, 0, 2, 0}, - // Unused closed variable e.FileName#1 - {refalrts::icsVarLeft, 0, 4, 0}, - {refalrts::ictVarLeft, 0, 5, 0}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceSTVar, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //20: e.FileName#1/1 - //22: e.FileName#1/2 - //24: e.Source#2/1 - //26: e.Output#2/1 - //28: s.NextNumber#2/1 - //29: s.NextNumber#2/2 - // ( e.FileName#1 ) s.NextNumber#2 ( e.FileName#1 0 ( # Source ( e.Source#2 ) e.Output#2 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[0], context[1] ) ) - continue; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_right( context[6], context[7], context[4], context[5] ) ) - continue; - if( ! refalrts::ident_left( & ident_Source::name, context[6], context[7] ) ) - continue; - if( ! refalrts::number_right( 0UL, context[4], context[5] ) ) - continue; - context[8] = 0; - context[9] = 0; - if( ! refalrts::brackets_left( context[8], context[9], context[6], context[7] ) ) - continue; - context[20] = context[2]; - context[21] = context[3]; - if( ! refalrts::repeated_evar_left( context[22], context[23], context[20], context[21], context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[4], context[5] ) ) - continue; - context[24] = context[8]; - context[25] = context[9]; - context[26] = context[6]; - context[27] = context[7]; - if( ! refalrts::svar_left( context[28], context[0], context[1] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if (! refalrts::copy_stvar(context[29], context[28])) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[11], Inc, "Inc" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[14] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[15], & ident_Source::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[16] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[17] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[18] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[19] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[13], context[19] ); - res = refalrts::splice_elem( res, context[19] ); - refalrts::link_brackets( context[14], context[18] ); - res = refalrts::splice_elem( res, context[18] ); - res = refalrts::splice_evar( res, context[26], context[27] ); - refalrts::link_brackets( context[16], context[17] ); - res = refalrts::splice_elem( res, context[17] ); - res = refalrts::splice_evar( res, context[24], context[25] ); - res = refalrts::splice_elem( res, context[16] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_stvar( res, context[29] ); - res = refalrts::splice_evar( res, context[20], context[21] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::push_stack( context[12] ); - refalrts::push_stack( context[10] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_stvar( res, context[28] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //4: s.NextNumber#2/1 - //5: t.NextFile#2/1 - // ( e.FileName#1 ) s.NextNumber#2 t.NextFile#2 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.FileName#1 - if( ! refalrts::svar_left( context[4], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::tvar_left( context[5], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_stvar( res, context[5] ); - res = refalrts::splice_stvar( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult Renumerate(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 21 elems - refalrts::Iter context[21]; - refalrts::zeros( context, 21 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_Renumerate_0, "lambda_Renumerate_0" }, - { refalrts::create_closure, "refalrts::create_closure" }, - { MapReduce, "MapReduce" }, - { DelAccumulator, "DelAccumulator" } - }; - using refalrts::idents; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icInitB0, 0, 0, 0}, - //17: e.FileName#1/1 - //19: e.Files#1/1 - // ( e.FileName#1 ) e.Files#1 - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icContextSet, 0, 17, 2}, - {refalrts::icContextSet, 0, 19, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 4}, - {refalrts::icFunc, 0, 3, 5}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 6}, - {refalrts::icFunc, 0, 2, 7}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 8}, - {refalrts::icFunc, 0, 1, 9}, - {refalrts::icFunc, 0, 0, 10}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 12}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 13}, - {refalrts::icInt, 0, 2, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 16}, - {refalrts::icPushStack, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icPushStack, 0, 0, 13}, - {refalrts::icPushStack, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icLinkBrackets, 11, 12, 0}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.FileName#1/1 - //19: e.Files#1/1 - // ( e.FileName#1 ) e.Files#1 - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[2]; - context[18] = context[3]; - context[19] = context[0]; - context[20] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_call( context[4] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[5], DelAccumulator, "DelAccumulator" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[7], MapReduce, "MapReduce" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[9], refalrts::create_closure, "refalrts::create_closure" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[10], lambda_Renumerate_0, "lambda_Renumerate_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[13] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_number( context[14], 2UL ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[16] ) ) - return refalrts::cNoMemory; - refalrts::push_stack( context[16] ); - refalrts::push_stack( context[4] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[6] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_elem( res, context[14] ); - refalrts::push_stack( context[13] ); - refalrts::push_stack( context[8] ); - res = refalrts::splice_elem( res, context[13] ); - refalrts::link_brackets( context[11], context[12] ); - res = refalrts::splice_elem( res, context[12] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_elem( res, context[4] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult lambda_RestoreName_0(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 11 elems - refalrts::Iter context[11]; - refalrts::zeros( context, 11 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { StrFromInt, "StrFromInt" } - }; - using refalrts::idents; - using refalrts::numbers; - static const refalrts::StringItem strings[] = { - {".cpp", 4} - }; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +6, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //2: e.Output1#2/1 - // 0 e.Output1#2 - {refalrts::icNumLeft, 0, 0, 0}, - {refalrts::icContextSet, 0, 2, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icSpliceEVar, 0, 0, 2}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //8: s.Number#2/1 - //9: e.OutName#2/1 - // s.Number#2 e.OutName#2 '.cpp' - {refalrts::icCharRight, 0, static_cast('p'), 0}, - {refalrts::icCharRight, 0, static_cast('p'), 0}, - {refalrts::icCharRight, 0, static_cast('c'), 0}, - {refalrts::icCharRight, 0, static_cast('.'), 0}, - {refalrts::icsVarLeft, 0, 8, 0}, - {refalrts::icContextSet, 0, 9, 0}, - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icChar, 0, '@', 2}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 3}, - {refalrts::icFunc, 0, 0, 4}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 5}, - {refalrts::icString, 0, 0, 6}, - {refalrts::icSpliceRange, 0, 0, 6}, - {refalrts::icPushStack, 0, 0, 5}, - {refalrts::icPushStack, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 5}, - {refalrts::icSpliceSTVar, 0, 0, 8}, - {refalrts::icSpliceElem, 0, 0, 4}, - {refalrts::icSpliceElem, 0, 0, 3}, - {refalrts::icSpliceElem, 0, 0, 2}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //2: e.Output1#2/1 - // 0 e.Output1#2 - if( ! refalrts::number_left( 0UL, context[0], context[1] ) ) - continue; - context[2] = context[0]; - context[3] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - res = refalrts::splice_evar( res, context[2], context[3] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //8: s.Number#2/1 - //9: e.OutName#2/1 - // s.Number#2 e.OutName#2 '.cpp' - if( ! refalrts::char_right( 'p', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'p', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( 'c', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::char_right( '.', context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::svar_left( context[8], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[9] = context[0]; - context[10] = context[1]; - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_char( context[2], '@' ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[3] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[4], StrFromInt, "StrFromInt" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[5] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_chars( context[6], context[7], ".cpp", 4 ) ) - return refalrts::cNoMemory; - res = refalrts::splice_evar( res, context[6], context[7] ); - refalrts::push_stack( context[5] ); - refalrts::push_stack( context[3] ); - res = refalrts::splice_elem( res, context[5] ); - res = refalrts::splice_stvar( res, context[8] ); - res = refalrts::splice_elem( res, context[4] ); - res = refalrts::splice_elem( res, context[3] ); - res = refalrts::splice_elem( res, context[2] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - -static refalrts::FnResult RestoreName(refalrts::Iter arg_begin, refalrts::Iter arg_end) { - refalrts::this_is_generated_function(); - // issue here memory for vars with 22 elems - refalrts::Iter context[22]; - refalrts::zeros( context, 22 ); -#ifdef INTERPRET - static const refalrts::RefalFunction functions[] = { - { lambda_RestoreName_0, "lambda_RestoreName_0" }, - { Fetch, "Fetch" } - }; - static const refalrts::RefalIdentifier idents[] = { - & ident_Source::name, - & ident_Output::name - }; - using refalrts::numbers; - using refalrts::strings; - static const refalrts::RASLCommand raa[] = { - {refalrts::icOnFailGoTo, +17, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //9: e.OutputName#1/1 - //11: s.Num#1/1 - // ( e.FileName#1 s.Num#1 ( # Output e.OutputName#1 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 2}, - {refalrts::icIdentLeft, 0, 1, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 9, 4}, - {refalrts::icsVarRight, 0, 11, 2}, - // Unused closed variable e.FileName#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 6}, - {refalrts::icIdent, 0, 1, 7}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 8}, - {refalrts::icLinkBrackets, 6, 8, 0}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icSpliceEVar, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 7}, - {refalrts::icSpliceElem, 0, 0, 6}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icInitB0, 0, 0, 0}, - //17: e.Source#1/1 - //19: e.Output#1/1 - //21: s.Num#1/1 - // ( e.FileName#1 s.Num#1 ( # Source ( e.Source#1 ) e.Output#1 ) ) - {refalrts::icBracketLeft, 0, 2, 0}, - {refalrts::icBracketRight, 0, 4, 2}, - {refalrts::icIdentLeft, 0, 0, 4}, - {refalrts::icBracketLeft, 0, 6, 4}, - {refalrts::icEmpty, 0, 0, 0}, - {refalrts::icContextSet, 0, 17, 6}, - {refalrts::icContextSet, 0, 19, 4}, - {refalrts::icsVarRight, 0, 21, 2}, - // Unused closed variable e.FileName#1 - {refalrts::icEmptyResult, 0, 0, 0}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 8}, - {refalrts::icIdent, 0, 0, 9}, - {refalrts::icBracket, 0, refalrts::ibOpenBracket, 10}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 11}, - {refalrts::icBracket, 0, refalrts::ibOpenCall, 12}, - {refalrts::icFunc, 0, 1, 13}, - {refalrts::icFunc, 0, 0, 14}, - {refalrts::icBracket, 0, refalrts::ibCloseCall, 15}, - {refalrts::icBracket, 0, refalrts::ibCloseBracket, 16}, - {refalrts::icLinkBrackets, 8, 16, 0}, - {refalrts::icSpliceElem, 0, 0, 16}, - {refalrts::icPushStack, 0, 0, 15}, - {refalrts::icPushStack, 0, 0, 12}, - {refalrts::icSpliceElem, 0, 0, 15}, - {refalrts::icSpliceElem, 0, 0, 14}, - {refalrts::icSpliceEVar, 0, 0, 19}, - {refalrts::icSpliceSTVar, 0, 0, 21}, - {refalrts::icSpliceElem, 0, 0, 13}, - {refalrts::icSpliceElem, 0, 0, 12}, - {refalrts::icLinkBrackets, 10, 11, 0}, - {refalrts::icSpliceElem, 0, 0, 11}, - {refalrts::icSpliceEVar, 0, 0, 17}, - {refalrts::icSpliceElem, 0, 0, 10}, - {refalrts::icSpliceElem, 0, 0, 9}, - {refalrts::icSpliceElem, 0, 0, 8}, - {refalrts::icReturnResult, 0, 0, 0}, - {refalrts::icEnd, 0, 0, 0} - }; - int open_e_stack[1]; - refalrts::FnResult res = refalrts::interpret_array( - raa, context, arg_begin, arg_end, - functions, idents, numbers, strings, open_e_stack - ); - return res; -#else - do { - refalrts::start_sentence(); - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //9: e.OutputName#1/1 - //11: s.Num#1/1 - // ( e.FileName#1 s.Num#1 ( # Output e.OutputName#1 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - continue; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[2], context[3] ) ) - continue; - if( ! refalrts::ident_left( & ident_Output::name, context[4], context[5] ) ) - continue; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - continue; - context[9] = context[4]; - context[10] = context[5]; - if( ! refalrts::svar_right( context[11], context[2], context[3] ) ) - continue; - // Unused closed variable e.FileName#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[6] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[7], & ident_Output::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[8] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[6], context[8] ); - res = refalrts::splice_elem( res, context[8] ); - res = refalrts::splice_evar( res, context[9], context[10] ); - res = refalrts::splice_elem( res, context[7] ); - res = refalrts::splice_elem( res, context[6] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); - } while ( 0 ); - - context[0] = arg_begin; - context[1] = arg_end; - refalrts::move_left( context[0], context[1] ); - refalrts::move_left( context[0], context[1] ); - refalrts::move_right( context[0], context[1] ); - //17: e.Source#1/1 - //19: e.Output#1/1 - //21: s.Num#1/1 - // ( e.FileName#1 s.Num#1 ( # Source ( e.Source#1 ) e.Output#1 ) ) - context[2] = 0; - context[3] = 0; - if( ! refalrts::brackets_left( context[2], context[3], context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[4] = 0; - context[5] = 0; - if( ! refalrts::brackets_right( context[4], context[5], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::ident_left( & ident_Source::name, context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - context[6] = 0; - context[7] = 0; - if( ! refalrts::brackets_left( context[6], context[7], context[4], context[5] ) ) - return refalrts::cRecognitionImpossible; - if( ! refalrts::empty_seq( context[0], context[1] ) ) - return refalrts::cRecognitionImpossible; - context[17] = context[6]; - context[18] = context[7]; - context[19] = context[4]; - context[20] = context[5]; - if( ! refalrts::svar_right( context[21], context[2], context[3] ) ) - return refalrts::cRecognitionImpossible; - // Unused closed variable e.FileName#1 - - refalrts::reset_allocator(); - refalrts::Iter res = arg_begin; - if( ! refalrts::alloc_open_bracket( context[8] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_ident( context[9], & ident_Source::name ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_bracket( context[10] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[11] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_open_call( context[12] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[13], Fetch, "Fetch" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_name( context[14], lambda_RestoreName_0, "lambda_RestoreName_0" ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_call( context[15] ) ) - return refalrts::cNoMemory; - if( ! refalrts::alloc_close_bracket( context[16] ) ) - return refalrts::cNoMemory; - refalrts::link_brackets( context[8], context[16] ); - res = refalrts::splice_elem( res, context[16] ); - refalrts::push_stack( context[15] ); - refalrts::push_stack( context[12] ); - res = refalrts::splice_elem( res, context[15] ); - res = refalrts::splice_elem( res, context[14] ); - res = refalrts::splice_evar( res, context[19], context[20] ); - res = refalrts::splice_stvar( res, context[21] ); - res = refalrts::splice_elem( res, context[13] ); - res = refalrts::splice_elem( res, context[12] ); - refalrts::link_brackets( context[10], context[11] ); - res = refalrts::splice_elem( res, context[11] ); - res = refalrts::splice_evar( res, context[17], context[18] ); - res = refalrts::splice_elem( res, context[10] ); - res = refalrts::splice_elem( res, context[9] ); - res = refalrts::splice_elem( res, context[8] ); - refalrts::use( res ); - refalrts::splice_to_freelist( arg_begin, arg_end ); - return refalrts::FnResult(refalrts::cSuccess | (__LINE__ << 8)); -#endif -} - - -//End of file