Silly-j parser

project.clj

@@ -8,7 +8,8 @@
   :target-path "target/%s"
 
   :dependencies [[org.clojure/clojure "1.10.0"]
-                 [org.clojure/clojurescript "1.10.520"]]
+                 [org.clojure/clojurescript "1.10.520"]
+                 [instaparse "1.4.10"]]
   :plugins [[lein-doo "0.1.10"]]
   :cljsbuild
   {:builds [{:id "node-test"

src/hopen/syntax/silly_j.cljc

@@ -0,0 +1,54 @@
+(ns hopen.syntax.silly-j
+  (:require [hopen.renderer.xf :as rxf]
+            [instaparse.core :as insta]))
+
+(declare parse)
+
+;; TODO test case
+(defn render
+  ([template data]
+   (render template data '()))
+  ([template data other-env]
+   (let [new-env (update rxf/default-env :bindings assoc other-env)
+         renderer (rxf/renderer (parse template) new-env)]
+     (transduce renderer str data))))
+
+(def ebnf
+  (insta/parser "
+                S       = [STR | SILLYSTR]+
+                STR      = #'[^{}]+'
+                SILLYSTR =  OBK SILLY CBK
+                OBK      = '{'
+                CBK      = '}'
+                SILLY    = [FCTX | FN]
+                FCTX     = '@' ':' ATTR
+                ATTR     = #'[^}]'+
+                FN       = FNNAME APPLIES*
+                APPLIES  = SPC | FCTX | APPLY
+                FNNAME   = #'[a-zA-Z0-9\\-]+'
+                SPC      = #'\\ '+
+                APPLY    = #'^[^@\\ ][^}\\ ]+'
+                "
+                ))
+
+(defn parse [msg]
+  (->> (ebnf msg)
+      (insta/transform
+       {:STR str
+        ;; :FCTX 'hopen/ctx
+        :APPLY str
+        :FNNAME str
+        :ATTR str
+        :FCTX (fn [at comma attr]
+                (list 'hopen/ctx (keyword attr)))
+        :SPC identity
+        :FN (fn [fn & applies]
+              (cons (symbol fn)
+                    (filter #(not= " " %) applies)
+                    ))
+        :APPLIES identity
+        :SILLY identity
+        :SILLYSTR (fn [obrk silly cbrk]
+                    silly)
+        :S list
+        })))

test/hopen/runner.cljs

@@ -2,7 +2,9 @@
   (:require  [cljs.test :as t :include-macros true]
              [doo.runner :refer-macros [doo-all-tests doo-tests]]
              [hopen.renderer.xf-test]
+             [hopen.syntax.silly-j-test]
              [hopen.util-test]))
 
 (doo-tests 'hopen.renderer.xf-test
+           'hopen.syntax.silly-j-test
            'hopen.util-test)

test/hopen/syntax/silly_j_test.cljc

@@ -0,0 +1,21 @@
+(ns hopen.syntax.silly-j-test
+  (:require #?(:clj [clojure.test :refer [deftest testing is are]]
+               :cljs [cljs.test :refer [deftest testing is are]
+                      :include-macros true])
+            [hopen.syntax.silly-j :refer [parse]]))
+
+(deftest parse-test
+  (testing "basic syntax test"
+    (are [template parsed]
+        (= (parse template)
+           parsed)
+      ;; Split string and context
+        "Hello {@:name}, {@:n} * {@:n} = {square @:n}"                ["Hello "
+                                                                       '(hopen/ctx :name)
+                                                                       ", "
+                                                                       '(hopen/ctx :n)
+                                                                       " * "
+                                                                       '(hopen/ctx :n)
+                                                                       " = "
+                                                                       '(square (hopen/ctx :n))]
+        )))