Implement general setter and getter

Author: carloslfu

interpreter.spec.ts

@@ -2,7 +2,7 @@ import test = require('tape')
 import { evalAst, makeAPI } from './interpreter'
 
 test('interpreter', t => {
-  t.plan(24)
+  t.plan(26)
 
   t.deepEqual(
     evalAst(makeAPI({}))(['+', '1', '2', '3']),
@@ -266,7 +266,7 @@ test('interpreter', t => {
       ],
     ),
     ['atom', { key1: 'value1', key2: 2, key3: 3, key4: 'value4' }],
-    'Key-Value (kv) constructor operator with evaluated arguments'
+    'Key-Value Object (kv) constructor operator with evaluated arguments'
   )
 
   t.deepEqual(
@@ -283,4 +283,30 @@ test('interpreter', t => {
     'List (ls) constructor operator with evaluated arguments'
   )
 
+  t.deepEqual(
+    evalAst(makeAPI({}))(
+      ['get',
+        ['kv', 'key', ['kv', 'a', ['kv', 'b', 12]]],
+        '"key"', '"a"', '"b"',
+      ],
+    ),
+    ['atom', 12],
+    'Get (get) general getter for objects and lists'
+  )
+
+  t.deepEqual(
+    evalAst(makeAPI({}))(
+      ['process',
+        ['def',
+          'a',
+          ['kv', 'key', ['kv', 'a', ['kv', 'b', 9]]],
+        ],
+        ['set', 'a', '"key"', '"a"', '"b"', 21],
+        ['get', 'a', '"key"', '"a"', '"b"'],
+      ],
+    ),
+    ['atom', 21],
+    'Set (set) general setter for objects and lists'
+  )
+
 })

interpreter.ts

@@ -201,4 +201,25 @@ export const atoms = {
   },
   // List structure
   ls: (api, args) => ['atom', args.map(a => api.exp(a)[1])],
+  get: (api, args) => {
+    let a = args.map(a => api.exp(a)[1])
+    let res = a[0]
+    console.log(a)
+    console.log(a[0])
+    for (let i = 1, len = a.length; i < len; i++) {
+      res = res[a[i]]
+    }
+    return ['atom', res]
+  },
+  set: (api, args) => {
+    let a = args.map(a => api.exp(a)[1])
+    let subj = a[0]
+    for (let i = 1, len = a.length - 2; i < len; i++) {
+      subj = subj[a[i]]
+    }
+    let lastKey = a[a.length - 2]
+    let value = a[a.length - 1]
+    subj[lastKey] = value
+    return ['atom', value]
+  },
 }

package.json

@@ -1,6 +1,6 @@
 {
   "name": "lisp-js-compiler",
-  "version": "0.0.2",
+  "version": "0.0.3",
   "description": "JavaScript compiler / interpreter for Lisp language",
   "main": "lib/index.js",
   "scripts": {