50 lines
1.5 KiB
Fennel
50 lines
1.5 KiB
Fennel
(local nl (require :anoia.nl))
|
|
|
|
; (local { : view} (require :fennel))
|
|
|
|
(local { : assoc } (require :anoia))
|
|
|
|
(fn parse-args [args]
|
|
(match args
|
|
["-v" & rest] (assoc (parse-args rest) :verbose true)
|
|
["-t" timeout & rest] (assoc (parse-args rest) :timeout (tonumber timeout))
|
|
[linkname "up"] {:link linkname :expecting "up"}
|
|
[linkname "running"] {:link linkname :expecting "running"}
|
|
[linkname "present"] {:link linkname :expecting "present"}
|
|
[linkname nil] {:link linkname :expecting "present"}
|
|
_ nil))
|
|
|
|
(fn run-event [params v]
|
|
(let [got
|
|
(match v
|
|
;; - up: Reflects the administrative state of the interface (IFF_UP)
|
|
;; - running: Reflects the operational state (IFF_RUNNING).
|
|
{:event "newlink" :name params.link :up :yes :running :yes}
|
|
{:present true :up true :running true}
|
|
|
|
{:event "newlink" :name params.link :up :yes}
|
|
{:present :true :up true}
|
|
|
|
{:event "newlink" :name params.link}
|
|
{:present true }
|
|
|
|
_
|
|
{})]
|
|
(when (. got params.expecting)
|
|
(os.exit 0))))
|
|
|
|
(fn run [event-fn]
|
|
(let [parameters
|
|
(assert (parse-args arg)
|
|
(.. "Usage: " (. arg 0) " [-v] ifname [present|up|running]"))]
|
|
(when parameters.verbose
|
|
(print (.. (. arg 0) ": waiting for "
|
|
parameters.link " to be " parameters.expecting)))
|
|
|
|
(each [event (event-fn)]
|
|
(run-event parameters event))))
|
|
|
|
(when (not (= (. arg 0) "test")) (run #(nl.events {:link true})))
|
|
|
|
{ : run }
|