(#71) Introduce -h flag

pull/94/head
rexim 4 years ago
parent 053bdcfb30
commit 7ec0c2f897

@ -177,16 +177,22 @@ proc xElevenErrorHandler(display: PDisplay, errorEvent: PXErrorEvent): cint{.cde
proc main() =
var delaySec = 0.0
block:
proc usageQuit() =
quit "Usage: boomer [-d <delay-in-sec: float>] [-h]"
var i = 1
while i <= paramCount():
case paramStr(i)
of "-d":
if i + 1 > paramCount():
quit "No value is provided for -d"
echo "No value is provided for -d"
usageQuit()
delaySec = parseFloat($paramStr(i + 1))
i += 2
of "-h":
usageQuit()
else:
quit "Unknown flag `$#`" % [paramStr(i)]
echo "Unknown flag `$#`" % [paramStr(i)]
usageQuit()
sleep(floor(delaySec * 1000).int)
var config = defaultConfig

Loading…
Cancel
Save