-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathscanner_pp.ml
53 lines (52 loc) · 2.61 KB
/
scanner_pp.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
open Parser;;
let pretty_print = function
| LPAREN -> Printf.sprintf "LPAREN"
| RPAREN -> Printf.sprintf "RPAREN"
| LBRACE -> Printf.sprintf "LBRACE"
| RBRACE -> Printf.sprintf "RBRACE"
| RBRACKET -> Printf.sprintf "RBRACKET"
| LBRACKET -> Printf.sprintf "LBRACKET"
| EOF -> Printf.sprintf "EOF"
| COMMA -> Printf.sprintf "COMMA"
| SEMI -> Printf.sprintf "SEMI"
| PLUS -> Printf.sprintf "PLUS"
| MINUS -> Printf.sprintf "MINUS"
| TIMES -> Printf.sprintf "TIMES"
| DIVIDE -> Printf.sprintf "DIVIDE"
| ASSIGN -> Printf.sprintf "ASSIGN"
| PLUSEQ -> Printf.sprintf "PLUSEQ"
| MINUSEQ -> Printf.sprintf "MINUSEQ"
| EQ -> Printf.sprintf "EQ"
| NEQ -> Printf.sprintf "NEQ"
| NOT -> Printf.sprintf "NOT"
| LT -> Printf.sprintf "LT"
| LEQ -> Printf.sprintf "LEQ"
| GT -> Printf.sprintf "GT"
| GEQ -> Printf.sprintf "GEQ"
| AND -> Printf.sprintf "AND"
| OR -> Printf.sprintf "OR"
| DOT -> Printf.sprintf "DOT"
| MOD -> Printf.sprintf "MOD"
| IF -> Printf.sprintf "IF"
| ELSE -> Printf.sprintf "ELSE"
| ELIF -> Printf.sprintf "ELIF"
| FOR -> Printf.sprintf "FOR"
| WHILE -> Printf.sprintf "WHILE"
| BREAK -> Printf.sprintf "BREAK"
| CONTINUE -> Printf.sprintf "CONTINUE"
| INT -> Printf.sprintf "INT"
| FLOAT -> Printf.sprintf "FLOAT"
| CHAR -> Printf.sprintf "CHAR"
| STRING -> Printf.sprintf "STRING"
| SOCKET -> Printf.sprintf "SOCKET"
| FILE -> Printf.sprintf "FILE"
| STRUCT -> Printf.sprintf "STRUCT"
| VOID -> Printf.sprintf "VOID"
| RETURN -> Printf.sprintf "RETURN"
| NEW -> Printf.sprintf "NEW"
| DELETE -> Printf.sprintf "DELETE"
| ID(x) -> Printf.sprintf "ID(%s)" (x)
| INTLIT(x) -> Printf.sprintf "INTLIT(%d)" (x)
| STRLIT(x) -> Printf.sprintf "STRLIT(%s)" (x)
| CHARLIT(x) -> Printf.sprintf "CHARLIT(%d)" (x)
| FLOATLIT(x) -> Printf.sprintf "FLOATLIT(%f)" (x)