pass command line params to run instead of reffing global

This commit is contained in:
Daniel Barlow
2024-03-06 00:10:59 +00:00
parent 725af00dc9
commit 570d29c368
2 changed files with 8 additions and 11 deletions

View File

@@ -32,18 +32,19 @@
{})]
(. got params.expecting)))
(fn run [event-fn]
(fn run [args event-fn]
(let [parameters
(assert (parse-args arg)
(.. "Usage: " (. arg 0) " [-v] ifname [present|up|running]"))]
(assert (parse-args args)
(.. "Usage: ifwait [-v] ifname [present|up|running]"))]
(when parameters.verbose
(print (.. (. arg 0) ": waiting for "
(print (.. "ifwait: waiting for "
parameters.link " to be " parameters.expecting)))
(each [e (event-fn)
&until (run-event parameters e)]
true)))
(when (not (= (. arg 0) "test")) (run #(nl.events {:link true})))
(when (not (= (. arg 0) "test"))
(run arg #(nl.events {:link true})))
{ : run }