diff options
Diffstat (limited to 'test/rlhc.d/case/gotocallret3_ruby.rb-R-T1--var-backend.in')
| -rw-r--r-- | test/rlhc.d/case/gotocallret3_ruby.rb-R-T1--var-backend.in | 273 |
1 files changed, 273 insertions, 0 deletions
diff --git a/test/rlhc.d/case/gotocallret3_ruby.rb-R-T1--var-backend.in b/test/rlhc.d/case/gotocallret3_ruby.rb-R-T1--var-backend.in new file mode 100644 index 00000000..af36d059 --- /dev/null +++ b/test/rlhc.d/case/gotocallret3_ruby.rb-R-T1--var-backend.in @@ -0,0 +1,273 @@ +host( "working/gotocallret3_ruby.rl", 1 ) @{# + # @@LANG: ruby + # @@GENERATED: true + # + + + + + + +}@ +array s8 _gotocallret_key_offsets( 0, 18 ) = { 0, 0, 1, 2, 3, 4, 8, 10, 14, 14, 18, 0 }; + +array char _gotocallret_trans_keys( 0, 122 ) = { 32, 10, 10, 10, 65, 90, 97, 122, 48, 57, 48, 57, 97, 122, 65, 90, 97, 122, 48, 57, 0 }; + +array s8 _gotocallret_single_lengths( 0, 1 ) = { 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0 }; + +array s8 _gotocallret_range_lengths( 0, 2 ) = { 0, 0, 0, 0, 0, 2, 1, 2, 0, 2, 1, 0 }; + +array s8 _gotocallret_index_offsets( 0, 20 ) = { 0, 0, 2, 4, 6, 8, 11, 13, 16, 17, 20, 0 }; + +array s8 _gotocallret_trans_cond_spaces( -1, 0 ) = { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0 }; + +array s8 _gotocallret_trans_offsets( 0, 21 ) = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 0 }; + +array s8 _gotocallret_trans_lengths( 0, 1 ) = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0 }; + +array s8 _gotocallret_cond_keys( 0, 0 ) = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + +array s8 _gotocallret_cond_targs( 0, 10 ) = { 2, 0, 7, 0, 8, 4, 8, 4, 9, 9, 0, 10, 0, 1, 1, 0, 0, 9, 9, 0, 10, 0, 0 }; + +array s8 _gotocallret_cond_actions( 0, 9 ) = { 2, 1, 3, 1, 6, 5, 7, 0, 0, 0, 8, 0, 8, 9, 9, 1, 0, 0, 0, 8, 0, 8, 0 }; + +array s8 _gotocallret_eof_actions( 0, 8 ) = { 0, 1, 1, 4, 4, 8, 8, 0, 4, 0, 0, 0 }; + +array s8 _gotocallret_nfa_targs( 0, 0 ) = { 0, 0 }; + +array s8 _gotocallret_nfa_offsets( 0, 0 ) = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + +array s8 _gotocallret_nfa_push_actions( 0, 0 ) = { 0, 0 }; + +array s8 _gotocallret_nfa_pop_trans( 0, 0 ) = { 0, 0 }; + +value int gotocallret_start = 7; +value int gotocallret_first_final = 7; +value int gotocallret_error = 0; + +value int gotocallret_en_garble_line = 3; +value int gotocallret_en_alp_comm = 5; +value int gotocallret_en_dig_comm = 6; +value int gotocallret_en_main = 7; + +host( "working/gotocallret3_ruby.rl", 58 ) @{ + + def run_machine( data ) + p = 0 + pe = data.length + eof = data.length + cs = 0; + _m = + _a = + buffer = Array.new + blen = 0 + comm = 1 + top = 1 + stack = Array.new +}@ +{ + cs = cast(int)gotocallret_start; + top = 0; +} +host( "working/gotocallret3_ruby.rl", 72 ) @{ +}@ +{ + int _klen; + index char _keys; + index s8 _ckeys; + int _cpc; + uint _trans; + uint _cond = 0; + uint _have = 0; + uint _cont = 1; + while ( _cont == 1 ) { + + if ( cs == 0 ) + _cont = 0; + _have = 0; + if ( p == pe ) { + if ( p == eof ) + { + if ( _have == 0 ) { + switch ( _gotocallret_eof_actions[cs] ) { + case 4 { + host( "working/gotocallret3_ruby.rl", 17 ) ${print( "error: failed to recover\n" ); + }$ + } + case 8 { + host( "working/gotocallret3_ruby.rl", 27 ) ${${p = p - 1; }$${top-= 1;cs = stack[top]; }$}$ + } + case 1 { + host( "working/gotocallret3_ruby.rl", 52 ) ${${p = p - 1; }$${cs = 3;}$}$ + } + } + } + } + + if ( _have == 0 ) + _cont = 0; + } + if ( _cont == 1 ) { + if ( _have == 0 ) { + _keys = offset( _gotocallret_trans_keys, _gotocallret_key_offsets[cs] ); + _trans = cast(uint)_gotocallret_index_offsets[cs]; + _have = 0; + + _klen = cast(int)_gotocallret_single_lengths[cs]; + if ( _klen > 0 ) { + index char _lower; + index char _mid; + index char _upper; + _lower = _keys; + _upper = _keys + _klen - 1; + while ( _upper >= _lower && _have == 0 ) { + _mid = _lower + ((_upper-_lower) >> 1); + if ( ( deref( data, p )) < deref( _gotocallret_trans_keys, _mid ) ) + _upper = _mid - 1; + else if ( ( deref( data, p )) > deref( _gotocallret_trans_keys, _mid ) ) + _lower = _mid + 1; + else { + _trans += cast(uint)(_mid - _keys); + _have = 1; + } + } + if ( _have == 0 ) { + _keys += _klen; + _trans += cast(uint)_klen; + } + } + + if ( _have == 0 ) { + _klen = cast(int)_gotocallret_range_lengths[cs]; + if ( _klen > 0 ) { + index char _lower; + index char _mid; + index char _upper; + _lower = _keys; + _upper = _keys + (_klen<<1) - 2; + while ( _have == 0 && _lower <= _upper ) { + _mid = _lower + (((_upper-_lower) >> 1) & ~1); + if ( ( deref( data, p )) < deref( _gotocallret_trans_keys, _mid ) ) + _upper = _mid - 2; + else if ( ( deref( data, p )) > deref( _gotocallret_trans_keys, _mid + 1 ) ) + _lower = _mid + 2; + else { + _trans += cast(uint)((_mid - _keys)>>1); + _have = 1; + } + } + if ( _have == 0 ) + _trans += cast(uint)_klen; + } + } + + _ckeys = offset( _gotocallret_cond_keys, _gotocallret_trans_offsets[_trans] ); + _klen = cast(int)_gotocallret_trans_lengths[_trans]; + _cond = cast(uint)_gotocallret_trans_offsets[_trans]; + _have = 0; + + _cpc = 0; + { + index s8 _lower; + index s8 _mid; + index s8 _upper; + _lower = _ckeys; + _upper = _ckeys + _klen - 1; + while ( _have == 0 && _lower <= _upper ) { + _mid = _lower + ((_upper-_lower) >> 1); + if ( _cpc < cast(int)deref( _gotocallret_cond_keys, _mid ) ) + _upper = _mid - 1; + else if ( _cpc > cast(int)deref( _gotocallret_cond_keys, _mid ) ) + _lower = _mid + 1; + else { + _cond += cast(uint)(_mid - _ckeys); + _have = 1; + } + } + if ( _have == 0 ) { + cs = 0; + _cont = 0; + } + } + } + if ( _cont == 1 ) { + cs = cast(int)_gotocallret_cond_targs[_cond]; + + switch ( _gotocallret_cond_actions[_cond] ) { + case 5 { + host( "working/gotocallret3_ruby.rl", 14 ) ${print( "error: garbling line\n" ); + }$ + } + case 7 { + host( "working/gotocallret3_ruby.rl", 16 ) ${${cs = 7;}$}$ + } + case 8 { + host( "working/gotocallret3_ruby.rl", 27 ) ${${p = p - 1; }$${top-= 1;cs = stack[top]; }$}$ + } + case 9 { + host( "working/gotocallret3_ruby.rl", 44 ) ${comm = ={( deref( data, p ))}=; + }$ + } + case 3 { + host( "working/gotocallret3_ruby.rl", 47 ) ${print( "correct command\n" ); + }$ + } + case 1 { + host( "working/gotocallret3_ruby.rl", 52 ) ${${p = p - 1; }$${cs = 3;}$}$ + } + case 6 { + host( "working/gotocallret3_ruby.rl", 14 ) ${print( "error: garbling line\n" ); + }$ + host( "working/gotocallret3_ruby.rl", 16 ) ${${cs = 7;}$}$ + } + case 2 { + host( "working/gotocallret3_ruby.rl", 35 ) ${if ( comm >= 97 ) + ${stack[top] = cs; top += 1;cs = 5;}$else + ${stack[top] = cs; top += 1;cs = 6;}$end + }$ + host( "working/gotocallret3_ruby.rl", 45 ) ${print( "prints\n" ); + }$ + } + } + + if ( cs == 0 ) + _cont = 0; + if ( _cont == 1 ) + p += 1; + + }} + } +} +host( "working/gotocallret3_ruby.rl", 73 ) @{ + if cs >= gotocallret_first_final + puts "ACCEPT" + else + puts "FAIL" + end + end + + inp = [ + "lkajsdf\n", + "2134\n", + "(\n", + "\n", + "*234234()0909 092 -234aslkf09`1 11\n", + "1\n", + "909\n", + "1 a\n", + "11 1\n", + "a 1\n", + "aa a\n", + "1 1\n", + "1 123456\n", + "a a\n", + "a abcdef\n", + "h", + "a aa1", + ] + + inplen = 17 + + inp.each { |str| run_machine(str) } + +}@
\ No newline at end of file |