diff options
Diffstat (limited to 'test/rlhc.d/case/call3.m-C-T1--goto-backend.in')
| -rw-r--r-- | test/rlhc.d/case/call3.m-C-T1--goto-backend.in | 274 |
1 files changed, 274 insertions, 0 deletions
diff --git a/test/rlhc.d/case/call3.m-C-T1--goto-backend.in b/test/rlhc.d/case/call3.m-C-T1--goto-backend.in new file mode 100644 index 00000000..e40520b3 --- /dev/null +++ b/test/rlhc.d/case/call3.m-C-T1--goto-backend.in @@ -0,0 +1,274 @@ +host( "working/call3.rl", 1 ) @{/* + * @@LANG: obj-c + * @@PROHIBIT_FEATFLAGS: --var-backend + */ + + #include <stdio.h> + #include <string.h> + + #import <Foundation/Foundation.h> + + int num = 0; + + @@interface CallTest : NSObject + { + @@public + /* State machine operation data. */ + int cs, top, stack[32]; + }; + + // Initialize the machine. Invokes any init statement blocks. Returns 0 + // if the machine begins in a non-accepting state and 1 if the machine + // begins in an accepting state. + - (void) initFsm; + + // Execute the machine on a block of data. Returns -1 if after processing + // the data, the machine is in the error state and can never accept, 0 if + // the machine is in a non-accepting state and 1 if the machine is in an + // accepting state. + - (void) executeWithData:(const char *)data len:(int)len; + + // Indicate that there is no more data. Returns -1 if the machine finishes + // in the error state and does not accept, 0 if the machine finishes + // in any other non-accepting state and 1 if the machine finishes in an + // accepting state. + - (int) finish; + + @@end + + @@implementation CallTest + + + +}@ +array s8 _CallTest_key_offsets( 0, 25 ) = { 0, 0, 3, 6, 7, 8, 9, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 22, 23, 24, 25, 25, 25, 25, 25, 0 }; + +array char _CallTest_trans_keys( 0, 118 ) = { 79, 48, 57, 32, 48, 57, 10, 65, 32, 101, 111, 114, 114, 111, 114, 49, 50, 107, 101, 118, 101, 110, 111, 100, 100, 0 }; + +array s8 _CallTest_single_lengths( 0, 2 ) = { 0, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0 }; + +array s8 _CallTest_range_lengths( 0, 1 ) = { 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; + +array s8 _CallTest_index_offsets( 0, 46 ) = { 0, 0, 3, 6, 8, 10, 12, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 36, 38, 40, 42, 43, 44, 45, 46, 0 }; + +array s8 _CallTest_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, 0 }; + +array s8 _CallTest_trans_offsets( 0, 46 ) = { 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, 0 }; + +array s8 _CallTest_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, 0 }; + +array s8 _CallTest_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 }; + +array s8 _CallTest_cond_targs( 0, 25 ) = { 4, 2, 0, 3, 2, 0, 23, 0, 5, 0, 6, 0, 7, 12, 0, 8, 0, 9, 0, 10, 0, 11, 0, 3, 0, 3, 0, 14, 0, 15, 0, 16, 0, 17, 0, 24, 19, 0, 20, 0, 21, 0, 25, 0, 0, 0, 0, 0 }; + +array s8 _CallTest_cond_actions( 0, 4 ) = { 0, 1, 0, 2, 1, 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, 3, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0 }; + +array s8 _CallTest_nfa_targs( 0, 0 ) = { 0, 0 }; + +array s8 _CallTest_nfa_offsets( 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 _CallTest_nfa_push_actions( 0, 0 ) = { 0, 0 }; + +array s8 _CallTest_nfa_pop_trans( 0, 0 ) = { 0, 0 }; + +value int CallTest_start = 1; +value int CallTest_first_final = 23; +value int CallTest_error = 0; + +value int CallTest_en_even = 13; +value int CallTest_en_odd = 18; +value int CallTest_en_fail = 22; +value int CallTest_en_main = 1; + +host( "working/call3.rl", 67 ) @{ + + - (void) initFsm; + { + num = 0; + }@ + { + cs = cast(int)CallTest_start; + top = 0; + } + host( "working/call3.rl", 72 ) @{ + } + + - (void) executeWithData:(const char *)data len:(int)len; + { + const char *p = data; + const char *pe = data + len; + }@ + { + int _klen; + index char _keys; + index s8 _ckeys; + int _cpc; + uint _trans = 0; + uint _cond = 0; + entry { + + if ( p == pe ) + goto _test_eof; + if ( cs == 0 ) + goto _out; + label _resume { + _keys = offset( _CallTest_trans_keys, _CallTest_key_offsets[cs] ); + _trans = cast(uint)_CallTest_index_offsets[cs]; + + _klen = cast(int)_CallTest_single_lengths[cs]; + if ( _klen > 0 ) { + index char _lower; + index char _mid; + index char _upper; + _lower = _keys; + _upper = _keys + _klen - 1; + while ( TRUE ) { + if ( _upper < _lower ) + break; + + _mid = _lower + ((_upper-_lower) >> 1); + if ( ( deref( data, p )) < deref( _CallTest_trans_keys, _mid ) ) + _upper = _mid - 1; + else if ( ( deref( data, p )) > deref( _CallTest_trans_keys, _mid ) ) + _lower = _mid + 1; + else { + _trans += cast(uint)(_mid - _keys); + goto _match; + } + } + _keys += _klen; + _trans += cast(uint)_klen; + } + + _klen = cast(int)_CallTest_range_lengths[cs]; + if ( _klen > 0 ) { + index char _lower; + index char _mid; + index char _upper; + _lower = _keys; + _upper = _keys + (_klen<<1) - 2; + while ( TRUE ) { + if ( _upper < _lower ) + break; + + _mid = _lower + (((_upper-_lower) >> 1) & ~1); + if ( ( deref( data, p )) < deref( _CallTest_trans_keys, _mid ) ) + _upper = _mid - 2; + else if ( ( deref( data, p )) > deref( _CallTest_trans_keys, _mid + 1 ) ) + _lower = _mid + 2; + else { + _trans += cast(uint)((_mid - _keys)>>1); + goto _match; + } + } + _trans += cast(uint)_klen; + } + + } + label _match { + _ckeys = offset( _CallTest_cond_keys, _CallTest_trans_offsets[_trans] ); + _klen = cast(int)_CallTest_trans_lengths[_trans]; + _cond = cast(uint)_CallTest_trans_offsets[_trans]; + + _cpc = 0; + { + index s8 _lower; + index s8 _mid; + index s8 _upper; + _lower = _ckeys; + _upper = _ckeys + _klen - 1; + while ( TRUE ) { + if ( _upper < _lower ) + break; + + _mid = _lower + ((_upper-_lower) >> 1); + if ( _cpc < cast(int)deref( _CallTest_cond_keys, _mid ) ) + _upper = _mid - 1; + else if ( _cpc > cast(int)deref( _CallTest_cond_keys, _mid ) ) + _lower = _mid + 1; + else { + _cond += cast(uint)(_mid - _ckeys); + goto _match_cond; + } + } + cs = 0; + goto _again; + } + } + label _match_cond { + cs = cast(int)_CallTest_cond_targs[_cond]; + + if ( _CallTest_cond_actions[_cond] == 0 ) + goto _again; + + switch ( _CallTest_cond_actions[_cond] ) { + case 2 { + host( "working/call3.rl", 44 ) ${ + if ( num & 1 ) + ${stack[top] = cs; top += 1;cs = 18; goto _again;}$else + ${stack[top] = cs; top += 1;cs = 13; goto _again;}$}$ + } + case 3 { + host( "working/call3.rl", 52 ) ${${p = p - 1; }$ ${top-= 1;cs = stack[top]; goto _again;}$}$ + } + case 4 { + host( "working/call3.rl", 53 ) ${${p = p - 1; }$ ${top-= 1;cs = stack[top]; goto _again;}$}$ + } + case 1 { + host( "working/call3.rl", 54 ) ${ num = num * 10 + (={( deref( data, p ))}= - '0'); }$ + } + } + + + } + label _again { + if ( cs == 0 ) + goto _out; + p += 1; + if ( p != pe ) + goto _resume; + } + label _test_eof { {} + } + label _out { {} + } + } + } + host( "working/call3.rl", 79 ) @{ + } + + - (int) finish; + { + if ( cs == CallTest_error ) + return -1; + return ( cs >= CallTest_first_final ) ? 1 : 0; + } + + @@end + + #define BUFSIZE 1024 + + void test( char *buf ) + { + CallTest *test = [[CallTest alloc] init]; + [test initFsm]; + [test executeWithData:buf len:strlen(buf)]; + if ( [test finish] > 0 ) + printf( "ACCEPT\n" ); + else + printf( "FAIL\n" ); + } + + int main() + { + test( "78 even\n" ); + test( "89 odd\n" ); + test( "1 even\n" ); + test( "0 odd\n" ); + test( "OA ok\n" ); + test( "OA error1\n" ); + test( "OA error2\n" ); + return 0; + } + +}@
\ No newline at end of file |