diff options
Diffstat (limited to 'test/rlhc.d/case/nfa1.c-C-T1--var-backend.in')
| -rw-r--r-- | test/rlhc.d/case/nfa1.c-C-T1--var-backend.in | 307 |
1 files changed, 307 insertions, 0 deletions
diff --git a/test/rlhc.d/case/nfa1.c-C-T1--var-backend.in b/test/rlhc.d/case/nfa1.c-C-T1--var-backend.in new file mode 100644 index 00000000..59466fd7 --- /dev/null +++ b/test/rlhc.d/case/nfa1.c-C-T1--var-backend.in @@ -0,0 +1,307 @@ +host( "working/nfa1.rl", 1 ) @{/* + * @@LANG: c + */ + + #include <string.h> + #include <stdio.h> + + int neg ; + long value ; + + struct nfa_bp_rec + { + long state; + char *p; + int pop; + }; + + struct nfa_bp_rec nfa_bp[1024]; + long nfa_len = 0; + long nfa_count = 0; + + + +}@ +array s8 _atoi_key_offsets( 0, 57 ) = { 0, 0, 5, 7, 10, 14, 18, 22, 26, 26, 29, 32, 35, 38, 41, 44, 47, 50, 53, 57, 0 }; + +array char _atoi_trans_keys( 0, 57 ) = { 43, 45, 48, 49, 57, 48, 57, 10, 48, 57, 10, 48, 49, 57, 10, 48, 49, 57, 10, 48, 49, 57, 10, 48, 49, 57, 48, 49, 57, 48, 49, 57, 48, 49, 57, 10, 48, 57, 48, 49, 57, 48, 49, 57, 48, 49, 57, 48, 49, 57, 48, 49, 57, 10, 48, 49, 57, 0 }; + +array s8 _atoi_single_lengths( 0, 3 ) = { 0, 3, 0, 1, 2, 2, 2, 2, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 0, 0 }; + +array s8 _atoi_range_lengths( 0, 1 ) = { 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0 }; + +array s8 _atoi_index_offsets( 0, 58 ) = { 0, 0, 5, 7, 10, 14, 18, 22, 26, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 58, 0 }; + +array s8 _atoi_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, -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 _atoi_trans_offsets( 0, 58 ) = { 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, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 0 }; + +array s8 _atoi_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, 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 _atoi_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, 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 _atoi_cond_targs( 0, 19 ) = { 2, 2, 4, 18, 0, 3, 0, 19, 3, 0, 19, 5, 18, 0, 19, 6, 18, 0, 19, 7, 18, 0, 19, 8, 18, 0, 0, 10, 13, 0, 11, 13, 0, 12, 13, 0, 19, 12, 0, 14, 13, 0, 15, 13, 0, 16, 13, 0, 17, 13, 0, 9, 13, 0, 19, 4, 18, 0, 0, 0 }; + +array s8 _atoi_cond_actions( 0, 7 ) = { 1, 2, 3, 3, 0, 4, 0, 5, 4, 0, 5, 4, 4, 0, 5, 4, 4, 0, 5, 4, 4, 0, 5, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 4, 4, 0, 0, 0 }; + +array s8 _atoi_nfa_targs( 0, 9 ) = { 0, 2, 3, 9, 0 }; + +array s8 _atoi_nfa_offsets( 0, 1 ) = { 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + +array s8 _atoi_nfa_push_actions( 0, 0 ) = { 0, 0, 0, 0, 0 }; + +array s8 _atoi_nfa_pop_trans( 0, 0 ) = { 0, 0, 0, 0, 0 }; + +value int atoi_start = 1; +value int atoi_first_final = 19; +value int atoi_error = 0; + +value int atoi_en_main = 1; + +host( "working/nfa1.rl", 61 ) @{ + int cs; + int blen; + char buffer[1024]; + + void init() + { + value = 0; + neg = 0; + }@ + { + cs = cast(int)atoi_start; + nfa_len = 0; + } + host( "working/nfa1.rl", 70 ) @{ + } + + void exec( char *data, int len ) + { + char *p = data; + char *pe = data + len; + }@ + { + uint _nfa_cont = 1; + uint _nfa_repeat = 1; + while ( _nfa_cont != 0 ) + { + 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 ( _have == 0 ) + _cont = 0; + } + if ( _cont == 1 ) { + if ( _have == 0 ) { + if ( _atoi_nfa_offsets[cs] ) { + int alt = 0; + int new_recs = _atoi_nfa_targs[cast(int)_atoi_nfa_offsets[cs]]; + while ( alt < new_recs ) { + nfa_bp[nfa_len].state = _atoi_nfa_targs[cast(int)_atoi_nfa_offsets[cs] + 1 + alt]; + nfa_bp[nfa_len].p = p; + nfa_len += 1; + alt += 1; + } + } + _keys = offset( _atoi_trans_keys, _atoi_key_offsets[cs] ); + _trans = cast(uint)_atoi_index_offsets[cs]; + _have = 0; + + _klen = cast(int)_atoi_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( _atoi_trans_keys, _mid ) ) + _upper = _mid - 1; + else if ( ( deref( data, p )) > deref( _atoi_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)_atoi_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( _atoi_trans_keys, _mid ) ) + _upper = _mid - 2; + else if ( ( deref( data, p )) > deref( _atoi_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( _atoi_cond_keys, _atoi_trans_offsets[_trans] ); + _klen = cast(int)_atoi_trans_lengths[_trans]; + _cond = cast(uint)_atoi_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( _atoi_cond_keys, _mid ) ) + _upper = _mid - 1; + else if ( _cpc > cast(int)deref( _atoi_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)_atoi_cond_targs[_cond]; + + switch ( _atoi_cond_actions[_cond] ) { + case 1 { + host( "working/nfa1.rl", 25 ) ${neg = 0; + value = 0; + }$ + } + case 4 { + host( "working/nfa1.rl", 33 ) ${ + value = value * 10 + ( int ) ( ={( deref( data, p ))}= - 48 ); + }$ + } + case 7 { + host( "working/nfa1.rl", 46 ) ${ + printf( "saw 80808080\n" ); + }$ + } + case 2 { + host( "working/nfa1.rl", 25 ) ${neg = 0; + value = 0; + }$ + host( "working/nfa1.rl", 29 ) ${ + neg = 1; + }$ + } + case 3 { + host( "working/nfa1.rl", 25 ) ${neg = 0; + value = 0; + }$ + host( "working/nfa1.rl", 33 ) ${ + value = value * 10 + ( int ) ( ={( deref( data, p ))}= - 48 ); + }$ + } + case 5 { + host( "working/nfa1.rl", 37 ) ${ + if ( neg != 0 ) { value = -1 * value; } + }$ + host( "working/nfa1.rl", 41 ) ${ + printf( "%ld", value ); + printf( "%s", "\n" ); + }$ + } + } + + if ( cs == 0 ) + _cont = 0; + if ( _cont == 1 ) + p += 1; + + }} + } + _nfa_repeat = 1; + while ( _nfa_repeat ) { + _nfa_repeat = 0; + if ( nfa_len > 0 ) { + int _pop_test = 1; + nfa_count += 1; + nfa_len -= 1; + p = nfa_bp[nfa_len].p; + cs = nfa_bp[nfa_len].state; + _nfa_cont = 1; + _nfa_repeat = 0; + } + else { + _nfa_cont = 0; + _nfa_repeat = 0; + } + } + } + } + host( "working/nfa1.rl", 77 ) @{ + } + + void finish( ) + { + if ( cs >= atoi_first_final ) + printf( "-> accept\n\n" ); + else + printf( "-> fail\n\n" ); + } + + char *inp[] = { + "1\n", + "12\n", + "1002000000002\n", + "222222\n", + "+2123\n", + "-12321\n", + "-99\n", + "213 3213\n", + "--123\n", + " -3000\n", + }; + + int inplen = 10; + + int main( ) + { + int i; + for ( i = 0; i < inplen; i++ ) { + init(); + exec( inp[i], strlen(inp[i]) ); + finish(); + } + return 0; + } + +}@
\ No newline at end of file |