34 lines
433 B
OCaml
34 lines
433 B
OCaml
|
%{
|
||
|
|
(* Prelude *)
|
||
|
|
open Ast
|
||
|
|
%}
|
||
|
|
|
||
|
|
(* Zone des déclarations *)
|
||
|
|
%token EOF PLUS STAR
|
||
|
|
%token<int> INT
|
||
|
|
%start<Ast.e> phrase
|
||
|
|
|
||
|
|
%%
|
||
|
|
|
||
|
|
(* Cette grammaire a un conflit avancer-réduire. Comment le régler ? *)
|
||
|
|
|
||
|
|
(* Ici on écrit les règles de grammaire. *)
|
||
|
|
|
||
|
|
phrase: e=expression EOF
|
||
|
|
{
|
||
|
|
e
|
||
|
|
}
|
||
|
|
|
||
|
|
expression: x=INT
|
||
|
|
{
|
||
|
|
EInt x
|
||
|
|
}
|
||
|
|
| lhs=expression PLUS rhs=expression
|
||
|
|
{
|
||
|
|
EPlus (lhs, rhs)
|
||
|
|
}
|
||
|
|
| lhs=expression STAR rhs=expression
|
||
|
|
{
|
||
|
|
EMult (lhs, rhs)
|
||
|
|
}
|