private static Parser <Json> JsonObject(ParsersBase p)
{
return(p.Surround(
p.Token(p.String("{")),
p.Token(p.String("}")),
() => JsonKeyValue(p).SepBy(p.Token(p.String(",")))
.Map(kvs => new JObject(kvs.ToDictionary(kv => kv.Item1, kv => kv.Item2)) as Json))
.Scope("object"));
}
private static Parser <Json> JsonArray(ParsersBase p)
{
return(p.Surround(
p.Token(p.String("[")),
p.Token(p.String("]")),
() => JsonValue(p).SepBy(p.Token(p.String(","))))
.Map(vs => new JArray(vs) as Json)
.Scope("array"));
}
private static Parser <Json> JsonLiteral(ParsersBase p)
{
return(p.Scope(
"literal",
p.Token(p.String("null")).As(new JNull() as Json) |
(() => p.Double().Map(n => new JNumber(n) as Json)) |
(() => p.Token(p.Quoted()).Map(s => new JString(s) as Json)) |
(() => p.Token(p.String("true")).As(new JBool(true) as Json)) |
(() => p.Token(p.String("false")).As(new JBool(false) as Json))) |
(() => p.Fail <Json>("expected a literal")));
}
private static Parser <IEnumerable <string> > ColumnTitlesParser(ParsersBase p)
{
var beginLineCommentParser = p.Token(p.String("#"));
var commaParser = p.Token(p.String(","));
var columnTitleParser = p.Token(p.Quoted() | (() => p.R(@"(\w+)")));
return(p.Whitespace()
.SkipL(
() => beginLineCommentParser.SkipL(
() => columnTitleParser.SepBy(commaParser))));
}
private static Parser <Tuple <string, Json> > JsonKeyValue(ParsersBase p)
{
return(p.Quoted().Product(() => p.SkipL(p.Token(p.String(":")), () => JsonValue(p))));
}
private static Parser <TA> AddOptionalCommaTokenSuffix <TA>(ParsersBase p, Parser <TA> thingParser)
{
return(thingParser.SkipR(() => p.OptionMaybe(p.Token(p.String(",")))));
}