summaryrefslogtreecommitdiff
path: root/test/rlhc.d/case/clang4_ocaml.ml-O-F0--var-backend.exp
diff options
context:
space:
mode:
Diffstat (limited to 'test/rlhc.d/case/clang4_ocaml.ml-O-F0--var-backend.exp')
-rw-r--r--test/rlhc.d/case/clang4_ocaml.ml-O-F0--var-backend.exp422
1 files changed, 422 insertions, 0 deletions
diff --git a/test/rlhc.d/case/clang4_ocaml.ml-O-F0--var-backend.exp b/test/rlhc.d/case/clang4_ocaml.ml-O-F0--var-backend.exp
new file mode 100644
index 00000000..2c464bba
--- /dev/null
+++ b/test/rlhc.d/case/clang4_ocaml.ml-O-F0--var-backend.exp
@@ -0,0 +1,422 @@
+(*
+* @LANG: ocaml
+* @GENERATED: true
+*)
+
+let pos = ref 0
+let line = ref 0
+
+
+
+
+
+
+let _clang_actions : int array = [|
+0; 1; 0; 1; 1; 1; 2; 1; 3; 1; 4; 1; 5; 1; 6; 1; 7; 1; 8; 2; 0; 2; 2; 1; 0; 2; 3; 1; 2; 3; 2; 2; 4; 1; 2; 4; 2; 2; 5; 1; 2; 5; 2; 2; 6; 1; 2; 6; 2; 2; 7; 1; 2; 7; 2; 2; 8; 1; 2; 8; 2; 3; 3; 1; 0; 3; 4; 1; 0; 3; 5; 1; 0; 3; 6; 1; 0; 3; 7; 1; 0; 3; 8; 1; 0; 0 ;
+|]
+let _clang_trans_keys : int array = [|
+1; 0; 0; 13; 0; 13; 0; 13; 0; 13; 0; 13; 0; 13; 8; 9; 8; 10; 0; 13; 1; 13; 1; 13; 1; 13; 1; 13; 1; 13; 1; 13; 1; 13; 1; 13; 1; 13; 0 ;
+|]
+let _clang_char_class : int array = [|
+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; 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; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 1; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 2; 3; 4; 4; 4; 4; 5; 4; 4; 4; 4; 4; 4; 6; 7; 8; 9; 9; 9; 9; 9; 9; 9; 9; 9; 4; 4; 4; 4; 4; 4; 4; 10; 10; 10; 10; 10; 10; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 4; 12; 4; 4; 11; 4; 10; 10; 10; 10; 10; 10; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 11; 13; 11; 11; 4; 4; 4; 4; 0; 0 ;
+|]
+let _clang_index_offsets : int array = [|
+0; 0; 14; 28; 42; 56; 70; 84; 86; 89; 103; 116; 129; 142; 155; 168; 181; 194; 207; 0 ;
+|]
+let _clang_indicies : int array = [|
+0; 2; 0; 3; 0; 0; 0; 0; 0; 0; 0; 0; 4; 0; 5; 6; 5; 5; 5; 3; 5; 5; 5; 5; 5; 5; 7; 5; 5; 6; 5; 5; 5; 5; 5; 5; 5; 5; 5; 5; 5; 5; 8; 9; 10; 8; 8; 8; 8; 8; 8; 8; 8; 8; 8; 8; 8; 9; 10; 8; 8; 8; 8; 11; 8; 8; 8; 8; 8; 8; 12; 13; 12; 12; 12; 12; 12; 12; 12; 12; 12; 12; 12; 12; 14; 14; 15; 15; 15; 0; 2; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 13; 16; 17; 16; 18; 16; 19; 20; 21; 22; 22; 16; 22; 24; 25; 26; 25; 27; 25; 28; 29; 30; 31; 31; 25; 31; 33; 34; 35; 34; 36; 34; 37; 38; 39; 40; 40; 34; 40; 24; 8; 26; 25; 27; 25; 12; 29; 30; 31; 31; 25; 31; 42; 43; 44; 43; 45; 46; 47; 48; 48; 49; 49; 43; 50; 52; 53; 54; 53; 55; 53; 56; 14; 14; 57; 57; 53; 57; 59; 60; 61; 60; 62; 60; 63; 64; 64; 64; 64; 60; 64; 42; 43; 44; 43; 45; 46; 47; 48; 48; 49; 49; 43; 49; 66; 67; 68; 67; 69; 67; 70; 71; 71; 71; 72; 67; 72; 0 ;
+|]
+let _clang_index_defaults : int array = [|
+0; 1; 1; 1; 1; 1; 1; 1; 1; 1; 11; 23; 32; 23; 41; 51; 58; 41; 65; 0 ;
+|]
+let _clang_trans_cond_spaces : int array = [|
+-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; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; -1; 0 ;
+|]
+let _clang_cond_targs : int array = [|
+1; 0; 1; 12; 9; 2; 2; 3; 4; 4; 5; 10; 6; 10; 15; 18; 11; 1; 2; 13; 14; 17; 16; 10; 10; 11; 1; 2; 13; 14; 17; 16; 10; 10; 11; 1; 2; 13; 14; 17; 16; 10; 10; 11; 1; 2; 7; 13; 17; 16; 8; 10; 10; 11; 1; 2; 13; 16; 10; 10; 11; 1; 2; 13; 16; 10; 10; 11; 1; 2; 13; 18; 16; 0 ;
+|]
+let _clang_cond_actions : int array = [|
+1; 0; 19; 0; 0; 1; 19; 0; 0; 5; 0; 0; 0; 5; 1; 22; 22; 3; 3; 22; 22; 22; 22; 17; 58; 81; 55; 55; 81; 81; 81; 81; 9; 34; 65; 31; 31; 65; 65; 65; 65; 13; 46; 73; 43; 43; 1; 73; 1; 73; 0; 11; 40; 69; 37; 37; 69; 69; 7; 28; 61; 25; 25; 61; 1; 15; 52; 77; 49; 49; 77; 1; 77; 0 ;
+|]
+let _clang_eof_actions : int array = [|
+0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 17; 9; 17; 13; 11; 7; 13; 15; 0 ;
+|]
+let _clang_nfa_targs : int array = [|
+0; 0 ;
+|]
+let _clang_nfa_offsets : int array = [|
+0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0; 0 ;
+|]
+let _clang_nfa_push_actions : int array = [|
+0; 0 ;
+|]
+let _clang_nfa_pop_trans : int array = [|
+0; 0 ;
+|]
+let clang_start : int = 10
+let clang_first_final : int = 10
+let clang_error : int = 0
+let clang_en_main : int = 10
+let exec data =
+let buffer = String.create(1024) in
+let blen :int ref = ref 0 in
+let cs = ref 0 in
+let p = ref 0 in
+let pe = ref (String.length data) in
+let eof = pe in
+pos := 0;
+line := 1;
+begin
+ cs := clang_start;
+
+end;
+begin
+ let _trans : int ref = ref 0 in
+ let _have : int ref = ref 0 in
+ let _cont : int ref = ref 1 in
+ let _acts : int ref = ref 0 in
+ let _nacts : int ref = ref 0 in
+ let _keys : int ref = ref 0 in
+ let _inds : int ref = ref 0 in
+ while _cont.contents= 1 do
+ begin
+ if cs.contents= 0 then
+ begin
+ _cont := 0;
+
+ end
+ ;_have := 0;
+ if p.contents= pe.contents then
+ begin
+ begin
+ if p.contents= eof.contents then
+ begin
+ begin
+ if _have.contents= 0 then
+ begin
+ begin
+ let __acts : int ref = ref 0 in
+ let __nacts : int ref = ref 0 in
+ __acts := _clang_eof_actions.(cs.contents);
+ __nacts := _clang_actions.( __acts.contents );
+ __acts := __acts.contents + 1;
+ while __nacts.contents> 0 do
+ begin
+ if _clang_actions.( __acts.contents ) = 3 then
+ begin
+ begin
+ print_string( "ident(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( __acts.contents ) = 4 then
+ begin
+ begin
+ print_string( "literal(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( __acts.contents ) = 5 then
+ begin
+ begin
+ print_string( "float(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( __acts.contents ) = 6 then
+ begin
+ begin
+ print_string( "int(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( __acts.contents ) = 7 then
+ begin
+ begin
+ print_string( "hex(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( __acts.contents ) = 8 then
+ begin
+ begin
+ print_string( "symbol(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ ;
+ __nacts := __nacts.contents - 1;
+ __acts := __acts.contents + 1;
+
+ end;
+
+ done;
+
+ end;
+
+ end
+ ;
+ end;
+
+ end
+ ;if _have.contents= 0 then
+ begin
+ _cont := 0;
+
+ end
+ ;
+ end;
+
+ end
+ ;if _cont.contents= 1 then
+ begin
+ begin
+ if _have.contents= 0 then
+ begin
+ begin
+ _keys := ( cs.contents lsl 1 );
+ _inds := _clang_index_offsets.(cs.contents);
+ if ( Char.code data.[p.contents] )<= 127 && ( Char.code data.[p.contents] )>= -128 then
+ begin
+ begin
+ let _ic : int ref = ref _clang_char_class.(( Char.code data.[p.contents] )- -128) in
+ if _ic.contents<= _clang_trans_keys.( _keys.contents+1 )&& _ic.contents>= _clang_trans_keys.( _keys.contents ) then
+ begin
+ _trans := _clang_indicies.( _inds.contents+ ( _ic.contents- _clang_trans_keys.( _keys.contents ) ) );
+
+ end
+ else
+ begin
+ _trans := _clang_index_defaults.(cs.contents);
+
+ end
+ ;
+ end;
+
+ end
+ else
+ begin
+ begin
+ _trans := _clang_index_defaults.(cs.contents);
+
+ end;
+
+ end
+ ;
+ end;
+
+ end
+ ;if _cont.contents= 1 then
+ begin
+ begin
+ cs := _clang_cond_targs.(_trans.contents);
+ if _clang_cond_actions.(_trans.contents)!= 0 then
+ begin
+ begin
+ _acts := _clang_cond_actions.(_trans.contents);
+ _nacts := _clang_actions.( _acts.contents );
+ _acts := _acts.contents + 1;
+ while _nacts.contents> 0 do
+ begin
+ if _clang_actions.( _acts.contents ) = 0 then
+ begin
+ begin
+ begin
+ String.set buffer blen.contents data.[p.contents];
+ blen := blen.contents + 1;
+ end
+
+ end;
+
+ end
+ else if _clang_actions.( _acts.contents ) = 1 then
+ begin
+ begin
+ begin
+ blen := 0;
+ end
+
+ end;
+
+ end
+ else if _clang_actions.( _acts.contents ) = 2 then
+ begin
+ begin
+ line := line .contents + 1;
+
+ end;
+
+ end
+ else if _clang_actions.( _acts.contents ) = 3 then
+ begin
+ begin
+ print_string( "ident(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( _acts.contents ) = 4 then
+ begin
+ begin
+ print_string( "literal(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( _acts.contents ) = 5 then
+ begin
+ begin
+ print_string( "float(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( _acts.contents ) = 6 then
+ begin
+ begin
+ print_string( "int(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( _acts.contents ) = 7 then
+ begin
+ begin
+ print_string( "hex(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ else if _clang_actions.( _acts.contents ) = 8 then
+ begin
+ begin
+ print_string( "symbol(" );
+ print_int( line.contents );
+ print_string( "," );
+ print_int( blen.contents );
+ print_string( "): " );
+ print_string( String.sub buffer 0 blen.contents );
+ print_string( "\n" );
+
+ end;
+
+ end
+ ;
+ _nacts := _nacts.contents - 1;
+ _acts := _acts.contents + 1;
+
+ end;
+
+ done;
+
+ end;
+
+ end
+ ;if cs.contents= 0 then
+ begin
+ _cont := 0;
+
+ end
+ ;if _cont.contents= 1 then
+ begin
+ p := p.contents + 1;
+
+ end
+ ;
+ end;
+
+ end
+ ;
+ end;
+
+ end
+ ;
+ end;
+
+ done;
+
+end;
+if !cs >= clang_first_final then
+print_string "ACCEPT\n"
+else
+print_string "FAIL\n"
+;;
+
+let () =
+exec "999 0xaAFF99 99.99 /!\n!/ 'lksdj' //\n\"\n\nliteral\n\n\n\"0x00aba foobardd.ddsf 0x0.9\n";
+exec "wordwithnum00asdf\n000wordfollowsnum,makes new symbol\n\nfinishing early /! unfinished ...\n";
+()
+;;
+
View Lorry Controller Status