File: parser.mly

package info (click to toggle)
ocaml-dune 3.21.1-2
  • links: PTS, VCS
  • area: main
  • in suites: forky
  • size: 37,948 kB
  • sloc: ml: 189,514; asm: 28,570; ansic: 15,173; sh: 1,448; lisp: 625; makefile: 160; python: 143; cpp: 48; javascript: 10
file content (29 lines) | stat: -rw-r--r-- 441 bytes parent folder | download | duplicates (4) 
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
 
%token Eof
%token<int> Int
%token Plus
%token Star
%token Slash
%token Lpar Rpar
%token<float> Float
%token<string> Ident
%start<Ast.exp> main

%left Plus
%left Star Slash

%{ open Ast %}

%%

main: expr Eof { $1 }

expr:
| Int { Int $1 }
| expr Plus expr { Op (Add, $1, $3) }
| expr Star expr { Op (Mul, $1, $3) }
| expr Slash expr { Op (Div, $1, $3) }
| Ident Lpar expr Rpar { Call ($1, $3) }
| Float { Float $1 }
| Ident { Ident $1 }

%%