19 lines
325 B
Hy
19 lines
325 B
Hy
|
#!/usr/bin/env hy
|
||
|
|
|
||
|
|
(import sys)
|
||
|
|
(import argparse)
|
||
|
|
|
||
|
|
(setv parser (argparse.ArgumentParser))
|
||
|
|
|
||
|
|
(.add_argument parser "-i")
|
||
|
|
(.add_argument parser "-c")
|
||
|
|
|
||
|
|
(setv args (.parse_args parser))
|
||
|
|
|
||
|
|
;; using (cond) allows -i to take precedence over -c
|
||
|
|
|
||
|
|
(cond (args.i
|
||
|
|
(print (str args.i)))
|
||
|
|
(args.c
|
||
|
|
(print (str "got c"))))
|