123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122
import {  IParser,  between,  many0,  many1,  char,  noneOfChars,  escapedWith,  digit,  sepBy,  string,  trim,  map,  or,  optional,  choice,  serial,  lazy,} from "../mod.ts";
function jsonBoolean(): IParser<boolean> {  return or(    map(string("true"), () => true),    map(string("false"), () => false),  );}
function jsonNull(): IParser<null> {  return map(string("null"), () => null);}
function jsonNumber(): IParser<number> {  const sign = map(optional(char("-")), (s) => s ?? "");  const digits = map(many1(digit()), (list) => list.join(""));  const parts = serial(    sign,    digits,    optional(map(      serial(char("."), digits),      ([_, float]) => float,    )),  );
  return map(parts, ([sign, int, float]) => {    if (float) {      return Number.parseFloat(`${sign}${int}.${float}`);    } else {      return Number.parseInt(`${sign}${int}`);    }  });}
function jsonString(): IParser<string> {  return map(    between(      char('"'),      char('"'),      many0(choice(        noneOfChars('"', "\\"),        escapedWith("\\", [          ['"', '"'],          ["\\", "\\"],          ["/", "/"],          ["b", "\b"],          ["f", "\f"],          ["n", "\n"],          ["r", "\r"],          ["t", "\t"],        ]),      )),    ),    (chars) => chars.join(""),  );}
function jsonArray(): IParser<JsonValue[]> {  return between(    char("["),    trim(char("]")),    trim(sepBy(trim(char(",")), jsonValue())),  );}
function jsonProperty(): IParser<[string, JsonValue]> {  return map(    serial(trim(jsonString()), trim(char(":")), jsonValue()),    ([key, _, value]) => [key, value],  );}
function jsonObject(): IParser<{ [x in string]: JsonValue }> {  return map(    between(      char("{"),      trim(char("}")),      trim(sepBy(trim(char(",")), jsonProperty())),    ),    Object.fromEntries,  );}
type JsonValue =  | string  | number  | boolean  | null  | { [x in string]: JsonValue }  | JsonValue[];
export function jsonValue(): IParser<JsonValue> {  return lazy(() =>    trim(choice(      jsonBoolean(),      jsonNull(),      jsonString(),      jsonObject(),      jsonNumber(),      jsonArray(),    ))  );}