b20536d1e3
reader: #?@ empty splice fix (nil→@[]), #? nil→:jolt/skip, map reader handles #_/#?@ in K/V evaluator: unwrap-meta-name helper, deftype interns ->Name too, dot-suffix fix core: comment/prefer-method stubs, *unchecked-math*/*clojure-version* dynamic vars
44 lines
1.4 KiB
Text
44 lines
1.4 KiB
Text
(use ./src/jolt/evaluator)
|
|
(use ./src/jolt/types)
|
|
(use ./src/jolt/reader)
|
|
(use ./src/jolt/api)
|
|
|
|
(def ctx (init))
|
|
|
|
(defn load-file-quiet [ctx fp stop-at]
|
|
(def src (slurp fp))
|
|
(var s src)
|
|
(var c 0)
|
|
(var good 0)
|
|
(var bad 0)
|
|
(while (and (> (length (string/trim s)) 0) (or (not stop-at) (< c stop-at)))
|
|
(def pr (protect (parse-next s)))
|
|
(if (not (pr 0)) (do (printf "%s PARSE CRASH: %q\n" fp (pr 1)) (break)))
|
|
(let [[f r] (pr 1)]
|
|
(set s r)
|
|
(++ c)
|
|
(if (not (nil? f))
|
|
(let [pr2 (protect (eval-form ctx @{} f))]
|
|
(if (pr2 0) (++ good) (++ bad))))))
|
|
{:count c :good good :bad bad})
|
|
|
|
(each fp ["/Users/yogthos/src/sci/src/sci/impl/macros.cljc"
|
|
"/Users/yogthos/src/sci/src/sci/impl/protocols.cljc"
|
|
"/Users/yogthos/src/sci/src/sci/impl/utils.cljc"
|
|
"/Users/yogthos/src/sci/src/sci/impl/types.cljc"
|
|
"/Users/yogthos/src/sci/src/sci/impl/unrestrict.cljc"]
|
|
(load-file-quiet ctx fp nil))
|
|
|
|
(load-file-quiet ctx "/Users/yogthos/src/sci/src/sci/impl/vars.cljc" 27)
|
|
(load-file-quiet ctx "/Users/yogthos/src/sci/src/sci/lang.cljc" nil)
|
|
|
|
# Summary
|
|
(printf "\nSummary:\n")
|
|
(printf "ns: %s\n" (ctx-current-ns ctx))
|
|
|
|
# Try loading sci.core
|
|
(print "\nLoading sci.core...")
|
|
(def r (load-file-quiet ctx "/Users/yogthos/src/sci/src/sci/core.cljc" nil))
|
|
(printf "sci.core: %d forms, %d ok, %d fail\n" (r :count) (r :good) (r :bad))
|
|
|
|
(printf "ns: %s\n" (ctx-current-ns ctx))
|