diff options
Diffstat (limited to 'test/rlhc.d/case/next1_julia.jl-Y-T0--var-backend.in')
| -rw-r--r-- | test/rlhc.d/case/next1_julia.jl-Y-T0--var-backend.in | 226 |
1 files changed, 226 insertions, 0 deletions
diff --git a/test/rlhc.d/case/next1_julia.jl-Y-T0--var-backend.in b/test/rlhc.d/case/next1_julia.jl-Y-T0--var-backend.in new file mode 100644 index 00000000..6ee26b9f --- /dev/null +++ b/test/rlhc.d/case/next1_julia.jl-Y-T0--var-backend.in @@ -0,0 +1,226 @@ +host( "working/next1_julia.rl", 1 ) @{// + // @@LANG: julia + // @@GENERATED: true + // + + + + + + +}@ +array s8 _next1_actions( 0, 3 ) = { 0, 1, 0, 1, 1, 1, 2, 1, 3, 0 }; + +array s8 _next1_key_offsets( 0, 15 ) = { 0, 0, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 15, 15, 15, 0 }; + +array u8 _next1_trans_keys( 0, 119 ) = { 10, 49, 50, 117, 110, 117, 115, 101, 100, 111, 110, 101, 116, 119, 111, 0 }; + +array s8 _next1_single_lengths( 0, 3 ) = { 0, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 }; + +array s8 _next1_range_lengths( 0, 0 ) = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + +array s8 _next1_index_offsets( 0, 31 ) = { 0, 0, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 29, 30, 31, 0 }; + +array s8 _next1_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, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0 }; + +array s8 _next1_trans_offsets( 0, 31 ) = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 0 }; + +array s8 _next1_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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0 }; + +array s8 _next1_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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + +array s8 _next1_cond_targs( 0, 17 ) = { 14, 14, 14, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 15, 0, 9, 0, 10, 0, 16, 0, 12, 0, 13, 0, 17, 0, 0, 0, 0, 0, 0 }; + +array s8 _next1_cond_actions( 0, 7 ) = { 0, 5, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0 }; + +array s8 _next1_nfa_targs( 0, 0 ) = { 0, 0 }; + +array s8 _next1_nfa_offsets( 0, 0 ) = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + +array s8 _next1_nfa_push_actions( 0, 0 ) = { 0, 0 }; + +array s8 _next1_nfa_pop_trans( 0, 0 ) = { 0, 0 }; + +value int next1_start = 1; +value int next1_first_final = 14; +value int next1_error = 0; + +value int next1_en_unused = 2; +value int next1_en_one = 8; +value int next1_en_two = 11; +value int next1_en_main = 1; + +host( "working/next1_julia.rl", 31 ) @{ + + function m( data::AbstractString ) + p = 0 + pe = length(data) + eof = length(data) + cs = 0 + buffer = "" + target = 0; + +}@ +{ + cs = cast(int)next1_start; +} +host( "working/next1_julia.rl", 41 ) @{ +}@ +{ + int _klen; + uint _trans = 0; + uint _cond = 0; + uint _have = 0; + uint _cont = 1; + index s8 _acts; + uint _nacts; + index u8 _keys; + index s8 _ckeys; + int _cpc; + while ( _cont == 1 ) { + + if ( cs == 0 ) + _cont = 0; + _have = 0; + if ( p == pe ) { + if ( _have == 0 ) + _cont = 0; + } + if ( _cont == 1 ) { + if ( _have == 0 ) { + _keys = offset( _next1_trans_keys, _next1_key_offsets[cs] ); + _trans = cast(uint)_next1_index_offsets[cs]; + _have = 0; + + _klen = cast(int)_next1_single_lengths[cs]; + if ( _klen > 0 ) { + index u8 _lower; + index u8 _mid; + index u8 _upper; + _lower = _keys; + _upper = _keys + _klen - 1; + while ( _upper >= _lower && _have == 0 ) { + _mid = _lower + ((_upper-_lower) >> 1); + if ( ( deref( data, p )) < deref( _next1_trans_keys, _mid ) ) + _upper = _mid - 1; + else if ( ( deref( data, p )) > deref( _next1_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)_next1_range_lengths[cs]; + if ( _klen > 0 ) { + index u8 _lower; + index u8 _mid; + index u8 _upper; + _lower = _keys; + _upper = _keys + (_klen<<1) - 2; + while ( _have == 0 && _lower <= _upper ) { + _mid = _lower + (((_upper-_lower) >> 1) & ~1); + if ( ( deref( data, p )) < deref( _next1_trans_keys, _mid ) ) + _upper = _mid - 2; + else if ( ( deref( data, p )) > deref( _next1_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( _next1_cond_keys, _next1_trans_offsets[_trans] ); + _klen = cast(int)_next1_trans_lengths[_trans]; + _cond = cast(uint)_next1_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( _next1_cond_keys, _mid ) ) + _upper = _mid - 1; + else if ( _cpc > cast(int)deref( _next1_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)_next1_cond_targs[_cond]; + + if ( _next1_cond_actions[_cond] != 0 ) { + _acts = offset( _next1_actions, _next1_cond_actions[_cond] ); + _nacts = cast(uint)deref( _next1_actions, _acts ); + _acts += 1; + while ( _nacts > 0 ) + { + switch ( deref( _next1_actions, _acts ) ) + { + case 0 { + host( "working/next1_julia.rl", 12 ) ${print( "one\n" ); + target = 1; + ${cs = host( "-", 1 ) ={target}=;}$}$ + } + case 1 { + host( "working/next1_julia.rl", 16 ) ${print( "two\n" ); + target = 1; + ${cs = host( "-", 1 ) ={target}=;}$}$ + } + case 2 { + host( "working/next1_julia.rl", 21 ) ${target = 8; + ${cs = host( "-", 1 ) ={target}=;}$}$ + } + case 3 { + host( "working/next1_julia.rl", 23 ) ${target = 11; + ${cs = host( "-", 1 ) ={target}=;}$}$ + } + } + _nacts -= 1; + _acts += 1; + } + } + + if ( cs == 0 ) + _cont = 0; + if ( _cont == 1 ) + p += 1; + + } + } + } +} +host( "working/next1_julia.rl", 42 ) @{ + + if ( cs >= next1_first_final ) + println( "ACCEPT" ); + else + println( "FAIL" ); + end + end + + m( "1one2two1one\n" ); +}@
\ No newline at end of file |