Added json-parse and json-stringify

__tests__/builtin/normalExpressions/misc.test.ts

@@ -349,5 +349,17 @@ describe(`misc functions`, () => {
         expect(lits.run(`(equal? {:a 10} {:a 10, :b 20})`)).toBe(false)
       })
     })
+
+    describe(`json-stringify`, () => {
+      test(`samples`, () => {
+        expect(lits.run(`(json-stringify {:a 10 :b 20})`)).toBe(`{"a":10,"b":20}`)
+        expect(lits.run(`(json-stringify {:a 10 :b 20} 2)`)).toBe(`{\n  "a": 10,\n  "b": 20\n}`)
+      })
+    })
+    describe(`json-parse`, () => {
+      test(`samples`, () => {
+        expect(lits.run(`(json-parse "[1,2,3]")`)).toEqual([1, 2, 3])
+      })
+    })
   }
 })

cli/reference/categories/misc.js

@@ -295,4 +295,43 @@ module.exports = {
       `(equal? 0.3 (+ 0.1 0.2))`,
     ],
   },
+  'json-parse': {
+    name: `json-parse`,
+    category: `Misc`,
+    linkName: `json-parse`,
+    clojureDocs: null,
+    returns: {
+      type: `any`,
+    },
+    arguments: [
+      {
+        name: `value`,
+        type: `string`,
+      },
+    ],
+    description: `Returns JSON.parse(\`value\`).`,
+    examples: [`(json-parse "[1, 2, 3]")`],
+  },
+  'json-stringify': {
+    name: `json-stringify`,
+    category: `Misc`,
+    linkName: `json-stringify`,
+    clojureDocs: null,
+    returns: {
+      type: `string`,
+    },
+    arguments: [
+      {
+        name: `value`,
+        type: `any`,
+      },
+      {
+        name: `indent`,
+        type: `number`,
+        description: `optional`,
+      },
+    ],
+    description: `Returns JSON.stringify(\`value\`). If second argument is provided, returns JSON.stringify(\`value\`, null, \`indent\`).`,
+    examples: [`(json-stringify [1, 2, 3])`, `(json-stringify {:a {:b 10}} 2)`],
+  },
 }

docs/scripts.js

@@ -605,7 +605,7 @@ function stringifyValue(value) {
   if (value === Number.NEGATIVE_INFINITY) {
     return Number.NEGATIVE_INFINITY
   }
-  if (isNaN(value)) {
+  if (typeof value === 'number' && isNaN(value)) {
     return 'NaN'
   }
   return JSON.stringify(value)

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@youcruit/lits",
-  "version": "1.0.61",
+  "version": "2.0.62",
   "description": "A lisp implementation in Typescript",
   "main": "dist/index.js",
   "module": "dist/index.esm.js",

scripts/docs/buildDocs.js

@@ -312,7 +312,7 @@ function stringifyValue(value) {
   if (value === Number.NEGATIVE_INFINITY) {
     return Number.NEGATIVE_INFINITY
   }
-  if (isNaN(value)) {
+  if (typeof value === 'number' && isNaN(value)) {
     return 'NaN'
   }
   return JSON.stringify(value)

scripts/docs/scripts.js

@@ -605,7 +605,7 @@ function stringifyValue(value) {
   if (value === Number.NEGATIVE_INFINITY) {
     return Number.NEGATIVE_INFINITY
   }
-  if (isNaN(value)) {
+  if (typeof value === 'number' && isNaN(value)) {
     return 'NaN'
   }
   return JSON.stringify(value)

src/builtin/normalExpressions/categories/misc.ts

@@ -2,7 +2,7 @@ import type { Any } from '../../../interface'
 import { compare, deepEqual } from '../../../utils'
 import type { BuiltinNormalExpressions } from '../../interface'
 import { version } from '../../../version'
-import { asAny } from '../../../typeGuards/lits'
+import { asAny, assertAny } from '../../../typeGuards/lits'
 import { assertNumber } from '../../../typeGuards/number'
 import { assertString } from '../../../typeGuards/string'
 import { assertNumberOfParams } from '../../../typeGuards'
@@ -176,4 +176,22 @@ export const miscNormalExpression: BuiltinNormalExpressions = {
     },
     validate: node => assertNumberOfParams(0, node),
   },
+  'json-parse': {
+    evaluate: ([first], sourceCodeInfo): Any => {
+      assertString(first, sourceCodeInfo)
+      return JSON.parse(first)
+    },
+    validate: node => assertNumberOfParams(1, node),
+  },
+  'json-stringify': {
+    evaluate: ([first, second], sourceCodeInfo): string => {
+      assertAny(first, sourceCodeInfo)
+      if (second === undefined) {
+        return JSON.stringify(first)
+      }
+      assertNumber(second, sourceCodeInfo)
+      return JSON.stringify(first, null, second)
+    },
+    validate: node => assertNumberOfParams({ min: 1, max: 2 }, node),
+  },
 }

src/version.ts

@@ -1 +1 @@
-export const version = `1.0.61`
+export const version = `2.0.62`