89 lines
1.2 KiB
OCaml
89 lines
1.2 KiB
OCaml
type token =
|
|
| IDENTIFIER of (string)
|
|
| TYPE_NAME of (string)
|
|
| CONSTANT of (int)
|
|
| STRING_LITERAL of (string)
|
|
| SIZEOF
|
|
| PTR_OP
|
|
| INC_OP
|
|
| DEC_OP
|
|
| LEFT_OP
|
|
| RIGHT_OP
|
|
| LE_OP
|
|
| GE_OP
|
|
| EQ_OP
|
|
| NE_OP
|
|
| AND_OP
|
|
| OR_OP
|
|
| MUL_ASSIGN
|
|
| DIV_ASSIGN
|
|
| MOD_ASSIGN
|
|
| ADD_ASSIGN
|
|
| SUB_ASSIGN
|
|
| LEFT_ASSIGN
|
|
| RIGHT_ASSIGN
|
|
| AND_ASSIGN
|
|
| XOR_ASSIGN
|
|
| OR_ASSIGN
|
|
| SEMI_CHR
|
|
| OPEN_BRACE_CHR
|
|
| CLOSE_BRACE_CHR
|
|
| COMMA_CHR
|
|
| COLON_CHR
|
|
| EQ_CHR
|
|
| OPEN_PAREN_CHR
|
|
| CLOSE_PAREN_CHR
|
|
| OPEN_BRACKET_CHR
|
|
| CLOSE_BRACKET_CHR
|
|
| DOT_CHR
|
|
| AND_CHR
|
|
| OR_CHR
|
|
| XOR_CHR
|
|
| BANG_CHR
|
|
| TILDE_CHR
|
|
| ADD_CHR
|
|
| SUB_CHR
|
|
| STAR_CHR
|
|
| DIV_CHR
|
|
| MOD_CHR
|
|
| OPEN_ANGLE_CHR
|
|
| CLOSE_ANGLE_CHR
|
|
| QUES_CHR
|
|
| TYPEDEF
|
|
| EXTERN
|
|
| STATIC
|
|
| AUTO
|
|
| REGISTER
|
|
| CHAR
|
|
| SHORT
|
|
| INTEGER
|
|
| LONG
|
|
| SIGNED
|
|
| UNSIGNED
|
|
| FLOATING
|
|
| DOUBLE
|
|
| CONST
|
|
| VOLATILE
|
|
| VOID
|
|
| STRUCT
|
|
| UNION
|
|
| ENUM
|
|
| ELLIPSIS
|
|
| EOF
|
|
| CASE
|
|
| DEFAULT
|
|
| IF
|
|
| ELSE
|
|
| SWITCH
|
|
| WHILE
|
|
| DO
|
|
| FOR
|
|
| GOTO
|
|
| CONTINUE
|
|
| BREAK
|
|
| RETURN
|
|
| ASM
|
|
|
|
val translation_unit :
|
|
(Lexing.lexbuf -> token) -> Lexing.lexbuf -> (Cparse.var_declaration list)
|