diff --git a/testsuite/tests/tool-lexyacc/input.ml b/testsuite/tests/tool-lexyacc/input.ml deleted file mode 100644 index 002bf72c7ef7..000000000000 --- a/testsuite/tests/tool-lexyacc/input.ml +++ /dev/null @@ -1,311 +0,0 @@ - -open Syntax -open Grammar -open Scan_aux - -let rec action_43 lexbuf = ( - comment lexbuf ) -and action_42 lexbuf = ( - raise(Lexical_error "unterminated comment") ) -and action_41 lexbuf = ( - reset_string_buffer(); - string lexbuf; - reset_string_buffer(); - comment lexbuf ) -and action_40 lexbuf = ( - decr comment_depth; - if !comment_depth = 0 then () else comment lexbuf ) -and action_39 lexbuf = ( - incr comment_depth; comment lexbuf ) -and action_38 lexbuf = ( - raise(Lexical_error "bad character constant") ) -and action_37 lexbuf = ( - char_for_decimal_code lexbuf 1 ) -and action_36 lexbuf = ( - char_for_backslash (Lexing.lexeme_char lexbuf 1) ) -and action_35 lexbuf = ( - Lexing.lexeme_char lexbuf 0 ) -and action_34 lexbuf = ( - store_string_char(Lexing.lexeme_char lexbuf 0); - string lexbuf ) -and action_33 lexbuf = ( - raise(Lexical_error "unterminated string") ) -and action_32 lexbuf = ( - store_string_char(char_for_decimal_code lexbuf 1); - string lexbuf ) -and action_31 lexbuf = ( - store_string_char(char_for_backslash(Lexing.lexeme_char lexbuf 1)); - string lexbuf ) -and action_30 lexbuf = ( - string lexbuf ) -and action_29 lexbuf = ( - () ) -and action_28 lexbuf = ( - action lexbuf ) -and action_27 lexbuf = ( - raise (Lexical_error "unterminated action") ) -and action_26 lexbuf = ( - comment_depth := 1; - comment lexbuf; - action lexbuf ) -and action_25 lexbuf = ( - let _ = char lexbuf in action lexbuf ) -and action_24 lexbuf = ( - reset_string_buffer(); - string lexbuf; - reset_string_buffer(); - action lexbuf ) -and action_23 lexbuf = ( - decr brace_depth; - if !brace_depth = 0 then Lexing.lexeme_start lexbuf else action lexbuf ) -and action_22 lexbuf = ( - incr brace_depth; - action lexbuf ) -and action_21 lexbuf = ( - raise(Lexical_error("illegal character " ^ Lexing.lexeme lexbuf)) ) -and action_20 lexbuf = ( - raise(Lexical_error "unterminated lexer definition") ) -and action_19 lexbuf = ( - Tdash ) -and action_18 lexbuf = ( - Tcaret ) -and action_17 lexbuf = ( - Trparen ) -and action_16 lexbuf = ( - Tlparen ) -and action_15 lexbuf = ( - Tplus ) -and action_14 lexbuf = ( - Tmaybe ) -and action_13 lexbuf = ( - Tstar ) -and action_12 lexbuf = ( - Trbracket ) -and action_11 lexbuf = ( - Tlbracket ) -and action_10 lexbuf = ( - Teof ) -and action_9 lexbuf = ( - Tunderscore ) -and action_8 lexbuf = ( - Tor ) -and action_7 lexbuf = ( - Tend ) -and action_6 lexbuf = ( - Tequal ) -and action_5 lexbuf = ( - let n1 = Lexing.lexeme_end lexbuf in - brace_depth := 1; - let n2 = action lexbuf in - Taction(Location(n1, n2)) ) -and action_4 lexbuf = ( - Tchar(char lexbuf) ) -and action_3 lexbuf = ( - reset_string_buffer(); - string lexbuf; - Tstring(get_stored_string()) ) -and action_2 lexbuf = ( - match Lexing.lexeme lexbuf with - "rule" -> Trule - | "parse" -> Tparse - | "and" -> Tand - | "eof" -> Teof - | s -> Tident s ) -and action_1 lexbuf = ( - comment_depth := 1; - comment lexbuf; - main lexbuf ) -and action_0 lexbuf = ( - main lexbuf ) -and state_0 lexbuf = - match lexing.next_char lexbuf with - 'z'|'y'|'x'|'w'|'v'|'u'|'t'|'s'|'r'|'q'|'p'|'o'|'n'|'m'|'l'|'k'|'j'|'i'|'h'|'g'|'f'|'d'|'c'|'b'|'a'|'Z'|'Y'|'X'|'W'|'V'|'U'|'T'|'S'|'R'|'Q'|'P'|'O'|'N'|'M'|'L'|'K'|'J'|'I'|'H'|'G'|'F'|'E'|'D'|'C'|'B'|'A' -> state_51 lexbuf - | ' '|'\013'|'\n'|'\t' -> state_40 lexbuf - | '|' -> action_8 lexbuf - | '{' -> action_5 lexbuf - | 'e' -> state_56 lexbuf - | '_' -> state_55 lexbuf - | '^' -> action_18 lexbuf - | ']' -> action_12 lexbuf - | '[' -> action_11 lexbuf - | '?' -> action_14 lexbuf - | '=' -> action_6 lexbuf - | ';' -> state_48 lexbuf - | '-' -> action_19 lexbuf - | '+' -> action_15 lexbuf - | '*' -> action_13 lexbuf - | ')' -> action_17 lexbuf - | '(' -> state_43 lexbuf - | '\'' -> action_4 lexbuf - | '"' -> action_3 lexbuf - | '\000' -> action_20 lexbuf - | _ -> action_21 lexbuf -and state_1 lexbuf = - match lexing.next_char lexbuf with - '}' -> action_23 lexbuf - | '{' -> action_22 lexbuf - | '(' -> state_34 lexbuf - | '\'' -> action_25 lexbuf - | '"' -> action_24 lexbuf - | '\000' -> action_27 lexbuf - | _ -> action_28 lexbuf -and state_2 lexbuf = - match lexing.next_char lexbuf with - '\\' -> state_24 lexbuf - | '"' -> action_29 lexbuf - | '\000' -> action_33 lexbuf - | _ -> action_34 lexbuf -and state_3 lexbuf = - match lexing.next_char lexbuf with - '\\' -> state_13 lexbuf - | '\000' -> lexing.backtrack lexbuf - | _ -> state_12 lexbuf -and state_4 lexbuf = - match lexing.next_char lexbuf with - '*' -> state_9 lexbuf - | '(' -> state_8 lexbuf - | '"' -> action_41 lexbuf - | '\000' -> action_42 lexbuf - | _ -> action_43 lexbuf -and state_8 lexbuf = - Lexing.set_backtrack lexbuf action_43; - match lexing.next_char lexbuf with - '*' -> action_39 lexbuf - | _ -> lexing.backtrack lexbuf -and state_9 lexbuf = - Lexing.set_backtrack lexbuf action_43; - match lexing.next_char lexbuf with - ')' -> action_40 lexbuf - | _ -> lexing.backtrack lexbuf -and state_12 lexbuf = - Lexing.set_backtrack lexbuf action_38; - match lexing.next_char lexbuf with - '\'' -> action_35 lexbuf - | _ -> lexing.backtrack lexbuf -and state_13 lexbuf = - Lexing.set_backtrack lexbuf action_38; - match lexing.next_char lexbuf with - '9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0' -> state_15 lexbuf - | 't'|'r'|'n'|'b'|'\\'|'\'' -> state_14 lexbuf - | _ -> lexing.backtrack lexbuf -and state_14 lexbuf = - match lexing.next_char lexbuf with - '\'' -> action_36 lexbuf - | _ -> lexing.backtrack lexbuf -and state_15 lexbuf = - match lexing.next_char lexbuf with - '9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0' -> state_16 lexbuf - | _ -> lexing.backtrack lexbuf -and state_16 lexbuf = - match lexing.next_char lexbuf with - '9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0' -> state_17 lexbuf - | _ -> lexing.backtrack lexbuf -and state_17 lexbuf = - match lexing.next_char lexbuf with - '\'' -> action_37 lexbuf - | _ -> lexing.backtrack lexbuf -and state_24 lexbuf = - Lexing.set_backtrack lexbuf action_34; - match lexing.next_char lexbuf with - '9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0' -> state_27 lexbuf - | 't'|'r'|'n'|'b'|'\\'|'"' -> action_31 lexbuf - | ' '|'\026'|'\013'|'\012'|'\n'|'\t' -> state_25 lexbuf - | _ -> lexing.backtrack lexbuf -and state_25 lexbuf = - Lexing.set_backtrack lexbuf action_30; - match lexing.next_char lexbuf with - ' '|'\026'|'\013'|'\012'|'\n'|'\t' -> state_25 lexbuf - | _ -> lexing.backtrack lexbuf -and state_27 lexbuf = - match lexing.next_char lexbuf with - '9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0' -> state_28 lexbuf - | _ -> lexing.backtrack lexbuf -and state_28 lexbuf = - match lexing.next_char lexbuf with - '9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0' -> action_32 lexbuf - | _ -> lexing.backtrack lexbuf -and state_34 lexbuf = - Lexing.set_backtrack lexbuf action_28; - match lexing.next_char lexbuf with - '*' -> action_26 lexbuf - | _ -> lexing.backtrack lexbuf -and state_40 lexbuf = - Lexing.set_backtrack lexbuf action_0; - match lexing.next_char lexbuf with - ' '|'\013'|'\n'|'\t' -> state_65 lexbuf - | _ -> lexing.backtrack lexbuf -and state_43 lexbuf = - Lexing.set_backtrack lexbuf action_16; - match lexing.next_char lexbuf with - '*' -> action_1 lexbuf - | _ -> lexing.backtrack lexbuf -and state_48 lexbuf = - Lexing.set_backtrack lexbuf action_21; - match lexing.next_char lexbuf with - ';' -> action_7 lexbuf - | _ -> lexing.backtrack lexbuf -and state_51 lexbuf = - Lexing.set_backtrack lexbuf action_2; - match lexing.next_char lexbuf with - 'z'|'y'|'x'|'w'|'v'|'u'|'t'|'s'|'r'|'q'|'p'|'o'|'n'|'m'|'l'|'k'|'j'|'i'|'h'|'g'|'f'|'e'|'d'|'c'|'b'|'a'|'Z'|'Y'|'X'|'W'|'V'|'U'|'T'|'S'|'R'|'Q'|'P'|'O'|'N'|'M'|'L'|'K'|'J'|'I'|'H'|'G'|'F'|'E'|'D'|'C'|'B'|'A'|'9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0'|'\'' -> state_59 lexbuf - | '_' -> state_60 lexbuf - | _ -> lexing.backtrack lexbuf -and state_55 lexbuf = - Lexing.set_backtrack lexbuf action_9; - match lexing.next_char lexbuf with - 'z'|'y'|'x'|'w'|'v'|'u'|'t'|'s'|'r'|'q'|'p'|'o'|'n'|'m'|'l'|'k'|'j'|'i'|'h'|'g'|'f'|'e'|'d'|'c'|'b'|'a'|'Z'|'Y'|'X'|'W'|'V'|'U'|'T'|'S'|'R'|'Q'|'P'|'O'|'N'|'M'|'L'|'K'|'J'|'I'|'H'|'G'|'F'|'E'|'D'|'C'|'B'|'A'|'9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0'|'\'' -> state_59 lexbuf - | _ -> lexing.backtrack lexbuf -and state_56 lexbuf = - Lexing.set_backtrack lexbuf action_2; - match lexing.next_char lexbuf with - 'z'|'y'|'x'|'w'|'v'|'u'|'t'|'s'|'r'|'q'|'p'|'n'|'m'|'l'|'k'|'j'|'i'|'h'|'g'|'f'|'e'|'d'|'c'|'b'|'a'|'Z'|'Y'|'X'|'W'|'V'|'U'|'T'|'S'|'R'|'Q'|'P'|'O'|'N'|'M'|'L'|'K'|'J'|'I'|'H'|'G'|'F'|'E'|'D'|'C'|'B'|'A'|'9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0'|'\'' -> state_59 lexbuf - | 'o' -> state_61 lexbuf - | '_' -> state_60 lexbuf - | _ -> lexing.backtrack lexbuf -and state_59 lexbuf = - Lexing.set_backtrack lexbuf action_2; - match lexing.next_char lexbuf with - 'z'|'y'|'x'|'w'|'v'|'u'|'t'|'s'|'r'|'q'|'p'|'o'|'n'|'m'|'l'|'k'|'j'|'i'|'h'|'g'|'f'|'e'|'d'|'c'|'b'|'a'|'Z'|'Y'|'X'|'W'|'V'|'U'|'T'|'S'|'R'|'Q'|'P'|'O'|'N'|'M'|'L'|'K'|'J'|'I'|'H'|'G'|'F'|'E'|'D'|'C'|'B'|'A'|'9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0'|'\'' -> state_59 lexbuf - | '_' -> state_60 lexbuf - | _ -> lexing.backtrack lexbuf -and state_60 lexbuf = - match lexing.next_char lexbuf with - 'z'|'y'|'x'|'w'|'v'|'u'|'t'|'s'|'r'|'q'|'p'|'o'|'n'|'m'|'l'|'k'|'j'|'i'|'h'|'g'|'f'|'e'|'d'|'c'|'b'|'a'|'Z'|'Y'|'X'|'W'|'V'|'U'|'T'|'S'|'R'|'Q'|'P'|'O'|'N'|'M'|'L'|'K'|'J'|'I'|'H'|'G'|'F'|'E'|'D'|'C'|'B'|'A'|'9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0'|'\'' -> state_59 lexbuf - | _ -> lexing.backtrack lexbuf -and state_61 lexbuf = - Lexing.set_backtrack lexbuf action_2; - match lexing.next_char lexbuf with - 'z'|'y'|'x'|'w'|'v'|'u'|'t'|'s'|'r'|'q'|'p'|'o'|'n'|'m'|'l'|'k'|'j'|'i'|'h'|'g'|'e'|'d'|'c'|'b'|'a'|'Z'|'Y'|'X'|'W'|'V'|'U'|'T'|'S'|'R'|'Q'|'P'|'O'|'N'|'M'|'L'|'K'|'J'|'I'|'H'|'G'|'F'|'E'|'D'|'C'|'B'|'A'|'9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0'|'\'' -> state_59 lexbuf - | 'f' -> state_62 lexbuf - | '_' -> state_60 lexbuf - | _ -> lexing.backtrack lexbuf -and state_62 lexbuf = - Lexing.set_backtrack lexbuf action_2; - match lexing.next_char lexbuf with - 'z'|'y'|'x'|'w'|'v'|'u'|'t'|'s'|'r'|'q'|'p'|'o'|'n'|'m'|'l'|'k'|'j'|'i'|'h'|'g'|'f'|'e'|'d'|'c'|'b'|'a'|'Z'|'Y'|'X'|'W'|'V'|'U'|'T'|'S'|'R'|'Q'|'P'|'O'|'N'|'M'|'L'|'K'|'J'|'I'|'H'|'G'|'F'|'E'|'D'|'C'|'B'|'A'|'9'|'8'|'7'|'6'|'5'|'4'|'3'|'2'|'1'|'0'|'\'' -> state_59 lexbuf - | '_' -> state_60 lexbuf - | _ -> lexing.backtrack lexbuf -and state_65 lexbuf = - Lexing.set_backtrack lexbuf action_0; - match lexing.next_char lexbuf with - ' '|'\013'|'\n'|'\t' -> state_65 lexbuf - | _ -> lexing.backtrack lexbuf -and main lexbuf = - Lexing.init lexbuf; - state_0 lexbuf - -and action lexbuf = - Lexing.init lexbuf; - state_1 lexbuf - -and string lexbuf = - Lexing.init lexbuf; - state_2 lexbuf - -and char lexbuf = - Lexing.init lexbuf; - state_3 lexbuf - -and comment lexbuf = - Lexing.init lexbuf; - state_4 lexbuf