You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
186 lines
8.0 KiB
OCaml
186 lines
8.0 KiB
OCaml
# 13 "polynomial_lexer.mll"
|
|
|
|
open Polynomial_parser
|
|
|
|
# 6 "polynomial_lexer.ml"
|
|
let __ocaml_lex_tables = {
|
|
Lexing.lex_base =
|
|
"\000\000\245\255\246\255\247\255\248\255\249\255\250\255\252\255\
|
|
\014\000\024\000\255\255\047\000\057\000";
|
|
Lexing.lex_backtrk =
|
|
"\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\001\000\004\000\255\255\255\255\002\000";
|
|
Lexing.lex_default =
|
|
"\255\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\255\255\255\255\000\000\255\255\255\255";
|
|
Lexing.lex_trans =
|
|
"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\010\000\002\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\010\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\006\000\007\000\000\000\009\000\000\000\000\000\
|
|
\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\
|
|
\008\000\008\000\000\000\000\000\011\000\004\000\008\000\008\000\
|
|
\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\
|
|
\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\
|
|
\008\000\008\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\003\000\000\000\000\000\000\000\000\000\000\000\005\000\012\000\
|
|
\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\
|
|
\012\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\
|
|
\012\000\012\000\012\000\000\000\000\000\000\000\000\000\000\000\
|
|
\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\001\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000";
|
|
Lexing.lex_check =
|
|
"\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\000\000\000\000\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\000\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\000\000\000\000\255\255\000\000\255\255\255\255\
|
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
|
|
\000\000\000\000\255\255\255\255\008\000\000\000\008\000\008\000\
|
|
\008\000\008\000\008\000\008\000\008\000\008\000\008\000\008\000\
|
|
\009\000\009\000\009\000\009\000\009\000\009\000\009\000\009\000\
|
|
\009\000\009\000\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\000\000\255\255\255\255\255\255\255\255\255\255\000\000\011\000\
|
|
\011\000\011\000\011\000\011\000\011\000\011\000\011\000\011\000\
|
|
\011\000\012\000\012\000\012\000\012\000\012\000\012\000\012\000\
|
|
\012\000\012\000\012\000\255\255\255\255\255\255\255\255\255\255\
|
|
\000\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\000\000\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
|
|
\255\255\255\255";
|
|
Lexing.lex_base_code =
|
|
"";
|
|
Lexing.lex_backtrk_code =
|
|
"";
|
|
Lexing.lex_default_code =
|
|
"";
|
|
Lexing.lex_trans_code =
|
|
"";
|
|
Lexing.lex_check_code =
|
|
"";
|
|
Lexing.lex_code =
|
|
"";
|
|
}
|
|
|
|
let rec lex lexbuf =
|
|
__ocaml_lex_lex_rec lexbuf 0
|
|
and __ocaml_lex_lex_rec lexbuf __ocaml_lex_state =
|
|
match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with
|
|
| 0 ->
|
|
# 23 "polynomial_lexer.mll"
|
|
( lex lexbuf )
|
|
# 120 "polynomial_lexer.ml"
|
|
|
|
| 1 ->
|
|
let
|
|
# 24 "polynomial_lexer.mll"
|
|
i
|
|
# 126 "polynomial_lexer.ml"
|
|
= Lexing.sub_lexeme lexbuf lexbuf.Lexing.lex_start_pos lexbuf.Lexing.lex_curr_pos in
|
|
# 24 "polynomial_lexer.mll"
|
|
( INT(int_of_string i) )
|
|
# 130 "polynomial_lexer.ml"
|
|
|
|
| 2 ->
|
|
let
|
|
# 25 "polynomial_lexer.mll"
|
|
f
|
|
# 136 "polynomial_lexer.ml"
|
|
= Lexing.sub_lexeme lexbuf lexbuf.Lexing.lex_start_pos lexbuf.Lexing.lex_curr_pos in
|
|
# 25 "polynomial_lexer.mll"
|
|
( FLOAT(float_of_string f) )
|
|
# 140 "polynomial_lexer.ml"
|
|
|
|
| 3 ->
|
|
# 26 "polynomial_lexer.mll"
|
|
( PLUS )
|
|
# 145 "polynomial_lexer.ml"
|
|
|
|
| 4 ->
|
|
# 27 "polynomial_lexer.mll"
|
|
( MINUS )
|
|
# 150 "polynomial_lexer.ml"
|
|
|
|
| 5 ->
|
|
# 28 "polynomial_lexer.mll"
|
|
( TIMES )
|
|
# 155 "polynomial_lexer.ml"
|
|
|
|
| 6 ->
|
|
# 29 "polynomial_lexer.mll"
|
|
( POWER )
|
|
# 160 "polynomial_lexer.ml"
|
|
|
|
| 7 ->
|
|
# 30 "polynomial_lexer.mll"
|
|
( EQUAL )
|
|
# 165 "polynomial_lexer.ml"
|
|
|
|
| 8 ->
|
|
# 31 "polynomial_lexer.mll"
|
|
( VAR )
|
|
# 170 "polynomial_lexer.ml"
|
|
|
|
| 9 ->
|
|
# 32 "polynomial_lexer.mll"
|
|
( EOF )
|
|
# 175 "polynomial_lexer.ml"
|
|
|
|
| 10 ->
|
|
# 33 "polynomial_lexer.mll"
|
|
( EOF )
|
|
# 180 "polynomial_lexer.ml"
|
|
|
|
| __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf;
|
|
__ocaml_lex_lex_rec lexbuf __ocaml_lex_state
|
|
|
|
;;
|
|
|