This is the `defcmd' machinery from elsewhere, in yet another guise.
-usage="usage: $quis COMMAND [ARGUMENTS ...]"
+usage="COMMAND [ARGUMENTS ...]"
prefix=cryptop
runas @user@ cryptop "$@"
prefix=cryptop
runas @user@ cryptop "$@"
- usage="usage: $quis${umsg+ }$umsg"
help=$(cat)
case "$KEYS_HELP" in t) help; exit ;; esac
}
help=$(cat)
case "$KEYS_HELP" in t) help; exit ;; esac
}
help () { showhelp; }
showhelp () {
cat <<EOF
help () { showhelp; }
showhelp () {
cat <<EOF
+Usage: $quis${usage:+ $usage}
-usage_err () { echo >&2 "$usage"; exit 1; }
+usage () {
+ : ${cmdargs=$usage}
+ echo "usage: $quis${cmdname:+ $cmdname}${cmdargs:+ $cmdargs}"
+}
+usage_err () { usage >&2; exit 1; }
###--------------------------------------------------------------------------
### Subcommand handling.
###--------------------------------------------------------------------------
### Subcommand handling.
echo "$PACKAGE version $VERSION"
}
echo "$PACKAGE version $VERSION"
}
+unset cmdargs
+unset cmdname
+cmds=""
+defcmd () {
+ cmd=$1; shift; args=$*
+ help=$(cat)
+ eval help_$cmd=\$help
+ cmds="${cmds:+$cmds
+}$cmd $args"
+}
+
+defcmd help "[COMMAND ...]" <<EOF
+Show help about the COMMANDs, or about $quis if none are named.
+EOF
cmd_help () {
rc=0
version
cmd_help () {
rc=0
version
+Usage: $quis${usage:+ $usage}
Options:
-h Show this help text.
-v Show the program version number.
Options:
-h Show this help text.
-v Show the program version number.
- cd "$KEYSLIB"
- for i in $prefix.*; do
- if [ ! -x "$i" ]; then continue; fi
- sed -n "/<<HELP/{n;s/^/ ${i#$prefix.} /;p;q;}" "$i"
- done
+ while read cmd args; do echo " $cmd${args:+ $args}"; done <<EOF
+$cmds
+EOF
+ case ${prefix+t} in
+ t)
+ cd $KEYSLIB
+ for i in $prefix.*; do
+ if [ ! -x "$i" ]; then continue; fi
+ sed -n "/<<HELP/{n;s/^/ ${i#$prefix.} /;p;q;}" "$i"
+ done
+ ;;
+ esac
- if [ ! -x "$KEYSLIB/$prefix.$i" ]; then
- echo >&2 "$quis: unrecognized command \`$i'"
- rc=1
- continue
- elif ! KEYS_HELP=t "$KEYSLIB/$prefix.$i"; then
- rc=1
- fi
+ foundp=nil
+ while read cmdname cmdargs; do
+ case $cmdname in "$cmd") foundp=t; break ;; esac
+ done <<EOF
+$cmds
+EOF
+ case $foundp in
+ t)
+ eval help=\$help_$cmdname; echo "$help"
+ ;;
+ nil)
+ if [ ! -x "$KEYSLIB/$prefix.$cmd" ]; then
+ echo >&2 "$quis: unrecognized command \`$cmd'"
+ rc=1
+ continue
+ elif ! KEYS_HELP=t "$KEYSLIB/$prefix.$cmd"; then
+ rc=1
+ fi
+ ;;
+ esac
- case $# in 0) echo >&2 "$usage"; exit 1 ;; esac
+ case $# in 0) usage_err ;; esac
- case "$cmd" in help) cmd_help "$@"; exit ;; esac
- if [ ! -x "$KEYSLIB/$prefix.$cmd" ]; then
- echo >&2 "$quis: unrecognized command \`$cmd'"
- exit 1
- fi
-
- unset KEYS_HELP
- exec "$KEYSLIB/$prefix.$cmd" "$@"
+ foundp=nil
+ while read cmdname cmdargs; do
+ case $cmdname in "$cmd") foundp=t; break ;; esac
+ done <<EOF
+$cmds
+EOF
+ case $foundp in
+ t)
+ OPTIND=1
+ cmd_$cmdname "$@"
+ ;;
+ nil)
+ if [ ! -x "$KEYSLIB/$prefix.$cmd" ]; then
+ echo >&2 "$quis: unrecognized command \`$cmd'"
+ exit 1
+ fi
+ unset KEYS_HELP
+ exec "$KEYSLIB/$prefix.$cmd" "$@"
+ ;;
+ esac
}
###----- That's all, folks --------------------------------------------------
}
###----- That's all, folks --------------------------------------------------
-usage="usage: $quis COMMAND [ARGUMENTS ...]"
+usage="COMMAND [ARGUMENTS ...]"
prefix=keys
runas @user@ keys "$@"
prefix=keys
runas @user@ keys "$@"