janet-lang / argparse Goto Github PK

(argparse "..." :default)

#!/usr/bin/env janet
(import argparse)

(let [{"script" scripts "pager" pager :default cmd-args}
      (argparse/argparse
        (string "If all scripts execute successfully, execute arguments.\n"
                "Usage: whenSafe -s script1 -s script2 -s ... -p pager "
                "cmd cmd-amrgs...")
        "script" {:kind :accumulate
                  :short "s"
                  :required true
                  :help (string "If its exit code is not zero, "
                                "its standard output is printed to pager.")}
        "pager" {:kind :option
                 :short "p"
                 :required true
                 :help "The pager used to notify errors."}
        :default {:kind :accumulate
                  :required true
                  :help "command to execute"})]
  (pp scripts)
  (pp pager)
  (pp cmd-args))

@["script1" "script2"]
"pager"
@["echo" "ok"]

usage error: unknown option
usage: ./whenSafe [option] ...

If all scripts execute successfully, execute arguments.
Usage: whenSafe -s script1 -s script2 -s ... -p pager cmd cmd-amrgs...

 Required:
 -p, --pager VALUE                           The pager used to notify errors.
 -s, --script VALUE                          If its exit code is not zero, its standard output is printed to pager.

 Optional:
 -h, --help                                  Show this help message.

error: expected string|symbol|keyword|array|tuple|table|struct|buffer, got nil
  in _thunk [./whenSafe] (tailcall) on line 4, column 1