73 lines
1.9 KiB
OCaml
73 lines
1.9 KiB
OCaml
|
%{
|
||
|
|
open Ast
|
||
|
|
%}
|
||
|
|
|
||
|
|
%start <Ast.entry_point> entry_point
|
||
|
|
|
||
|
|
%%
|
||
|
|
|
||
|
|
naked_list(X):
|
||
|
|
| { [] }
|
||
|
|
| x = X xs = naked_list(X) { x :: xs }
|
||
|
|
|
||
|
|
naked_list_ne(X):
|
||
|
|
| x = X { [ x ] }
|
||
|
|
| x = X xs = naked_list_ne(X) { x :: xs }
|
||
|
|
|
||
|
|
trail_list(separator, X):
|
||
|
|
| { [] }
|
||
|
|
| trail_list_content(separator, X) { $1 }
|
||
|
|
|
||
|
|
trail_list_content(separator, X):
|
||
|
|
| x = trail_list_last(separator, X) { x }
|
||
|
|
| x = X separator xs = trail_list_content(separator, X) { x :: xs }
|
||
|
|
|
||
|
|
trail_list_last(separator, X):
|
||
|
|
| x = X option(separator) { [ x ] }
|
||
|
|
|
||
|
|
trail_force_list(separator, X):
|
||
|
|
| { [] }
|
||
|
|
| x = X separator xs = trail_force_list(separator, X) { x :: xs }
|
||
|
|
|
||
|
|
trail_force_list_ne(separator, X):
|
||
|
|
| x = X separator { [ x ] }
|
||
|
|
| x = X separator xs = trail_force_list_ne(separator, X) { x :: xs }
|
||
|
|
|
||
|
|
trail_option_list(separator, X):
|
||
|
|
| { [] }
|
||
|
|
| trail_option_list_content(separator, X) { $1 }
|
||
|
|
|
||
|
|
trail_option_list_content(separator, X):
|
||
|
|
| x = trail_option_list_last(separator, X) { x }
|
||
|
|
| x = X option(separator) xs = trail_option_list_content(separator, X) { x :: xs }
|
||
|
|
|
||
|
|
trail_option_list_last(separator, X):
|
||
|
|
| x = X option(separator) { [ x ] }
|
||
|
|
|
||
|
|
lead_list_ne(separator, X):
|
||
|
|
| separator x = X { [x] }
|
||
|
|
| separator x = X xs = lead_list_ne(separator, X) { x :: xs }
|
||
|
|
|
||
|
|
lead_list(separator, X):
|
||
|
|
| { [] }
|
||
|
|
| lead_list_content(separator, X) { $1 }
|
||
|
|
|
||
|
|
lead_list_content(separator, X):
|
||
|
|
| x = lead_list_first(separator, X) { x }
|
||
|
|
| xs = lead_list_content(separator, X) separator x = X { xs @ [ x ] }
|
||
|
|
|
||
|
|
lead_list_first (separator, X):
|
||
|
|
| option(separator) x = X { [ x ] }
|
||
|
|
|
||
|
|
separated_list_ne(separator, X):
|
||
|
|
| x = X { [x] }
|
||
|
|
| x = X separator xs = separated_list_ne(separator, X) { x :: xs }
|
||
|
|
|
||
|
|
separated_list_nene(separator, X):
|
||
|
|
| x = X separator y = X { [x ; y] }
|
||
|
|
| x = X separator xs = separated_list_nene(separator, X) { x :: xs }
|
||
|
|
|
||
|
|
|
||
|
|
%inline wrap(X):
|
||
|
|
| x = X { let loc = Location.make $startpos $endpos in Location.wrap ~loc x }
|