test.zp

(load "argparse.zp")

(define x ((import "argparse:handle-args")
              "this program kills zombies"
              (list (make-hash ["name" "foo"] 
                               ["type" :number]
                               ["default" 10]
                               ["usage" "foo you"])
                    (make-hash ["name" "bar"]
                               ["type" :string]
                               ["required" #f]
                               ["usage" "bar me"])
                    (make-hash ["name" "someotherthing"]
                               ["short" "s"]
                               ["type" :string]
                               ["options" ("this" "that")]
                               ["usage" "some bollocks"])
                    (make-hash ["name" "bool"]
                               ["short" "b"]
                               ["type" :boolean]
                               ["usage" "some boolean"]))))
(if (hash-map? x)
  (begin
    (write `("foo is: " ,(x "foo")))
    (write `("bar is: " ,(x "bar")))
    (write `("someotherthing is: " ,(x "someotherthing")))
    (write `("bool is: " ,(x "bool")))))