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(","))))); }