20 lines
202 B
OCaml
20 lines
202 B
OCaml
|
%{
|
||
|
|
open Ast
|
||
|
|
%}
|
||
|
|
|
||
|
|
%token KWD_FN
|
||
|
|
%token <string> IDENT
|
||
|
|
|
||
|
|
%start <program> program
|
||
|
|
|
||
|
|
%%
|
||
|
|
|
||
|
|
program:
|
||
|
|
| decls=decl* { decls }
|
||
|
|
|
||
|
|
decl:
|
||
|
|
| func=func { DeclFunc func }
|
||
|
|
|
||
|
|
func:
|
||
|
|
| KWD_FN name=IDENT { { name = name } }
|