twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Add testing status to run

Browse Source
This commit is contained in:
Scott Richmond 2023-12-24 14:22:16 -05:00
parent 46817bd4e5
commit b723532d1a
1 changed files with 29 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ludus/node.cljc
View File

@ -30,11 +30,13 @@
(defn clean-out [value] (defn clean-out [value]
#?(:clj value :cljs (clj->js value))) #?(:clj value :cljs (clj->js value)))
(defn run [source] (defn run
([source] (run source false))
([source testing?]
(let [user_scanned (s/scan source "user input") (let [user_scanned (s/scan source "user input")
user_tokens (:tokens user_scanned) user_tokens (:tokens user_scanned)
user_parsed (p/apply-parser g/script user_tokens) user_parsed (p/apply-parser g/script user_tokens)
user_result (i/interpret-safe source user_parsed {}) user_result (i/interpret-safe source user_parsed {::i/testing? testing?})
result_str (show/show user_result) result_str (show/show user_result)
post_scanned (s/scan pre/postlude "postlude") post_scanned (s/scan pre/postlude "postlude")
post_tokens (:tokens post_scanned) post_tokens (:tokens post_scanned)
@ -57,6 +59,9 @@
(clean-out clj_result) (clean-out clj_result)
) )
)) ))
)
(defn test [source] (run source true))
(comment (comment
(def source " (def source "