diff options
Diffstat (limited to 'test/rlhc.d/case/scan6.ml-O-F1--var-backend.in')
| -rw-r--r-- | test/rlhc.d/case/scan6.ml-O-F1--var-backend.in | 180 |
1 files changed, 180 insertions, 0 deletions
diff --git a/test/rlhc.d/case/scan6.ml-O-F1--var-backend.in b/test/rlhc.d/case/scan6.ml-O-F1--var-backend.in new file mode 100644 index 00000000..17eaa6d0 --- /dev/null +++ b/test/rlhc.d/case/scan6.ml-O-F1--var-backend.in @@ -0,0 +1,180 @@ +host( "working/scan6.rl", 1 ) @{(* + * @@LANG: ocaml + *) + + let id x = x + let fail fmt = Printf.ksprintf failwith fmt + let pr fmt = Printf.ksprintf print_endline fmt + + let failed fmt = Printf.ksprintf (fun s -> prerr_endline s; exit 1) fmt + let test' show f x y = if f x <> y then failed "FAILED: test %S" (show x) + let case = ref 0 + let test f x y = incr case; if f x <> y then failed "FAILED: case %d" !case + let error f x = match try Some (f x) with _ -> None with Some _ -> failed "FAILED: fail %S" x | None -> () + +}@ +array int _scanner_trans_keys( 0, 2 ) = { 0, 2, 0, 1, 0, 2, 0 }; + +array s8 _scanner_char_class( 0, 2 ) = { 0, 1, 2, 0 }; + +array s8 _scanner_index_offsets( 0, 5 ) = { 0, 3, 5, 0 }; + +array s8 _scanner_indicies( 0, 5 ) = { 1, 1, 2, 4, 5, 1, 1, 2, 0 }; + +array s8 _scanner_index_defaults( 0, 3 ) = { 0, 3, 0, 0 }; + +array s8 _scanner_trans_cond_spaces( -1, 0 ) = { -1, -1, -1, -1, -1, -1, 0 }; + +array s8 _scanner_cond_targs( 0, 2 ) = { 1, 0, 1, 1, 2, 2, 0 }; + +array s8 _scanner_cond_actions( 0, 7 ) = { 1, 0, 2, 5, 6, 7, 0 }; + +array s8 _scanner_to_state_actions( 0, 3 ) = { 0, 3, 0, 0 }; + +array s8 _scanner_from_state_actions( 0, 4 ) = { 0, 4, 0, 0 }; + +array s8 _scanner_eof_trans( 0, 1 ) = { 1, 0, 1, 0 }; + +array s8 _scanner_nfa_targs( 0, 0 ) = { 0, 0 }; + +array s8 _scanner_nfa_offsets( 0, 0 ) = { 0, 0, 0, 0 }; + +array s8 _scanner_nfa_push_actions( 0, 0 ) = { 0, 0 }; + +array s8 _scanner_nfa_pop_trans( 0, 0 ) = { 0, 0 }; + +value int scanner_start = 1; +value int scanner_first_final = 1; +value int scanner_error = -1; + +value int scanner_en_main = 1; + +host( "working/scan6.rl", 38 ) @{ + + let fail fmt = Printf.ksprintf failwith fmt + + let () = + let expect = ref [`Pat1; `Any; `Pat2; `Any; `Any; `Any; ] in + let got z = match !expect with + | [] -> fail "nothing more expected" + | x::xs -> expect := xs; if z <> x then fail "mismatch" + in + let ts = ref 0 and te = ref 0 and cs = ref 0 and act = ref 0 in + let data = "araabccde" in + let p = ref 0 and pe = ref (String.length data) in + let eof = ref !pe in +}@ +{ + cs = cast(int)scanner_start; + ts = nil; + te = nil; + act = 0; +} +host( "working/scan6.rl", 53 ) @{ +}@ +{ + uint _trans = 0; + uint _have = 0; + uint _cont = 1; + index int _keys; + index s8 _inds; + while ( _cont == 1 ) { + + _have = 0; + if ( p == pe ) { + if ( p == eof ) + { + if ( _scanner_eof_trans[cs] > 0 ) { + _trans = cast(uint)_scanner_eof_trans[cs] - 1; + _have = 1; + } + if ( _have == 0 ) { + } + } + + if ( _have == 0 ) + _cont = 0; + } + if ( _cont == 1 ) { + if ( _have == 0 ) { + switch ( _scanner_from_state_actions[cs] ) { + case 4 { + host( "NONE", 1 ) ${${ts = p;}$}$ + } + } + + _keys = offset( _scanner_trans_keys, (cs<<1) ); + _inds = offset( _scanner_indicies, _scanner_index_offsets[cs] ); + + if ( ( deref( data, p )) <= 99 && ( deref( data, p )) >= 97 ) + { + int _ic = cast(int)_scanner_char_class[cast(int)( deref( data, p )) - 97]; + if ( _ic <= cast(int)deref( _scanner_trans_keys, _keys+1 ) && _ic >= cast(int)deref( _scanner_trans_keys, _keys ) ) + _trans = cast(uint)deref( _scanner_indicies, _inds + cast(int)( _ic - cast(int)deref( _scanner_trans_keys, _keys ) ) ); + else + _trans = cast(uint)_scanner_index_defaults[cs]; + } + else { + _trans = cast(uint)_scanner_index_defaults[cs]; + } + + } + if ( _cont == 1 ) { + cs = cast(int)_scanner_cond_targs[_trans]; + + switch ( _scanner_cond_actions[_trans] ) { + case 2 { + host( "working/scan6.rl", 26 ) ${${te = p+1;host( "working/scan6.rl", 26 ) ${ + got `Pat2; + print_string "got pat2\n"; + }$}$}$ + } + case 5 { + host( "working/scan6.rl", 31 ) ${${te = p+1;host( "working/scan6.rl", 31 ) ${ + got `Any; + print_string "got any\n"; + }$}$}$ + } + case 1 { + host( "NONE", 1 ) ${${switch( act ) { + case 1 { + p = ((te))-1; + host( "working/scan6.rl", 21 ) ${ + got `Pat1; + print_string "got pat1\n"; + }$ } + case 3 { + p = ((te))-1; + host( "working/scan6.rl", 31 ) ${ + got `Any; + print_string "got any\n"; + }$ } + }}$ + }$ + } + case 6 { + host( "NONE", 1 ) ${${te = p+1;}$}$ + host( "working/scan6.rl", 21 ) ${${act = 1;}$}$ + } + case 7 { + host( "NONE", 1 ) ${${te = p+1;}$}$ + host( "working/scan6.rl", 31 ) ${${act = 3;}$}$ + } + } + + switch ( _scanner_to_state_actions[cs] ) { + case 3 { + host( "NONE", 1 ) ${${ts = nil;}$}$ + } + } + + if ( _cont == 1 ) + p += 1; + + }} + } +} +host( "working/scan6.rl", 54 ) @{ + () + +}@
\ No newline at end of file |