#autoload # usage: _apt_arguments funcname option-spec... -- rest-regex local funcname funcname="$1" shift typeset -A canonicalize options local short_hasarg short_bool short_intlevel short_configfile short_arbitem local long_hasarg long_bool long_intlevel long_configfile long_arbitem local comp_hasarg='' local opt opts type while [[ 0 -lt $# && $1 != -- ]]; do opts="${1%%:*}" type="${1#*:}" case $type in bool) options[$opts]=1;; intlevel) options[$opts]=-1;; configfile) options[$opts]=1;; arbitem) options[$opts]=-1;; *) options[$opts]=1 comp_hasarg="${comp_hasarg}$opts) $type;; " type=hasarg;; esac for opt in ${(s:,:)=opts}; do canonicalize[$opt]="$opts" case $opt in --*) eval "long_$type=(\$long_$type ${opt#--})";; -?) eval "short_$type=(\$short_$type ${opt#-})";; esac done shift done # skip -- [[ 0 -lt $# ]] && shift comp_hasarg="\ case \$current_option in ${comp_hasarg}esac" local short_seq false true bool __bool_ intlevel word word1 nul local comp_bool comp_intlevel comp_configfile comp_arbitem comp_long comp_opt local regex_short regex_long regex_all regex_all=("$@") short_seq="(${(j:|:)short_bool}|${(j:|:)short_intlevel})#" false=(no false without off disable) true=(yes true with on enable) bool=($false $true) __bool_=(--${^bool}-) intlevel='[0-9]##' word=$'[^\0]#\0' word1=$'[^\0]##\0' nul=$'\0' comp_bool='compadd "$expl_bool[@]" '"$bool" comp_intlevel= #"_message 'intlevel'" comp_configfile='_files "$expl_configfile[@]"' comp_arbitem= #"_message 'Foo::Bar=bar'" comp_short=\ 'if [[ $PREFIX = -'"$short_seq"' ]]; then apt_consume_short ${PREFIX[2,-1]} tmp1=(${${(M)${(s:,:)${(kj:,:)options[(R)*~0]}}:#-?}#-}) if [[ $PREFIX = - ]]; then compadd "$expl_opt[@]" - -${^tmp1} else tmp2=(-${^tmp1}) compadd "$expl_opt[@]" -y "($tmp2)" - ${PREFIX}${^tmp1} fi elif [[ -z "$PREFIX" ]]; then compadd "$expl_opt[@]" - ${(M)${(s:,:)${(kj:,:)options[(R)*~0]}}:#-?} fi' comp_long=\ 'tmp1="${(j:|:)${(@)${(@M)${(@s:,:)${(@kj:,:)options[(R)*~0]}}:#--*}#--}}" tmp2=(--${(M)^long_bool:#$~tmp1} --${(M)^long_intlevel:#$~tmp1}) compadd "$expl_opt[@]" - $tmp2 tmp2=(--${(M)^long_hasarg:#$~tmp1} --${(M)^long_configfile:#$~tmp1} --${(M)^long_arbitem:#$~tmp1}) compadd "$expl_opt[@]" -S= - $tmp2 compadd "$expl_opt[@]" -S "" - '"$__bool_" comp_long_prefix=\ 'tmp1="${(j:|:)${(@)${(@M)${(@s:,:)${(@kj:,:)options[(R)*~0]}}:#--*}#--}}" tmp2=($_ra_left${(M)^long_bool:#$~tmp1} $_ra_left${(M)^long_intlevel:#$~tmp1}) compadd "$expl_opt[@]" - $tmp2 tmp2=($_ra_left${(M)^long_hasarg:#$~tmp1} $_ra_left${(M)^long_configfile:#$~tmp1} $_ra_left${(M)^long_arbitem:#$~tmp1}) compadd "$expl_opt[@]" -S= - $tmp2 tmp1="${(j:|:)${(@)${(@M)${(@s:,:)${(@kj:,:)options[(R)*~0]}}:#-?}#-}}" tmp2=($_ra_left${(M)^short_bool:#$~tmp1} $_ra_left${(M)^short_intlevel:#$~tmp1}) compadd "$expl_opt[@]" - $tmp2 tmp2=($_ra_left${(M)^short_hasarg:#$~tmp1} $_ra_left${(M)^short_configfile:#$~tmp1} $_ra_left${(M)^short_arbitem:#$~tmp1}) compadd "$expl_opt[@]" -S= - $tmp2' comp_opt='[[ -prefix - || -z "$compconfig[option_prefix]" ]]'" && { $comp_short; $comp_long }" regex_short=() regex_long=() regex_long_prefix=() if (( $#short_hasarg )); then regex_short=("$regex_short[@]" /"$short_seq(${(j:|:)short_hasarg})(=|)" -'apt_consume_short ${_ra_match%=}; current_option=${canonicalize[-${${_ra_match%=}[-1]}]}' \( /"$word1" !"$comp_hasarg" \| /"$nul" /"$word" !"$comp_hasarg" \) \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)short_hasarg})$nul" -'apt_consume_short ${_ra_match[-2]}; current_option=${canonicalize[-${${_ra_match%$nul}[-1]}]}' /"$word" !"$comp_hasarg" \| /"(${(j:|:)short_hasarg})=" -'apt_consume_short ${_ra_match[-2]}; current_option=${canonicalize[-${${_ra_match%=}[-1]}]}' \( /"$word1" !"$comp_hasarg" \| /"$nul" /"$word" !"$comp_hasarg" \) \| ) fi if (( $#short_bool )); then regex_short=("$regex_short[@]" /"$short_seq(${(j:|:)short_bool})($nul(${(j:|:)bool})|(${(j:|:)bool})|)$nul" -"apt_consume_short \${_ra_match%%($nul(${(j:|:)bool})|(${(j:|:)bool})|)$nul}" \| /"$short_seq(${(j:|:)short_bool})=" -"apt_consume_short \${_ra_match%=}" \( /"$word1" !"$comp_bool" \| /"$nul" /"$word" !"$comp_bool" \) \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)short_bool})=" -"apt_consume_short \${_ra_match[-2]}" \( /"$word1" !"$comp_bool" \| /"$nul" /"$word" !"$comp_bool" \) \| /"(${(j:|:)short_bool})$nul" -"apt_consume_short \${_ra_match[-2]}" /"((${(j:|:)bool})$nul|)" !"$comp_bool" \| ) fi if (( $#short_intlevel )); then regex_short=("$regex_short[@]" /"$short_seq(${(j:|:)short_intlevel})($nul$intlevel|$intlevel|)$nul" -"apt_consume_short \${_ra_match%%($nul$intlevel|$intlevel|)$nul}" \| /"$short_seq(${(j:|:)short_intlevel})=" -"apt_consume_short \${_ra_match%=}" \( /"$word1" !"$comp_intlevel" \| /"$nul" /"$word" !"$comp_intlevel" \) \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)short_intlevel})=" -"apt_consume_short \${_ra_match[-2]}" \( /"$word1" !"$comp_intlevel" \| /"$nul" /"$word" !"$comp_intlevel" \) \| /"(${(j:|:)short_intlevel})$nul" -"apt_consume_short \${_ra_match[-2]}" /"($intlevel$nul|)" !"$comp_intlevel" \| ) fi if (( $#short_configfile )); then regex_short=("$regex_short[@]" /"$short_seq(${(j:|:)short_configfile})(=|)" -"apt_consume_short \${_ra_match%=}" \( /"$word1" !"$comp_configfile" \| /"$nul" /"$word" !"$comp_configfile" \) \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)short_configfile})$nul" -"apt_consume_short \${_ra_match[-2]}" /"$word" !"$comp_configfile" \| /"(${(j:|:)short_configfile})=" -"apt_consume_short \${_ra_match[-2]}" \( /"$word1" !"$comp_configfile" \| /"$nul" /"$word" !"$comp_configfile" \) \| ) fi if (( $#short_arbitem )); then regex_short=("$regex_short[@]" /"$short_seq(${(j:|:)short_arbitem})(=|)" -"apt_consume_short \${_ra_match%=}" \( /"$word1" !"$comp_arbitem" \| /"$nul" /"$word" !"$comp_arbitem" \) \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)short_arbitem})$nul" -"apt_consume_short \${_ra_match[-2]}" /"$word" !"$comp_arbitem" \| /"(${(j:|:)short_arbitem})=" -"apt_consume_short \${_ra_match[-2]}" \( /"$word1" !"$comp_arbitem" \| /"$nul" /"$word" !"$comp_arbitem" \) \| ) fi if (( $#long_hasarg )); then regex_long=("$regex_long[@]" /"(${(j:|:)long_hasarg})$nul" -"apt_consume_long \${_ra_match%$nul}; current_option=\${canonicalize[--\${_ra_match%$nul}]}" /"$word" !"$comp_hasarg" \| /"(${(j:|:)long_hasarg})=" -"apt_consume_long \${_ra_match%=}; current_option=\${canonicalize[--\${_ra_match%=}]}" \( /"$word1" !"$comp_hasarg" \| /"$nul" /"$word" !"$comp_hasarg" \) \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)long_hasarg})$nul" -"apt_consume_long \${_ra_match%$nul}; current_option=\${canonicalize[--\${_ra_match%$nul}]}" /"$word" !"$comp_hasarg" \| /"(${(j:|:)long_hasarg})=" -"apt_consume_long \${_ra_match%=}; current_option=\${canonicalize[--\${_ra_match%=}]}" \( /"$word1" !"$comp_hasarg" \| /"$nul" /"$word" !"$comp_hasarg" \) \| ) fi if (( $#long_bool )); then regex_long=("$regex_long[@]" /"(${(j:|:)long_bool})=" -"apt_consume_long \${_ra_match%=}" \( /"$word1" !"$comp_bool" \| /"$nul" /"$word" !"$comp_bool" \) \| /"(${(j:|:)long_bool})$nul" -"apt_consume_long \${_ra_match%$nul}" /"((${(j:|:)bool})$nul|)" !"$comp_bool" \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)long_bool})=" -"apt_consume_long \${_ra_match%=}" \( /"$word1" !"$comp_bool" \| /"$nul" /"$word" !"$comp_bool" \) \| /"(${(j:|:)long_bool})$nul" -"apt_consume_long \${_ra_match%$nul}" /"((${(j:|:)bool})$nul|)" !"$comp_bool" \| ) fi if (( $#long_intlevel )); then regex_long=("$regex_long[@]" /"(${(j:|:)long_intlevel})=" -"apt_consume_long \${_ra_match%=}" \( /"$word1" !"$comp_intlevel" \| /"$nul" /"$word" !"$comp_intlevel" \) \| /"(${(j:|:)long_intlevel})$nul" -"apt_consume_long \${_ra_match%$nul}" /"($intlevel$nul|)" !"$comp_intlevel" \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)long_intlevel})$nul" -"apt_consume_long \${_ra_match%$nul}" /"$intlevel" !"$comp_intlevel" /"$nul" \| /"(${(j:|:)long_intlevel})=" -"apt_consume_long \${_ra_match%=}" \( /"$word1" !"$comp_intlevel" \| /"$nul" /"$word" !"$comp_intlevel" \) \| /"(${(j:|:)long_intlevel})$nul" -"apt_consume_long \${_ra_match%$nul}" /"($intlevel$nul|)" !"$comp_intlevel" \| ) fi if (( $#long_configfile )); then regex_long=("$regex_long[@]" /"(${(j:|:)long_configfile})$nul" -"apt_consume_long \${_ra_match%$nul}" /"$word" !"$comp_configfile" \| /"(${(j:|:)long_configfile})=" -"apt_consume_long \${_ra_match%=}" \( /"$word1" !"$comp_configfile" \| /"$nul" /"$word" !"$comp_configfile" \) \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)long_configfile})$nul" -"apt_consume_long \${_ra_match%$nul}" /"$word" !"$comp_configfile" \| /"(${(j:|:)long_configfile})=" -"apt_consume_long \${_ra_match%=}" \( /"$word1" !"$comp_configfile" \| /"$nul" /"$word" !"$comp_configfile" \) \| ) fi if (( $#long_arbitem )); then regex_long=("$regex_long[@]" /"(${(j:|:)long_arbitem})$nul" -"apt_consume_long \${_ra_match%$nul}" /"$word" !"$comp_arbitem" \| /"(${(j:|:)long_arbitem})=" -"apt_consume_long \${_ra_match%=}" \( /"$word1" !"$comp_arbitem" \| /"$nul" /"$word" !"$comp_arbitem" \) \| ) regex_long_prefix=("$regex_long_prefix[@]" /"(${(j:|:)long_arbitem})$nul" -"apt_consume_long \${_ra_match%$nul}" /"$word" !"$comp_arbitem" \| /"(${(j:|:)long_arbitem})=" -"apt_consume_long \${_ra_match%=}" \( /"$word1" !"$comp_arbitem" \| /"$nul" /"$word" !"$comp_arbitem" \) \| ) fi regex_all=( /"$word" \( %-- \( "$regex_long[@]" %"(${(j:|:)bool})-" \( "$regex_long_prefix[@]" /"[]" !"$comp_long_prefix" \) \| /"[]" !"$comp_long" \) \| %- \( "$regex_short[@]" /"[]" !"$comp_short; $comp_long" \) \| /"[]" !"$comp_opt" \) \# "$regex_all[@]" ) apt_consume_short () { local short opt for short in ${(s::)1}; do opt="$canonicalize[-$short]" (( 0 < options[$opt] && options[$opt]-- )) done } apt_consume_long () { local long opt opt="$canonicalize[--$1]" (( 0 < options[$opt] && options[$opt]-- )) } _regex_arguments "${funcname}_sm" "$regex_all[@]" eval "$funcname () { typeset -A canonicalize options canonicalize=(${(kv)canonicalize}) options=(${(kv)options}) local short_hasarg short_bool short_intlevel short_configfile short_arbitem local long_hasarg long_bool long_intlevel long_configfile long_arbitem short_hasarg=($short_hasarg) short_bool=($short_bool) short_intlevel=($short_intlevel) short_configfile=($short_configfile) short_arbitem=($short_arbitem) long_hasarg=($long_hasarg) long_bool=($long_bool) long_intlevel=($long_intlevel) long_configfile=($long_configfile) long_arbitem=($long_arbitem) local expl_opt expl_bool expl_configfile _description expl_opt option _description expl_bool 'bool value' _description expl_configfile 'config file' local current_option tmp1 tmp2 ${funcname}_sm }"