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

Rename op to load-ns

Browse source
This commit is contained in:
Michiel Borkent 2020-05-25 22:12:42 +02:00
parent 5b875ba457
commit 0142f418c2
4 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/babashka/pods/impl.clj
View file

@ -241,8 +241,8 @@
(callback {:name name-sym :vars vars :done prom})))]
(swap! callbacks assoc id callback)
(write (:stdin pod)
{"op" "load"
"path" (str namespace)
{"op" "load-ns"
"ns" (str namespace)
"id" id})
@prom))

2
src/babashka/pods/jvm.clj
View file

@ -45,7 +45,7 @@
(create-ns (symbol (namespace sym)))
(symbol (name sym)))))})
namespaces (:namespaces pod)
load? (contains? (:ops pod) :load)]
load? (contains? (:ops pod) :load-ns)]
(when load?
(swap! namespaces-to-load
merge

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

@ -2,7 +2,7 @@
(:require [babashka.pods.impl :as impl]
[sci.core :as sci]))
(defn process-namespace [ctx {:keys [:name :vars :done]}]
(defn- process-namespace [ctx {:keys [:name :vars :done]}]
(let [env (:env ctx)
ns-name name
sci-ns (sci/create-ns ns-name)]
@ -44,7 +44,7 @@
v)
v))))}))
namespaces (:namespaces pod)
load? (contains? (:ops pod) :load)
load? (contains? (:ops pod) :load-ns)
namespaces-to-load (when load?
(set (keep (fn [[ns-name vars]]
(when (empty? vars)

10
test-pod/pod/test_pod.clj
View file

@ -83,7 +83,7 @@
dependents)}
{"name" "pod.test-pod.loaded"}]
"ops" {"shutdown" {}
"load" {}}})
"load-ns" {}}})
(recur))
:invoke (let [var (-> (get message "var")
read-string
@ -159,12 +159,12 @@
"value" "#my/other-tag[1]"}))
(recur))
:shutdown (System/exit 0)
:load (let [path (-> (get message "path")
read-string
symbol)
:load-ns (let [ns (-> (get message "ns")
read-string
symbol)
id (-> (get message "id")
read-string)]
(case path
(case ns
pod.test-pod.loaded
(write
{"status" ["done"]