luciano/pods
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

wip

Browse source
This commit is contained in:
Michiel Borkent 2020-05-25 15:42:55 +02:00
parent 1235a92f18
commit 919138b6e6
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/babashka/pods/sci.clj
View file

@ -6,6 +6,8 @@
(let [env (:env ctx) (let [env (:env ctx)
ns-name name ns-name name
sci-ns (sci/create-ns ns-name)] sci-ns (sci/create-ns ns-name)]
#_(swap! env assoc-in [:namespaces ns-name :obj]
sci-ns)
(sci/binding [sci/ns sci-ns] (sci/binding [sci/ns sci-ns]
(doseq [[var-name var-value] vars] (doseq [[var-name var-value] vars]
(cond (ifn? var-value) (cond (ifn? var-value)
@ -13,9 +15,8 @@
(sci/new-var (sci/new-var
(symbol (str ns-name) (str var-name)) var-value)) (symbol (str ns-name) (str var-name)) var-value))
(string? var-value) (string? var-value)
(do (sci/eval-string* ctx var-value))))
(prn "eval" @sci/ns var-value) #_(prn (get-in @env [:namespaces ns-name]))))
(sci/eval-string* ctx var-value)))))))
(def load-pod (def load-pod
(with-meta (with-meta

3
test-resources/test_program.clj
View file

@ -48,6 +48,7 @@
(require '[pod.test-pod.loaded]) (require '[pod.test-pod.loaded])
(prn (resolve 'pod.test-pod.loaded/loaded)) ;; nil... TODO
(def loaded (pod.test-pod.loaded/loaded 1)) (def loaded (pod.test-pod.loaded/loaded 1))
(pods/unload-pod pod-id) (pods/unload-pod pod-id)
@ -68,4 +69,4 @@
x9 x9
tagged tagged
other-tagged other-tagged
loaded] #_loaded]