hy/tests/resources/argparse_ex.hy

19 lines
325 B
Hy
Raw Normal View History

#!/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"))))