fez-lisp 1.0.37 → 1.0.38

package/index.js

@@ -1,8 +1,8 @@
 import { evaluate } from './src/interpreter.js'
-import { parse, stringify } from './src/parser.js'
+import { parse, stringify, AST } from './src/parser.js'
 import { fez, tree } from './src/utils.js'
 import std from './lib/baked/std.js'
 import { keywords } from './src/tokeniser.js'
 import { WORD, APPLY, ATOM, VALUE, TYPE } from './src/enums.js'
 const types = { WORD, APPLY, ATOM, VALUE, TYPE }
-export { fez, parse, stringify, keywords, evaluate, std, types, tree }
+export { fez, parse, stringify, keywords, evaluate, std, types, tree, AST }

package/package.json

@@ -2,7 +2,7 @@
   "name": "fez-lisp",
   "description": "Lisp interpreted & compiled to JavaScript",
   "author": "AT290690",
-  "version": "1.0.37",
+  "version": "1.0.38",
   "type": "module",
   "main": "index.js",
   "keywords": [

package/src/parser.js

@@ -52,3 +52,44 @@ export const stringify = (ast) => {
   else if (typeof ast === 'boolean') return +ast
   else return ast
 }
+export const AST = {
+  parse: (source) => {
+    const tree = []
+    let head = tree,
+      stack = [tree],
+      acc = ''
+    for (let i = 0; i < source.length; ++i) {
+      const cursor = source[i]
+      if (cursor === '"') {
+        acc += '"'
+        ++i
+        while (source[i] !== '"') {
+          acc += source[i]
+          ++i
+        }
+      }
+      if (cursor === '[') {
+        head.push([])
+        stack.push(head)
+        head = head.at(-1)
+      } else if (cursor === ']' || cursor === ',') {
+        let token = acc
+        acc = ''
+        if (token) {
+          if (!head.length) head.push(Number(token))
+          else if (token[0] === '"' && token[token.length - 1] === '"')
+            head.push(token.substring(1, token.length - 1))
+          else head.push(Number(token))
+        }
+        if (cursor === ']') head = stack.pop()
+      } else acc += cursor
+    }
+    return tree[0]
+  },
+  stringify: (ast) =>
+    typeof ast === 'object'
+      ? `[${ast.map(AST.stringify).join(',')}]`
+      : typeof ast === 'string'
+      ? `"${ast}"`
+      : ast
+}

package/src/utils.js

@@ -2,7 +2,7 @@ import std from '../lib/baked/std.js'
 import { comp } from './compiler.js'
 import { APPLY, KEYWORDS, TYPE, VALUE, WORD } from './enums.js'
 import { run } from './interpreter.js'
-import { isLeaf, parse } from './parser.js'
+import { AST, isLeaf, parse } from './parser.js'
 export const logError = (error) => console.log('\x1b[31m', error, '\x1b[0m')
 export const logSuccess = (output) => console.log(output, '\x1b[0m')
 export const removeNoCode = (source) =>
@@ -161,7 +161,7 @@ export const dfs = (tree, callback) => {
   if (!isLeaf(tree)) for (const leaf of tree) dfs(leaf)
   else callback(tree)
 }
-export const deepClone = (ast) => JSON.parse(JSON.stringify(ast))
+export const deepClone = (ast) => AST.parse(AST.stringify(ast))
 export const fez = (source, options = {}) => {
   const env = options.env ?? {}
   try {
@@ -187,7 +187,7 @@ export const fez = (source, options = {}) => {
       return run(ast, env)
     } else if (Array.isArray(source)) {
       const ast = !options.mutation
-        ? JSON.parse(JSON.stringify(source).replace(new RegExp(/!/g), 'ǃ'))
+        ? AST.parse(AST.stringify(source).replace(new RegExp(/!/g), 'ǃ'))
         : source
       if (options.compile) {
         const js = Object.values(comp(deepClone(ast))).join('')