1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use lang.bs;
optional delimiter = SDelimiter;
required delimiter = SRequiredDelimiter;
SExpr => x : "json" #keyword, SJsonComplex(block) x;
Expr SJsonValue(Block block);
SJsonValue[10] => x : SJsonComplex(block) x;
SJsonValue[10] => jsonNull(pos) : "null" #keyword;
SJsonValue => jsonLiteral(pos, block, v) : SExpr(block) v;
Expr SJsonComplex(Block block);
SJsonComplex => jsonArray(pos, block, elements) : "\[" [, SJsonArrayBody(block) elements, ]+ "\]";
SJsonComplex => jsonObject(pos, block, elements) : "{" [, SJsonObjectBody(block) elements, ]+ "}";
Array<Expr> SJsonArrayBody(Block block);
SJsonArrayBody => Array<Expr>() : ;
SJsonArrayBody => Array<Expr>() : SJsonValue(block) -> push - (, ",", SJsonValue(block) -> push)* - STrailingComma;
Array<ObjectElem> SJsonObjectBody(Block block);
SJsonObjectBody => Array<ObjectElem>() : ;
SJsonObjectBody => Array<ObjectElem>() : SJsonElem(block) -> push - (, ",", SJsonElem(block) -> push)* - STrailingComma;
ObjectElem SJsonElem(Block block);
SJsonElem => ObjectElem(k, v) : "\"" #string - SIntString(block) k - "\"" #string, ":", SJsonValue(block) v;
SJsonElem => ObjectElem(k, v) : "[A-Za-z][A-Za-z0-9_\-]*"@ k #varName, ":", SJsonValue(block) v;
SJsonElem => ObjectElem(k, v) : "$", "{", SExpr(block) k, "}", ":", SJsonValue(block) v;
void STrailingComma();
STrailingComma : ;
STrailingComma : SDelimiter - ",";
|
