Revision 2ced225145a76c41a828eee58ab3a8fc60c533e2 authored by Pierre-Louis on 15 December 2023, 18:16:52 UTC, committed by Antonio Locascio on 08 January 2024, 08:28:37 UTC
1 parent 2f7b6c6
JSON_parser.mly
%{
%}
%token EOF
%token LBRACE RBRACE LBRACKET RBRACKET COMMA COLON
%token NULL
%token <bool> BOOL
%token <float> FLOAT
%token <string> STRING
%type <JSON_AST.t> json
%start json
%%
json:
| NULL { `Null }
| BOOL { `Bool $1 }
| FLOAT { `Float $1 }
| STRING { `String $1 }
| LBRACE fields RBRACE { `O $2 }
| LBRACE RBRACE { `O [] }
| LBRACKET items RBRACKET { `A $2 }
| LBRACKET RBRACKET { `A [] }
fields:
| STRING COLON json COMMA fields { ($1, $3) :: $5 }
| STRING COLON json { [ $1, $3 ] }
items:
| json COMMA items { $1 :: $3 }
| json { [ $1 ] }
Computing file changes ...
