32 lines
259 B
OCaml
32 lines
259 B
OCaml
|
%{ (* Emacs, open this with -*- tuareg -*- *)
|
||
|
|
open AST
|
||
|
|
%}
|
||
|
|
|
||
|
|
%token<int> INT
|
||
|
|
%token<string> ID
|
||
|
|
%token PLUS EOF
|
||
|
|
|
||
|
|
%start<AST.exp> phrase
|
||
|
|
|
||
|
|
%left PLUS
|
||
|
|
|
||
|
|
%%
|
||
|
|
|
||
|
|
phrase: e=exp EOF
|
||
|
|
{
|
||
|
|
e
|
||
|
|
}
|
||
|
|
|
||
|
|
exp: x=INT
|
||
|
|
{
|
||
|
|
LInt x
|
||
|
|
}
|
||
|
|
| x=ID
|
||
|
|
{
|
||
|
|
Id x
|
||
|
|
}
|
||
|
|
| e1=exp PLUS e2=exp
|
||
|
|
{
|
||
|
|
Add (e1, e2)
|
||
|
|
}
|