feat(core): add memoized_parse edn

Author: alef

release-js/package.json

@@ -39,6 +39,7 @@
     "mocha": "^2.3.4"
   },
   "scripts": {
+    "build": "cd .. && lein cljsbuild once min && cd release-js",
     "test": "mocha --harmony --compilers js:babel-core/register test/*.spec.js"
   },
   "files": [

release-js/test/memoized_parse.spec.js

@@ -0,0 +1,18 @@
+import {helpers, mori} from '../datascript-mori'
+import {assert} from 'chai'
+
+describe('memoized_parse checks', () => {
+  it('memoized_parse work as mori.parse', () => {
+    const query = `[:find  ?e1 ?e2 ?e3
+                  :where [?e1 :age ?a1]
+                         [?e2 :age ?a2]
+                         [?e3 :age ?a3]
+                         [(+ ?a1 ?a2) ?a12]
+                         [(= ?a12 ?a3)]]`
+
+    assert(
+      mori.equals(helpers.memoized_parse(query), mori.parse(query)),
+      'memoized_parse and mori.parse return equal struct'
+    );
+  })
+});

src/datascript_mori/core.cljs

@@ -5,7 +5,9 @@
     [datascript.parser :as dp]
     [datascript.pull-parser :as dpp]
     [mori :as m]
-    [mori.extra :as me]))
+    [mori.extra :as me]
+    [cljs.reader :as reader]
+    [datascript.lru :as dlru]))
 
 (def ^:export schema_to_clj      djs/schema->clj)
 (def ^:export entity_to_clj      djs/entity->clj)
@@ -19,6 +21,17 @@
 (def ^:export parse_query dp/parse-query)
 (def ^:export parse_pull dpp/parse-pull)
 
+(def ^:const lru-cache-size 300)
+(def ^:export lru dlru/lru)
+(def ^:export cleanup_lru dlru/cleanup-lru)
+(def ^:export query_cache (volatile! (dlru/lru lru-cache-size)))
+(defn ^:export memoized_parse [q]
+  (if-let [cached (get @query_cache q nil)]
+    cached
+    (let [qp (reader/read-string q)]
+      (vswap! query_cache assoc q qp)
+      qp)))
+
 (def ^:export DB_ID :db/id)
 (def ^:export DB_FN_CALL :db.fn/call)
 (def ^:export DB_BEFORE :db-before)