hiro/stream
1
0
Fork 0
mirror of https://github.com/vale981/stream synced 2025-03-04 17:41:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

use the promise returned by the start command

Browse source
This commit is contained in:
Valentin Boettcher 2020-08-03 16:41:28 +02:00
parent 6d152d6795
commit 053f982a9d
2 changed files with 26 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
src/stream/commander/api.clj
View file

@ -35,6 +35,8 @@
:audio-bitrate "128k" :audio-channels 1 :audio-sampling-rate 44100
:rtsp-user nil :rtsp-password nil :buffer-size "100M"})
(def ^:const +default-timeout+ 1000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Utilities ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -196,7 +198,7 @@
takes precedence.
"
[supervisor & {:keys [event timeout matcher]
:or {timeout 1000}}]
:or {timeout +default-timeout+}}]
(let [prom (promise)]
(if (and (not event) (not matcher))
(throw+ {:type ::commander-error
@ -307,39 +309,42 @@
(defn get-process-state!
"Queries wether a process is running."
[process]
(with-process process proc
(sys/get-service-state! (:unit-name proc))))
[proc]
(sys/get-service-state! (:unit-name proc)))
(defn start-process!
"Starts the service associated to the process."
[process]
(with-process process proc
(sys/start-service! (:unit-name proc))))
"Starts the service associated to the process `proc` (either id or
process object). Returns a promise that resolves to event `:failed`
or `:active` or times out after `timeout` ms."
([proc timeout]
(let [prom
(wait-for! (:supervisor proc)
:matcher #(some #{(:event %1)} [:active :failed]))]
(sys/start-service! (:unit-name proc))
prom))
([proc]
(start-process! process +default-timeout+)))
(defn stop-process!
"Stops the service associated to the process."
[process]
(with-process process proc
(sys/stop-service! (:unit-name proc))))
[proc]
(sys/stop-service! (:unit-name proc)))
(defn process-running?
"Queries wether a process is running."
[process]
(= (get-process-state! process) "active"))
[proc]
(= (get-process-state! proc) "active"))
(defn enable-process!
"Enables a process."
[process]
(with-process process proc
(sys/enable-service! (:unit-name proc))))
[proc]
(sys/enable-service! (:unit-name proc)))
(defn process-enabled?
"Enables a process."
[process]
(with-process process proc
(= (sys/get-service-file-state! (:unit-name proc))
:enabled)))
[proc]
(= (sys/get-service-file-state! (:unit-name proc))
:enabled))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Init ;

4
test/stream/commander_test.clj
View file

@ -166,9 +166,7 @@
(is :loaded (api/get-process-state! proc)))
(testing "starting a process"
(is true (api/start-process! proc))
;; now: the process ought to be **failed**
(is :failed (api/get-process-state! proc)))
(is (not (= :timeout (:event @(api/start-process! proc))))))
(testing "waiting for the process to start"
(let [prom (api/wait-for!