diff options
| -rw-r--r-- | Completion/User/_whois | 224 |
1 files changed, 0 insertions, 224 deletions
diff --git a/Completion/User/_whois b/Completion/User/_whois deleted file mode 100644 index 76d5a5b4a..000000000 --- a/Completion/User/_whois +++ /dev/null @@ -1,224 +0,0 @@ -#compdef whois fwhois - -_whois () { - _whois_setup - case "$0" in - fwhois) _whois_fwhois;; - *) $_whois_comp;; - esac -} - -(( $+functions[_whois_setup] )) || -_whois_setup () { - (( $+_whois_defaultserver )) || - _whois_defaultserver='whois.internic.net' - - (( $+_whois_servers )) || { - typeset -gUa _whois_servers - _whois_servers=( - $_whois_defaultserver - domain-registry.nl - is.nic.pw - whois.apnic.net:p - whois.arin.net:a - whois.aunic.net - whois.berkeley.edu - whois.cdnnet.ca - whois.dns.pt - whois.funet.fi - whois.gb.com - whois.gb.net - whois.internic.net - whois.jpl.nasa.gov - whois.nic-se.se - whois.nic.ad.jp - whois.nic.af - whois.nic.as - whois.nic.br - whois.nic.bt - whois.nic.ch - whois.nic.cx - whois.nic.fr - whois.nic.gov:g - whois.nic.hm - whois.nic.it - whois.nic.li - whois.nic.lk - whois.nic.mil:d - whois.nic.mx - whois.nic.nu - whois.nic.or.kr - whois.nic.sh - whois.nic.tj - whois.nic.tm - whois.nic.uk - whois.ripe.net:r - whois.ripn.net:R - whois.sics.se - whois.stanford.edu - whois.uk.com - www.nic.at - $(functions -m '_whois:*' | - awk '/^undefined _whois:/ {print substr($2,8,length($2)-7)} - /^_whois:/ {print substr($1,8,length($1)-7)}') - ) - } - - (( $+_whois_arguments )) || { - local help="$(whois </dev/null 2>&1)" - local tmp opt opts - local hostopt=-h+ - - if [[ $help = *"user[@<whois.server>]"* ]]; then - _whois_comp=_whois_fwhois - elif [[ $help = *(name\ ...|OBJECT...)* ]]; then - _whois_comp=_whois_multi - else - _whois_comp=_whois_single - hostopt=-h - fi - - _whois_arguments=() - - if [[ $help = *"-p PORT"* ]]; then - _whois_arguments=("$_whois_arguments[@]" - '-p[port]:port:_whois_ports' - ) - fi - - tmp="${(j::)${(@)${(@M)_whois_servers:#*:?}##*:}}" - if [[ $help = (#b)*\[-([$tmp]##)\]* ]]; then - tmp=(${(s::)match[1]}) - else - tmp=() - fi - - if [[ $help = *"-h host"* ]]; then - tmp=($tmp h) - fi - - for opt in $tmp; do - opts=(-${^tmp:#$opt}) - if (( $#opts )); then opts="($opts)"; else opts=; fi - if [[ $opt = h ]]; then - _whois_arguments=("$_whois_arguments[@]" - "${opts}${hostopt}:host:_whois_hosts") - else - _whois_arguments=("$_whois_arguments[@]" - "${opts}-${opt}[${${(@M)_whois_servers:#*:$opt}%:?}]") - fi - done - } -} - -_whois_single () { - local curcontext="$curcontext" state line expl - typeset -A opt_args - local tmp host - - _arguments -C \ - "$_whois_arguments[@]" \ - ':identifier:->identifier' && return 0 - - case "$state" in - identifier) - if [[ -z "$QIPREFIX" && -z "$PREFIX" ]]; then - compadd -QS '' \' - return - fi - compset -q - host="${opt_args[-h]:-$_whois_defaultserver}" - for tmp in $_whois_servers; do - if [[ $tmp = *:? && $+opt_args[-${tmp##*:}] -ne 0 ]]; then - host="${tmp%:?}" - break - fi - done - if (( $+functions[_whois:$host] )); then - "_whois:$host" "$expl[@]" - else - _message "identifier" - fi - ;; - esac -} - -_whois_multi () { - local curcontext="$curcontext" state line expl - typeset -A opt_args - local tmp host - - _arguments -C \ - "$_whois_arguments[@]" \ - '*::identifier:->identifier' && return 0 - - case "$state" in - identifier) - host="${opt_args[-h]:-$_whois_defaultserver}" - for tmp in $_whois_servers; do - if [[ $tmp = *:? && $+opt_args[-${tmp##*:}] -ne 0 ]]; then - host="${tmp%:?}" - break - fi - done - if (( $+functions[_whois:$host] )); then - "_whois:$host" "$expl[@]" - else - _message "identifier" - fi - ;; - esac -} - -_whois_fwhois () { - if compset -P '*@'; then - _whois_hosts "$@" - else - if [[ -z "$QIPREFIX" && -z "$PREFIX" ]]; then - compadd -QS '' \' - return - fi - compset -q - host="$_whois_defaultserver" - if (( $+functions[_whois:$host] )); then - "_whois:$host" "$@" - else - _message "identifier" - fi - fi -} - -_whois_hosts () { - _tags hosts && - compadd "$@" \ - -M 'm:{a-zA-Z}={A-Za-z} r:|.=* r:|=*' \ - - ${_whois_servers%:?} || _hosts "$@" -} - -_whois_ports () { - _tags ports && compadd "$@" - whois || _ports "$@" -} - -(( $+functions[_whois:whois.internic.net] )) || -_whois:whois.internic.net () { - if (( CURRENT == 1 )); then - local expl - - _wanted strings expl string compadd HELP DOMAIN HOST - else - _message 'string' - fi -} - -(( $+functions[_whois:whois.nic.ad.jp] )) || -_whois:whois.nic.ad.jp () { - if (( CURRENT == 1 )); then - local expl - - _wanted strings expl string compadd HELP DOM NET HOST PERSON CONN COM - else - _message 'string' - fi -} - -_whois "$@" |