HackENS/liminix-fork
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

anoia service :events method behaves as iterator

Browse source
This commit is contained in:
Daniel Barlow 2023-09-12 20:42:42 +01:00
parent 7904c6bfe9
commit 8f97c5bf3c
2 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
examples/acquire-wan-address.fnl
View file

@ -31,14 +31,14 @@
new-addresses))
(fn run []
(var addresses [])
(let [[state-directory wan-device] arg
dir (svc.open state-directory)]
(var addresses [])
(while true
(while (not (dir:ready?)) (dir:wait))
(when (. bound-states (dir:output "state"))
(each [v (dir:events)]
;; we don't handle unbound or stopped, where we should
;; take the addresses away
(when (. bound-states (v:output "state"))
(set addresses
(update-addresses wan-device addresses (dir:output "address"))))
(dir:wait))))
(update-addresses wan-device addresses (v:output "address")))))))
{ : update-addresses : changes : run }