123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123
import {  IParser,  between,  many0,  many1,  char,  noneOfChars,  escapedWith,  digit,  sepBy,  string,  trim,  map,  or,  optional,  choice,  serial,  lazy,} from '../src'
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()      )    )  )}