You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
212 lines
8.2 KiB
212 lines
8.2 KiB
# 1 "lexer.mll" |
|
|
|
open Parser |
|
exception Eof |
|
|
|
# 7 "lexer.ml" |
|
let __ocaml_lex_tables = { |
|
Lexing.lex_base = |
|
"\000\000\240\255\241\255\001\000\003\000\243\255\002\000\245\255\ |
|
\246\255\247\255\248\255\249\255\250\255\251\255\252\255\253\255\ |
|
\078\000\088\000\244\255"; |
|
Lexing.lex_backtrk = |
|
"\255\255\255\255\255\255\014\000\013\000\255\255\255\255\255\255\ |
|
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ |
|
\001\000\000\000\255\255"; |
|
Lexing.lex_default = |
|
"\255\255\000\000\000\000\255\255\255\255\000\000\255\255\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\255\255\255\255\000\000"; |
|
Lexing.lex_trans = |
|
"\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\004\000\002\000\002\000\004\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\ |
|
\004\000\000\000\000\000\004\000\000\000\000\000\000\000\000\000\ |
|
\015\000\014\000\000\000\008\000\013\000\007\000\005\000\018\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\ |
|
\017\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\ |
|
\017\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\ |
|
\017\000\017\000\017\000\012\000\000\000\011\000\000\000\000\000\ |
|
\000\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\016\000\016\000\010\000\006\000\009\000\016\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\017\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\ |
|
\017\000\017\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\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\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\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\003\000\004\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\ |
|
\000\000\255\255\255\255\004\000\255\255\255\255\255\255\255\255\ |
|
\000\000\000\000\255\255\000\000\000\000\000\000\000\000\006\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\255\255\255\255\255\255\255\255\255\255\255\255\ |
|
\255\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\255\255\000\000\255\255\255\255\ |
|
\255\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ |
|
\000\000\000\000\000\000\000\000\000\000\000\000\016\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\017\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\ |
|
\017\000\017\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\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\000\016\000\016\000\016\000\016\000\016\000\016\000\016\000\ |
|
\016\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\ |
|
\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"; |
|
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 read lexbuf = |
|
__ocaml_lex_read_rec lexbuf 0 |
|
and __ocaml_lex_read_rec lexbuf __ocaml_lex_state = |
|
match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with |
|
| 0 -> |
|
# 12 "lexer.mll" |
|
( VAR (Lexing.lexeme lexbuf) ) |
|
# 132 "lexer.ml" |
|
|
|
| 1 -> |
|
# 13 "lexer.mll" |
|
( SYM (Lexing.lexeme lexbuf) ) |
|
# 137 "lexer.ml" |
|
|
|
| 2 -> |
|
# 14 "lexer.mll" |
|
( LEFT_PAR ) |
|
# 142 "lexer.ml" |
|
|
|
| 3 -> |
|
# 15 "lexer.mll" |
|
( RIGHT_PAR ) |
|
# 147 "lexer.ml" |
|
|
|
| 4 -> |
|
# 16 "lexer.mll" |
|
( COMMA ) |
|
# 152 "lexer.ml" |
|
|
|
| 5 -> |
|
# 17 "lexer.mll" |
|
( LEFT_BRACK ) |
|
# 157 "lexer.ml" |
|
|
|
| 6 -> |
|
# 18 "lexer.mll" |
|
( RIGHT_BRACK ) |
|
# 162 "lexer.ml" |
|
|
|
| 7 -> |
|
# 19 "lexer.mll" |
|
( LEFT_BRACE ) |
|
# 167 "lexer.ml" |
|
|
|
| 8 -> |
|
# 20 "lexer.mll" |
|
( RIGHT_BRACE ) |
|
# 172 "lexer.ml" |
|
|
|
| 9 -> |
|
# 21 "lexer.mll" |
|
( PLUS ) |
|
# 177 "lexer.ml" |
|
|
|
| 10 -> |
|
# 22 "lexer.mll" |
|
( MINUS ) |
|
# 182 "lexer.ml" |
|
|
|
| 11 -> |
|
# 23 "lexer.mll" |
|
( VDASH ) |
|
# 187 "lexer.ml" |
|
|
|
| 12 -> |
|
# 24 "lexer.mll" |
|
( DOT ) |
|
# 192 "lexer.ml" |
|
|
|
| 13 -> |
|
# 25 "lexer.mll" |
|
( read lexbuf ) |
|
# 197 "lexer.ml" |
|
|
|
| 14 -> |
|
# 26 "lexer.mll" |
|
( read lexbuf ) |
|
# 202 "lexer.ml" |
|
|
|
| 15 -> |
|
# 27 "lexer.mll" |
|
( exit 0 ) |
|
# 207 "lexer.ml" |
|
|
|
| __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf; |
|
__ocaml_lex_read_rec lexbuf __ocaml_lex_state |
|
|
|
;; |
|
|
|
|