diff options
| -rw-r--r-- | src/cpt-lib | 433 |
1 files changed, 214 insertions, 219 deletions
diff --git a/src/cpt-lib b/src/cpt-lib index 7f6b6e2..12d2f2d 100644 --- a/src/cpt-lib +++ b/src/cpt-lib @@ -46,234 +46,229 @@ trap_set() { # This is the public domain getoptions shell library. It also forms a usage # function. -# License: CC0 (Public Domain) -# URL: https://github.com/ko1nksm/getoptions +# URL: https://github.com/ko1nksm/getoptions (v1.1.0) +# License: Creative Commons Zero v1.0 Universal # shellcheck disable=2016 getoptions() { - URL='https://github.com/ko1nksm/getoptions' - LICENSE='Creative Commons Zero v1.0 Universal' - _error='' _on=1 _off='' _export='' _plus='' _mode='' _alt='' restargs='' - _opts='' _no='' _equal=1 indent='' IFS=' ' - - for i in 0 1 2 3 4 5; do - eval "_$i() { echo \"$indent\$*\"; }" - indent="$indent " - done - - quote() { - q="$2'" r='' - while [ "$q" ]; do r="${r}${q%%\'*}'\''" && q=${q#*\'}; done - q="'${r%????}'" && q=${q#\'\'} && q=${q%\'\'} - eval "$1=\${q:-\"''\"}" - } - - code() { - [ "${1#:}" = "$1" ] && c=3 || c=4 - eval "[ ! \${$c:+x} ] || $2 \"\$$c\"" - } - - args() { - on=$_on off=$_off export=$_export init='@empty' _hasarg=$1 - while [ $# -gt 2 ] && [ "$3" != '--' ] && shift; do - case $2 in - --no-* | --\{no-\}*) _no=1 ;; - -?) [ "${_hasarg#%}" ] || _opts="${_opts}${2#-}" ;; - +*) _plus=1 ;; - [!-+]*) eval "${2%%:*}=\${2#*:}" - esac - done - } - - defvar() { - case $init in - @empty) code "$1" _0 "${export:+export }$1=''" ;; - @unset) code "$1" _0 "unset $1 ||:" "unset OPTARG ||:; ${1#:}" ;; - *) case $init in @*) eval "init=\"=\${${init#@}}\""; esac - case $init in [!=]*) _0 "$init"; return 0; esac - quote init "${init#=}" - code "$1" _0 "${export:+export }$1=$init" "OPTARG=$init; ${1#:}" - esac - } - - setup() { - restargs=$1 && shift - for i; do [ "$i" = '--' ] && break; eval "_${i%%:*}=\${i#*:}"; done - } - flag() { args : "$@"; defvar "$@"; } - param() { args % "$@"; defvar "$@"; } - option() { args % "$@"; defvar "$@"; } - disp() { args : "$@"; } - msg() { args : _ "$@"; } - - _0 '# Option parser generated by getoptions' - _0 "# URL: $URL" - _0 "# LICENSE: $LICENSE" - "$@" - _0 "${restargs:?}=''" - - args() { - sw='' on=$_on off=$_off validate='' pattern='' counter='' default='' - while [ $# -gt 1 ] && [ "$2" != '--' ] && shift; do - case $1 in - --\{no-\}* ) sw="${sw}${sw:+ | }--${1#--?no-?} | --no-${1#--?no-?}" ;; - [-+]? | --*) sw="${sw}${sw:+ | }$1" ;; - *) eval "${1%%:*}=\"\${1#*:}\"" - esac + _error='' _on=1 _off='' _export='' _plus='' _mode='' _alt='' restargs='' + _opts='' _no='' _equal=1 indent='' IFS=' ' + + for i in 0 1 2 3 4 5; do + eval "_$i() { echo \"$indent\$*\"; }" + indent="$indent " done - } - - setup() { :; } - flag() { - args "$@" - code='$OPTARG' - [ "$counter" ] && on=1 off=-1 code="\$((\${$1:-0}+$code))" - quote on "$on" && quote off "$off" - _3 "$sw)" - _4 '[ "${OPTARG:-}" ] && set -- "$1" noarg && break' - _4 "eval '[ \${OPTARG+x} ] &&:' && OPTARG=$on || OPTARG=$off" - valid "$1" "$code" - _4 ';;' - } - param() { - args "$@" - _3 "$sw)" - _4 '[ $# -le 1 ] && set -- "$1" required && break' - _4 'OPTARG=$2' - valid "$1" '$OPTARG' - _4 'shift ;;' - } - option() { - args "$@" - quote default "$default" - _3 "$sw)" - _4 'case $OPTARG in' - _5 '?*) OPTARG=$2 ;;' - _5 " *) OPTARG=$default &&" 'set -- "$1" "$@"' - _4 "esac" - valid "$1" '$OPTARG' - _4 'shift ;;' - } - valid() { - set -- "$validate" "$pattern" "$@" - [ "$2" ] && { - quote pattern "$2" - _4 "case \$OPTARG in $2) ;;" - _5 "*) set -- \"\$1\" pattern $pattern; break" - _4 "esac" + + quote() { + q="$2'" r='' + while [ "$q" ]; do r="$r${q%%\'*}'\''" && q=${q#*\'}; done + q="'${r%????}'" && q=${q#\'\'} && q=${q%\'\'} + eval "$1=\${q:-\"''\"}" + } + + code() { + [ "${1#:}" = "$1" ] && c=3 || c=4 + eval "[ ! \${$c:+x} ] || $2 \"\$$c\"" + } + + args() { + on=$_on off=$_off export=$_export init='@empty' _hasarg=$1 + while [ $# -gt 2 ] && [ "$3" != '--' ] && shift; do + case $2 in + --no-* | --\{no-\}*) _no=1 ;; + -?) [ "${_hasarg#%}" ] || _opts="$_opts${2#-}" ;; + +*) _plus=1 ;; + [!-+]*) eval "${2%%:*}=\${2#*:}" + esac + done } - [ "$1" ] && _4 "$1 || { set -- \"\$1\" $1; break; }" - code "$3" _4 "$3=$4" "${3#:}" - } - disp() { - args "$@" - _3 "$sw)" - code "$1" _4 "echo \"\${$1}\"" "${1#:}" - _4 'exit 0 ;;' - } - msg() { :; } - - _0 "$2() {" - _1 'OPTIND=$(($#+1))' - _1 'while [ $# -gt 0 ] && OPTARG=; do' - [ "$_alt" ] && _2 'case $1 in -[!-]?*) set -- "-$@"; esac' - _2 'case $1 in' - wa() { _4 "eval '${1% *}' \${1+'\"\$@\"'}"; } - [ "$_equal" ] && { - _3 '--?*=*) OPTARG=$1; shift' - wa 'set -- "${OPTARG%%\=*}" "${OPTARG#*\=}" "$@"' - _4 ';;' - } - [ "$_no" ] && _3 '--no-*) unset OPTARG ;;' - [ "$_alt" ] || { - [ "$_opts" ] && { - _3 "-[$_opts]?*) OPTARG=\$1; shift" - wa 'set -- "${OPTARG%"${OPTARG#??}"}" "${OPTARG#??}" "$@"' - _4 ';;' + + defvar() { + case $init in + @none) : ;; + @empty) code "$1" _0 "${export:+export }$1=''" ;; + @unset) code "$1" _0 "unset $1 ||:" "unset OPTARG ||:; ${1#:}" ;; + *) + case $init in @*) eval "init=\"=\${${init#@}}\""; esac + case $init in [!=]*) _0 "$init"; return 0; esac + quote init "${init#=}" + code "$1" _0 "${export:+export }$1=$init" "OPTARG=$init; ${1#:}" + esac + } + + setup() { + restargs=$1 && shift + for i; do [ "$i" = '--' ] && break; eval "_${i%%:*}=\${i#*:}"; done + } + flag() { args : "$@"; defvar "$@"; } + param() { args % "$@"; defvar "$@"; } + option() { args % "$@"; defvar "$@"; } + disp() { args : "$@"; } + msg() { args : _ "$@"; } + + "$@" + _0 "${restargs:?}=''" + + args() { + sw='' on=$_on off=$_off validate='' pattern='' counter='' default='' + while [ $# -gt 1 ] && [ "$2" != '--' ] && shift; do + case $1 in + --\{no-\}* ) sw="${sw}${sw:+ | }--${1#--?no-?} | --no-${1#--?no-?}" ;; + [-+]? | --*) sw="${sw}${sw:+ | }$1" ;; + *) eval "${1%%:*}=\"\${1#*:}\"" + esac + done + } + + setup() { :; } + flag() { + args "$@" + code='$OPTARG' + [ "$counter" ] && on=1 off=-1 code="\$((\${$1:-0}+\${OPTARG:-0}))" + quote on "$on" && quote off "$off" + _3 "$sw)" + _4 '[ "${OPTARG:-}" ] && set -- "$1" noarg && break' + _4 "eval '[ \${OPTARG+x} ] &&:' && OPTARG=$on || OPTARG=$off" + valid "$1" "$code" + _4 ';;' } - _3 '-[!-]?*) OPTARG=$1; shift' - wa 'set -- "${OPTARG%"${OPTARG#??}"}" "-${OPTARG#??}" "$@"' - _4 'OPTARG= ;;' - } - [ "$_plus" ] && { - _3 '+??*) OPTARG=$1; shift' - wa 'set -- "${OPTARG%"${OPTARG#??}"}" "+${OPTARG#??}" "$@"' - _4 'unset OPTARG ;;' - _3 '+*) unset OPTARG ;;' - } - _2 'esac' - _2 'case $1 in' - "$@" - restargs() { - _3 "$1" - _4 'while [ $# -gt 0 ]; do' - _5 "$restargs=\"\${$restargs}" '\"\${$(($OPTIND-$#))}\""' - _5 'shift' - _4 'done' - _4 'break ;;' - } - restargs '--) shift' - _3 "[-${_plus:++}]?*)" 'set -- "$1" unknown && break ;;' - case $_mode in - +) restargs '*)' ;; - *) _3 "*) $restargs=\"\${$restargs}" '\"\${$(($OPTIND-$#))}\""' - esac - _2 'esac' - _2 'shift' - _1 'done' - _1 '[ $# -eq 0 ] && return 0' - [ "$_error" ] && _1 "$_error" '"$@" >&2 && exit 1' - _1 'case $2 in' - _2 "unknown) echo \"unrecognized option '\$1'\" ;;" - _2 "noarg) echo \"option '\$1' doesn't allow an argument\" ;;" - _2 "required) echo \"option '\$1' requires an argument\" ;;" - _2 "pattern) echo \"option '\$1' does not match the pattern (\$3)\" ;;" - _2 "*) echo \"option '\$1' validation error: \$2\"" - _1 'esac >&2' - _1 'exit 1' - _0 '}' - _0 '# End of option parser' + param() { + args "$@" + _3 "$sw)" + _4 '[ $# -le 1 ] && set -- "$1" required && break' + _4 'OPTARG=$2' + valid "$1" '$OPTARG' + _4 'shift ;;' + } + option() { + args "$@" + quote default "$default" + _3 "$sw)" + _4 'case $OPTARG in' + _5 '?*) OPTARG=$2 ;;' + _5 " *) OPTARG=$default &&" 'set -- "$1" "$@"' + _4 "esac" + valid "$1" '$OPTARG' + _4 'shift ;;' + } + valid() { + set -- "$validate" "$pattern" "$@" + [ "$2" ] && { + quote pattern "$2" + _4 "case \$OPTARG in $2) ;;" + _5 "*) set -- \"\$1\" pattern $pattern; break" + _4 "esac" + } + [ "$1" ] && _4 "$1 || { set -- \"\$1\" $1; break; }" + code "$3" _4 "$3=$4" "${3#:}" + } + disp() { + args "$@" + _3 "$sw)" + code "$1" _4 "echo \"\${$1}\"" "${1#:}" + _4 'exit 0 ;;' + } + msg() { :; } + + _0 "$2() {" + _1 'OPTIND=$(($#+1))' + _1 'while OPTARG= && [ $# -gt 0 ]; do' + [ "$_alt" ] && _2 'case $1 in -[!-]?*) set -- "-$@"; esac' + _2 'case $1 in' + wa() { _4 "eval '${1% *}' \${1+'\"\$@\"'}"; } + [ "$_equal" ] && { + _3 '--?*=*) OPTARG=$1; shift' + wa 'set -- "${OPTARG%%\=*}" "${OPTARG#*\=}" "$@"' + _4 ';;' + } + [ "$_no" ] && _3 '--no-*) unset OPTARG ;;' + [ "$_alt" ] || { + [ "$_opts" ] && { + _3 "-[$_opts]?*) OPTARG=\$1; shift" + wa 'set -- "${OPTARG%"${OPTARG#??}"}" "${OPTARG#??}" "$@"' + _4 ';;' + } + _3 '-[!-]?*) OPTARG=$1; shift' + wa 'set -- "${OPTARG%"${OPTARG#??}"}" "-${OPTARG#??}" "$@"' + _4 'OPTARG= ;;' + } + [ "$_plus" ] && { + _3 '+??*) OPTARG=$1; shift' + wa 'set -- "${OPTARG%"${OPTARG#??}"}" "+${OPTARG#??}" "$@"' + _4 'unset OPTARG ;;' + _3 '+*) unset OPTARG ;;' + } + _2 'esac' + _2 'case $1 in' + "$@" + restargs() { + _3 "$1" + _4 'while [ $# -gt 0 ]; do' + _5 "$restargs=\"\${$restargs}" '\"\${$((${OPTIND:-0}-$#))}\""' + _5 'shift' + _4 'done' + _4 'break ;;' + } + restargs '--) shift' + _3 "[-${_plus:++}]?*)" 'set -- "$1" unknown && break ;;' + case $_mode in + +) restargs '*)' ;; + *) _3 "*) $restargs=\"\${$restargs}" '\"\${$((${OPTIND:-0}-$#))}\""' + esac + _2 'esac' + _2 'shift' + _1 'done' + _1 '[ $# -eq 0 ] && { OPTIND=1; unset OPTARG; return 0; }' + [ "$_error" ] && _1 "$_error" '"$@" >&2 && exit 1' + _1 'case $2 in' + _2 "unknown) echo \"unrecognized option '\$1'\" ;;" + _2 "noarg) echo \"option '\$1' doesn't allow an argument\" ;;" + _2 "required) echo \"option '\$1' requires an argument\" ;;" + _2 "pattern) echo \"option '\$1' does not match the pattern (\$3)\" ;;" + _2 "*) echo \"option '\$1' validation error: \$2\"" + _1 'esac >&2' + _1 'exit 1' + _0 '}' } +# URL: https://github.com/ko1nksm/getoptions (v1.1.0) +# License: Creative Commons Zero v1.0 Universal getoptions_help() { - width=30 plus='' heredoc='GETOPTIONS_HEREDOC' - - pad() { p=$2; while [ ${#p} -lt "$3" ]; do p="$p "; done; eval "$1=\$p"; } - - args() { - _type=$1 var=$2 sw='' hidden='' _width=$width _pre='' && shift 2 - while [ $# -gt 0 ] && i=$1 && shift && [ ! "$i" = '--' ]; do - case $i in - --*) pad sw "$sw${sw:+, }" $((${plus:+4} + 4)); sw="${sw}$i" ;; - -? ) sw="${sw}${sw:+, }$i" ;; - +? ) pad sw "$sw${sw:+, }" 4; sw="${sw}$i" ;; - *) eval "${i%%:*}=\"\${i#*:}\"" ;; - esac + width=30 plus='' here='GETOPTIONS-HEREDOC' + + pad() { p=$2; while [ ${#p} -lt "$3" ]; do p="$p "; done; eval "$1=\$p"; } + + args() { + _type=$1 var=$2 sw='' hidden='' _width=$width _pre='' && shift 2 + while [ $# -gt 0 ] && i=$1 && shift && [ ! "$i" = '--' ]; do + case $i in + --*) pad sw "$sw${sw:+, }" $((${plus:+4} + 4)); sw="$sw$i" ;; + -? ) sw="$sw${sw:+, }$i" ;; + +? ) pad sw "$sw${sw:+, }" 4; sw="$sw$i" ;; + * ) eval "${i%%:*}=\"\${i#*:}\"" ;; + esac + done + [ "$hidden" ] && return 0 + + case $_type in + setup | msg) _pre='' _width=0 ;; + flag | disp) pad _pre " $sw " "$_width" ;; + param ) pad _pre " $sw $var " "$_width" ;; + option ) pad _pre " $sw [$var] " "$_width" ;; + esac + [ ${#_pre} -le "$_width" ] && [ $# -gt 0 ] && _pre="$_pre$1" && shift + echo "$_pre" + pad _pre '' "$_width" + for i; do echo "$_pre$i"; done + } + + for i in 'setup :' 'flag' 'param' 'option' 'disp' 'msg :'; do + eval "${i% *}() { args $i \"\$@\"; }" done - [ "$hidden" ] && return 0 - case $_type in - setup | msg) _pre='' _width=0 ;; - flag | disp) pad _pre " $sw " "$_width" ;; - param ) pad _pre " $sw $var " "$_width" ;; - option ) pad _pre " $sw [$var] " "$_width" ;; - esac - [ ${#_pre} -le "$_width" ] && [ $# -gt 0 ] && _pre="${_pre}$1" && shift - echo "$_pre" - pad _pre '' "$_width" - for i; do echo "${_pre}$i"; done - } - - setup() { args 'setup' : "$@"; } - flag() { args 'flag' "$@"; } - param() { args 'param' "$@"; } - option() { args 'option' "$@"; } - disp() { args 'disp' "$@"; } - msg() { args 'msg' : "$@"; } - - echo "$2() {" - echo "cat<<$heredoc" - "$@" - echo "$heredoc" - echo "}" + echo "$2() {" + echo "cat<<$here" + "$@" + echo "$here" + echo "}" } global_options() { |