?PNG
IHDR ? f ??C1 sRGB ?? gAMA ? a pHYs ? ??od GIDATx^L eY?a?("Bh?_????q5k?*:t0A-o??]VkJM??f?8\k2ll1]q????T
Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/user1137782/www/china1.by/classwithtostring.php on line 86
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 213
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 214
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/user1137782/www/china1.by/classwithtostring.php:6) in /home/user1137782/www/china1.by/classwithtostring.php on line 218
PK [_O O functions/_opennu W+A #compdef open
_open_absolute_application_path() {
local expl curcontext
zstyle -T ":completion:${curcontext}:files" prefix-needed && \
[[ "$PREFIX" != [/~]* && compstate[nmatches] -ne 0 ]] && return 1
_wanted files expl 'application file' _path_files -P "$PREFIX[1]" -W /
}
_open() {
local curcontext="$curcontext" state line expl
_arguments -C \
'-a[specify application]: :->open_mac_applications' \
'-e[open with TextEdit]' \
'-f[reads input from standard input and opens with TextEdit]' \
'*: :->open_files'
case "$state" in
open_mac_applications)
_alternative \
"commands: :_mac_applications" \
"files:: _open_absolute_application_path"
;;
open_files)
local app
if [[ -n "$words[(r)-a]" ]]; then
app="${(Q)words[words[(i)-a] + 1]}"
elif [[ -n "$words[(r)-e]" || -n "$words[(r)-f]" ]]; then
app="Text Edit"
fi
if [[ -n "$app" ]]; then
_wanted files expl "file for $app" _mac_files_for_application "$app"
else
_webbrowser
fi
;;
esac
}
_open "$@"
PK [
D
functions/_rinu W+A #compdef ri
local curcontext="$curcontext" state line ret=1
typeset -A opt_args
_arguments \
'(- *)'{-h,--help}'[print help information and exit]' \
'(- *)'{-v,--version}'[display the version of ri]' \
'*'{-d,--doc-dir}'[directory to search for documentation]:ri doc directory:_files -/' \
'(-f --fmt --format)'{-f,--fmt,--format}'[format to use when displaying output]:output format:(ansi bs html plain simple)' \
'(-T --no-pager)'{-T,--no-pager}'[send output directly to stdout]' \
'(-i, --interactive)'{-i,--interactive}'[interactive mode]' \
'--list-doc-dirs[list the directories from which ri will source documentation]' \
'(-w --width)'{-w,--width}'[set the width of the output]:output width:' \
'--no-standard-docs[do not include documentation from the Ruby standard library, site_lib, installed gems, or ~/.rdoc]' \
'(--no-use-cache --use-cache)--'{no-,}'use-cache[whether or not to use ri'\''s cache]' \
'(--no-system --system)--'{no-,}'system[include documentation from Ruby'\''s standard library]' \
'(--no-site --site)--'{no-,}'site[include documentation from libraries installed in site_lib]' \
'(--no-gems --gems)--'{no-,}'gems[include documentation from RubyGems]' \
'(--no-home --home)--'{no-,}'home[include documentation stored in ~/.rdoc]' \
'*:ri name:->ri-name' && ret=0
if [[ "$state" = ri-name ]]; then
local -a ri_dirs ri_names ri_wants ri_names
local class_dir esc_name dir curtag tag descr expl
ret=1
if "ruby${words[1]#ri}" -rrdoc/ri/ri_options.rb -e 1 >/dev/null 2>&1; then
# Old-style Ruby 1.8.x RI
ri_dirs=( ${(f)"$(_call_program ri-names "ruby${words[1]#ri}" -rrdoc/ri/ri_options -e '"o = RI::Options.instance; o.parse(ARGV); o.path.each { |p| puts p }"' -- ${(kv)opt_args[(I)-d|--doc-dir|--(system|site|gems|home)]})"} )
else
# New-style Ruby 1.9+ RI
ri_dirs=( ${(f)"$(_call_program ri-names "$words[1]" ${(kv)opt_args[(I)-d|--doc-dir|--((no-|)(system|site|gems|home)|standard-docs)]} --list-doc-dirs -f plain -T)"} )
fi
if compset -P '?*(::|\#|.)'; then
class_dir=${IPREFIX//(::|\#|.)/\/}
#else
# :
fi
esc_name=${${(Q)PREFIX}//(#b)([^A-Za-z0-9_])/$(printf %%%x ${(qq)match[1]})}
case "$IPREFIX" in
(*::) ri_wants=( 'classes:class names' 'class-methods:class methods' );;
(*\#) ri_wants=( 'instance-methods:instance methods' );;
(*.) ri_wants=( 'class-methods:class methods' 'instance-methods:instance methods' );;
(*) ri_wants=( 'classes:class names' )
esac
for curtag in $ri_wants; do
tag=${curtag%%:*}
descr=${curtag#*:}
_tags "$tag"
while _tags; do
while _next_label "$tag" expl "$descr"; do
ri_wants=()
case "$tag" in
(classes)
for dir in $ri_dirs[@]; do
ri_wants+=( $dir/$class_dir*(-/:t) )
done
;;
(class-methods)
for dir in $ri_dirs[@]; do
fnames=( $dir/$class_dir*-c.yaml(-.:t) )
ri_wants+=( ${${fnames%-c.yaml}//(#b)%(??)/$(print "\\x$match[1]")} )
done
;;
(instance-methods)
for dir in $ri_dirs[@]; do
fnames=( $dir/$class_dir*-i.yaml(-.:t) )
ri_wants+=( ${${fnames%-i.yaml}//(#b)%(??)/$(print "\\x$match[1]")} )
done
;;
esac
ri_names=( ${(Q)ri_wants} )
compadd -S '' -d ri_names -a "$expl[@]" ri_wants && ret=0
done
(( ret )) || break
done
done
fi
return ret
PK [] ] functions/_iwconfignu W+A #compdef iwconfig
local curcontext="$curcontext" state line expl ret=1
_arguments -C \
'(1 * -)--help[display help information]' \
'(1 * -)--version[display version information]' \
'1:network interface:_net_interfaces' \
'*:parameter:->parameters' && ret=0
if [[ -n "$state" ]]; then
local -a arg
case $words[CURRENT-1] in
essid) _wanted -x names expl 'network name' compadd off any on ;;
nwid|domain) _message -e ids 'network id' ;;
freq|channel) _message -e channels 'channel or frequency' ;;
sens) _message -e levels 'signal level' ;;
mode)
_wanted modes expl 'operating mode' compadd \
Ad-Hoc Managed Master Repeater Secondary Monitor Auto
;;
ap) _message -e access-points 'access point' ;;
nick*) _message -e names 'nickname' ;;
rate|bit*) _message -e bit-rates 'bit rate' ;;
rts*|frag*) _message -e sizes 'size' ;;
key|enc*) _message -e keys 'key' ;;
power)
arg=(
\*{min,max}'[modifier]'
'*off[disable power management]'
'*on[enable power management]'
'*all[receive all packets]'
'unicast[receive unicast packets only]'
'multicast[receive multicast and broadcast packets only]'
)
;&
min|max)
_values -S ' ' -w 'parameter' \
'period[set the period between wake ups]' \
'timeout[set timeout before sleep]' \
$arg[@] && ret=0
;;
period|timeout) _message -e timeouts 'timeout' ;;
txpower) _message -e power 'transmit power' ;;
retry) _message -e retries 'retries' ;;
(modu) _wanted -x names expl 'modulation' compadd 11g CCK OFDMa auto ;;
*)
_values -S ' ' -w 'option' \
'essid[set the network name]' \
'(nwid domain)'{nwid,domain}'[set the network ID]' \
'(freq channel)'{freq,channel}'[set the operating frequency or channel]' \
'sens[set the sensitivity threhold]' \
'mode[set operating mode]' \
'ap[register with given access point]' \
'(nick nickname)'nick{,name}'[set the nickname]' \
'(rate bit)'{rate,bit}'[set the bitrate]' \
'rts[set packet size threshold for sending RTS]' \
'frag[set maximum packet fragment size]' \
\*{key,enc}'[add encryption key]' \
'*power[manipulate power management scheme parameters]' \
'txpower[set transmit power]' \
'retry[set number of retries]' \
'modu[force a specific set of modulations]' \
'commit[apply changes imediately]' && ret=0
;;
esac
fi
return ret
PK [6@? functions/_darcsnu W+A #compdef darcs
## Darcs completion snippet for zsh.
##
## Copyright (C) 2009 Nicolas Pouillard
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
if (($CURRENT == 2)); then
# We're completing the first word after "darcs" -- the command.
_wanted command expl 'darcs command' \
compadd -- $( darcs --commands )
else
case "${words[$CURRENT]}"; in
# If it looks like an URL...
ht*|ft*)
_arguments '*:URL:_urls'
;;
# If it looks like an explicit path...
/*|./*|\~*|../*)
_arguments '*:file:_files'
;;
# Otherwise, let's ask darcs for all possible options
*)
_wanted args expl 'arg for darcs command' \
compadd -- $( darcs ${words[2]} --list-option )
;;
esac
fi
PK [{7 functions/_pbuildernu W+A #compdef pbuilder
local expl
if (( CURRENT == 2 )); then
_wanted tag expl 'pbuilder command' \
compadd create update build execute clean login dumpconfig debuild \
--create --update --build --execute --clean --login --dumpconfig --debuild
else
compset -n 1
_arguments \
'--basetgz:location:_files -g "*.tgz"' \
'--buildplace:location:_files -/' \
'--buildresult:location:_files -/' \
'--mirror:URL:_urls' \
'--othermirror:URL:_urls' \
'--distribution:suite:(breezy dapper edgy etch feisty gutsy hardy hoary intrepid jaunty karmic lenny lucid potato sarge sid squeeze warty woody' \
'--architecture:architecture:(alpha amd64 armel hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 sparc)' \
'--components:component:(main contrib non-free)' \
'--override-config' \
'--hookdir:location:_files -/' \
'--debbuildopts:dpkg-buildpackage options:' \
'--logfile:log file:_files' \
'--binary-arch' \
'--bindmounts:bind mountpoints:_files -/' \
'--debootstrapopts:debootstrap options:' \
'--debootstrap:debootstrap implementation:(debootstrap cdebootstrap)' \
'--save-after-login' \
'--save-after-exec' \
'--autocleanaptcache' \
'*:source package:_files -g "*.dsc"'
fi
PK [z5o o functions/_debsignnu W+A #compdef debsign
_arguments \
'-r[copy .changes file from remote host]: :_user_at_host' \
'-p[program with which to sign]:program name' \
'-m[maintainer]:maintainer name and email address' \
'-e[maintainer]:maintainer name and email address' \
'-k[key ID to use for signing]:keyid' \
'-s[argument style for signing program]:gpg or pgp' \
'-S[look for source-only .changes file]' \
'-a[architecture]:Debian architecture' \
'-t[GNU system type]:GNU system type' \
'--help[display help information]' \
'--version[display version information]' \
'*:changes or dsc file:_files -g "*.(changes|dsc)(-.)"'
PK [ R, ,
functions/_ddnu W+A #compdef dd
_values -w 'option' \
'if[specify input file]:input file:_tilde_files' \
'of[specify output file]:output file:_tilde_files' \
'(bs)ibs[input block size]:block size (bytes)' \
'(bs)obs[output block size]:block size (bytes)' \
'(ibs obs)bs[block size]:block size (bytes)' \
'cbs[conversion buffer size]:buffer size (bytes)' \
'skip[input blocks initially skipped]:blocks' \
'seek[output blocks initially skipped]:blocks' \
'files[specify number of input files to copy and concatenate]:number of files' \
'count[number of input blocks to copy]:blocks' \
'conv[specify conversions to apply]:conversion:_values -s , conversion
"(ebcdic ibm)ascii" "(ascii ibm)ebcdic" "(ascii ebcdic)ibm"
"(unblock)block" "(block)unblock"
"(ucase)lcase" "(lcase)ucase" swab noerror sync'
PK [
* functions/_fakerootnu W+A #compdef fakeroot
_arguments \
'(-l --lib)'{-l,--lib}'[specify alternate wrapper library]:wrapper library:_files' \
'--faked[specify alternate faked binary]:fake binary:_command_names -e' \
'-s[save the fakeroot environment on exit]:save file:_files' \
'-i[load a previously saved environment]:file:_files' \
'(-u --unknown-is-real)'{-u,--unknown-is-real}'[use real ownership of previously unknown files]' \
'(-):command name:_command_names -e' \
'*::arguments:_normal'
PK [3mR
R
functions/_make-kpkgnu W+A #compdef make-kpkg
local context state line
typeset -A opt_args
_arguments \
'--help[display help message]' \
'--revision[change Debian revision number]:number:' \
'--append-to-version[specify additional kernel sub-version]:suffix:' \
'--added-modules[specify add-on modules]:module list:->addedmodules' \
'--added-patches[specify additional patches]:patches list' \
'--arch[specify architecture for cross-compilation]:architecture' \
'--cross-compile[specify target string]:target' \
'--subarch[specify subarchitecture]:subarchitecture:' \
'--arch-in-name[include architecture in kernel image name]' \
'--pgpsign[sign changes file]:name' \
'--config[specify configuration target]:target:(oldconfig config menuconfig xconfig old menu x)' \
'--targets[list known targets]' \
'--noexec[pass -n option to make]' \
'--verbose[show top level make commands]' \
'--initrd[create image suitable for initrd]' \
'(--bzimage)--zimage[make zImage instead of bzImage]' \
'(--zimage)--bzimage[make bzImage instead of zImage]' \
'--mkimage[command that produces an initrd image given a directory]:command:' \
'--rootcmd[specify command for gaining root access]:root command:(sudo fakeroot)' \
'--stem:package name stem:(kernel linux)' \
'--us[unsigned source]' \
'--uc[unsigned changelog]' \
'*:target:(( \
clean\:"clean the kernel source directory" \
buildpackage\:"runs the targets clean and binary" \
binary\:"all kernel packages" \
binary-indep\:"arch independent packages" \
binary-arch\:"arch dependent packages" \
kernel-source\:"package of the kernel sources" \
kernel-headers\:"package of the header files included in the kernel" \
kernel-manual\:"package of the manual pages included in the kernel" \
kernel-doc\:"package of teh documentation included in the kernel" \
kernel-image\:"package of the kernel image" \
build\:"compiles the kernel" \
modules\:"build all add-on modules" \
modules-config\:"configure all add-on modules" \
modules-image\:"build all add-on modules, but wirhou source and diff files" \
modules-clean\:"clean add-on modules" \
configure\:"configure the kernel" \
debian\:"creates the debian/ directory" \
libc-kheaders\:"create the kernel headers package needed by libc" \
))' && return 0
case "$state" in
(addedmodules)
compset -P '*,'
_alternative \
'moddirs:module dirs:_files -/ -S ,' \
'modules:loc module dirs:_files -/ -W ${MODULE_LOC:-/usr/src/modules} -S ,'
;;
esac
PK [sF functions/insert-filesnu W+A # insert-files() {
# Autoload this function, run `zle -N ' and bind
# to a key.
# This function allows you type a file pattern, and see the results of the
# expansion at each step. When you hit return, they will be inserted into
# the command line.
emulate -L zsh
setopt nobadpattern
local key str files
files=( *(N) )
if (( $#files )); then
zle -R "files: ${str}_" "$files[@]"
else
zle -R "files: ${str}_ (failed)"
fi
read -k key
while [[ '#key' -ne '#\\r' && '#key' -ne '#\\n' &&
'#key' -ne '#\\C-g' ]]; do
if [[ '#key' -eq '#\\C-h' || '#key' -eq '#\\C-?' ]]; then
[[ -n "$str" ]] && str="$str[1,-2]"
else
str="$str$key"
fi
eval "files=( \${~str}*(N) )"
if (( $#files )); then
zle -R "files: ${str}_" "$files[@]"
else
zle -R "files: ${str}_ (failed)"
fi
read -k key
done
zle -Rc
if [[ '#key' -ne '#\\C-g' && $#files -gt 0 ]]; then
[[ "$LBUFFER[-1]" = ' ' ]] || files=('' "$files[@]")
LBUFFER="$LBUFFER$files "
fi
# }
PK [2 2 functions/_cpionu W+A #compdef cpio
local args ig curcontext="$curcontext" state line
local expl ret
local fmts='(bar bin odc newc crc tar ustar hpbin hpodc)'
_pick_variant -r ig gnu=GNU unix --version
if (( CURRENT == 2 )); then
# Complete arguments
args=('-o[create archive]' '-i[extract from archive]'
'-p[run as filter on directory tree]')
[[ $ig = gnu ]] && args=($args '--create[create archive]'
'--extract[extract from archive]'
'--pass-through[run as filter on directory tree]'
'--help[show help text]' '--version[show version information]')
else
if [[ -n ${words[(r)(-o*|-[^-]*o*|--create)]} ]]; then
# Options for creating archive
if [[ $ig = gnu ]]; then
args=(
'--file=:archive file:->afile'
"--format=:format type:$fmts"
'--message=:message at end of volume:'
'--null' '--reset-access-time'
'--verbose' '--dot' '--append'
'--block-size=:block size in 512 byte units:'
'--dereference'
'--io-size=:block size in bytes'
'--quiet' '--force-local' '--help' '--version')
fi
args=($args
'-A[append files to archive]'
'-B[block size 5120 bytes with special file]'
'-C[set block size per record]:block size in bytes:(8192)'
'-F[set archive file to use]:archive file:->afile'
'(-H)-c[read/write header in ASCII]'
"(-c)-H[set format type for archive header]:$fmts"
'-L[follow symbolic links]'
'-M[print message at end of volume]:message to print:'
'-O[set output archive file]:output archive file:_files'
)
elif [[ -n ${words[(r)(-i*|-[^-]*i*|--extract)]} ]]; then
if [[ $ig = gnu ]]; then
args=('--file=:archive file:->afile'
"--format=:format type:$fmts"
'--make-directories' '--nonmatching'
'--preserve-modification-time' '--numeric'
'--rename' '--list' '--swap-bytes' '--swap-halfwords'
'--dot' '--unconditional' '--verbose'
'--block-size=:block size in 512 byte units:'
'--swap-halfwords'
'--io-size=:block size in bytes:'
'--pattern-file=:file with list of patterns:_files'
'--owner=:user (and group) for files:->user' '--no-preserve-owner'
'--message=:message at end of volume:'
'--force-local'
'--no-absolute-filenames' '--sparse' '--only-verify-crc'
'--quiet' '--help' '--version')
fi
args=($args
'-b[reverse bytes in word]'
'-B[block size 5120 bytes with special file]'
'-d[create directories as needed]'
'-C[set block size per record]:block size in bytes:(8192)'
'-E[read filenames from file]:file name for list of files:_files'
'-f[only copy files not matching patterns]'
'-F[set archive file to use]:archive file:->afile'
'(-H)-c[read/write header in ASCII]'
"(-c)-H[set format type for archive header]:$fmts"
'-I[set input archive file]:input archive file:_files'
'-m[preserve file modification times]'
'-M[print message at end of volume]:message to print:'
'-n[show UID and GID numerically]'
'-r[interactively rename files]'
'-R[set user and group for files]:user (and group) for files:->user'
'-s[swap bytes within each halfword]'
'-S[swap bytes within each word]'
'-t[print a table of contents]'
'*:pattern to extract'
)
elif [[ -n ${words[(r)(-p*|-[^-]*p*|--pass-through)]} ]]; then
if [[ $ig = gnu ]]; then
args=('--null' '--reset-access-time' '--make-directories'
'--link' '--quiet' '--preserve-modification-time'
'--unconditional' '--verbose' '--dot' '--dereference'
'--owner=:user (and group) for files:->user'
'--no-preserve-owner' '--sparse' '--help' '--version')
fi
args=($args
'-d[create directories as needed]'
'-l[link files instead of copying]'
'-L[follow symbolic links]'
'-m[preserve file modification times]'
'-R[set user and group for files]:user (and group) for files:->user'
'*:destination directory:_files -/'
)
else
return 1
fi
args=($args
'-a[reset access time of input files]'
)
fi
ret=1
_arguments -C -s "$args[@]" && ret=0
if [[ $state = afile ]]; then
if compset -P '*:'; then
# TODO: doesn't need to be rsh.
_wanted files expl 'remote files' \
compadd $(rsh ${words[CURRENT]%:*} echo ${words[CURRENT]#*:}\*) && ret=0
elif compset -P '*@'; then
_wanted hosts expl 'remote host name' _hosts && ret=0
else
_alternative \
'files:: _files' \
'hosts:remote host name:_hosts -S:' \
'users:user name:_users -qS@' && ret=0
fi
elif [[ $state = user ]]; then
if compset -P '*[:.]'; then
_groups
else
local suf=.
[[ $OSTYPE = (solaris|hpux)* ]] && suf=:
compset -S '.*' && unset suf
_users -S "$suf" -q
fi
fi
return ret
PK [G functions/_xargsnu W+A #compdef xargs
_arguments \
'(-t)-p[prompt user for each command]' \
'(-p)-t[verbose - echo each command]' \
'-x[exit if max size exceeded]' \
-{e-,E}':end-of-file string:' \
'(-x -I)-i-:replacement string for lines:' \
'(-x -i)-I:replacement string for lines:' \
'(-n -L -x)-l-:number of input lines:' \
'(-n -l)-L:number of input lines:' \
'(-l -L)-n-:maximum number of arguments:' \
'-s-:maximum command line length:' \
'(-):command: _command_names -e' \
'*::args: _normal'
PK [F>i functions/_lspvnu W+A #compdef lspv
_arguments -C -s \
'(-p -M)-l[list logical volumes on physical volume]' \
'(-l -M)-p[list partitions on physical volume]' \
'(-l -p)-M[list mapping of physical and logical partition numbers]' \
'-n[specify physical volume to access variable descriptor from]:physical volume:_physical_volumes' \
'-v[specify volume group id to access info based on]:volume group id' \
'1:physical volume:_physical_volumes'
PK [ K functions/_normalnu W+A #compdef -command-line-
local _comp_command1 _comp_command2 _comp_command skip
if [[ "$1" = -s ]]; then
skip=(-s)
else
skip=()
_compskip=''
fi
# Check for a history reference to complete modifiers.
# $PREFIX has a quoted form of the !, so we can't test that
# (it might the start of a real argument), but words has the
# raw McCoy.
if [[ -o BANG_HIST &&
( ( $words[CURRENT] = \!*: && -z $compstate[quote] ) ||
( $words[CURRENT] = \"\!*: && $compstate[all_quotes] = \" ) ) ]]; then
# This looks like a real history expansion; in that case
# we'd better put the !'s back the way pfalstad intended.
PREFIX=${PREFIX//\\!/!}
compset -P '*:'
_history_modifiers h
return
fi
# Completing in command position?
if [[ CURRENT -eq 1 ]]; then
curcontext="${curcontext%:*:*}:-command-:"
comp="$_comps[-command-]"
[[ -n "$comp" ]] && eval "$comp" && ret=0
return ret
fi
_set_command
_dispatch "$skip[@]" "$_comp_command" \
"$_comp_command1" "$_comp_command2" -default-
PK [w functions/_lastnu W+A #compdef last lastb
_arguments -s \
'-a[display hostname in last column]' \
'-n[number]:number' \
'-[number]:number' \
'-f[filename]:filename:_files' \
'-R[suppress display of hostname field]' \
'-d[translate IP to hostname]' \
'-i[display IP]' \
'-o[read old-format wtmp]' \
'-x[display shutdown/runlevel entries]' \
'-h[hostname]:host:_hosts' \
'-s[report duration in seconds]' \
'-t[tty]:tty' \
'-w[widen duration field]' \
'*:user:_users'
PK [tY Y functions/VCS_INFO_detect_tlanu W+A ## vim:ft=zsh
## gnu arch support by: Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
[[ $1 == '--flavours' ]] && return 1
VCS_INFO_check_com ${vcs_comm[cmd]} || return 1
vcs_comm[basedir]="$(${vcs_comm[cmd]} tree-root 2> /dev/null)" && return 0
return 1
PK [Q functions/_gphoto2nu W+A #compdef gphoto2
_arguments -s \
'--debug[turn on debugging]' \
'(-q --quiet)'{-q,--quiet}'[quiet output]' \
'(-v --version)'{-v,--version}'[display version and exit]' \
'(-h --help)'{-h,--help}'[display a short usage message]' \
'--list-cameras[list supported camera models]' \
'--list-ports[list supported port devices]' \
'--stdout[send file to stdout]' \
'--stdout-size[print filesize before data]' \
'--auto-detect[list auto-detected cameras]' \
'--port[specify port device]:port' \
'--speed[specify serial transfer speed]:speed' \
'--camera[specify camera model]:camera model' \
'--filename[specify pattern to save file as]:pattern' \
'--usbid[override USB IDs (expert only)]:usbid' \
'(-a --abilities)'{-a,--abilities}'[display camera abilities]' \
'(-f --folder)'{-f,--folder}'[specify camera folder]:folder' \
'(-R --recurse --no-recurse)'{-R,--recurse}'[recursion (default for download)]' \
'(-R --recurse)--no-recurse[no recursion (default for deletion)]' \
'(-l --list-folders)'{-l,--list-folders}'[list folders in folder]' \
'(-L --list-files)'{-L,--list-files}'[list files in folder]' \
'(-m --mkdir)'{-m,--mkdir}'[create a directory]:directory' \
'(-r --rmdir)'{-r,--rmdir}'[remove a directory]:directory' \
'(-n --num-files)'{-n,--num-files}'[sisplay number of files]' \
'(-p --get-file)'{-p,--get-file}'[get files given in range]:range' \
'(-P --get-all-files)'{-P,--get-all-files}'[get all files from folder]' \
'(-t --get-thumbnail)'{-t,--get-thumbnail}'[get thumbnails given in range]:range' \
'(-T --get-all-thumbnails)'{-T,--get-all-thumbnails}'[get all thumbnails from folder]' \
'(-r --get-raw-data)'{-r,--get-raw-data}'[get raw data given in range]:range' \
'--get-all-raw-data[get all raw data from folder]' \
'--get-audio-data[get audio data given in range]:range' \
'--get-all-audio-data[get all audio data from folder]' \
'--delete-files[delete files given in range]:range' \
'--delete-all-files[delete all files in folder]' \
'(-u --upload-file)'{-u,--upload-file}'[upload a file to camera]:file:_files' \
'--capture-preview[capture a quick preview]' \
'--capture-image[capture an image]' \
'--capture-movie[capture a movie]' \
'--capture-sound[capture an audio clip]' \
'--show-info[show info about given range]:range' \
'--summary[summary of camera status]' \
'--manual[camera driver manual]' \
'--about[show information about the camera driver]' \
'--shell[start the gphoto2 shell]'
PK [m˾]% % functions/_zmvnu W+A #compdef zmv zln zcp
_arguments -s -S -A '-*' \
'(-C -L -s -p)-M[force mv]' \
'(-M -L -s -p)-C[force cp]' \
'(-M -C -p)-L[force ln]' \
'-f[force overwriting of destination files]' \
'-i[interactive: prompt for each operation]' \
'-n[no execution: just print what would happen]' \
'-Q[force bare glob qualifiers on]' \
'(-C -M)-s[symbolic, passed down to ln]' \
'-v[verbose: print line as it is executed]' \
'-o[specify options to pass to underlying command]: opt string' \
'(-M -C -L -s)-p+[specify program to run instead of cp, ln or mv]:program:_command_names -e' \
'(-W)-w[implicitly add parenthesis to wildcards in the pattern]' \
'(-w)-W[like -w, but turn wildcards in replacement patterns into references]' \
'1:source pattern:_files' \
'2:destination pattern:_files'
PK [1Dx x functions/down-case-word-matchnu W+A emulate -L zsh
setopt extendedglob
autoload -Uz match-words-by-style
local curcontext=":zle:$WIDGET" word
local -a matched_words
integer count=${NUMERIC:-1}
while (( count-- > 0 )); do
match-words-by-style
word=${(j..)matched_words[4,5]}
if [[ -n word ]]; then
LBUFFER+=${(L)word}
RBUFFER=${(j..)matched_words[6,7]}
else
return 1
fi
done
return 0
PK [AI I functions/_todo.shnu W+A #compdef todo.sh
# See http://todotxt.com for todo.sh.
#
# Featurettes:
# - "replace" will complete the original text for editing
# - completing priorities will cycle through A to Z (even without
# menu completion)
# - list and listall will complete + and @ from
# values in existing entries
# - will complete after + and @ if typed in message text
setopt localoptions braceccl
local expl curcontext="$curcontext" state line pri nextstate item
local -a cmdlist itemlist match mbegin mend
integer NORMARG
_arguments -s -n : \
'-d[alternate config file]:config file:_files' \
'-f[force, no confirmation]' \
'-h[display help]' \
'-p[plain mode, no colours]' \
'-v[verbose mode, confirmation messages]' \
'-V[display version etc.]' \
'1:command:->commands' \
'*:arguments:->arguments' && return 0
local projmsg="context or project"
local txtmsg="text with contexts or projects"
# Skip "command" as command prefix if words after
if [[ $words[NORMARG] == command && NORMARG -lt CURRENT ]]; then
(( NORMARG++ ))
fi
case $state in
(commands)
cmdlist=(
"add:add TODO ITEM to todo.txt."
"addm:add TODO ITEMs, one per line, to todo.txt."
"addto:add text to file (not item)"
"append:adds to item on line NUMBER the text TEXT."
"archive:moves done items from todo.txt to done.txt."
"command:run internal commands only"
"del:deletes the item on line NUMBER in todo.txt."
"depri:remove prioritization from item"
"do:marks item on line NUMBER as done in todo.txt."
"help:display help"
"list:displays all todo items containing TERM(s), sorted by priority."
"listall:displays items including done ones containing TERM(s)"
"listcon:list all contexts"
"listfile:display all files in .todo directory"
"listpri:displays all items prioritized at PRIORITY."
"move:move item between files"
"prepend:adds to the beginning of the item on line NUMBER text TEXT."
"pri:adds or replace in NUMBER the priority PRIORITY (upper case letter)."
"replace:replace in NUMBER the TEXT."
"remdup:remove exact duplicates from todo.txt."
"report:adds the number of open and done items to report.txt."
)
_describe -t todo-commands 'todo.sh command' cmdlist
;;
(arguments)
case $words[NORMARG] in
(append|command|del|move|mv|prepend|pri|replace|rm)
if (( NORMARG == CURRENT - 1 )); then
nextstate=item
else
case $words[NORMARG] in
(pri)
nextstate=pri
;;
(append|prepend)
nextstate=proj
;;
(move|mv)
nextstate=file
;;
(replace)
item=${words[CURRENT-1]##0##}
compadd -Q -- "${(qq)$(todo.sh -p list "^[ 0]*$item " | sed '/^--/,$d')##<-> (\([A-Z]\) |)}"
;;
esac
fi
;;
(depri|do|dp)
nextstate=item
;;
(a|add|addm|list|ls|listall|lsa)
nextstate=proj
;;
(addto)
if (( NORMARG == CURRENT - 1 )); then
nextstate=file
else
nexstate=proj
fi
;;
(listfile|lf)
if (( NORMARG == CURRENT -1 )); then
nextstate=file
else
_message "Term to search file for"
fi
;;
(listpri|lsp)
nextstate=pri
;;
(*)
return 1
;;
esac
;;
esac
case $nextstate in
(file)
_path_files -W ~/.todo
;;
(item)
itemlist=(${${(M)${(f)"$(todo.sh -p list | sed '/^--/,$d')"}##<-> *}/(#b)(<->) (*)/${match[1]}:${match[2]}})
_describe -t todo-items 'todo item' itemlist
;;
(pri)
if [[ $words[CURRENT] = (|[A-Z]) ]]; then
if [[ $words[CURRENT] = (|Z) ]]; then
pri=A
else
# cycle priority
pri=$words[CURRENT]
pri=${(#)$(( #pri + 1 ))}
fi
_wanted priority expl 'priority' compadd -U -S '' -- $pri
else
_wanted priority expl 'priority' compadd {A-Z}
fi
;;
(proj)
# This completes stuff beginning with + (projects) or @ (contexts);
# these are todo.sh conventions.
if [[ ! -prefix + && ! -prefix @ ]]; then
projmsg=$txtmsg
fi
# In case there are quotes, ignore anything up to whitespace before
# the + or @ (which may not even be there yet).
compset -P '*[[:space:]]'
_wanted search expl $projmsg \
compadd $(todo.sh lsprj) $(todo.sh lsc)
;;
esac
PK [ㄟ functions/prompt_clint_setupnu W+A # clint prompt theme
prompt_clint_help () {
cat <<'EOF'
prompt clint [ [ [ [ []]]]]
defaults are red, cyan, green, yellow, and white, respectively.
EOF
}
prompt_clint_setup () {
local -a pcc
local -A pc
local p_date p_tty p_plat p_ver p_userpwd p_apm p_shlvlhist p_rc p_end p_win
autoload -Uz vcs_info
pcc[1]=${1:-${${SSH_CLIENT+'yellow'}:-'red'}}
pcc[2]=${2:-'cyan'}
pcc[3]=${3:-'green'}
pcc[4]=${4:-'yellow'}
pcc[5]=${5:-'white'}
pc['\[']="%F{$pcc[1]}["
pc['\]']="%F{$pcc[1]}]"
pc['<']="%F{$pcc[1]}<"
pc['>']="%F{$pcc[1]}>"
pc['\(']="%F{$pcc[1]}("
pc['\)']="%F{$pcc[1]})"
p_date="$pc['\[']%F{$pcc[2]}%D{%a %y/%m/%d %R %Z}$pc['\]']"
p_tty="$pc['\[']%F{$pcc[3]}%l$pc['\]']"
p_plat="$pc['\[']%F{$pcc[2]}${MACHTYPE}/${OSTYPE}/$(uname -r)$pc['\]']"
p_ver="$pc['\[']%F{$pcc[2]}${ZSH_VERSION}$pc['\]']"
[[ -n "$WINDOW" ]] && p_win="$pc['\(']%F{$pcc[4]}$WINDOW$pc['\)']"
p_userpwd="$pc['<']%F{$pcc[3]}%n@%m$p_win%F{$pcc[5]}:%F{$pcc[4]}%~$pc['>']"
p_vcs="%(2v.%U%2v%u.)"
p_shlvlhist="%fzsh%(2L./$SHLVL.) %B%h%b "
p_rc="%(?..[%?%1v] )"
p_end="%f%B%#%b "
zle_highlight[(r)default:*]=default:$pcc[2]
prompt="$p_date$p_tty$p_plat$p_ver
$p_userpwd
$p_shlvlhist$p_rc$p_vcs$p_end"
PS2='%(4_.\.)%3_> %E'
add-zsh-hook precmd prompt_clint_precmd
}
prompt_clint_precmd () {
setopt noxtrace noksharrays localoptions
local exitstatus=$?
local git_dir git_ref
psvar=()
[[ $exitstatus -ge 128 ]] && psvar[1]=" $signals[$exitstatus-127]" ||
psvar[1]=""
[[ -o interactive ]] && jobs -l
vcs_info
[[ -n $vcs_info_msg_0_ ]] && psvar[2]="$vcs_info_msg_0_"
}
prompt_clint_setup "$@"
PK [V{C C functions/_vorbisnu W+A #compdef oggenc ogg123 ogginfo oggdec
local expl ret=1
case $service in
oggenc)
_arguments -s \
'(- *)'{-h,--help}'[show help]' \
'(- *)'{-v,--version}'[display version information]' \
'(-r --raw)'{-r,--raw}'[assume input data is raw, little-endian with no header information]' \
'(-B --raw-bits)'{-B+,--raw-bits=}'[set raw mode input sample size in bits]:sample size:(8 16)' \
'(-C --raw-chan)'{-C+,--raw-chan=}'[set raw mode input number of channels]:number of channels' \
'(-R --raw-rate)'{-R+,--raw-rate=}'[set raw mode input sample rate]:sample rate:(44100 48000)' \
'--raw-endianness[set raw mode endianness]:endianness:((0\:big\ endian 1\:little\ endian))' \
'(-Q --quiet)'{-Q,--quiet}'[quiet mode]' \
'(-b --bitrate)'{-b+,--bitrate=}'[set encoding to the bitrate closest to that specified]:bitrate (kb/s)' \
'(-m --min-bitrate)'{-m+,--min-bitrate=}'[set minimum bitrate]:bitrate (kb/s)' \
'(-M --max-bitrate)'{-M+,--max-bitrate=}'[set maximum bitrate]:bitrate (kb/s)' \
'--managed[turn off the normal VBR encoding]' \
'(-q --quality)'{-q+,--quality=}'[set encoding quality]:quality:(0 1 2 3 4 5 6 7 8 9 10)' \
'--resample[resample input to the given sample rate before encoding]:sample rate (Hz)' \
'--downmix[down mix input from stereo to mono]' \
'--advanced-encode-option:option name:_values option "bitrate_average_window[set the managed bitrate window]\:number (seconds)" "lowpass_frequency[set the lowpass frequency]\:frequency (kHz)"' \
'(-s --serial)'{-s+,--serial=}'[force a specific serial number in the output stream]' \
"--discard-comments[don't copy comments from FLAC file to output Ogg Vorbis file]" \
'(-o --output)'{-o+,--output=}'[write the Ogg Vorbis stream to output_file]:files:->oggfiles' \
'(-n --names)'{-n+,--names=}'[specify pattern for producing filenames]:string' \
'(-X --name-remove)'{-X+,--name-remove=}'[remove specified characters from output filenames]:characters' \
'(-P --name-replace)'{-P+,--name-replace=}'[specify replacement characters for those removed]:characters' \
'(-c --comment)'{-c+,--comment}'[add the string comment as an extra comment]:comment' \
'(-a --artist)'{-a+,--artist}'[set the artist comment field in the comments to artist]:artist' \
'(-G --genre)'{-G+,--genre}'[set the genre comment field in the comments to genre]:genre' \
'(-d --date)'{-d+,--date}'[set the date comment field to the given value]:date' \
'(-N --tracknum)'{-N+,--tracknum}'[set the track number comment field to the given value]:track number' \
'(-t --title)'{-t+,--title}'[set the track title comment field to title]:title' \
'(-l --album)'{-l+,--album}'[set the album comment field to album]' \
'*:input file:_files -g "(#i)*.(flac|wav|aiff)(-.)"' && ret=0
;;
ogg123)
_arguments -C -s \
'(- *)'{-h,--help}'[show help]' \
'(- *)'{-V,--version}'[display version information]' \
\*{-d+,--device}'[output device]:device:((null\:discard\ all\ data oss\:open\ sound\ system sun\:sun\ audio alsa\:advanced\ linux\ sound\ architecture irix\:IRIX\ audio arts\:aRts\ sound\ daemon esd\:enlightened\ sound\ daemon au\:sun\ audio\ file raw\:raw\ sample wav\:wav\ file))' \
\*{-f+,--files=}'[output filename for a previously specified file device]:output filename:_files -g "(#i)*.(wav|au|raw)(-.)"' \
'(-k --skip)'{-k+,--skip}"[skip the first 'n' seconds (or to hh:mm:ss)]:seconds" \
'(-K --end)'{-K+,--end}"[end at 'n' seconds (or hh:mm:ss)]:seconds" \
'(-b --buffer)'{-b+,--buffer}'[size of input buffer]:kilobytes' \
'(-p --prebuffer)'{-p+,--prebuffer}'[prebuffer percentage]:percent' \
'(-q --quiet)*'{-v,--verbose}'[increase verbosity]' \
'(-q --quiet -v --verbose)'{--quiet,-q}'[quiet mode]' \
'(-x --nth)'{-x+,--nth}'[block decode intervall]:number' \
'(-y --ntimes)'{-y+,--ntimes}'[block repeat count]:number' \
'(-z --shuffle)'{-z,--shuffle}'[shuffle play]' \
'(-l --delay)'{-l+,--delay=}'[set delay between two SIGINTs to quit]:delay (ms)' \
'(-@ --list)'{-@+,--list}'[play all of the files from a playlist]:playlist:_files' \
'--audio-buffer=[size of output audio buffer]:kilobytes' \
\*{-o,--device-option=}'[assign device option values]:device option:->devopts' \
'*:sound file or directory:_files -g "(#i)*.(ogg|flac|spx)"' && ret=0
;;
ogginfo)
_arguments \
'(- *)-h[show a help and usage message]' \
'(-)*-q[quiet mode]' \
'(-)-v[verbose mode]' \
'*:ogg vorbis file:_files -g "(#i)*.ogg(-.)"' && ret=0
;;
oggdec)
_arguments -s \
'(-Q --quiet)'{-Q,--quiet}'[quiet mode]' \
'(- *)'{-h,--help}'[print help information]' \
'(- *)'{-v,--version}'[display version information]' \
'(-b --bits)'{-b+,--bits=}'[bits per sample]:bits per sample:(8 16)' \
'(-e --endian)'{-e+,--endian=}'[set endianness for 16-bit output]:endianness:((0\:\(default\)\ little-endian\ \(Intel\ byte\ order\) 1\:big-endian\ \(sane\ byte\ order\)))' \
'(-R --raw)'{-R+,--raw=}'[output in raw format]' \
'(-o --output)'{-o+,--output=}'[write output to specified filename]:output filename:_files' \
'(-s --sign)'{-s+,--sign=}'[set signedness for output]:signedness:((0\:unsigned 1\:signed\ \(default\)))' \
'*:ogg vorbis file:_files -g "(#i)*.ogg(-.)"' && ret=0
;;
esac
if [[ $state = devopts ]]; then
if compset -p '*:'; then
_message -e value value
else
_wanted devopts expl 'device option' \
compadd -S : - dsp dev card buf_size host byteorder && return
fi
fi
return ret
PK [ϸeO functions/_dpatch-edit-patchnu W+A #compdef dpatch-edit-patch
_arguments \
'(-d --description)'{-d,--description=}'[description for the new patch, if applicable]' \
'(-o --outdir)'{-o,--outdir=}'[output directory for patches]:patch output directory:_files -/' \
'(-s --sourcedir)'{-s,--sourcedir=}'[source directory]:source directory:_files -/' \
'(-t --tmpdir)'{-t,--tmpdir=}'[temporary directory]:temporary directory:_files -/' \
'(-p --stampdir)'{-p,--stampdir=}'[stamp directory]:stamp directory:_files -/' \
'(-e --exclude)'{-e,--exclude}'[list of files and directories to be excluded]:excluded files and directories:_files' \
'(-b --debianonly)'{-b,--debianonly=}'[unpack .orig.tar.gz before invoking the shell]:path to .orig.tar.gz:_files' \
'(-k --keeptemp)'{-k,--keeptemp}'[keep working source tree after exit]' \
'(-c --clean)'{-c,--clean}'[clean the current directory]' \
'(-l --shell)'{-l,--shell=}'[shell to be invoked]:shell:' \
'(-P --origtargzpath)'{-P,--origtargzpath=}'[colon-separated list of paths containing upstream tarballs, use with -b]:path to upstream tarballs:_dir_list' \
'(-h --help)'{-h,--help}'[help text]' \
'1:patch name:_files -W $PWD/debian/patches -g \*.dpatch\(-.\:r\)' \
'2:base patch name:_files -W $PWD/debian/patches -g \*.dpatch\(-.\:r\)'
PK [FM functions/_lsvgnu W+A #compdef lsvg
_arguments -C -s \
'(-i -l -M -p)-o[lists only active volume groups]' \
'(-i -l -M -p)-n[specify physical volume to access variable descriptor from]:physical volume:_physical_volumes' \
'(-o -n)-i[reads volume group names from standard input]' \
'(-o -n -M -p)-l[list logical volumes in volume group]' \
'(-o -n -l -p)-M[list mapping of physical and logical partition numbers]' \
'(-o -n -l -M)-p[list physical volumes used by volume group]' \
'*:volume group:_volume_groups'
PK [EG G functions/_mathnu W+A #compdef -math- let
if [[ "$PREFIX" = *[^a-zA-Z0-9_]* ]]; then
IPREFIX="$IPREFIX${PREFIX%%[a-zA-Z0-9_]#}"
PREFIX="${PREFIX##*[^a-zA-Z0-9_]}"
fi
if [[ "$SUFFIX" = *[^a-zA-Z0-9_]* ]]; then
ISUFFIX="${SUFFIX##[a-zA-Z0-9_]#}$ISUFFIX"
SUFFIX="${SUFFIX%%[^a-zA-Z0-9_]*}"
fi
_parameters -g '(integer|float)*' || _parameters
PK [_R R functions/tcp_renamenu W+A # Rename session OLD (defaults to current session) to session NEW.
# Does not handle aliases; use tcp_alias for all alias redefinitions.
local old new
if (( $# == 1 )); then
old=$TCP_SESS
new=$1
elif (( $# == 2 )); then
old=$1
new=$2
else
print "Usage: $0 OLD NEW" >&2
return 1
fi
local fd=$tcp_by_name[$old]
if [[ -z $fd ]]; then
print "No such session: $old" >&2
return 1
fi
if [[ -n $tcp_by_name[$new] ]]; then
print "Session $new already exists." >&2
return 1
fi
# Can't rename an alias
if [[ $tcp_by_fd[$fd] != $old ]]; then
print "Use tcp_alias to redefine an alias." >&2
return 1
fi
tcp_by_name[$new]=$fd
unset "tcp_by_name[$old]"
tcp_by_fd[$fd]=$new
[[ $TCP_SESS = $old ]] && TCP_SESS=$new
if zmodload -i zsh/parameter; then
if (( ${+functions[tcp_on_rename]} )); then
tcp_on_rename $new $fd $old
fi
fi
PK [ yV V functions/_arraysnu W+A #compdef shift
local expl
_wanted arrays expl array _parameters "$@" - -g '*array*'
PK [a a functions/_pkg_instancenu W+A #autoload
local -A opts
local whicharg
zparseopts -E -D -- '-_opts:=opts'
whicharg=${opts#*:}
case ${opts%:*} in
(installed)
compadd "$@" - ${opt_args[$whicharg]}/var/sadm/pkg/*/pkginfo(:h:t)
;;
(spooled)
compadd "$@" - ${opt_args[$whicharg]}/*(:t)
;;
(uninstalled)
compadd "$@" - ${opt_args[$whicharg]:-/var/spool/pkg}/*/pkgmap(:h:t)
;;
esac
PK [DUF F functions/VCS_INFO_detect_bzrnu W+A ## vim:ft=zsh
## bazaar support by: Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
[[ $1 == '--flavours' ]] && return 1
VCS_INFO_check_com bzr || return 1
vcs_comm[detect_need_file]=branch/format
VCS_INFO_bydir_detect '.bzr'
return $?
PK [z0Pi i functions/url-quote-magicnu W+A # Functions to make it easier to type URLs as command line arguments. As
# you type, the input character is analyzed and, if it may need quoting,
# the current word is checked for a URI scheme. If one is found and the
# current word is not already in quotes, a backslash is inserted before
# the input character.
# Setup:
# autoload -Uz url-quote-magic
# zle -N self-insert url-quote-magic
# A number of zstyles may be set to control the quoting behavior.
#
# url-metas
# This style is looked up in the context :url-quote-magic:SCHEME (where
# SCHEME is that of the current URL, e.g. "ftp"). The value is a string
# listing the characters to be treated as globbing metacharacters when
# appearing in a URL using that scheme. The default is to quote all zsh
# extended globbing characters, excluding '<' and '>' but including
# braces (as in brace expansion). See also url-seps.
#
# url-seps
# Like url-metas, but lists characters that should be considered command
# separators, redirections, history references, etc. The default is to
# quote the standard set of shell separators, excluding those that
# overlap with the extended globbing characters, but including '<' and
# '>' and the first character of $histchars.
#
# url-globbers
# This style is looked up in the context :url-quote-magic. The values
# form a list of command names that are expected to do their own globbing
# on the URL string. This implies that they are aliased to use the
# "noglob" modifier. When the first word on the line matches one of the
# values AND the URL refers to a local file (see url-local-schema), only
# the url-seps characters are quoted; the url-metas are left alone,
# allowing them to affect command-line parsing, completion, etc. The
# default values are a literal "noglob" plus (when the zsh/parameter
# module is available) any commands aliased to the helper function
# "urlglobber" or its alias "globurl".
#
# url-local-schema
# This style is always looked up in the context :urlglobber, even though
# it is used by both url-quote-magic and urlglobber. The values form
# a list of URI schema that should be treated as referring to local files
# by their real local path names, as opposed to files which are specified
# relative to a web-server-defined document root. The defaults are "ftp"
# and "file".
#
# url-other-schema
# Like url-local-schema, but lists all other URI schema upon which
# urlglobber and url-quote-magic should act. If the URI on the
# command line does not have a scheme appearing either in this list or in
# url-local-schema, it is not magically quoted. The default values are
# "http", "https", and "ftp". When a scheme appears both here and in
# url-local-schema, it is quoted differently depending on whether the
# command name appears in url-globbers.
# TODO:
# Add a style for "document root" for globbing local URLs.
# Turn this on at colon, and off again at space or accept.
# Use compsys for nested quoting analysis and command parsing.
# Establish default values for styles, but only if not already set
zstyle -m ':url-quote-magic:\*' url-metas '*' ||
zstyle ':url-quote-magic:*' url-metas '*?[]^(|)~#{}='
zstyle -m ':url-quote-magic:\*' url-seps '*' ||
zstyle -e ':url-quote-magic:*' url-seps 'reply=(";&<>${histchars[1]}")'
zstyle -m :url-quote-magic url-globbers '*' ||
zstyle -e :url-quote-magic url-globbers \
'zmodload -i zsh/parameter;
reply=( noglob
${(k)galiases[(R)(* |)(noglob|urlglobber|globurl) *]:-}
${(k)aliases[(R)(* |)(noglob|urlglobber|globurl) *]:-} )'
zstyle -m ':urlglobber' url-local-schema '*' ||
zstyle ':urlglobber' url-local-schema ftp file
zstyle -m ':urlglobber' url-other-schema '*' ||
zstyle ':urlglobber' url-other-schema http https ftp
# Define the "urlglobber" helper function and shorthand "globurl" alias
function urlglobber {
local -a args globbed localschema otherschema
local arg command="$1"
shift
zstyle -s :urlglobber url-local-schema localschema '|'
zstyle -s :urlglobber url-other-schema otherschema '|'
for arg
do
case "${arg}" in
((${~localschema}):/(|/localhost)/*)
globbed=( ${~${arg##ftp://(localhost|)}} )
args[$#args+1]=( "${(M)arg##(${~localchema})://(localhost|)}${(@)^globbed}" )
;;
((${~otherschema}):*) args[${#args}+1]="$arg";;
(*) args[${#args}+1]=( ${~arg} );;
esac
done
"$command" "${(@)args}"
}
alias globurl='noglob urlglobber '
# Finally, define (and execute if necessary) the function we really want
function url-quote-magic {
setopt localoptions noksharrays extendedglob
local qkey="${(q)KEYS}"
if [[ "$KEYS" != "$qkey" ]]
then
local lbuf="$LBUFFER$qkey"
if [[ "${(Q)LBUFFER}$KEYS" == "${(Q)lbuf}" ]]
then
local -a words
words=("${(@Q)${(z)lbuf}}")
local urlseps urlmetas urlglobbers localschema otherschema
if [[ "$words[-1]" == (#b)([^:]##):* ]]
then
zstyle -s ":url-quote-magic:$match[1]" url-seps urlseps ''
zstyle -s ":url-quote-magic:$match[1]" url-metas urlmetas ''
fi
zstyle -s :url-quote-magic url-globbers urlglobbers '|'
zstyle -s :urlglobber url-other-schema otherschema '|'
if [[ "$words[1]" == ${~urlglobbers} ]]
then
zstyle -s :urlglobber url-local-schema localschema '|'
else
localschema=' '
fi
case "$words[-1]" in
(*[\'\"]*) ;;
((${~localschema}):/(|/localhost)/*)
[[ "$urlseps" == *"$KEYS"* ]] &&
LBUFFER="$LBUFFER\\" ;;
((${~otherschema}):*)
[[ "$urlseps$urlmetas" == *"$KEYS"* ]] &&
LBUFFER="$LBUFFER\\" ;;
esac
fi
fi
zle .self-insert
}
# Handle zsh autoloading conventions
[[ -o kshautoload ]] || url-quote-magic "$@"
PK [9 functions/_iftopnu W+A #compdef iftop
_interfaces () {
_wanted interfaces expl 'network interface' \
_net_interfaces
_values "Pseudo-device that captures on all interfaces" "any"
}
_arguments \
'(-h -n -N -p -b -B -P -i -f -F -c)'-h'[print a summary of usage]' \
-n"[don't do hostname lookups]" \
-N"[don't resolve port number to service names]" \
-p'[run in promiscuous mode]' \
-P'[turn on port display]' \
-b"[don't display bar graphs of traffic]" \
-B'[display bandwidth rates in bytes/sec rather than bits/sec]' \
-i'[interface]:network interface:_interfaces' \
-f'[filter]:BPF filter' \
-F'[net/mask]:network/mask' \
-c'[config file]:config file:_files'
PK [Qe e functions/_mysqldiffnu W+A #compdef mysqldiff
local curcontext="$curcontext" state line expl
typeset -A opt_args
_mysqldiff () {
_arguments -s \
{-h{,1,2},--host{,1,2}=}':server hostname:_mysql_hosts' \
{-p{,1,2},--password{,1,2}=}':server password: ' \
{-u{,1,2},--user{,1,2}=}':server username:_mysql_users' \
{-s{,1,2},--socket{,1,2}=}':server socket:_directories' \
{-d,--debug=}':debugging level (default 1):(1 2 3 4 5 6 7 8)' \
{-i,--tolerant}':ignore DEFAULT and formatting changes: ' \
{-k,--keep-old-tables}":don\'t output DROP TABLE commands: " \
{-n,--no-old-defs}"[don't output old defs as comments]" \
{-o,--only-both}'[only output changes for tables in both databases]' \
{-t,--table-re}':restrict comparisons to tables matching a regexp: ' \
{-A,--apply}':interactively patch database1 to match database2: ' \
{-\?,--help}'[display usage]' \
{1,2}':MySQL database:_mysql_db_or_file'
}
_mysql_db_or_file () {
_alternative \
'databases:MySQL databases:_mysql_databases' \
'files:MySQL database definition files:_files -g "*.(my|)sql(-.)"'
}
_mysql_utils
_mysqldiff "$@"
PK [*+l functions/_axi-cachenu W+A #compdef axi-cache
local expl
_arguments \
'--version[version]' \
'(-h --help)'{-h,--help}'[help]' \
'(-s --sort)'{-s,--sort=}':sort value:('${(j: :)${${(M)${(f)"$(args' && return 0
if (( CURRENT == 2 )); then
_wanted tag expl 'axi-cache commands' \
compadd help search more last show again
else
case "$words[2]" in
(search|show|again)
_wanted tag expl 'terms/query' \
compadd -- $($service $words[2] --tabcomplete=plain -- $words[CURRENT])
;;
(more|last)
_wanted tag expl 'count' \
compadd -- 1 2 3 4 5 6 7 8 9 0
;;
(*)
_files
;;
esac
fi
PK [l}7%\ \ functions/_mplayernu W+A #compdef mplayer gmplayer
local suf ret=1 curcontext="$curcontext"
local -a vals state line expl
_x_arguments -C -s \
'!-abs:buffer size' \
'-ac[force usage of a specific audio codec]:audio codec attachment:->audio-codecs' \
'-af[activate audio filters]:filter' -af-adv:option \
'-afm[force usage of a specific audio codec family]:audio codec family:->audio-codec-families' \
'-aid:audio channel id' \
'-alang[select the DVD audio language]:country code' \
'(-nosound)-ao[specify audio driver]:audio-driver attachment:->audio-drivers' \
'-aofile:file:_files' \
'(-nosound)*-aop[specify audio output filter]:audio output filter:->audio-plugins' \
'-aspect:ratio' \
'-audiofile:audio file:_files -g "(#i)*.(wav|mp3|ogg)(-.)"' \
-autoq:quality -autosync:factor \
-bandwidth:bandwidth\ value -benchmark -bpp:depth \
'(-nocache)-cache:cache size (kb)' \
'-cdda:audio CD options:(spped paranoia generic-dev sector-size overlap toc-bias toc-offset skip noskip)' \
'-cdrom-device:cdrom device:_files -g "*(-%b)"' \
'-channels:playback channels:((2\:stereo 4\:surround 6\:full\ 5.1))' \
'-chapter:chapter' -contract:value \
'-csslib:libcss.so location:_files' \
-cuefile -delay:delay -demuxer:number -dfbopts:value \
'(-nodouble)-double[enable double buffering]' \
'-dr[enable direct rendering]' \
-dxr2:option -dumpaudio -dumpstream -dumpvideo \
'-dumpfile:output file:_files' \
-dumpmicrodvdsub -dumpmpsub -dumpsrtsub -dumpjacosub -dumpsami -dumpsub \
'-dvd:title id' '-dvdauth:DVD device' \
'-dvd-device:dvd device:_files -g "*(-%b)"' \
'-dvdangle:angle id' '-dvdkey:key' \
'-edl:edl file:_files' '-edlout:edl file:_files' -enqueue \
'-fbmode:video mode' '-fbmodeconfig:config file:_files' \
'-fb[specify framebuffer device to use]:device:_files -g "*(-%b)"' \
'-ffactor:factor:(0 0.75 1 10)' \
-flip '-font:font.desc file:_files' -forceidx -forcexv -format:format \
'-fps[force frame rate]:frame-rate' \
'-framedrop' \
'-frames:frame number' \
'-fs[fullscreen]' -fstype:type \
-gui -{,gui}'wid:X window:_x_window' \
{-h,-help,--help}'[display help info]' \
-hardframedrop \-hr-mp3-seek \
'-hue:video signal hue adjustment' \
'(-rootwin)-icelayer:icewm layer:((0\:desktop 2\:below 4\:normal 6\:ontop 8\:dock 10\:abovedock 12\:menu))' \
'(-use-stdin)-idx[rebuild index of the avi]' \
'-ifo:ifo file:_files' '-include:config-file:_files' \
'-input:command:(conf ar-delay ar-rate keylist cmdlist js-dev file)' \
'-jpeg:option' -lavdopts:option \
'-lircconf:lirc config file:_files' '-loop:repetitions' \
'-mc[specify max sync correction]:max sync correction' \
'-mf[specify option when decoding multiple PNG or JPEG files]:option' \
'-mixer:mixer device:_files -g "*(-%b)"' \
'-monitoraspect:ratio' -monitor_dotclock -monitor_{h,v}freq:frequency \
'-ni[force usage of non-interlaced avi parser]' \
-noaspect -noautosub -overlapsub -nooverlapsub -nowaveheader \
'(-cache)-nocache' -nobps \
'(-double)-nodouble' -nodshow -noextbased -noframedrop \
-nograbpointer -nokeepaspect -noslices -nojoystick -nolirc -nortc \
'(-ao -aop)-nosound' \
'-osdlevel:osd-level:((0\:subtitles\ only 1\:volume\ +\ seek 2\:volume\ +\ seek\ +\ timer\ +\ percentage 3\:volume\ +\ seek\ +\ timer\ +\ percentage\ +\ total\ time))' \
-panscan:value \
'-passwd[specify password for http authentication]:password' \
'-playlist:file:_files' \
'-pp[apply postprocess filter]:filter attachment' -pphelp \
-quiet -really-quiet -rootwin \
-rawaudio:option -rawvideo:option \
'-rtsp-stream-over-tcp' -saturation:value \
'-sb[seek to byte position]:byte' \
-screen{w,h}:pixels \
'-sdp[input file is a SDP file]' -shuffle \
'-skin[skin directory]:skin directory:_directories' \
-skipopening -slave \
'-sid[turn on DVD subtitles]:language id' \
'-speed[set playback speed rate]:playback speed rate' \
'-srate[specify frequency of audio playback]:frequency (Hz)' \
'-ss[seek to given time position]:position (hh:mm\[\:ss\])' \
'-sstep[specify time between displayed frames]:time (seconds)' \
-ssf:mode -stop_xscreensaver \
'-stereo:mode:((0\:stereo 1\:left\ channel 2\:right\ channel))' \
'-sub[use specified subtitle file]:subtitle file:_files' \
-subfps:rate -sub-bg-alpha:value -sub-bg-color:value -subcc -subcp:codepage -subdelay:seconds \
-subpos:vertical\ position -s{ub,pu}'align:alignment:((0\:top 1\:center 2\:bottom))' \
'-subfont-autoscale:mode:((0\:no\ autoscale 1\:proportional\ to\ height 2\:proportional\ to\ width 3\:proportional\ to\ diagonal))' \
-subfont-blur:radius -subfont-encoding:encoding -subfont-osd-scale:coefficient -subfont-outline:thickness -subfont-text-scale:coefficient \
-sub-no-text-pp -spuaa:mode -spugauss:gauss -sws:scalar\ type \
'-tv[TV grabbing]:option' \
-unicode -utf8 \
'-user[specify username for http authentication]' \
'(-idx)-use-stdin' \
'-vcd[play video cd track]:track' \
'-vc[force usage of a specific video codec]:video-codec attachment:->video-codecs' \
'-v[enable verbose output]' \
'*-vf[video output filters]:video output filters:->video-output-plugins' \
'-vfm[force usage of a specific video codec family]:video-codec-family:(1 2 3 4 5)' \
'-vid[select video channel]:video-channel' \
'-vm[try to change to a better video mode]' \
'-vo[specify video driver]:video-driver attachment:->video-drivers' \
'-vop[specify video output filters]:video output filters:->video-output-plugins' \
-vobsub:vobsub\ file -vobsubid:id -vsync \
'-x[scale image to x width if driver supports]:width' \
-xineramascreen:screen -xvidopts:option \
'-xy[scale image by factor if driver supports]:factor' \
'-y[scale image to y height if driver supports]:height' \
'-z[specify compression level for png output]:compression-level:((0\:no\ compression 1 2 3 4 5 6\:default\ compression 7 8 9\:max\ compression))' \
'-zoom[use software scaling, where available (use with -nofs)]' \
-zrbw -zrcrop -zrdev -zrfd -zrhelp -zrnorm -zrquality -zr{h,v}dec -zr{x,y}doff \
'(-use-stdin)*:video file:->mfiles'
case "$state" in
mfiles)
_tags files urls
while _tags; do
_requested files expl 'video file' _files -g \
"*.(#i)(asf|asx|avi|flac|flv|m1v|m2p|m2v|mjpg|mka|mkv|mov|mp3|mp4|mpe|mpeg|mpg|ogg|ogm|qt|rm|vob|wav|wma|wmv)(-.)" && ret=0
if _requested urls; then
while _next_label urls expl URL; do
_urls "$expl[@]" && ret=0
compadd -S '' "$expl[@]" {dvd,vcd,cdda,cddb,tv}:// && ret=0
done
fi
(( ret )) || return 0
done
;;
audio-codecs)
vals=( help ${${${(f)"$(_call_program audio-codecs $words[1] -ac help -quiet 2>/dev/null)"}[(r)ac:*,-1]}[2,-1]/ ##[^ ]# #[^ ]# #/:} )
_describe -t audio-codecs 'audio codec' vals && ret=0
;;
audio-drivers)
vals=( help ${${${(f)"$(_call_program audio-drivers mplayer -ao help 2>/dev/null)"}[(r) *,-1]#?}/ /:} )
_describe -t audio-drivers 'audio drivers' vals && ret=0
;;
audio-codec-families)
compset -P '*,'
compset -S ',*'
vals=( help ${${${(f)"$(_call_program audio-codec-families mplayer -afm help 2>/dev/null)"}[(r) [^:]#,-1]## ##}/ ##/:} )
_describe -t audio-codec-families 'audio drivers' vals && ret=0
;;
audio-plugins)
_values -s : 'audio output plugin' \
'list[specify list of plugins]:plugin:(resample surround format volume extrastereo volnorm delay)' \
'format[output format]:format' \
'fout[output frequency]:frequency (Hz)' \
'volume[volume level]:volume <0-255>' \
'mul[stereo coefficient]:coefficient' \
'softclip[compressor]' && ret=0
;;
video-codecs)
vals=( help ${${${(f)"$(_call_program audio-codecs $words[1] -vc help -quiet 2>/dev/null)"}[(r)vc:*,-1]}[2,-1]/ ##[^ ]# #[^ ]# #/:} )
_describe -t video-codecs 'video codec' vals && ret=0
;;
video-drivers)
vals=( help ${${${(f)"$(_call_program video-drivers mplayer -vo help 2>/dev/null)"}[(r) *,-1]#?}/ /:} )
_describe -t video-drivers 'video drivers' vals && ret=0
;;
video-output-plugins)
vals=( help ${${${${(f)"$(_call_program video-output-plugins mplayer -vop help 2>/dev/null)"}[(r) *,-1]}/ /}/ #: /:} )
_describe -t video-output-plugins 'video output plugin' vals && ret=0
;;
esac
return ret
PK [ functions/split-shell-argumentsnu W+A # Split a command line into shell arguments and whitespace in $reply.
# Odd elements (starting from 1) are whitespace, even elements
# are shell arguments (possibly quoted strings). Whitespace at
# start and end is always included in the array but may be an empty string.
# $REPLY holds NO_KSH_ARRAYS index of current word in $reply.
# $REPLY2 holds NO_KSH_ARRAYS index of current character in current word.
# Hence ${reply[$REPLY][$REPLY2]} is the character under the cursor.
#
# reply, REPLY, REPLY2 should therefore be local to the enclosing function.
emulate -L zsh
setopt extendedglob
local -a bufwords lbufwords
local word
integer pos=1 cpos=$((CURSOR+1)) opos iword ichar
bufwords=(${(z)BUFFER})
reply=()
while [[ ${BUFFER[pos]} = [[:space:]] ]]; do
(( pos++ ))
done
reply+=${BUFFER[1,pos-1]}
(( cpos < pos )) && (( iword = 1, ichar = cpos ))
for word in "${bufwords[@]}"; do
(( opos = pos ))
(( pos += ${#word} ))
reply+=("$word")
if (( iword == 0 && cpos < pos )); then
(( iword = ${#reply} ))
(( ichar = cpos - opos + 1 ))
fi
(( opos = pos ))
while [[ ${BUFFER[pos]} = [[:space:]] ]]; do
(( pos++ ))
done
reply+=("${BUFFER[opos,pos-1]}")
if (( iword == 0 && cpos < pos )); then
(( iword = ${#reply} ))
(( ichar = cpos - opos + 1 ))
fi
done
if (( iword == 0 )); then
# At the end of the line, so off the indexable positions
# (but still a valid cursor position).
(( REPLY = ${#reply} ))
(( REPLY2 = 1 ))
else
(( REPLY = iword ))
(( REPLY2 = ichar ))
fi
PK [:{E functions/_conditionnu W+A #compdef -condition-
local prev="$words[CURRENT-1]" ret=1
if [[ "$prev" = -o ]]; then
_tags -C -o options && _options
elif [[ "$prev" = -([a-hkprsuwxLOGSN]|[no]t|ef) ]]; then
_tags -C "$prev" files && _files
elif [[ "$prev" = -t ]]; then
_file_descriptors
else
if [[ "$PREFIX" = -* ]] ||
! zstyle -T ":completion:${curcontext}:options" prefix-needed; then
if [[ "$prev" = (\[\[|\|\||\&\&|\!|\() ]]; then
_describe -o 'condition code' \
'( -a:existing\ file
-b:block\ special\ file
-c:character\ special\ file
-d:directory
-e:existing\ file
-f:regular\ file
-g:setgid\ bit
-h:symbolic\ link
-k:sticky\ bit
-n:non-empty\ string
-o:option
-p:named\ pipe
-r:readable\ file
-s:non-empty\ file
-t:terminal\ file\ descriptor
-u:setuid\ bit
-w:writable\ file
-x:executable\ file
-z:empty\ string
-L:symbolic\ link
-O:own\ file
-G:group-owned\ file
-S:socket
-N:unread\ file)' && ret=0
else
_describe -o 'condition code' \
'( -nt:newer\ than
-ot:older\ than
-ef:same\ file
-eq:numerically\ equal
-ne:numerically\ not\ equal
-lt:numerically\ less\ than
-le:numerically\ less\ than\ or\ equal
-gt:numerically\ greater\ than
-ge:numerically\ greater\ than\ or\ equal)' && ret=0
fi
fi
_alternative 'files:: _files' 'parameters:: _parameters' && ret=0
return ret
fi
PK [rm m functions/_pfctlnu W+A #compdef pfctl
local pfctl_flush_modifiers pfctl_optimizer_level pfctl_show_modifiers pfctl_tables_command pfctl_debug_level
pfctl_flush_modifiers=(
'all:flush all'
'info:flush the filter information'
'nat:flush the NAT rules'
'osfp:flush the passive operating system fingerprints'
'queue:flush the queue rules'
'rules:flush the filter rules'
'state:flush the stable table'
'Sources:flush the source tracking table'
'Tables:flush the tables'
)
pfctl_show_modifiers=(
'nat:show the currently loaded NAT rules'
'queue:show the currently loaded queue rules'
'rules:show the currently loaded filter rules'
'Anchors:show the currently loaded anchors directly attached to the main ruleset'
'state:show the contents of the state table'
'Sources:show the contents of the source tracking table'
'info:show filter information'
'labels:show per-rule statistics of filter rules with labels'
'timeouts:show the current global timeouts'
'memory:show the current pool memory hard limits'
'Tables:show the list of tables'
'osfp:show the list of operating system fingerprints'
'Interfaces:show the list of interfaces and interface drivers available to PF'
'all:show all except for the lists of interfaces and operating system fingerprints'
)
pfctl_optimizer_level=(
'none:disable the ruleset optimizer'
'basic:enable basic ruleset optimizations'
'profile:enable basic ruleset optimizations with profiling'
)
pfctl_tables_command=(
'kill:kill a table'
'flush:flush all addresses of a table'
'add:add one or more addresses in a table'
'delete:delete one or more addresses from a table'
'expire:delete addresses which had their statistics cleared more than number seconds ago'
'replace:replace the addresses of the table'
'show:show the content (addresses) of a table'
'test:test if the given addresses match a table'
'zero:clear all the statistics of a table'
'load:load only the table definitions from pf.conf(5)'
)
pfctl_debug_level=(
"none:don\'t generate debug messages"
'urgent:generate debug messages only for serious errors'
'misc:generate debug messages for various errors'
'loud:generate debug messages for common conditions'
)
_iface() {
local pfctl_iface
pfctl_iface=($(pfctl -s Interfaces))
compadd $pfctl_iface
}
_tables() {
local pfctl_tables
pfctl_tables=($(pfctl -s Tables))
compadd $pfctl_tables
}
# TODO:
# Missing -a
#
_arguments -s \
'-F[flush the filter parameters specified by modifier]:modifier:(($pfctl_flush_modifiers))' \
'-A[load only the queue rules present in the rule file]' \
'-D[define macro to be set to value]:macro:' \
'-d[disable the packet filter]' \
'-e[enable the packet filter]' \
'-f[load the rules contained in a file]:configuration file:_files' \
'-g[include output helpful for debugging]' \
'-h[help]' \
'-i[restrict the operation to the given interface]:interface:_iface' \
'-K[kill all of the source tracking entries originating from the specified host or network]:host or network:_hosts' \
'-k[kill all of the state entries originating from the specified host or network]:host or network:_hosts' \
'-m[merge in explicitly given options]' \
'-N[load only the NAT rules present in the rule file]' \
'-n[do not actually load rules, just parse them]' \
'-O[load only the options present in the rule file]' \
'-o[control the ruleset optimizer]:level:(($pfctl_optimizer_level))' \
'-p[use the device file device instead of the default /dev/pf]:device:_files' \
'-q[only print errors and warnings]' \
'-R[load only the filter rules present in the rule file]' \
'-r[perform reverse DNS lookups on states when displaying them]' \
'-s[show the filter parameters specified by modifier]:modifier:(($pfctl_show_modifiers ))' \
'-T[specify the command to apply to the table]:command:(($pfctl_tables_command))' \
'-t[specify the name of the table]:table:_tables' \
'-v[produce more verbose output]' \
'-x[set the debug level]:debug level:(($pfctl_debug_level))' \
'-z[clear per-rule statistics]'
PK [65 functions/_urxvtnu W+A #compdef urxvt
_x_arguments \
-+{rv,ls,j,ptab,sb,sr,st,si,sk,sw,ip,ipf,ut,vb,tcw,insecure,uc,bc,pb,bl,ssc,ssr} \
'-tn:terminal type:' \
'-C[intercept console messages]' \
'-iconic[start iconic]' \
'-sbt[scroll bar thickness]:pixels:' \
'-tint[tint color]:color:_x_color' \
'-fade[make colors darker when losing focus]:percentage:' \
'-sh[shade background when tinting]:percentage:' \
'-bg:background color:_x_color' \
'-fg:foreground color:_x_color' \
'-cr:cursor color:_x_color' \
'-pr:pointer color:_x_color' \
'-pr2:pointer background color:_x_color' \
'-bd:border color:_x_color' \
'-pixmap:pixmap:_files' \
'-fn:normal font:_x_font' \
'-fb:bold font:_x_font' \
'-fi:italic font:_x_font' \
'-fbi:bold italic font:_x_font' \
'-im:input method:(SCIM)' \
'-pt:input style:(OverTheSpot OffTheSpot Root)' \
'-imlocale:locale input method:_locales' \
'-imfont:fontset for styles OverTheSpot and OffTheSpot:_x_font' \
'-name:client instance, icon, and title strings:' \
'-title:title name for window:' \
'-n:icon name for window:' \
'-sl:save lines:' \
'-embed:window id to embed terminal in:_x_window' \
'-pty-fd:file descriptor of pty to use:' \
'-w:external border in pixels:' \
'-b:internal border in pixels:' \
'-lsp:number of extra pixels between rows:' \
'-mod:meta modifier:_x_modifier' \
'-e:program: _command_names -e:*::program arguments: _normal' \
'-help[print help]' \
'--help[list long options]'
PK [@ functions/_retrieve_mac_appsnu W+A #autoload
# Find paths of applications and preserve them into _mac_apps.
# Used by _mac_applications and _mac_files_for_application.
_mac_apps_caching_policy () {
# Rebuild if cache is more than a day old
local -a oldp
oldp=( "$1"(Nmw+1) )
(( $#oldp ))
}
# _mac_apps_*_retrieve
#
# Get search applications from directories specified in app_dir_root.
# Paths to applications are stored in _mac_apps.
_mac_apps_spotlight_retrieve () {
typeset mdfind_query="kMDItemContentType == 'com.apple.application-*'"
for i in ${app_dir_root}; do
_mac_apps+=(${(f)"$(_call_program command \
mdfind -onlyin ${(q)i} ${(q)mdfind_query})"})
done
}
_mac_apps_old_retrieve () {
# Get directories which may contain applications
typeset -aU app_dir
if [[ -z "$app_dir" ]] && \
! zstyle -a ":completion:${curcontext}:commands" application-dir app_dir
then
typeset -a app_dir_stop_pattern
app_dir_stop_pattern=( "*.app" "contents#" "*data" "*plugins#" "*plug?ins#" "fonts#" "document[[:alpha:]]#" "*help" "resources#" "images#" "*configurations#" )
typeset app_dir_pattern
app_dir_pattern="(^(#i)(${(j/|/)app_dir_stop_pattern}))"
app_dir=( ${^app_dir_root}/(${~app_dir_pattern}/)#(N) )
fi
# Get application bundles
local -a app_result
if ! zstyle -t ":completion:${curcontext}:commands" ignore-bundle; then
app_result=( ${^app_dir}*/Contents/(MacOS|MacOSClassic)(N) )
_mac_apps+=( ${app_result[@]%/Contents/MacOS*} )
fi
# Get single file applications
if ! zstyle -t ":completion:${curcontext}:commands" ignore-single; then
autoload -Uz zargs
local app_cand nargs envvars
app_cand=( ${^app_dir}^*.[a-z]#/..namedfork/rsrc(.UrN,.RN^U) )
envvars="$(builtin typeset -x)"
nargs=$(( $(command sysctl -n kern.argmax) - $#envvars - 2048 ))
app_result="$(zargs --max-chars $nargs ${app_cand[@]} -- grep -l APPL)"
_mac_apps+=( ${${(f)app_result}%/..namedfork/rsrc} )
fi
}
_retrieve_mac_apps() {
local cache_policy
zstyle -s ":completion:*:*:$service:*" cache-policy cache_policy
if [[ -z "$cache_policy" ]]; then
zstyle ":completion:*:*:$service:*" cache-policy _mac_apps_caching_policy
fi
if ( (( ${#_mac_apps} == 0 )) || _cache_invalid Mac_applications ) \
&& ! _retrieve_cache Mac_applications; then
# Get application search method
typeset retrieve
if ! zstyle -s ":completion:*:*:$service:commands" search-method retrieve
then
if [[ -d /.Spotlight-V100 ]]; then
# / is indexed to use Spotlight
retrieve=_mac_apps_spotlight_retrieve
else
# Fall back to the old way
retrieve=_mac_apps_old_retrieve
fi
zstyle ":completion:*:*:$service:commands" search-method $retrieve
fi
# Get root directories to search applications
typeset -a app_dir_root
if ! zstyle -a ":completion:${curcontext}" application-path app_dir_root
then
if [[ $retrieve = _mac_apps_old_retrieve ]]; then
app_dir_root=( {,/Developer,/Network,"$HOME"}/{Applications*(N),Desktop} )
else
app_dir_root=( / )
fi
zstyle ":completion:*" application-path $app_dir_root
fi
typeset -g -Ua _mac_apps
$retrieve
_store_cache Mac_applications _mac_apps
fi
}
_retrieve_mac_apps "$@"
PK [F functions/VCS_INFO_bydir_detectnu W+A ## vim:ft=zsh
## Written by Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
local dirname=$1
local basedir="." realbasedir
realbasedir="$(VCS_INFO_realpath ${basedir})"
while [[ ${realbasedir} != '/' ]]; do
[[ -r ${realbasedir} ]] || return 1
if [[ -n ${vcs_comm[detect_need_file]} ]] ; then
[[ -d ${basedir}/${dirname} ]] && \
[[ -e ${basedir}/${dirname}/${vcs_comm[detect_need_file]} ]] && \
break
else
[[ -d ${basedir}/${dirname} ]] && break
fi
basedir=${basedir}/..
realbasedir="$(VCS_INFO_realpath ${basedir})"
done
[[ ${realbasedir} == "/" ]] && return 1
vcs_comm[basedir]=${realbasedir}
return 0
PK [Zƣ\ \ functions/_telnetnu W+A #compdef telnet
# Parameter used:
#
# telnet_hosts_ports_users
# The array that contains 3-tuples `host:port:user'.
local curcontext="$curcontext" state line expl ret=1
typeset -A opt_args
if (( ! $+_telnet_args )); then
local help="$(_call_program options 'telnet -\?' < /dev/null 2>&1)"
local -A optionmap
optionmap=(
'*\[-8\]*' '-8[allow 8-Bit data]'
'*\[-E\]*' '-E[disable an escape character]'
'*\[-K\]*' '-K[no automatic login]'
'*\[-L\]*' '-L[allow 8-Bit data on output]'
'*\[-N\]*' '-N[suppress reverse lookup]'
'*\[-S tos\]*' '-S+:IP type-of-service:'
'*\[-X atype\]*' '-X+:authentication type to disable:'
'*\[-a\]*' '-a[attempt automatic login]'
'*\[-c\]*' '-c[disable .telnetrc]'
'*\[-d\]*' '-d[debug mode]'
'*\[-e char\]*' '-e+[specify escape character]:escape character:'
'*\[-f/*' '-f'
'*/-F\]*' '-F'
'*\[-k realm\]*' '-k+:realm:'
'*\[-l user\]*' '-l+[specify user]:user:->users'
'*\[-n tracefile\]*' '-n+[specify tracefile]:tracefile:_files'
'*\[-r\]*' '-r[rlogin like user interface]'
'*\[-s src_addr\]*' '-s+[set source IP address]:src_addr:'
'*\[-x\]*' '-x'
'*\[-t transcom\]*' '-t+:transcom:'
'*\[-noasynch\]*' '-noasynch'
'*\[-noasyncnet\]*' '-noasyncnet'
'*\[-noasynctty\]*' '-noasynctty'
)
_telnet_args=($optionmap[(K)"$help"])
(( $#_telnet_args )) || _telnet_args=( '-l+[specify user]:user:->users' )
fi
_arguments -C -s \
"$_telnet_args[@]" \
':host:->hosts' \
':port:->ports' && ret=0
case "$state" in
hosts)
_wanted hosts expl host \
_combination -s '[@:]' '' users-hosts-ports \
${opt_args[-l]:+users=${opt_args[-l]:q}} \
hosts - && ret=0
;;
ports)
_wanted ports expl port \
_combination -s '[@:]' '' users-hosts-ports \
${opt_args[-l]:+users=${opt_args[-l]:q}} \
hosts="${line[1]:q}" \
ports - && ret=0
;;
users)
_wanted users expl user \
_combination -s '[@:]' '' users-hosts-ports \
${line[2]:+hosts="${line[2]:q}"} \
${line[3]:+ports="${line[3]:q}"} \
users - && ret=0
;;
esac
return ret
PK [P^{
{
functions/_rloginnu W+A #compdef rlogin rsh remsh=rsh rcp
_rcp_remote_files () {
# There should be coloring based on all the different ls -F classifiers.
local expl remfiles remdispf remdispd suf ret=1
if zstyle -T ":completion:${curcontext}:" remote-access; then
remfiles=(${(M)${(f)"$(rsh ${IPREFIX%:} ls -d1F ${(Q)PREFIX%%[^./][^/]#}\* 2>/dev/null)"}%%[^/]#(|/)})
compset -P '*/'
compset -S '/*' || suf='remote file'
remdispf=(${remfiles:#*/})
remdispd=(${(M)remfiles:#*/})
_tags files
while _tags; do
while _next_label files expl ${suf:-remote directory}; do
[[ -n $suf ]] && compadd "$@" "$expl[@]" -d remdispf \
${(q)remdispf%[*=@|]} && ret=0
compadd ${suf:+-S/} "$@" "$expl[@]" -d remdispd \
${(q)remdispd%/} && ret=0
done
(( ret )) || return 0
done
else
_message -e remote-files 'remote file'
fi
}
_rlogin () {
case "$service" in
rlogin)
_arguments -s \
'-8[allow 8-Bit data]' \
'-e-[specify escape character]:escape character:' \
'-l[specify login user name]:login as:_rlogin_users' \
':remote host name:_rlogin_hosts'
;;
rsh|remsh)
local context state line ret=1
typeset -A opt_args
_arguments -s \
'-n[ignore stdin]' \
'-l[specify login user name]:login as:_rlogin_users' \
':remote host name:_rlogin_hosts' \
'(-):command: _command_names -e' \
'*::command:->command' && ret=0
if [[ -n "$state" ]]; then
shift 1 words
(( CURRENT-- ))
_normal && ret=0
fi
return ret
;;
rcp)
local curcontext="$curcontext" state line ret=1 expl
typeset -A opt_args
_arguments -C -s \
'-p[preserve modification times]' \
'-r[recursively copy directories]' \
'*:files:->files' && ret=0
if [[ -n "$state" ]]; then
if compset -P '*:'; then
_rcp_remote_files && ret=0
elif compset -P '*@'; then
_wanted hosts expl host _rlogin_hosts -S: && ret=0
else
_alternative \
'files:: _files' \
'hosts:: _rlogin_all_hosts -S:' \
'users:: _rlogin_users -qS@' && ret=0
fi
fi
return ret
;;
esac
}
_rlogin_users () {
_tags users && _combination -s '[:@]' my-accounts users-hosts users "$@"
}
_rlogin_hosts () {
_tags hosts &&
if [[ "$IPREFIX" == *@ ]]; then
_combination -s '[:@]' my-accounts users-hosts "users=${IPREFIX/@}" hosts "$@"
else
_combination -s '[:@]' my-accounts users-hosts \
${opt_args[-l]:+"users=${opt_args[-l]:q}"} hosts "$@"
fi
}
_rlogin_all_hosts () {
_tags hosts && _combination -s '[:@]' my-accounts users-hosts hosts "$@"
}
_rlogin "$@"
PK [}\j j functions/_gnutlsnu W+A #compdef gnutls-cli gnutls-cli-debug certtool srptool
local _gnutls_supported _gnutls_supported_certtypes
local _gnutls_supported_protocols _gnutls_supported_macs
local _gnutls_supported_kx _gnutls_supported_comp
local _gnutls_cli_common_args
_gnutls_cli_common_args=(
'(-d --debug)'{-d,--debug}':debug level'
'(-p --port)'{-p,--port}':port'
'(-h --help)'{-h,--help}'[help]' \
)
case "$service" in
(gnutls-cli)
_gnutls_supported="$(gnutls-cli --list)"
_gnutls_supported_certtypes=(${(s:, :)${${(M)${(f)_gnutls_supported}:#Certificate types:*}#Certificate types: }})
_gnutls_supported_protocols=(${(s:, :)${${(M)${(f)_gnutls_supported}:#Protocols:*}#Protocols: }})
_gnutls_supported_ciphers=(${(s:, :)${${(M)${(f)_gnutls_supported}:#Ciphers:*}#Ciphers: }})
_gnutls_supported_macs=(${(s:, :)${${(M)${(f)_gnutls_supported}:#MACs:*}#MACs: }})
_gnutls_supported_kx=(${(s:, :)${${(M)${(f)_gnutls_supported}:#Key exchange algorithms:*}#Key exchange algorithms: }})
_gnutls_supported_comp=(${(s:, :)${${(M)${(f)_gnutls_supported}:#Compression methods:*}#Compression methods: }})
_arguments \
"$_gnutls_cli_common_args[@]" \
'(-r --resume)'{-r,--resume}'[resume session]' \
'(-s --starttls)'{-s,--starttls}'[start TLS on EOF or SIGALRM]' \
'--crlf[send CR LF instead of LF]' \
'--x509fmtder[use DER format for certificates to read from]' \
'(-f --fingerprint)'{-f,--fingerprint}'[send the openpgp fingerprint instead of the key]' \
'--disable-extensions[disable all the TLS extensions]' \
'--xml[print the certificate information in XML format]' \
'--print-cert[print the certificate in PEM format]' \
'--recordsize:maximum record size to advertise:' \
'(-V --verbose)'{-V,--verbose}'[more verbose output]' \
'--ciphers:ciphers to enable:('"$_gnutls_supported_ciphers"')' \
'--protocols:protocols to enable:('"$_gnutls_supported_protocols"')' \
'--comp:compression methods to enable:('"$_gnutls_supported_comp"')' \
'--macs:MACs to enable:('"$_gnutls_supported_macs"')' \
'--kx:key exchange methods to enable:('"$_gnutls_supported_kx"')' \
'--ctypes:certificate types to enable:('"$_gnutls_supported_certtypes"')' \
'--x509cafile:certificate file to use:_files' \
'--x509crlfile:CRL file to use:_files' \
'--pgpkeyfile:PGP key file to use:_files' \
'--pgpkeyring:PGP key ring file to use:_files' \
'--pgptrustdb:PGP trustdb file to use:_files' \
'--pgpcertfile:PGP public key (certificate) file to use:_files' \
'--x509keyfile:X.509 key file to use:_files' \
'--x509certfile:X.509 certificate file to use:_files' \
'--srpusername:SRP username to use' \
'--srppasswd:SRP password to use' \
'--insecure[do not require server cert validation]' \
'(-l --list)'{-l,--list}'[print list of the supported algorithms/modes]' \
'(-v --version)'{-v,--version}'[print version number]' \
'--copyright[print license]' \
':hostname:_hosts'
;;
(gnutls-cli-debug)
_arguments \
"$_gnutls_cli_common_args[@]" \
'(-v --verbose)'{-v,--verbose}'[more verbose output]' \
':hostname:_hosts'
;;
(certtool)
_arguments \
'(-s --generate-self-signed)'{-s,--generate-self-signed}'[generate a self-signed certificate]' \
'(-c --generate-certificate)'{-c,--generate-certificate}'[generate a signed certificate]' \
'--generate-crl[generate a CRL]' \
'(-u --update-certificate)'{-u,--update-certificate}'[update a signed certificate]' \
'(-p --generate-privkey)'{-p,--generate-privkey}'[generate a private key]' \
'(-q --generate-request)'{-q,--generate-request}'[generate a PKCS #10 certificate request]' \
'(-e --verify-chain)'{-e,--verify-chain}'[verify a PEM encoded certificate chain]' \
'--verify-crl[verify a CRL]' \
'--generate-dh-params[generate PKCS #3 encoded Diffie Hellman parameters]' \
'--get-dh-params[get the included PKCS #3 encoded Diffie Hellman parameters]' \
'--load-privkey:private key file:_files' \
'--load-request:certificate request file:_files' \
'--load-certificate:certificate file:_files' \
'--load-ca-privkey:certificate authority private key file:_files' \
'--load-ca-certificate:certificate authority certificate file:_files' \
'--password:password' \
'(-i --certificate-info)'{-i,--certificate-info}'[print information on a certificate]' \
'(-l --crl-info)'{-l,--crl-info}'[print information on a CRL]' \
'--p12-info[print information on a PKCS #12 structure]' \
'--p7-info[print information on a PKCS #7 structure]' \
'--smime-to-p7[convert S/MIME to PKCS #7 structure]' \
'(-k --key-info)'{-k,--key-info}'[print information on a private key]' \
'--fix-key[regenerate the parameters in a private key]' \
'--to-p12[generate a PKCS #12 structure]' \
'(-8 --pkcs8)'{-8,--pkcs8}'[use PKCS #8 format for private keys]' \
'--dsa[use DSA keys]' \
'--hash:hash algorithm for signing:(MD5 SHA1 RMD160)' \
'--export-ciphers[use weak encryption algorithms]' \
'--inder[use DER format for input certificates and private keys]' \
'--xml[use XML format for output certificates]' \
'--outder[use DER format for output certificates and private keys]' \
'--bits:number of bits for key generation' \
'--outfile:output file:_files ' \
'--infile:input file:_files ' \
'--template:template file to use for non-interactive operation:_files' \
'(-d --debug)'{-d,--debug}':debug level' \
'(-h --help)'{-h,--help}'[show help]' \
'(-v --version)'{-v,--version}'[show version]' \
'--copyright[shows license]'
;;
(srptool)
_arguments \
'(-u --username)'{-u,--username}':username:_users' \
'(-p --passwd)'{-p,--passwd}':password file:_files' \
'(-i --index)'{-i,--index}':index of params in tpasswd.conf' \
'(-s --salt)'{-s,--salt}':salt size for crypt algorithm' \
'--verify[just verify password]' \
'(-c --passwd-conf)'{-c,--passwd-conf}':password conf file:_files' \
'--create-conf:generate a tpasswd.conf file:_files' \
'(-v --version)'{-v,--version}'[show version]' \
'(-h --help)'{-h,--help}'[show help]'
;;
esac
PK [gY functions/_requestednu W+A #autoload
local __gopt
__gopt=()
zparseopts -D -a __gopt 1 2 V J x
if comptags -R "$1"; then
if [[ $# -gt 3 ]]; then
_all_labels - "$__gopt[@]" "$@" || return 1
elif [[ $# -gt 1 ]]; then
_description "$__gopt[@]" "$@"
fi
return 0
else
return 1
fi
PK [ʦt t functions/_apachectlnu W+A #compdef apachectl apache2ctl
_sub_commands start startssl stop restart fullstatus status graceful configtest help
PK [W} functions/_apt-movenu W+A #compdef apt-move
local curcontext="$curcontext" state line cmds ret=1
typeset -A opt_args
_arguments -C \
'-a[process all packages]' \
'-c[specify an alternative configuration file]' \
'-d[override the DIST setting]' \
'-f[override the MAXDELETE setting]' \
'-q[be quiet; suppress normal output]' \
'-t[show what apt-move would do, but do not actually do anything]' \
'1: :->cmds' \
'*: :->args' && ret=0
case $state in
cmds)
cmds=(
'get:update your master files from local apt'
'getlocal:alias of get'
'fsck:fix broken repositories'
'move:move cache files into mirror tree'
'movefile:move files into the repository'
'delete:delete obsolete packages'
'packages:create new local Packages files'
'update:alias for: get move delete packages'
'local:alias for: move delete packages'
'localupdate:alias for: getlocal move delete packages'
'mirror:update your local mirror from remote rsync site'
'sync:same as mirror, but only gets packages that you currently have installed on your system'
'exclude:prints a list of all packages EXCLUDED from the mirror by the .exclude file'
'listbin:prints lists of packages which can serve as the input to mirrorbin(mirror,sync,repo)'
'listsrc:same as listbin, but lists source packages'
'mirrorbin:same as mirror, but gets the packages specified on stdin'
'mirrorsrc:same as mirrorbin, but gets source packages'
)
_describe -t commands 'apt-move command' cmds && ret=0
;;
args)
case $line[1] in
get|getlocal)
_directories && ret=0
;;
movefile)
_files -g "*.d(sc|eb)(-.)" && ret=0
;;
listbin)
_wanted lists expl list compadd mirror sync repo
;;
esac
;;
esac
return ret
PK [i}u u functions/_directoriesnu W+A #compdef rmdir df dircmp -P -value-,*path,-default-
local expl
_wanted directories expl directory _files -/ "$@" -
PK [V- functions/_java_classnu W+A #autoload
# Should probably add some sort of cache.
# Should we call _multi_parts instead of compadd?
local classpath i expl
local -a c
local method type
zparseopts -D -E -a classpath t:=type m:=method cp: classpath:
: "$classpath[@]"
classpath="${${classpath[2]:-${CLASSPATH:-.}}//\\:/:}"
: "$classpath[@]"
for i in "${(s.:.)classpath}"; do
[[ -z $i ]] && i=.
if [[ -f $i ]] && [[ "$i" == *.(jar|zip|war|ear) ]]; then
c+=( ${${${(M)$(_call_program jar_classes jar -tf $i)##*.class}%%.class}:gs#/#.#} )
elif [[ -d $i ]]; then
c+=( $i/**/*.class(.:r:s/.class//:s#$i/##:gs#/#.#) )
fi
done
_wanted classes expl 'java class' compadd "$@" -M 'r:|.=* r:|=*' -a - c
PK [.a|_, _, functions/zsh-mime-setupnu W+A emulate -L zsh
setopt extendedglob cbases
local opt o_verbose o_list
autoload -Uz zsh-mime-handler
while getopts "flv" opt; do
case $opt in
# List: show existing suffixes and their handlers then exit.
(l)
o_list=1
;;
# Verbose; print diagnostics to stdout.
(v)
o_verbose=1
;;
# Force; discard any existing settings before reading.
(f)
unset -m zsh_mime_\*
;;
(*)
[[ $opt = \? ]] || print -r "Option $opt not handled, complain" >&2
return 1
;;
esac
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
if [[ -n $o_list ]]; then
# List and return. Remember that suffixes may be overridden by styles.
# However, we require some sort of standard handler to be present,
# so we don't need to search styles for suffixes that aren't
# handled. Yet.
local list_word
local -a handlers
if (( $# )); then
handlers=(${(k)zsh_mime_handlers[(I)${(j.|.)*}]})
else
handlers=(${(k)zsh_mime_handlers})
fi
for suffix in ${(o)handlers}; do
zstyle -s ":mime:.$suffix:" handler list_word ||
list_word=${zsh_mime_handlers[$suffix]}
print ${(r.10.)suffix}$list_word
zstyle -s ":mime:.$suffix:" flags list_word ||
list_word=${zsh_mime_flags[$suffix]}
if [[ -n $list_word ]]; then
print " flags: $list_word"
fi
done
return 0
fi
# Handler for each suffix.
(( ${+zsh_mime_handlers} )) || typeset -gA zsh_mime_handlers
# Corresponding flags, if any, for handler
(( ${+zsh_mime_flags} )) || typeset -gA zsh_mime_flags
# Internal maps read from MIME configuration files.
# Note we don't remember the types, just the mappings from suffixes
# to handlers and their flags.
typeset -A suffix_type_map type_handler_map type_flags_map
local -a default_type_files default_cap_files
local -a type_files cap_files array match mbegin mend
local file line type suffix exts elt flags line2
integer ind
default_type_files=(~/.mime.types /etc/mime.types)
default_cap_files=(~/.mailcap /etc/mailcap)
# Customizable list of files to examine.
if zstyle -a :mime: mime-types type_files; then
while (( (ind = ${type_files[(I)+]}) > 0 )); do
type_files[$ind]=($default_type_files)
done
else
type_files=($default_type_files)
fi
if zstyle -a :mime: mailcap cap_files; then
while (( (ind = ${cap_files[(I)+]}) > 0 )); do
cap_files[$ind]=($default_cap_files)
done
else
cap_files=($default_cap_files)
fi
{
mime-setup-add-type() {
local type suffix
local -a array
type=$1
shift
while (( $# )); do
# `.ps' instead of `ps' has been noted
suffix=${1##.}
shift
if [[ -z $suffix_type_map[$suffix] ]]; then
[[ -n $o_verbose ]] &&
print -r "Adding type $type for $suffix" >&2
suffix_type_map[$suffix]=$type
else
# Skip duplicates.
array=(${=suffix_type_map[$suffix]})
if [[ ${array[(I)$type]} -eq 0 ]]; then
[[ -n $o_verbose ]] &&
print -r "Appending type $type for already defined $suffix" >&2
suffix_type_map[$suffix]+=" $type"
fi
fi
done
}
# Loop through files to find suffixes for MIME types.
# Earlier entries take precedence, so the files need to be listed
# with the user's own first. This also means pre-existing
# values in suffix_type_map are respected.
for file in $type_files; do
[[ -r $file ]] || continue
# For once we rely on the fact that read handles continuation
# lines ending in backslashes, i.e. there's no -r.
while read line; do
# Skip blank or comment lines.
[[ $line = [[:space:]]#(\#*|) ]] && continue
# There are two types of line you find in MIME type files.
# The original simple sort contains the type name then suffixes
# separated by whitespace. However, Netscape insists
# on adding lines with backslash continuation with
# key="value" pairs. So we'd better handle both.
if [[ $line = *=* ]]; then
# Gory.
# This relies on the fact that a typical entry:
# type=video/x-mpeg2 desc="MPEG2 Video" exts="mpv2,mp2v"
# looks like a parameter assignment. However, we really
# don't want to be screwed up by future extensions,
# so we split the elements to an array and pick out the
# ones we're interested in.
type= exts=
# Syntactically split line to preserve quoted words.
array=(${(z)line})
for elt in $array; do
if [[ $elt = (type|exts)=* ]]; then
eval $elt
fi
done
# Get extensions by splitting on comma
array=(${(s.,.)exts})
[[ -n $type ]] && mime-setup-add-type $type $array
else
# Simple.
mime-setup-add-type ${=line}
fi
done <$file
done
} always {
unfunction mime-setup-add-type >&/dev/null
}
local -a pats_prio o_prios
local o_overwrite sentinel
typeset -A type_prio_flags_map type_prio_src_map type_prio_mprio_map
integer src_id prio mprio
# A list of keywords indicating the methods used to break ties amongst multiple
# entries. The following keywords are accepted:
# files: The order of files read: Entries from files read earlier are preferred
# (The default value of the variable is a list with this keyword alone)
# priority: The priority flag is matched in the entry. Can be a value from 0 to
# 9. The default priority is 5. Higher priorities are preferred.
# flags: See the mailcap-prio-flags option
# place: Always overrides. Useful for specifying that entries read later are
# preferred.
#
# As the program reads mailcap entries, if it encounters a duplicate
# entry, each of the keywords in the list are checked to see if the new
# entry can override the existing entry. If none of the keywords are able
# to decide whether the new entry should be preferred to the older one, the
# new entry is discarded.
zstyle -a :mime: mailcap-priorities o_prios || o_prios=(files)
# This style is used as an argument for the flags test in mailcap-priorities.
# This is a list of patterns, each of which is tested against the flags for the
# mailcap entry. An match with a pattern ahead in the list is preferred as
# opposed to a match later in the list. An unmatched item is least preferred.
zstyle -a :mime: mailcap-prio-flags pats_prio
# Loop through files to find handlers for types.
((src_id = 0))
for file in $cap_files; do
[[ -r $file ]] || continue
((src_id = src_id + 1))
# Oh, great. We need to preserve backslashes inside the line,
# but need to manage continuation lines.
while read -r line; do
# Skip blank or comment lines.
[[ $line = [[:space:]]#(\#*|) ]] && continue
while [[ $line = (#b)(*)\\ ]]; do
line=$match[1]
read -r line2 || break
line+=$line2
done
# Guess what, this file has a completely different format.
# See mailcap(4).
# The biggest unpleasantness here is that the fields are
# delimited by semicolons, but the command field, which
# is the one we want to extract, may itself contain backslashed
# semicolons.
if [[ $line = (#b)[[:space:]]#([^[:space:]\;]##)[[:space:]]#\;(*) ]]
then
# this is the only form we can handle, but there's no point
# issuing a warning for other forms.
type=$match[1]
line=$match[2]
# See if it has flags after the command.
if [[ $line = (#b)(([^\;\\]|\\\;|\\[^\;])#)\;(*) ]]; then
line=$match[1]
flags=$match[3]
else
flags=
fi
# Remove quotes from semicolons
line=${line//\\\;/\;}
# and remove any surrounding white space --- this might
# make the handler empty.
line=${${line##[[:space:]]#}%%[[:space:]]}
((prio = 0))
for i in $pats_prio; do
# print -r "Comparing $i with '$flags'" >&2
[[ $flags = ${~i} ]] && break
# print -r "Comparison failed" >&2
((prio = prio + 1))
done
((mprio=5))
[[ $flags = (#b)*priority=([0-9])* ]] && mprio=$match[1]
sentinel=no
if [[ -n $type_handler_map[$type] ]]; then
for i in $o_prios; do
case $i in
(files)
if [[ $src_id -lt $type_prio_src_map[$type] ]]; then
sentinel=yes; break
elif [[ $src_id -gt $type_prio_src_map[$type] ]]; then
sentinel=no; break
fi
;;
(priority)
if [[ $mprio -gt $type_prio_mprio_map[$type] ]]; then
sentinel=yes; break
elif [[ $mprio -lt $type_prio_mprio_map[$type] ]]; then
sentinel=no; break
fi
;;
(flags)
if [[ $prio -lt $type_prio_flags_map[$type] ]]; then
sentinel=yes; break
elif [[ $prio -gt $type_prio_flags_map[$type] ]]; then
sentinel=no; break
fi
;;
(place)
sentinel=yes
break
;;
esac
done
else
sentinel=yes
fi
if [[ $sentinel = yes ]]; then
if [[ -n $o_verbose ]]; then
if [[ -n $type_handler_map[$type] ]]; then
print -r "Overriding" >&2
else
print -r "Adding" >&2
fi
print -r " handler for type $type:" >&2
print -r " $line" >&2
fi
type_handler_map[$type]=$line
type_flags_map[$type]=$flags
type_prio_src_map[$type]=$src_id
type_prio_flags_map[$type]=$prio
type_prio_mprio_map[$type]=$mprio
if [[ -n $flags && -n $o_verbose ]]; then
print -r " with flags $flags" >&2
fi
elif [[ -n $o_verbose ]]; then
print -r "Skipping handler for already defined type $type:" >&2
print -r " $line" >&2
if [[ -n $flags ]]; then
print -r " with flags $flags" >&2
fi
fi
fi
done <$file
done
# Check for styles which override whatever is in the file.
# We need to make sure there is a handler set up; for some
# uses we may need to defer checking styles until zsh-mime-handler.
# How much we need to do here is a moot point.
zstyle -L | while read line; do
array=(${(Q)${(z)line}})
if [[ $array[3] = (handler|flags) && \
$array[2] = (#b):mime:.([^:]##):(*) ]]; then
suffix=$match[1]
# Make sure there is a suffix alias set up for this.
alias -s $suffix >&/dev/null || alias -s $suffix=zsh-mime-handler
# Also for upper case variant
alias -s ${(U)suffix} >&/dev/null || alias -s ${(U)suffix}=zsh-mime-handler
fi
done
# Now associate the suffixes directly with handlers.
# We just look for the first one with a handler.
# If there is no handler, we don't bother registering an alias
# for the suffix.
for suffix line in ${(kv)suffix_type_map}; do
# Skip if we already have a handler.
[[ -n $zsh_mime_handlers[$suffix] ]] && continue
# Split the space-separated list of types.
array=(${=line})
# Find the first type with a handler.
line2=
for type in $array; do
line2=${type_handler_map[$type]}
[[ -n $line2 ]] && break
done
# See if there is a generic type/* handler.
# TODO: do we need to consider other forms of wildcard?
if [[ -z $line2 ]]; then
for type in $array; do
type="${type%%/*}/*"
line2=${type_handler_map[$type]}
[[ -n $line2 ]] && break
done
fi
if [[ -n $line2 ]]; then
# Found a type with a handler.
# Install the zsh handler as an alias, but never override
# existing suffix handling.
alias -s $suffix >&/dev/null || alias -s $suffix=zsh-mime-handler
alias -s ${(U)suffix} >&/dev/null || alias -s ${(U)suffix}=zsh-mime-handler
zsh_mime_handlers[$suffix]=$line2
zsh_mime_flags[$suffix]=$type_flags_map[$type]
fi
done
true
PK [W_ _ functions/_vorbiscommentnu W+A #compdef vorbiscomment
#Written by Jesse Weinstein , Wed Jul 19 15:31:11 2006
#Version 0.9 - could handle -t option slightly better
#Released under the MIT license (or any compatible free-content license)
#i.e. do whatever you like with it, but credit me.
_arguments \
'-h[help]' \
'-q[quiet]' \
'(-a -w -q -c -t 2)-l[list comments]' \
'(-l)-a[append comments]' \
'(-l)-w[overwrite comments]' \
'(-l -c)-t[tag and value]:: ' \
'(-l -t)-c[tag file]::_files' \
'1:OGG file:_files -g \*.ogg' \
'(-l)2:output OGG file:_files -g \*.ogg' \
&& return 0
PK [ȧMS S functions/_cplaynu W+A #compdef cplay
_arguments -s \
'-n[enable restricted mode]' \
'-r[toggle playlist repeat mode]' \
'-R[toggle playlist random mode]' \
'-v[toggle PCM and MASTER volume control]' \
'*:playlist or directory or audio file:_files -g "*.(mp3|mp2|ogg|669|amf|ams|dsm|far|it|med|mod|mt2|mtm|okt|s3m|stm|ult|gdm|xm|m3u|pls|spx|wav|au)"'
PK [!a, , functions/VCS_INFO_detect_svnnu W+A ## vim:ft=zsh
## subversion support by: Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
[[ $1 == '--flavours' ]] && return 1
VCS_INFO_check_com ${vcs_comm[cmd]} || return 1
[[ -d ".svn" ]] && return 0
return 1
PK [ functions/_commandnu W+A #compdef command
local ret
# indicate if this is a precommand modifier
[[ $service = command ]] && precommands+=(command)
if [[ CURRENT -ge 3 ]]; then
compset -n 2
_normal && ret=0
else
_path_commands "$@" && ret=0
fi
return ret
PK [7 functions/_redirectnu W+A #compdef -redirect-
local strs _comp_command1 _comp_command2 _comp_command
_set_command
strs=( -default- )
if [[ "$CURRENT" != "1" ]]; then
strs=( "${_comp_command}" "$strs[@]" )
if [[ -n "$_comp_command1" ]]; then
strs=( "${_comp_command1}" "$strs[@]" )
[[ -n "$_comp_command2" ]] &&
strs=( "${_comp_command2}" "$strs[@]" )
fi
fi
_dispatch -redirect-,{${compstate[redirect]},-default-},${^strs}
PK [uF9 9 functions/_cdrdaonu W+A #compdef cdrdao
# TODO: Options must come before parameters.
# Command completion and main loop {{{1
_cdrdao_commands () {
local -a commands
commands=(
'show-toc:print out a summary of a TOC'
'read-toc:create a TOC file based on a CD'
'read-cd:create a TOC file and image file based on a CD'
'read-cddb:add CD-TEXT data from a CDDB server to a TOC'
'show-data:print out samples that would be written to CD'
'read-test:check if data described in a TOC can be read from a CD'
'disk-info:show information about a CD'
'msinfo:generate mkisofs command for creating multi-session CD'
'unlock:try to unlock a recorder after a failed run'
'blank:blank a CD-RW'
'simulate:simulate a write'
'write:write a CD based on a TOC'
'copy:copy a CD'
)
_describe -t commands 'cdrdao command' commands && ret=0
}
_cdrdao () {
local curcontext=$curcontext ret=1
local context state line
typeset -A opt_args
_arguments \
':command:->command' \
'*::options:->options' && ret=0
case $state in
(command)
_cdrdao_commands
;;
(options)
curcontext="${curcontext%:*:*}:cdrdao-$words[1]:"
_call_function ret _cdrdao-$words[1]
;;
esac
}
# Common arguments {{{1
declare -ga tmpfile_args
tmpfile_args=(
'--tmpdir[directory to store temporary data in]:directory:_directories'
'--keep[do not remove temporary data when done]')
declare -ga device_args
device_args=(
'--device[set SCSI address of the CD recorder]:device:__cdrdao-device'
'--driver[use given driver for the CD recorder]:driver:__cdrdao-drivers')
# TODO: Gah! Fix a cddb server spec matcher
declare -ga cddb_args
cddb_args=(
'--cddb-servers[specify list of CDDB servers to use]:CDDB servers:'
'--cddb-timeout[specify timeout in seconds for connections to CDDB servers]: :_guard "[[\:digit\:]]" timeout'
'--cddb-directory[directory where fetched CDDB records will be stored]:directory:_directories')
declare -g paranoiamode_arg=
paranoiamode_arg='--paranoia-mode[set correction mode for digital audio extraction]:mode:(("0\:no checking" "1\:perform overlapped reading to avoid jitter" "2\:like 1 but with checks of read audio data" "3\:like 2 but with scratch detection/repair (default)"))'
declare -g fasttoc_arg=
fasttoc_arg='--fast-toc[skip pre-gap-length and index-mark extraction]'
declare -g swap_arg=
swap_arg='--swap[swap the byte order of samples]'
declare -g reload_arg=
reload_arg='--reload[reload the disk if necessary]'
declare -g eject_arg=
eject_arg='--eject[eject CD after completed operation]'
declare -g speed_arg=
speed_arg='-speed[set writing speed]: :_guard "[[\:digit\:]]##" speed'
declare -ga common_args
common_args=(
'(*)'{-h,--help}'[display command/option summary]'
'-v[set verbosity level]: :_guard "[[\:digit\:]]##" verbosity')
declare -ga common_toc_args
common_toc_args=(
$common_args
':TOC file:_files -g "*.toc"')
declare -ga common_device_args
common_device_args=(
$common_args
$device_args)
declare -ga common_toc_device_args
common_toc_device_args=(
$common_toc_args
$common_device_args
$force_arg)
declare -ga common_read_args
common_read_args=(
'--rspeed[set reading speed]: :_guard "[[\:digit\:]]##" speed'
'--session[specify what session to process on multi-session CDs]: :_guard "[[\:digit\:]]##" "session number"'
'--read-subchan[set sub-channel reading-mode]:mode:(("rw\:de-interleaved and error corrected" "rw_raw\:not de-interleaved, not error-corrected, and L-EC data included"))'
'--tao-source[indicate that source CD was written in TAO mode]'
'--with-cddb[retrieve CD-TEXT data from a CDDB server]')
# Sub-command completion {{{1
_cdrdao-show-toc () {
__cdrdao-show-toc-or-toc-info-or-toc-size
}
_cdrdao-toc-info () {
__cdrdao-show-toc-or-toc-info-or-toc-size
}
_cdrdao-toc-size () {
__cdrdao-show-toc-or-toc-info-or-toc-size
}
__cdrdao-show-toc-or-toc-info-or-toc-size () {
_arguments \
$common_toc_args \
$tmpfile_args && ret=0
}
_cdrdao-read-toc () {
__cdrdao-read-toc-or-read-cd \
$fasttoc_arg
}
_cdrdao-read-cd () {
__cdrdao-read-toc-or-read-cd \
$paranoiamode_arg
}
__cdrdao-read-toc-or-read-cd () {
local -a dependent_args
__cdrdao-read-toc-or-read-cd-or-copy-dependent-args
_arguments \
$common_toc_device_args \
$common_read_args \
$dependent_args
'--datafile[set name of data file placed in TOC file]:file:_files' \
'--read-raw[read data in raw format from CD]' \
'--no-mode2-mixed[if MODE2_FORM1 or MODE2_FORM2, do not extract as MODE2_FORM_MIX]' \
$* && ret=0
}
_cdrdao-read-cddb () {
_arguments \
$common_toc_args \
$cddb_args && ret=0
}
_cdrdao-show-data () {
_arguments \
$common_toc_args \
$swap_arg && ret=0
}
_cdrdao-read-test () {
_arguments \
$common_toc_args && ret=0
}
_cdrdao-disk-info () {
__cdrdao-disk-info-or-drive-info
}
__cdrdao-disk-info-or-drive-info () {
_arguments \
$common_device_args && ret=0
}
_cdrdao-msinfo () {
_arguments \
$common_device_args \
$reload_arg && ret=0
}
_cdrdao-drive-info () {
__cdrdao-disk-info-or-drive-info
}
_cdrdao-unlock () {
_arguments \
$common_device_args \
$reload_arg \
$eject_arg && ret=0
}
_cdrdao-blank () {
_arguments \
$common_device_args \
$speed_arg \
'--blank-mode[set the blanking mode]:blanking mode:(("full\:completely erase data" "minimal\:only dereference data"))' \
$eject_arg && ret=0
}
_cdrdao-scanbus () {
_arguments \
$common_args && ret=0
}
_cdrdao-simulate () {
__cdrdao-simulate-or-write
}
__cdrdao-simulate-or-write () {
local capacity_arg=
if (( $words[(I)--full-burn] )); then
capacity_arg='--capacity[set disk capacity for --full-burn]: :_guard "[[\:digit\:]]" minutes'
fi
_arguments \
$common_toc_device_args \
$speed_arg \
'--multi[do not close the session after successful write]' \
'--overburn[allow overburing of medium]' \
'--full-burn[force burning to the outer disk edge]' \
$capacity_arg \
$eject_arg \
$swap_arg \
'--buffers[set fifo buffer size]: :_guard "[[\:digit\:]]" size' \
$reload_arg \
$tmpfile_args \
'-n[do not pause before writing]' \
$* && ret=0
}
_cdrdao-write () {
__cdrdao-simulate-or-write \
'--simulate[only perform a write simulation]' \
'--buffer-under-run-protection[whether to use buffer under-run protection]:buffer under-run protection setting:(("0\:disable buffer under-run protection" "1\:enable buffer under-run protection"))' \
'--write-speed-control[whether to use writing-speed control]:writing-speed control setting:(("0\:disable writing-speed control" "1\:enable writing-speed control"))' \
$*
}
__cdrdao-read-toc-or-read-cd-or-copy-dependent-args () {
if (( words[(I)--tao-source] )); then
dependent_args+='--tao-source-adjust[specify number of link blocks for tracks written in TAO mode]: :_guard "[[\:digit\:]]##" "link blocks"'
fi
if (( words[(I)--with-cddb] )); then
dependent_args+=$cddb_args
fi
}
_cdrdao-copy () {
local -ga dependent_args
__cdrdao-read-toc-or-read-cd-or-copy-dependent-args
_cdrdao-write \
$dependent_args
$common_read_args
'--source-device[set SCSI address of the CD reader]:device:__cdrdao-device' \
'--source-driver[use given driver for the CD reader]:driver:__cdrdao-drivers' \
'--on-the-fly[perform on-the-fly copy of CD (no image created)]' \
$fasttoc_arg \
'--keepimage[do not remove generated image when done]' \
$paranoiamode_arg && ret=0
}
# Type completion {{{1
__cdrdao-device () {
# Use cdrdao scanbus and also check what OS we’re running under and provide
# additional stuff, like devices (/dev/sg0)
local -a devices
devices=(${(f)"$(_call_program devices cdrdao scanbus -v 0 2>/dev/null)"})
if (( ${#pipestatus:#0} > 0 )); then
return 1
fi
_wanted devices expl 'device' compadd - $devices
}
__cdrdao-drivers () {
local -a drivers
drivers=(${(f)"$(_call_program drivers cut -d'|' -f4 /usr/share/cdrdao/drivers -s 2>/dev/null | sort -u)"})
if (( ${#pipestatus:#0} > 0 )); then
return 1
fi
_wanted drivers expl 'driver' compadd -qS: - $drivers
}
# }}}1
_cdrdao
PK [#k functions/_arg_compilenu W+A #autoload
# A simple compiler for _arguments descriptions. The first argument of
# _arg_compile is the name of an array parameter in which the parse is
# returned. The remaining arguments form a series of `phrases'. Each
# `phrase' begins with one of the keywords "argument", "option", or "help"
# and consists of a series of keywords and/or values. The syntax is as
# free-form as possible, but "argument" phrases generally must appear in
# the same relative position as the corresponding argument on the command
# line to be completed, and there are some restrictions on ordering of
# keywords and values within each phrase.
#
# Anything appearing before the first phrase or after the last is passed
# through verbatim. (See TODO.) If more detailed mixing of compiled and
# uncompiled fragments is necessary, use two or more calls, either with
# different array names or by passing the output of each previous call
# through the next.
#
# In the documentation below, brackets [ ] indicate optional elements and
# braces { } indicate elements that may be repeated zero or more times.
# Except as noted, bracketed or braced elements may appear in any order
# relative to each other, but tokens within each element are ordered.
#
# argument [POS] [means MSG] [action ACT]
#
# POS may be an integer N for the Nth argument or "*" for all, and
# must appear first if it appears at all.
# MSG is a string to be displayed above the matches in a listing.
# ACT is (currently) as described in the compsys manual.
#
# option OPT [follow HOW] [explain STR] {unless XOR} \
# {[means MSG] [action ACT]} [through PAT [means MSG] [action ACT]]
#
# OPT is the option, prefixed with "*" if it may appear more than once.
# HOW refers to a following argument, and may be one of:
# "close" must appear in the same word (synonyms "join" or "-")
# "next" the argument must appear in the next word (aka "split")
# "loose" the argument may appear in the same or the next word ("+")
# "assign" as loose, but must follow an "=" in the same word ("=")
# HOW should be suffixed with a colon if the following argument is
# _not_ required to appear.
# STR is to be displayed based on style `description'
# XOR is another option in combination with which OPT may not appear.
# It may be ":" to disable non-option completions when OPT is present.
# MSG is a string to be displayed above the matches in a listing.
# ACT is (currently) as described in the compsys manual.
# PAT is either "*" for "all remaining words on the line" or a pattern
# that, if matched, marks the end of the arguments of this option.
# The "through PAT ..." description must be the last.
# PAT may be suffixed with one colon to narrow the $words array to
# the remainder of the command line, or with two colons to narrow
# to the words before (not including) the next that matches PAT.
#
# help PAT [means MSG] action ACT
#
# ACT is applied to any option output by --help that matches PAT.
# Do not use "help" with commands that do not support --help.
# PAT may be suffixed with a colon if the following argument is
# _not_ required to appear (this is usually inferred from --help).
# MSG is a string to be displayed above the matches in a listing.
# EXAMPLE:
# This is from _gprof in the standard distribution. Note that because of
# the brace expansion trick used in the "function name" case, no attempt
# is made to use `phrase' form; that part gets passed through unchanged.
# It could simply be moved to the _arguments call ahead of "$args[@]".
#
# _arg_compile args -s -{a,b,c,D,h,i,l,L,s,T,v,w,x,y,z} \
# -{A,C,e,E,f,F,J,n,N,O,p,P,q,Q,Z}:'function name:->funcs' \
# option -I means directory action _dir_list \
# option -d follow close means "debug level" \
# option -k means "function names" action '->pair' \
# option -m means "minimum execution count" \
# argument means executable action '_files -g \*\(-\*\)' \
# argument means "profile file" action '_files -g gmon.\*' \
# help '*=name*' means "function name" action '->funcs' \
# help '*=dirs*' means "directory" action _dir_list
# _arguments "$args[@]"
# TODO:
# Verbose forms of various actions, e.g. (but not exactly)
# "state foo" becomes "->foo"
# "completion X explain Y ..." becomes "((X\:Y ...))"
# etc.
# Represent leading "*" in OPT some other way.
# Represent trailing colons in HOW and PAT some other way.
# Stricter syntax checking on HOW, sanity checks on XOR.
# Something less obscure than "unless :" would be nice.
# Warning or other syntax check for stuff after the last phrase.
emulate -L zsh
local -h argspec dspec helpspec prelude xor
local -h -A amap dmap safe
[[ -n "$1" ]] || return 1
[[ ${(tP)${1}} = *-local ]] && { print -R NAME CONFLICT: $1 1>&2; return 1 }
safe[reply]="$1"; shift
# First consume and save anything before the argument phrases
helpspec=()
prelude=()
while (($#))
do
case $1 in
(argument|help|option) break;;
(*) prelude=("$prelude[@]" "$1"); shift;;
esac
done
# Consume all the argument phrases and build the argspec array
while (($#))
do
amap=()
dspec=()
case $1 in
# argument [POS] [means MSG] [action ACT]
(argument)
shift
while (($#))
do
case $1 in
(<1->|\*) amap[position]="$1"; shift;;
(means|action) amap[$1]="$2"; shift 2;;
(argument|option|help) break;;
(*) print -R SYNTAX ERROR at "$@" 1>&2; return 1;;
esac
done
if (( $#amap ))
then
argspec=("$argspec[@]" "${amap[position]}:${amap[means]}:${amap[action]}")
fi;;
# option OPT [follow HOW] [explain STR] {unless XOR} \
# {[through PAT] [means MSG] [action ACT]}
(option)
amap[option]="$2"; shift 2
dmap=()
xor=()
while (( $# ))
do
(( ${+amap[$1]} || ${+dmap[through]} )) && break;
case $1 in
(follow)
amap[follow]="${2:s/join/-/:s/close/-/:s/next//:s/split//:s/loose/+/:s/assign/=/:s/none//}"
shift 2;;
(explain) amap[explain]="[$2]" ; shift 2;;
(unless) xor=("$xor[@]" "${(@)=2}"); shift 2;;
(through|means|action)
while (( $# ))
do
(( ${+dmap[$1]} )) && break 2
case $1 in
(through|means|action) dmap[$1]=":${2}"; shift 2;;
(argument|option|help|follow|explain|unless) break;;
(*) print -R SYNTAX ERROR at "$@" 1>&2; return 1;;
esac
done;;
(argument|option|help) break;;
(*) print -R SYNTAX ERROR at "$@" 1>&2; return 1;;
esac
if (( $#dmap ))
then
dspec=("$dspec[@]" "${dmap[through]}${dmap[means]:-:}${dmap[action]:-:}")
fi
done
if (( $#amap ))
then
argspec=("$argspec[@]" "${xor:+($xor)}${amap[option]}${amap[follow]}${amap[explain]}${dspec}")
fi;;
# help PAT [means MSG] action ACT
(help)
amap[pattern]="$2"; shift 2
while (($#))
do
(( ${+amap[$1]} )) && break;
case $1 in
(means|action) amap[$1]="$2"; shift 2;;
(argument|option|help) break;;
(*) print -R SYNTAX ERROR at "$@" 1>&2; return 1;;
esac
done
if (( $#amap ))
then
helpspec=("$helpspec[@]" "${amap[pattern]}:${amap[means]}:${amap[action]}")
fi;;
(*) break;;
esac
done
eval $safe[reply]'=( "${prelude[@]}" "${argspec[@]}" ${helpspec:+"-- ${helpspec[@]}"} "$@" )'
# print -R _arguments "${prelude[@]:q}" "${argspec[@]:q}" ${helpspec:+"-- ${helpspec[@]:q}"} "$@:q"
return 0
PK [ W
W
functions/_qivnu W+A #compdef qiv
_arguments -s \
'(- *)'{-h,--help}'[display help information]' \
'(- *)'{-v,--version}'[display version information]' \
'--display:display:_x_display' \
\*{-F,--file}'[read file names from file]:file:_files' \
'(-e --center)'{-e,--center}'[disable window centering]' \
'(-w --fixed_width -W --fixed_zoom)'{-w,--fixed_width}'[use window with specified width]:width' \
'(-w --fixed_width -W --fixed_zoom)'{-W,--fixed_zoom}'[use window with specified zoom factor]:zoom (percentage)' \
'(-x -y -z --root --root_t --root_s -f --file *)'{-x,--root}'[use image as the current desktop background, centered]:image file:_files' \
'(-x -y -z --root --root_t --root_s -f --file *)'{-y,--root_t}'[use image on the current desktop background, tiled]:image file:_files' \
'(-x -y -z --root --root_t --root_s -f --file *)'{-z,--root_s}'[use image as the current desktop background, stretched]:image file:_files' \
'(-m --maxpect)'{-m,--maxpect}'[expand image to fit screen size]' \
'(-t --scale_down)'{-t,--scale_down}'[shrink images to fit screen size]' \
'(-b --brightness)'{-b,--brightness}'[set brightness]:brightness (-32..32)' \
'(-c --contrast)'{-c,--contrast}'[set contrast]:contrast (-32..32)' \
'(-g --gamma)'{-g,--gamma}'[set gamma]:gamma (-32..32)' \
'(-n --no_filter)'{-n,--no_filter}'[disable filtering of images by extension]' \
'(-i --no_statusbar -I --statusbar)'{-i,--no_statusbar}'[disable statusbar]' \
'(-i --no_statusbar -I --statusbar)'{-I,--statusbar}'[enable statusbar]' \
'(-p --transparency)'{-p,--transparency}'[enable transparency]' \
'(-a --do_grab)'{-a,--do_grab}'[grab the pointer in windowed mode]' \
'(-G --disable_grab)'{-G,--disable_grab}'[disable pointer grabbing]' \
'(-o --bg_color)'{-o,--bg_color}'[set root background color]:color:_x_color' \
'(-s --slide)'{-s,--slide}'[start slideshow immediately]' \
'(-r --random)'{-r,--random}'[shuffle images for slideshow]' \
'(-R --readonly)'{-R,--readonly}'[disable delete feature]' \
'(-S --shuffle)'{-S,--shuffle}'[shuffle images for next/prev feature]' \
'(-d --delay)'{-d,--delay}'[set slideshow delay]:delay (seconds)' \
'(-f --fullscreen)'{-f,--fullscreen}'[use fullscreen window on startup]' \
'(-P --ignore_path_sort)'{-P,--ignore_path_sort}'[sort images by just the filename]' \
'(-M --merged_case_sort)'{-M,--merged_case_sort}'[sort images case-insensitively]' \
'(-N --numeric_sort)'{-N,--numeric_sort}'[numeric image sort]' \
'(-T --watch)'{-T,--watch}'[reload the image if it changes]' \
'*:image file:_files -g "*.(#i)(bmp|eim|gif|jp([eg]|eg)|pcx|png|p[pngb]m|tif(|f)|tga|x[pb]m)(-.)"'
PK [H functions/VCS_INFO_get_data_hgnu W+A ## vim:ft=zsh
## mercurial support by: Frank Terbeck
## with large contributions by Seth House
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions extendedglob NO_shwordsplit
local hgbase bmfile branchfile rebasefile dirstatefile mqseriesfile \
mqstatusfile mqguardsfile patchdir mergedir \
r_csetid r_lrev r_branch i_bmhash i_bmname \
revformat branchformat hgactionstring hgchanges \
hgbmstring hgmqstring applied_string unapplied_string guards_string
local -a hgid_args defrevformat defbranchformat \
hgbmarks mqpatches mqseries mqguards mqunapplied hgmisc \
i_patchguards i_negguards i_posguards
local -xA hook_com
hgbase=${vcs_comm[basedir]}
rrn=${hgbase:t}
r_csetid='' # changeset id (long hash)
r_lrev='' # local revision
patchdir="${hgbase}/.hg/patches"
mergedir="${hgbase}/.hg/merge/"
bmfile="${hgbase}/.hg/bookmarks"
branchfile="${hgbase}/.hg/branch"
rebasefile="${hgbase}/.hg/rebasestate"
dirstatefile="${hgbase}/.hg/dirstate"
mqstatusfile="${patchdir}/status" # currently applied patches
mqseriesfile="${patchdir}/series" # all patches
mqguardsfile="${patchdir}/guards"
# Look for any --flavours
VCS_INFO_adjust
# Calling the 'hg' program is quite a bit too slow for prompts.
# Disabled by default anyway, so no harm done.
if zstyle -t ":vcs_info:${vcs}:${usercontext}:${rrn}" get-revision ; then
# Calling hexdump is (much) faster than hg but doesn't get the local rev
if zstyle -t ":vcs_info:${vcs}:${usercontext}:${rrn}" use-simple \
&& ( VCS_INFO_check_com hexdump ) && [[ -r ${dirstatefile} ]] ; then
r_csetid=$(hexdump -n 20 -e '1/1 "%02x"' ${dirstatefile})
else
hgid_args=( --debug id -i -n -b )
# Looking for changes is a tad bit slower since the dirstate cache must
# first be refreshed before being read
zstyle -t ":vcs_info:${vcs}:${usercontext}:${rrn}" \
"check-for-changes" || hgid_args+=( -r. )
local HGRCPATH
HGRCPATH="/dev/null" ${vcs_comm[cmd]} ${(z)hgid_args} \
| read -r r_csetid r_lrev r_branch
fi
fi
# If the user doesn't opt to invoke hg we can still get the current branch
if [[ -z ${r_branch} && -r ${branchfile} ]] ; then
r_branch=$(< ${branchfile})
fi
# If we still don't know the branch it's safe to assume default
[[ -n ${r_branch} ]] || r_branch="default"
# The working dir has uncommitted-changes if the revision ends with a +
if [[ $r_lrev[-1] == + ]] ; then
hgchanges=1
r_lrev=${r_lrev%+}
r_csetid=${r_csetid%+}
fi
# This directory only exists during a merge
[[ -d $mergedir ]] && hgactionstring="merging"
# This file only exists during a rebase
[[ -e $rebasefile ]] && hgactionstring="rebasing"
### Build the current revision display
[[ -n ${r_csetid} ]] && defrevformat+=( "%h" )
[[ -n ${r_lrev} ]] && defrevformat+=( "%r" )
zstyle -s ":vcs_info:${vcs}:${usercontext}:${rrn}" \
"hgrevformat" revformat || revformat=${(j/:/)defrevformat}
hook_com=( localrev "${r_lrev}" "hash" "${r_csetid}" )
if VCS_INFO_hook 'set-hgrev-format' "${revformat}"; then
zformat -f r_lrev "${revformat}" \
"r:${hook_com[localrev]}" "h:${hook_com[hash]}"
else
r_lrev=${hook_com[rev-replace]}
fi
hook_com=()
### Build the branch display
[[ -n ${r_branch} ]] && defbranchformat+=( "%b" )
[[ -n ${r_lrev} ]] && defbranchformat+=( "%r" )
zstyle -s ":vcs_info:${vcs}:${usercontext}:${rrn}" \
branchformat branchformat || branchformat=${(j/:/)defbranchformat}
hook_com=( branch "${r_branch}" revision "${r_lrev}" )
if VCS_INFO_hook 'set-branch-format' "${branchformat}"; then
zformat -f branchformat "${branchformat}" \
"b:${hook_com[branch]}" "r:${hook_com[revision]}"
else
branchformat=${hook_com[branch-replace]}
fi
hook_com=()
### Look for current Bookmarks (this requires knowing the changeset id)
if zstyle -t ":vcs_info:${vcs}:${usercontext}:${rrn}" get-bookmarks \
&& [[ -r "${bmfile}" ]] && [[ -n "$r_csetid" ]] ; then
while read -r i_bmhash i_bmname ; do
# Compare hash in bookmarks file with changeset id
[[ $r_csetid == $i_bmhash ]] && hgbmarks+=( $i_bmname )
done < ${bmfile}
if VCS_INFO_hook 'gen-hg-bookmark-string' "${hgbmarks[@]}"; then
hgbmstring=${(j:, :)hgbmarks}
else
hgbmstring=${hook_com[hg-bookmark-string]}
fi
hook_com=()
fi
### Look for any applied Mercurial Queue patches
if zstyle -T ":vcs_info:${vcs}:${usercontext}:${rrn}" get-mq \
&& [[ -d $patchdir ]] ; then
if [[ -e $mqstatusfile ]]; then
mqpatches=( ${${(f)"$(< "${patchdir}/status")"}/(#s)[a-f0-9]##:/} )
mqpatches=( ${(Oa)mqpatches} )
fi
if zstyle -t ":vcs_info:${vcs}:${usercontext}:${rrn}" get-unapplied \
&& [[ -r ${mqseriesfile} ]]; then
# Okay, here's a little something that assembles a list of unapplied
# patches that takes into account if mq-guards are active or not.
# Collect active guards
if [[ -r ${mqguardsfile} ]]; then
mqguards=( ${(f)"$(< "${mqguardsfile}")"} )
mqguards=( ${(oa)mqguards} )
fi
while read -r i_patch i_patchguards ; do
# Skip commented lines
[[ ${i_patch} == [[:space:]]#"#"* ]] && continue
# Keep list of all patches
mqseries+=( $i_patch )
# Separate negative and positive guards to more easily find the
# intersection of active guards with patch guards
i_patchguards=( ${(s: :)i_patchguards} )
i_negguards=( ${${(M)i_patchguards:#*"#-"*}/(#s)\#-/} )
i_posguards=( ${${(M)i_patchguards:#*"#+"*}/(#s)\#+/} )
# Patch with any negative guards is never pushed if guard is active
if [[ ${#i_negguards} -gt 0
&& ${#${(@M)mqguards:#${(~j,|,)i_negguards}}} -gt 0 ]] ; then
continue
fi
# Patch with positive guards is only pushed if guard is active
if [[ ${#i_posguards} -gt 0 ]] ; then
if [[ ${#${(@M)mqguards:#${(~j,|,)i_posguards}}} -gt 0 ]] ; then
mqunapplied+=( $i_patch )
fi
continue
fi
# If we made it this far the patch isn't guarded and should be pushed
mqunapplied+=( $i_patch )
done < ${mqseriesfile}
fi
if VCS_INFO_hook 'gen-applied-string' "${mqpatches[@]}"; then
(( ${#mqpatches} )) && applied_string=${mqpatches[1]}
else
applied_string=${hook_com[applied-string]}
fi
hook_com=()
if VCS_INFO_hook 'gen-unapplied-string' "${mqunapplied[@]}"; then
unapplied_string=${#mqunapplied}
else
unapplied_string=${hook_com[unapplied-string]}
fi
hook_com=()
if VCS_INFO_hook 'gen-mqguards-string' "${mqguards[@]}"; then
guards_string=${(j:,:)mqguards}
else
guards_string=${hook_com[guards-string]}
fi
if (( ${#mqpatches} )); then
zstyle -s ":vcs_info:${vcs}:${usercontext}:${rrn}" patch-format \
hgmqstring || hgmqstring="%p (%n applied)"
else
zstyle -s ":vcs_info:${vcs}:${usercontext}:${rrn}" nopatch-format \
hgmqstring || hgmqstring="no patch applied"
fi
hook_com=( applied "${applied_string}" unapplied "${unapplied_string}"
applied-n ${#mqpatches} unapplied-n ${#mqunapplied}
guards "${guards_string}" guards-n ${#mqguards} )
if VCS_INFO_hook 'set-patch-format' ${qstring}; then
zformat -f hgmqstring "${hgmqstring}" \
"p:${hook_com[applied]}" "u:${hook_com[unapplied]}" \
"n:${#mqpatches}" "c:${#mqunapplied}" \
"g:${hook_com[guards]}" "G:${#mqguards}"
else
hgmqstring=${hook_com[patch-replace]}
fi
hook_com=()
fi
### Build the misc string
hgmisc+=( ${hgmqstring} )
hgmisc+=( ${hgbmstring} )
backend_misc[patches]="${hgmqstring}"
backend_misc[bookmarks]="${hgbmstring}"
VCS_INFO_formats "${hgactionstring}" "${branchformat}" "${hgbase}" '' "${hgchanges}" "${r_lrev}" "${(j:;:)hgmisc}"
return 0
PK [v*S functions/_uniqnu W+A #compdef uniq
local args
args=(
'(-c --count)'{-c,--count}'[prefix lines by the number of occurrences]'
'(-d --repeated)'{-d,--repeated}'[only print duplicate lines]'
'(-D --all-repeated)'{-D,--all-repeated=}'[print all duplicate lines]:delimit method:(none prepend separate)'
'(-f --skip-fields)'{-f,--skip-fields=}'[avoid comparing initial fields]:number of fields'
'(-i --ignore-case)'{-i,--ignore-case}'[ignore differences in case when comparing]'
'(-s --skip-chars)'{-s,--skip-chars=}'[avoid comparing initial characters]:number of characters'
'(-t --separator)'{-t,--separator=}'[specify field delimiter]:separator'
'(-u --unique)'{-u,--unique}'[only print unique lines]'
'(-w --check-chars)'{-w,--check-chars=}'[specify maximum number of characters to compare]:characters'
'(-W --check-fields)'{-W,--check-fields=}'[specify maximum number of fields to compare]:fields'
'(- *)--help[display help information]'
'(- *)--version[display version information]'
)
if ! _pick_variant gnu=Free\ Soft unix --version; then
args=( ${(M)args:#(|\*)(|\(*\))-[cdufs]*} )
fi
_arguments "$args[@]" \
'1::input file:_files' \
'2::output file:_files'
PK [LQ Q " functions/backward-kill-word-matchnu W+A emulate -L zsh
setopt extendedglob
autoload match-words-by-style
local curcontext=":zle:$WIDGET" word done
local -a matched_words
integer count=${NUMERIC:-1}
if (( count < 0 )); then
(( NUMERIC = -count ))
zle ${WIDGET##backward-}
return
fi
while (( count-- )); do
match-words-by-style
word="$matched_words[2]$matched_words[3]"
if [[ -n $word ]]; then
if [[ -n $done || $LASTWIDGET = *kill* ]]; then
CUTBUFFER="$word$CUTBUFFER"
else
zle copy-region-as-kill -- "$word"
fi
LBUFFER=$matched_words[1]
else
return 1
fi
done=1
done
return 0
PK [2 2 functions/_ifconfignu W+A #compdef ifconfig
local curcontext="$curcontext" state line ret=1
local -a opts args alias debug updownlist
alias=( '(-alias alias)'{,-}'alias[remove or establish alternate address for if]' )
debug=( '(-debug debug)'{,-}'debug[disable or enable debugging code]' )
updownlist=(
'(-a -d -C)-u[restrict to interfaces which are up]'
'(-a -u -C)-d[restrict to interfaces which are down]'
'(-a -C -m -L 1 *)-l[list interfaces]'
)
case $OSTYPE in
darwin*)
args=( -s $updownlist )
opts=(
$alias $debug delete dest_address ipdst nsellength
{,-}trailers {,-}link{0,1,2}
)
;;
freebsd*|dragonfly*)
args=( -s $updown
'(-a -l -u -d -m -L 1 *)-C[list interface cloners]'
'(-l -C)-m[list supported media]'
'(-l -C)-L[show address lifetime as time offset]'
)
opts=( $alias $debug
anycast lladdr media {,-}mediaopt {,delete}tunnel create destroy
{,un}plumb vlan {,-}vlandev metric prefixlen range phase ssid muid
stationname channel authmode {,-}powersave powersavesleep wepmode
{,-}wep {,-}nwkey add delete ether {,-}link{0,1,2}
)
;;
irix5*) opts=( $debug ) ;;
irix6*)
opts=( $debug {-,}highbw {,-}link{0,1,2} primary rspace sspace )
args=( '-w[display additional information]' )
;;
linux*)
opts=(
'(-promisc promisc)'{,-}'promisc[disable or enable promiscuous mode]'
'(-allmulti allmulti)'{,-}'allmulti[disable or enable all-multicast]'
'media[set physical port type]:medium type:(auto 10base2 10baseT AUI)'
'hw[set hardware class]:hardware class:(ether ax25 ARCnet netrom)'
add del dstaddr io_addr irq mem_start multicast pointopoint
tunnel txqueuelen
)
;;
solaris*)
args=(
'-ad[apply to all down interfaces]'
'-adD[apply to all down interfaces not controlled by DHCP]'
'-au[apply to all up interfaces]'
'-auD[apply to all up interfaces not controlled by DHCP]'
)
opts=(
'auto-revarp[use RARP to acquire address]'
{,-}trailers {,-}private {,un}plumb
'(dhcp auto-dhcp)'{,auto-}'dhcp[use dhcp]'
primary wait drop extend ping release start status
)
;;
esac
_arguments -C "$args[@]" \
'-a[apply to all interfaces]' \
'1:network interface:_net_interfaces' \
'::address family:(atalk ether inet inet6 ax25 ddp ipx netrom)' \
'*:option:->options' && ret=0
[[ -n "$state" ]] && _values -S ' ' -w 'option' "$opts[@]" \
'(down)up[activate interface]' \
'(up)down[shut down interface]' \
'(-arp arp)'{,-}'arp[disable or enable address resolution protocol]' \
'metric[set routing metric for interface]:routing metric' \
'mtu[set maximum transfer unit]:mtu' \
'netmask[specify network mask]:netmask' \
'broadcast[specify broadcast address]:broadcast address' \
'address[specify IP address of interface]:IP address' && ret=0
return ret
PK [! functions/_portsnu W+A #autoload
local expl ports
if ! zstyle -a ":completion:${curcontext}:" ports ports; then
(( $+_cache_ports )) ||
: ${(A)_cache_ports:=${${(M)${${(f)"$(
## Distributed under the same BSD-ish license as zsh itself.
emulate -L zsh
local -i i
local -ix maxexports
VCS_INFO_maxexports
for i in {0..$((maxexports - 1))} ; do
printf -- '$vcs_info_msg_%d_: "' $i
if zstyle -T ':vcs_info:formats:command:-all-' use-prompt-escapes ; then
print -nP -- ${(P)${:-vcs_info_msg_${i}_}}
else
print -n -- ${(P)${:-vcs_info_msg_${i}_}}
fi
printf '"\n'
done
PK [㝱 functions/_x_extensionnu W+A #autoload
local expl
_tags extensions || return 1
(( $+_xe_cache )) || _xe_cache=( "${(@)${(@f)$(xdpyinfo)}[(r)number of extensions:*,-1][2,(r)default screen number:*][1,-2]//[ ]}" )
if [[ "$1" = -a ]]; then
shift
_wanted extensions expl 'X extension' \
compadd "$@" -M 'm:{a-z}={A-Z} r:|-=* r:|=*' - all "$_xe_cache[@]"
else
[[ "$1" = - ]] && shift
_wanted extensions expl 'X extension' \
compadd "$@" -M 'm:{a-z}={A-Z} r:|-=* r:|=*' -a - _xe_cache
fi
PK [$:j functions/_tarnu W+A #compdef tar gtar star
# Tar completion. Features:
# - Tries to collect tar commands from second position, single letter
# option, and long options.
# - `tar' can be called anything, will use the correct name
# - Uses the function `_tar_archive' to complete archive files.
# - Tries to find out if compressed archives should be used.
# - Completes files inside archive. This is supposed to look pretty
# much as if the files are in an ordinary directory hierarchy.
# Handles extraction from compressed archives (GNU tar).
# - Anywhere -- appears, gets a list of long options to complete from
# tar itself (GNU tar)
# - Things like --directory=... are also completed correctly.
local _tar_cmd tf tmp tmpb del index
# First we collect in `_tar_cmd' single letter options describing what
# should be done with the archive and if it is compressed. This
# collected from options arguments that start with only one hyphen,
# from some of the possible long options, and from the second word if
# that does not start with a hyphen.
if _pick_variant gnu=GNU unix --version; then
case "$($service --version)" in
(tar \(GNU tar\) (#b)([0-9.-]##)*)
autoload -z is-at-least
is-at-least 1.14.91 "$match[1]" || _cmd_variant[$service]="gnu-old"
;;
esac
fi
tmp=("${(@M)words:#-[^-]*}")
_tar_cmd="${(j::)tmp#-}"
(( $words[(I)--(un|)gzip] )) && _tar_cmd="z$_tar_cmd"
(( $words[(I)--(un|)compress] )) && _tar_cmd="Z$_tar_cmd"
(( $words[(I)--bzip2] )) && _tar_cmd="j$_tar_cmd"
(( $words[(I)--xz] )) && _tar_cmd="J$_tar_cmd"
(( $words[(I)--list] )) && _tar_cmd="t$_tar_cmd"
(( $words[(I)--(extract|get)] )) && _tar_cmd="x$_tar_cmd"
(( $words[(I)--create] )) && _tar_cmd="c$_tar_cmd"
# Other ways of finding out what we're doing: first
# look in the first argument if it's not an option
if [[ "$words[2]" = *[txcdruA]*~-* ]]; then
_tar_cmd="$words[2]$_tar_cmd"
elif [[ $_tar_cmd != *[txcdruA]* && CURRENT -gt 2 ]]; then
# look for more obscure long options: these aren't all handled.
(( $words[(I)--(diff|compare)] )) && _tar_cmd="d$_tar_cmd"
(( $words[(I)--append] )) && _tar_cmd="r$_tar_cmd"
(( $words[(I)--update] )) && _tar_cmd="u$_tar_cmd"
(( $words[(I)--(con|)catenate] )) && _tar_cmd="A$_tar_cmd"
(( $words[(I)--delete] )) && del=1
fi
# Next, we try to find the archive name and store it in `tf'. The name
# is searched after a `--file=' long option, in the third word if the
# second one didn't start with a hyphen but contained a `f', and after
# an option argument starting with only one hyphen and containing a `f'.
# unless that option argument also contains a `C'.
tmp="$words[(I)--file=*]"
tmpb="$words[(I)-*Cf*~--*]"
if (( tmp )); then
tf=${~words[tmp][8,-1]}
_tar_cmd="f$_tar_cmd"
elif [[ "$words[2]" != -* && "$words[2]" = *f* ]]; then
tf=${~words[3]}
_tar_cmd="f$_tar_cmd"
elif (( tmpb )); then
tf=${~words[tmpb+2]}
wdir=${~words[tmpb+1]}
_tar_cmd="Cf$_tar_cmd"
else
tmp="${words[(I)-*f*~--*]}"
if (( tmp )); then
tf=${~words[tmp+1]}
_tar_cmd="f$_tar_cmd"
fi
fi
# See if we should use a path prefix. We have to use eval as the dir can
# be any unevaluated thing which appears on the command line, including a
# parameter.
# This isn't used right now.
tmp=${words[(r)--dir[a-z]#=*]}
if [[ -n $tmp ]]; then
eval "wdir=(${tmp#*=})"
fi
# Now we complete...
if [[ "$PREFIX" = --* ]]; then
# ...long options after `--'.
_arguments -- '--owner*:user:_users' \
'*=(PROG|COMMAND)*:program:_command_names -e' \
'*=ARCHIVE*:archive: _tar_archive' \
'*=NAME*:file:_files' \
'*=DIR*:directory:_files -/' \
'*=CONTROL*::version control:(t numbered nil existing never simple)'
elif [[ ( CURRENT -gt 2 && "$words[CURRENT-1]" = -[^C]#f* &&
"$words[CURRENT-1]" != --* ) ||
( CURRENT -eq 3 && "$words[2]" = [^C]#f* && "$words[2]" != -* ) ||
( CURRENT -gt 2 && "$words[CURRENT-2]" = -*C*f* &&
"$words[CURRENT-2]" != --* && "$words[CURRENT-1]" != --* ) ||
( CURRENT -eq 4 && "$words[2]" = *C*f* && "$words[2]" != -* ) ]]; then
# ...archive files if we think they are wanted here.
_tar_archive
elif [[ ( CURRENT -gt 2 && "$words[CURRENT-1]" = -[^f]#C*) ||
( CURRENT -eq 3 && "$words[2]" = [^f]#C* ) ]]; then
# a directory for -C
_directories
elif [[ ( "$_tar_cmd" = *[xt]* || -n $del ) && -n "$tf" ]]; then
# ...and files from the archive if we found an archive name and tar
# commands. We run `tar t...' on the file, keeping the list of
# filenames cached, plus the name of the tarfile so we know if it
# changes. We skip this test if the alleged archive is not a file.
local largs=-tf expl
if [[ $_tar_cmd = *z* ]]; then
largs=-tzf
elif [[ $_tar_cmd = *j* ]]; then
largs=-tjf
elif [[ $_tar_cmd = *y* ]]; then
largs=-tyf
elif [[ $_tar_cmd = *Z* ]]; then
largs=-tZf
elif [[ $_tar_cmd = *I* ]]; then
largs=-tIf
elif [[ $_tar_cmd = *J* ]]; then
largs=-tJf
else
# Some random compression program
tmp="${words[(r)--use-comp*]}"
[[ -n $tmp ]] && largs=($tmp -tf)
fi
if [[ $tf != $_tar_cache_name && -f $tf ]]; then
_tar_cache_list=("${(@f)$($words[1] $largs $tf)}")
_tar_cache_name=$tf
fi
_wanted files expl 'file from archive' _multi_parts / _tar_cache_list
elif (( CURRENT == 2 )); then
# ignore leading - since we complete option letters anyway
compset -P -
_values -s '' 'tar function' \
'(c t u x)A[append to an archive]' \
'(A t u x)c[create a new archive]' \
'(A c u x)t[list archive contents]' \
'(A c t x)u[update archive]' \
'(A c t u)x[extract files from an archive]' \
'v[verbose output]' \
'f[specify archive file or device]'
else
if ! (( index=$words[(I)-*C*] )); then
if [[ $words[2] = [^f]#C* ]]; then
index=1
elif [[ $words[2] = *f*C* ]]; then
index=2
fi
fi
if (( index )); then
index="$~words[index+1]"
[[ $index = (.|..|)/* ]] || index=~+/$index
_files -W $index
else
_files
fi
fi
PK [f4 4 % functions/up-line-or-beginning-searchnu W+A # Like up-line-or-search, but uses the whole line prefix up to the
# cursor position for searching backwards.
emulate -L zsh
if [[ $LBUFFER == *$'\n'* ]]; then
zle .up-line-or-history
__searching=''
elif [[ -n $PREBUFFER ]] &&
zstyle -t ':zle:up-line-or-beginning-search' edit-buffer
then
zle .push-line-or-edit
else
[[ $LASTWIDGET = $__searching ]] && CURSOR=$__savecursor
__savecursor=$CURSOR
__searching=$WIDGET
zle .history-beginning-search-backward
zstyle -T ':zle:up-line-or-beginning-search' leave-cursor &&
zle .end-of-line
fi
PK [;C functions/_logical_volumesnu W+A #autoload
local expl list names disp sep
list=( $(lsvg -l $(lsvg)|sed -e '2d'|awk '/[^:]* / {if ( $7 != "N/A" ) print $1 ":" $7; else print $1}' ) )
names=(${list%%:*})
if zstyle -T ":completion:${curcontext}:" verbose; then
zstyle -s ":completion:${curcontext}:" list-separator sep || sep=--
zformat -a list " $sep " $list
disp=(-d list)
else
disp=()
fi
_wanted logicalvolumes expl 'logical volume' \
compadd "$disp[@]" "$@" - "$names[@]"
PK [[T
functions/_unitsnu W+A #compdef units
local curcontext="$curcontext" state line
integer ret=1
typeset -A opt_args
# Command line completion for Solaris units isn't very useful; this
# may be standard old-fashioned behaviour. However, it does let you
# find out the units that are available before running units
# interactively.
# GNU options, but these aren't very intrusive for other versions.
_arguments -C -s -S \
'(-c --check --check-verbose)'{-c,--check}'[check units are reducible]' \
'(-c --check)--check-verbose[verbosely check units are reducible]' \
'(-o --output-format)'{-o,--output-format}'[specify output format]:printf formt: ' \
'(-f --file)'{-f,--file}'[specify file with units]:units file:_files' \
'(-m --minus)'{-m,--minus}'[- is subtraction]' \
'(-p --product)'{-p,--product}'[binary - is product]' \
'(-q --quiet --silent)'{-q,--quiet,--silent}'[suppress prompts and statistics]' \
'(-s --strict)'{-s,--strict}'[suppress conversion to reciprocals units]' \
'(-t --terse)'{-t,--terse}'[make conversion output briefer]' \
'(-v --verbose)'{-v,--verbose}'[make output more verbose]' \
'(- *)'{-h,--help}'[show help information and exit]' \
'(- *)'{-V,--version}'[show version information and exit]' \
'*:unit expression:->expr' && return 0
[[ $state = expr ]] || return 1
# It's very likely there's a quoted expression, since things like '2 seconds'
# need to be a single argument. Units themselves don't have special
# characters, so it's safe to take just the characters around the
# cursor.
compset -P '*[^[:alnum:]]'
compset -S '[^[:alnum:]]*'
# Find the units data.
local datfile
local -a testfiles
testfiles=(
/usr/share/units.dat # GNU on Fedora
/usr/share/units/units.dat # on gentoo
/usr/share/misc/units.dat # on Debian
/usr/local/share/units.dat # GNU DIY install
/usr/share/lib/unittab # Solaris
/usr/share/misc/units.lib # BSD
)
datfile=${opt_args[-f]:-${opt_args[--file]}}
if [[ -z $datfile ]]; then
for datfile in $testfiles; do
[[ -f $datfile ]] && break
done
fi
if [[ ! -f $datfile ]]; then
_message "Data file for units not found."
return
fi
local -a all units pfxs
# Solaris uses / to start a comment, else #.
# could cache this, but it's not that big a deal...
all=($(awk '$1 !~ /^[\/#]/ { print $1 }' $datfile))
# prefixes end in a -
pfxs=(${${all:#^[[:alnum:]]##-}%%-})
# units may include regular or piecewise linear functions
units=(${${all:#^[[:alnum:]]##([\(\]]*|)}%%\(*})
if (( ${#units} )); then
_alternative 'unitprefixes:unit prefix:compadd -S "" -a pfxs' \
'units:unit:compadd -a units' && ret=0
# attempt to skip a prefix
if (( ${#pfxs} )) && compset -P "(${(j.|.)pfxs})"; then
_wanted units expl unit compadd -a units && ret=0
fi
return ret
else
_message "No unit definitions found."
fi
PK [P P functions/VCS_INFO_detect_mtnnu W+A ## vim:ft=zsh
## monotone support by: Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
[[ $1 == '--flavours' ]] && return 1
VCS_INFO_check_com ${vcs_comm[cmd]} || return 1
vcs_comm[detect_need_file]=revision
VCS_INFO_bydir_detect '_MTN'
return $?
PK [+@Z functions/_servicenu W+A #compdef service
# *:: for last argument looks more like a hack but it is
# the simplest way known to me to reset $words and keep
# _sub_command happy
# we are interested in init service only
local ctx="${curcontext}argument-1:"
zstyle -T ":completion:${ctx}" tag-order && \
zstyle ":completion:${ctx}" tag-order init
if [[ $OSTYPE = freebsd* ]]; then
_arguments -s \
'(-)-e[show services that are enabled]' \
'(-)-l[list all scripts in /etc/rc.d and the local startup directory]' \
'(-)-r[show the results of boot time rcorder]' \
'(-)-v[verbose]' \
':service name:_services' \
'*::service argument:_init_d'
else
_arguments -s \
'(-d --debug)'{-d,--debug}'[turn debugging on]' \
'(- :)'{-h,--help}'[print usage]' \
'(- :)'{-v,--version}'[print version]' \
'(-)'{-f,--full-restart}'[restart service]' \
'(- :)'{-R,--full-restart-all}'[restart all services]' \
'(- :)'{-s,--status-all}'[print status of all services]' \
':service name:_services' \
'*::service argument: _init_d'
fi
PK [A[ͧ functions/_metaflacnu W+A #compdef metaflac
local _metaflac_opts _metaflac_shorts _metaflac_opers
typeset -A opt_args
function _metaflac_tags () {
echo "\n\nBEEP - $line - BEEP\n\n"
}
_metaflac_opts=(
'--preserve-modtime'
'--with-filename[prefix output with filename]'
'--no-filename'
'--no-utf8-convert'
'--dont-use-padding[always rewrite the file]'
)
_metaflac_shorts=(
'--show-md5sum'
'--show-min-blocksize'
'--show-max-blocksize'
'--show-min-framesize'
'--show-max-framesize'
'--show-sample-rate'
'--show-channels'
'--show-bps'
'--show-total-samples'
'--show-vendor-tag'
'--show-tag=:FLAC tags:_metaflac_tags'
'--remove-tag=:FLAC tags: '
'--remove-first-tag=:FLAC tags: '
'--remove-all-tags'
'--set-tag=:FLAC tag and value: '
'--import-tags-from=:flat file:_files'
'--export-tags-to=:new file: '
'--import-cuesheet-from=:file:_files'
'--export-cuesheet-to=:new file: '
'--add-replay-gain'
'--add-seekpoint=:: '
'--add-padding=length'
)
_metaflac_opers=(
'--block-number=:: '
'--block-type=:: '
'--except-block-type=:: '
'--application-data-format=:: '
'--list'
'--remove'
'--remove-all'
'--merge-padding'
'--sort-padding'
)
_arguments "$_metaflac_opts[@]" \
"*:FLAC file:_files -g \*.flac" \
- "shortcuts" \
"$_metaflac_shorts[@]" \
- "(operations)" \
"$_metaflac_opers[@]" \
&& return 0
PK [-< < functions/tcp_expectnu W+A # Expect one of a series of regular expressions from $TCP_SESS.
# Can make backreferences to be handled by $match. Returns 0 for
# successful match, 1 for error, 2 for timeout.
#
# This function has no facility for conditionally calling code based
# the regular expression found. This should be done in the calling code
# by testing $TCP_LINE, which contains the line which matched the
# regular expression. The complete set of lines read while waiting for
# this line is available in the array $tcp_expect_lines (including $TCP_LINE
# itself which will be the final element). Alternatively, use -p pind
# which sets $pind to the index of the pattern which matched. It
# will be set to 0 otherwise.
#
# Many of the options are passed straight down to tcp_read.
#
# Options:
# -a Run tcp_expect across all sessions; the first pattern matched
# from any session is used. The TCP output prompt can be
# used to decide which session matched.
# -l list
# Comma-separated list of sessions as for tcp_read.
# -p pv If the Nth of a series of patterns matches, set the parameter
# whose name is given by $pv to N; in the case of a timeout,
# set it to -1; otherwise (unless the function exited prematurely),
# set it to 0.
# To avoid namespace clashes, the parameter's name must
# not begin with `_expect'.
# -q Quiet, passed down to tcp_read. Bad option and argument
# usage is always reported.
# -s sess
# Expect from session sess. May be repeated for multiple sessions.
# -t to Timeout in seconds (may be floating point) per read operation.
# tcp_expect will only time out if every read operation takes longer
# than to
# -T TO Overall timeout; tcp_expect will time out if the overall operation
# takes longer than this many seconds.
emulate -L zsh
setopt extendedglob
if [[ ${(t)SECONDS} != float* ]]; then
# If called from another function, use that
typeset -F TCP_SECONDS_START=$SECONDS
# Get extra accuracy by making SECONDS floating point locally
typeset -F SECONDS
fi
# Variables are all named _expect_* to avoid problems with the -p param.
local _expect_opt _expect_pvar
local -a _expect_read_args
float _expect_to1 _expect_to_all _expect_to _expect_new_to
integer _expect_i _expect_stat
while getopts "al:p:qs:t:T:" _expect_opt; do
case $_expect_opt in
(a) _expect_read_args+=(-a)
;;
(l) _expect_read_args+=(-l $OPTARG)
;;
(p) _expect_pvar=$OPTARG
if [[ $_expect_pvar != [a-zA-Z_][a-zA-Z_0-9]# ]]; then
print "invalid parameter name: $_expect_pvar" >&2
return 1
fi
if [[ $_expect_pvar = _expect* ]]; then
print "$0: parameter names staring \`_expect' are reserved."
return 1
fi
eval "$_expect_pvar=0"
;;
(q) _expect_read_args+=(-q)
;;
(s) _expect_read_args+=(-s $OPTARG)
;;
(t) _expect_to1=$OPTARG
;;
(T) _expect_to_all=$(( SECONDS + $OPTARG ))
;;
(\?) return 1
;;
(*) print Unhandled option $_expect_opt, complain >&2
return 1
;;
esac
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
typeset -ga tcp_expect_lines
tcp_expect_lines=()
while true; do
if (( _expect_to_all || _expect_to1 )); then
_expect_to=0
(( _expect_to1 )) && (( _expect_to = _expect_to1 ))
if (( _expect_to_all )); then
# overall timeout, see if it has already triggered
if (( (_expect_new_to = (_expect_to_all - SECONDS)) <= 0 )); then
[[ -n $_expect_pvar ]] && eval "$_expect_pvar=-1"
return 2
fi
if (( _expect_to <= 0 || _expect_new_to < _expect_to )); then
_expect_to=$_expect_new_to
fi
fi
tcp_read $_expect_read_args -t $_expect_to
_expect_stat=$?
else
tcp_read $_expect_read_args -b
_expect_stat=$?
fi
if (( _expect_stat )); then
[[ -n $_expect_pvar ]] && eval "$_expect_pvar=-1"
return $_expect_stat
fi
tcp_expect_lines+=($TCP_LINE)
for (( _expect_i = 1; _expect_i <= $#; _expect_i++ )); do
if [[ "$TCP_LINE" = ${~argv[_expect_i]} ]]; then
[[ -n $_expect_pvar ]] && eval "$_expect_pvar=\$_expect_i"
return 0
fi
done
done
PK [&Y functions/_usersnu W+A #compdef passwd groups userdel chage chfn chsh
local expl users
if zstyle -a ":completion:${curcontext}:users" users users; then
_wanted users expl user compadd "$@" -a - users
return 0
fi
_wanted users expl user compadd "$@" -k - userdirs
PK [Vu Vu functions/zsh-newuser-installnu W+A # Function to install startup files for a new user.
# Currently it only creates or edits .zshrc.
#
# It can be run again by giving it the option "-f".
# Sanitize environment.
emulate -L zsh
setopt extendedglob nonomatch warncreateglobal
# How the function will be referred to.
local myname=zsh-newuser-install
# Quick test not requiring any setting up.
# Don't run if we're root. (These variables are provided by the shell.)
if (( EUID == 0 || UID == 0 )); then
if [[ $1 = -f ]]; then
print -r "$myname: won't run as root. Read the manual." >&2
fi
return 1
fi
# clear is missing in some Cygwin configurations (lacking ncurses)
if ! ( clear >/dev/null 2>/dev/null ); then
if zmodload zsh/termcap 2>/dev/null; then
clear() { echotc cl; }
else
clear() { print -n "\e[H\e[J"; }
fi
fi
# The directory in which to look for and save .zshrc.
local zd=${ZDOTDIR:-$HOME}
# The same directory in a user friendly form, i.e. with ~ replacement.
# (We don't want to use glob_subst since that has other side effects.)
local zdmsg
# The message used if an other blank .zshrc is created.
local msg="# Created by newuser for $ZSH_VERSION"
# The lines marking the start and end of the section edited.
local startline="# Lines configured by $myname"
local endline="# End of lines configured by $myname"
# Prompts used for reading a key. The initial "?" is required.
local shortprompt="?--- Type a key --- "
local longprompt="?--- Type one of the keys in parentheses --- "
# Prefix for all temporary files. Any files starting with this
# will be removed at the end of the script.
local tmpfile=${TMPPREFIX:-/tmp/zsh}-zni-$$
# Report of the state of settings for the top-level menu.
local -A install_state
# Values of all parameters etc. to be saved (including
# those read in from the existing file.)
local -A parsed_parameters parsed_options parsed_bindings parsed_keymaps
# Corresponding state in a user-readable form.
local -A state_parameters state_options state_bindings state_keymaps
# Indicate whether an option defaults on or off.
local -A default_options
# Lines read in from between $startline and $endline which were
# not understood. These are retained but moved out of that section
# with a message.
local -a unparsed
# Lines used in submenus: the setting to output in a form
# that can be exeucuted (an assignment, setopt or unsetopt), a brief message
# about the setting, and the state copied from and to state_parameters or
# state_options. Elements of all three arrays must correspond.
local -a output_lines display_lines state_lines
# Variable indicating some of the lines in the above variables
# have been read in, i.e. the user has already configured the
# particular set of settings.
integer lines_read
# Lines to set up completion. This is special as it is only
# edited by compinstall, not this function.
local -a completion_lines
# Utility variables
local -a reply match mbegin mend
# Key read from user, used all over the place.
local key
# For default replies from read
local REPLY
integer save lines_found
install_state[history]=Recommended
install_state[completion]=Recommended
install_state[bindkey]=Recommended
# Don't save anything if interrupted.
trap 'save=0' HUP INT QUIT
# Substitute an initial ~ for human consumption.
if [[ $zd = $HOME(#b)(|/*) ]]; then
zdmsg="~$match[1]"
else
zdmsg=$zd
fi
# Don't run if we can't write to $zd.
# Assume this is a temporary condition and exit silently---
# if this really is a new user this probably isn't the right
# time for screeds of explanation.
if [[ ! -w $zd ]]; then
if [[ $1 = -f ]]; then
print -r "$myname: can't write to $zdmsg." >&2
fi
return 1
fi
# Don't run unless we can talk to the user.
if [[ ! -t 0 || ! -t 1 ]]; then
if [[ $1 = -f ]]; then
print -r "$myname: can only be used interactively." >&2
fi
return 1
fi
# Don't run unless terminal is sane.
if (( ${LINES:-0} < 15 || ${COLUMNS:-0} < 72 )); then
return 1
fi
if [[ $1 != -f ]]; then
# The zsh/newuser module already tests for the following, so this test only
# triggers if zsh-newuser-install is run by hand.
if [[ -e $zd/.zshenv || -e $zd/.zprofile || \
-e $zd/.zshrc || -e $zd/.zlogin ]]; then
print -r "$myname: startup files exist, aborting.
Use the argument -f if you want to force the function to be run again." >&2
return 1
fi
fi
# start of try block for tidy-up in always block
{
########################################################################
# Utility functions
########################################################################
# All internal functions start with __zni_. These will be removed
# when the main function exits.
# Read existing lines from .zshrc, if any.
__zni_retrieve_lines() {
local line
reply=()
lines_found=0
[[ -f $zd/.zshrc ]] || return 1
grep "$startline" $zd/.zshrc 1>/dev/null 2>&1 || return 1
lines_found=1
sed -n "/^[ ]*$startline/,/^[ ]*$endline/p" $zd/.zshrc |
while read -r line; do
reply+=($line)
done
return 0
}
# First argument is a state; other arguments are lines
# to parse. They should either contain single assignments or
# setopt or unsetopt statements. The state for each parameter
# or option so parsed is set to the value given by the first argument.
__zni_parse_lines() {
local line opt warned first
local -a args
local state=$1
shift
for line in "$@"; do
case $line in
((#b)[[:blank:]]#([[:IDENT:]]##)=(*))
parsed_parameters[$match[1]]=$match[2]
state_parameters[$match[1]]=$state
;;
((#b)[[:blank:]]#(un|)setopt[[:blank:]]##(*))
# TBD: handle setopt noX / unsetopt X
for opt in ${=match[2]}; do
opt=${${opt//(#m)[[:upper:]]/${(L)MATCH}}//_}
if [[ $match[1] = un ]]; then
parsed_options[$opt]=off
else
parsed_options[$opt]=on
fi
state_options[$opt]=$state
done
;;
((#b)[[:blank:]]#bindkey[[:blank:]]##(*))
args=(${(z)match[1]})
# store keys unquoted: will need quoting for output.
first=${(Q)args[1]}
shift args
if [[ $first = -[ev] && ${#args} -eq 0 ]]; then
case $first in
(-e)
parsed_keymaps[main]=emacs
;;
(-v)
parsed_keymaps[main]=vi
;;
esac
state_keymaps[main]=$state
else
# TODO: handling keymap options
parsed_bindings[first]=${args[2,-1]}
state_bindings[first]=$state
fi
;;
([[:blank:]]#($startline|$endline|))
;;
(*)
unparsed+=($line)
print -r "WARNING: failed to understand line:
$line
which will be retained but not edited."
warned=1
;;
esac
done
if [[ -n $warned ]]; then
read -k key$shortprompt
fi
}
# Apply defaults. Arguments in the form
# -p parameter_name default_value description
# ...
# -o option_name default=on|off description
# ...
# Options on by default should begin !, e.g. !nomatch. They
# will still appear under the base option but with an indication that
# the default is on. The default applies to the base option. Hack, sorry.
# -b bindkey_string default_value description
# ...
# -B default_keymap=emacs|vi|none description
#
# They're not really defaults (they're not the same as the
# builtin defaults), so the description output is "not yet saved".
#
# All variables to be edited in this section must be mentioned,
# though defaults can be blank in which case nothing will be
# saved unless the variable is set by the user. The description
# is then "no value set".
#
# -B is a bit strange: it's simply designed to allow the user to
# select "bindkey -e" for Emacs or "bindkey -v" for vi. It only
# takes a single argument. Real key bindings use -b.
#
# This operation transfers some subset of settings from the parsed_*
# and state_* variables to the *_lines variables for editing.
__zni_apply_defaults() {
local un suf
# Reset the lines to be edited.
state_lines=()
display_lines=()
output_lines=()
lines_read=0
case $1 in
(-p)
shift
while [[ $# -gt 0 && $1 != -* ]]; do
# skip default if it was read in
if [[ -z $state_parameters[$1] ]]; then
parsed_parameters[$1]=$2
if [[ -n $2 ]]; then
state_parameters[$1]="not yet saved"
else
state_parameters[$1]="no value set"
fi
elif [[ $state_parameters[$1] = saved ]]; then
(( lines_read++ ))
fi
state_lines+=($state_parameters[$1])
display_lines+=("$3")
output_lines+=("$1=$parsed_parameters[$1]")
shift 3
done
;;
(-o)
shift
while [[ $# -gt 0 && $1 != -* ]]; do
# skip default if there was a setting
if [[ $1 != ${1##!} ]]; then
argv[1]=${1##!}
default_options[$1]=on
else
default_options[$1]=off
fi
if [[ -z $state_options[$1] ]]; then
parsed_options[$1]=$2
if [[ -n $2 ]]; then
state_options[$1]="not yet saved"
else
state_options[$1]="no value set"
fi
elif [[ $state_options[$1] = saved ]]; then
(( lines_read++ ))
fi
if [[ $parsed_options[$1] = on ]]; then
un=
suf=
elif [[ -z $parsed_options[$1] && $default_options[$1] = on ]]
then
un=
suf=", default on"
else
# display as unsetopt even if no value to save yet
un=un
suf=
fi
state_lines+=("$state_options[$1]$suf")
display_lines+=("$3")
output_lines+=("${un}setopt $1")
shift 3
done
;;
(-b)
shift
# this will barf on bindings beginning -; there's no good
# reason to rebind that, even in vi command mode, so perhaps
# we just add it to the sanity checks when we get around to them.
while [[ $# -gt 0 && $1 != -* ]]; do
if [[ -z $state_bindings[$1] ]]; then
parsed_bindings[$1]=$2
if [[ -n $2 ]]; then
state_bindings[$1]="not yet saved"
else
state_bindings[$1]="no value set"
fi
elif [[ $state_bindings[$1] = saved ]]; then
(( lines_read++ ))
fi
state_lines+=($state_bindings[$1])
display_lines+=("$3")
output_lines+=("bindkey ${(qq)1}${2:+ $2}")
shift 3
done
;;
(-B)
shift
if [[ -z $state_keymaps[main] ]]; then
parsed_keymaps[main]=$1
if [[ $1 = none ]]; then
state_keymaps[main]="no value set"
else
state_keymaps[main]="not yet saved"
fi
elif [[ $state_keymaps[main] = saved ]]; then
(( lines_read++ ))
fi
state_lines+=($state_keymaps[main])
display_lines+=("$2")
# display as -e even if no value to save yet
if [[ $parsed_keymaps[main] = vi ]]; then
output_lines+=("bindkey -v")
else
output_lines+=("bindkey -e")
fi
shift 2
;;
esac
}
# Display and edit the settings given by the set of *_lines arrays.
# If requested by the user, apply the settings, updating the
# parsed_* and state_* variables.
__zni_display_and_edit() {
integer i changes
local default edval ldisp rdisp
local -a states displays outputs tstval
states=("${state_lines[@]}")
displays=("${display_lines[@]}")
outputs=("${output_lines[@]}")
if [[ -n ${states[(r)not yet saved]} ]]; then
# default should be installed, unless user says otherwise
(( changes++ ))
fi
while true; do
clear
print -r $1
# snicker...
print -r ${(l.${#1}..=.):-}
print
if (( $# > 1 )); then
print -rl $argv[2,-1]
print
fi
# Output each setting with a description and state.
for (( i = 1; i <= ${#output_lines}; i++ )); do
default=${states[$i]%%,*}
if [[ $default = ("no value set"|"not to be saved"*) ]]; then
ldisp="# $outputs[$i]"
else
ldisp=$outputs[$i]
fi
rdisp=${default:+($default)}
print -r "# ($i) $displays[$i]
$ldisp${(l.$COLUMNS-${#ldisp}-${#rdisp}-1.):-}$rdisp"
done
if (( changes )); then
print -r "
# (0) Remember edits and return to main menu (does not save file yet)
# (q) Abandon edits and return to main menu
"
else
print -r "
# (0) or (q) Return to main menu (no changes made yet)
"
fi
read -k key$longprompt
print
if [[ $key = <-> && $key -ge 1 && $key -le ${#outputs} ]]; then
(( i = key ))
case $outputs[$i] in
((#b)(|un)setopt' '(*))
# Try to locate the appropriate section in the manual.
# I personally have no wish whatsoever to make this
# use sed or awk. Suggestions welcome.
if [[ -s $tmpfile-man-options ]]; then
perl -ne 's/^(\s*)([A-Z]+)_?([A-Z]*)_?([A-Z]*)(\s*\(.+\)|\s*\<.+\>)*\s*$/\L$1$2$3$4\n/ and "'$match[2]'" =~ /^(|no)\L$2$3$4$/ and $print = 1 and next; next unless $print; exit if /^\s*$/; print; ' <$tmpfile-man-options >$tmpfile-man 2>/dev/null
else
rm -f $tmpfile-man
fi
while true; do
clear
if [[ -s $tmpfile-man ]]; then
read <$tmpfile-man
print "Option $match[2]:"
cat $tmpfile-man
print
else
print "Option $match[2]: $displays[$i]"
fi
print "The option $match[2] is currently ${match[1]:+un}set.
Type:
(s) to set it (turn it on)
(u) to unset it (turn it off)
(n) neither to set or unset it (use shell default: \
$default_options[$match[2]])
(k) or (q) to keep the current setting:"
read -k key$shortprompt
print
case $key in
(s)
(( changes++ ))
outputs[$i]="setopt $match[2]"
states[$i]="set but not saved"
;;
(u)
(( changes++ ))
outputs[$i]="unsetopt $match[2]"
states[$i]="set but not saved"
;;
(n)
(( changes++ ))
outputs[$i]="unsetopt $match[2]"
states[$i]="no value set"
;;
([kq])
;;
(*)
continue
;;
esac
break;
done
;;
((#b)([^=]##)=(*))
if [[ -s $tmpfile-man-param ]]; then
perl -ne 's/^(\s*)([A-Z]+)(\s*\<.+\>)*\s*$/$1$2\n/ and "$2" eq "'$match[1]'" and $print = 1; next unless $print; exit if /^\s*$/; print;' <$tmpfile-man-param >$tmpfile-man 2>/dev/null
else
rm -f $tmpfile-man
fi
if [[ -s $tmpfile-man ]]; then
print -n Variable
cat $tmpfile-man
print
else
print -r "Variable ${match[1]}: $displays[$i]"
fi
print -r "Edit a value. If it is left blank, nothing will be saved:"
edval=$match[2]
if vared -p "$match[1]> " -h edval; then
# check this assignment doesn't produce multiple words
# e.g. "HISTFILE=never rm -f ~" does produce multiple words...
# this isn't perfect, e.g. "(this would get split on assignment)",
# but that's fairly benign.
tstval=(${=edval})
if (( ${#tstval} > 1 )); then
print "Error: value isn't a single word.
Use quotes or backslashes if your value contains spaces.
Note that you shouldn't quote an initial ~ in file names." >&2
read -k key$shortprompt
# now check the assignment works...
# don't suppress any errors, they may be useful.
# this means we need to suppress warncreateglobal.
elif ! ( typeset -g $match[1]; eval "$match[1]=$edval" ); then
print "Error: bad shell syntax in value.
The value will be assigned to the variable exactly as you enter it.
Make sure all quotes are paired." >&2
read -k key$shortprompt
else
outputs[$i]="$match[1]=$edval"
if [[ -n $edval ]]; then
states[$i]="set but not saved"
else
states[$i]="no value set"
fi
(( changes++ ))
fi
else
read -k key'?--- Edit abandoned, type a key --- '
fi
;;
(bindkey' '-[ev])
while true; do
print -nr "Pick a keymap (set of keys) to use when editing.
Type:
(e) for Emacs keymap (recommended unless you are vi user)
(v) for Vi keymap
(n) not to set a keymap (allow shell to choose)
(k) to keep the current setting, "
if [[ ${state_lines[$i]%%,*} = ("no value set"|"not to be saved") ]]
then
print -r "(n):"
elif [[ $output_lines[$i] = *-v ]]; then
print -r "(v):"
else
print -r "(e):"
fi
read -k key$longprompt
case $key in
(e)
(( changes++ ))
outputs[$i]="bindkey -e"
states[$i]="set but not saved"
;;
(v)
(( changes++ ))
outputs[$i]="bindkey -v"
states[$i]="set but not saved"
;;
(n)
(( changes++ ))
outputs[$i]="bindkey -e"
states[$i]="not to be saved"
;;
(k)
;;
(*)
continue
;;
esac
break
done
;;
(bindkey' '*)
# TODO: this needs writing. We need to be able to read
# keys and translate them, sanity check them, and ideally
# handle keymaps, at least vi command and insert.
;;
(*)
print "*** Internal error: bad setting '$outputs[$i]' ***" >&2
read -k key'?--- Type a key in forlorn hope --- '
;;
esac
elif [[ $key = 0 ]]; then
# Update the *_lines variables
state_lines=("${states[@]}")
display_lines=("${displays[@]}")
output_lines=("${outputs[@]}")
# Also save any lines suitably marked to parsed_* and state_*
# by rerunning __zni_parse_lines on each such line.
for (( i = 1; i <= ${#output_lines}; i++ )); do
if [[ ${state_lines[$i]%%,*} = \
("set but not saved"|"not to be saved"|"not yet saved") ]]
then
__zni_parse_lines ${state_lines[$i]%%,*} $output_lines[$i]
fi
done
return $(( changes == 0 ))
elif [[ $key = [qQ] ]]; then
return 1
fi
done
}
# Print and despatch a submenu.
# The first argument is the title. The remaining arguments
# are pairs of descriptions and functions to execute.
# There shouldn't be more than 9 entries.
# The usual entries 0 and q are added automatically.
__zni_submenu() {
local title=$1
local desc func
local -a descs funcs
integer i
shift
clear
print -r $title
print -r ${(l.${#title}..=.):-}
for desc func; do
if [[ -z $func ]]; then
print "*** Internal error: bad argument set for __zni_submenu ***" >&2
read -k key'?--- Type a key in forlorn hope --- '
return 1
fi
descs+=($desc)
funcs+=($func)
done
while true; do
for (( i = 1; i <= ${#descs}; i++ )); do
print -r "
($i) $descs[$i]"
done
print -r "
(0) or (q) Return to previous menu"
read -k key$longprompt
if [[ $key = [0qQ] ]]; then
return 1
elif (( key >= 1 && key <= ${#funcs} )); then
$funcs[$key]
fi
done
}
# Save all values that have been edited to .zshrc.
__zni_save() {
local key optline newline
local -a on_opts off_opts lines lines2
integer i
# Record lines containing parameter settings, sorted.
for key in ${(ok)parsed_parameters}; do
if [[ $state_parameters[$key] != ("no value set"|"not to be saved") ]]
then
lines+=("$key=$parsed_parameters[$key]")
fi
done
# Search through sorted options, make list of those to
# be turned on and off. Those marked "no value set" aren't
# to be output.
for key in ${(ok)parsed_options}; do
if [[ $state_options[$key] != ("no value set"|"not to be saved") ]]; then
if [[ $parsed_options[$key] = on ]]; then
on_opts+=($key)
else
off_opts+=($key)
fi
fi
done
# Construct lines of options to turn on, keeping them short.
optline="setopt"
for (( i = 1; i <= ${#on_opts}; i++ )); do
newline="$optline $on_opts[$i]"
if [[ ${#newline} -ge 72 ]]; then
lines+=($optline)
optline="setopt $on_opts[$i]"
else
optline=$newline
fi
if (( i == ${#on_opts} )); then
lines+=($optline)
fi
done
# Construct lines of options to turn off, keeping them short.
optline="unsetopt"
for (( i = 1; i <= ${#off_opts}; i++ )); do
newline="$optline $off_opts[$i]"
if [[ ${#newline} -ge 72 ]]; then
lines+=($optline)
optline="unsetopt $off_opts[$i]"
else
optline=$newline
fi
if (( i == ${#off_opts} )); then
lines+=($optline)
fi
done
# Construct lines of bindkey commands. First the keymap.
if [[ $state_keymaps[main] != (|"no value set"|"not to be saved") ]]; then
case $parsed_keymaps[main] in
(emacs)
lines+=("bindkey -e")
;;
(vi)
lines+=("bindkey -v")
;;
(none)
;;
(*)
print -r "\
*** Internal error: bad type $parsed_keymaps[main] for keymap ***" >&2
read -k key'?--- Type a key in forlorn hope --- '
;;
esac
fi
# Now bindings.
for key in ${(ok)parsed_bindings}; do
if [[ $state_bindings[$key] != ("no value set"|"not to be saved") ]]; then
lines+=("bindkey ${(qq)key} ${parsed_bindings[$key]}")
fi
done
# Save the lines with a start and end marker to a temporary file.
print -rl $startline $lines $endline >$tmpfile
if (( ${#unparsed} )); then
print "# The following lines were read by $myname.
# They were moved here as they could not be understood.
# $(date)
${(F)unparsed}
# End of lines moved by $myname." >>$tmpfile
fi
if grep "$startline" $zd/.zshrc 1>/dev/null 2>&1; then
# Found the start line; replace the section.
# We could this by reading the lines in zsh, but in case
# the .zshrc is huge it's perhaps better to use sed.
sed -e "/^[ ]*$endline/r $tmpfile
/^[ ]*$startline/,/^[ ]*$endline/d" $zd/.zshrc >${tmpfile}.repl &&
cp ${tmpfile}.repl $zd/.zshrc
else
# No current start marker; just append.
cat $tmpfile >>$zd/.zshrc
fi
}
########################################################################
# Specific configurations
########################################################################
__zni_history_config() {
__zni_apply_defaults -p \
HISTSIZE 1000 "Number of lines of history kept within the shell." \
HISTFILE $zdmsg/.histfile "File where history is saved." \
SAVEHIST 1000 "Number of lines of history to save to \$HISTFILE."
if __zni_display_and_edit "History configuration"; then
install_state[history]="Unsaved changes"
save=1
fi
}
__zni_completion_config() {
autoload -Uz compinstall
if compinstall -d; then
print "The completion system has already been activated.
You can run the configuration tool (compinstall) at any time by typing
autoload -Uz compinstall
compinstall
Do you wish to run it now [y/n]?"
read -k key$shortprompt
if [[ $key = [yY] ]]; then
compinstall
fi
print
else
while true; do
clear
print "The new completion system (compsys) allows you to complete
commands, arguments and special shell syntax such as variables. It provides
completions for a wide range of commonly used commands in most cases simply
by typing the TAB key. Documentation is in the zshcompsys manual page.
If it is not turned on, only a few simple completions such as filenames
are available but the time to start the shell is slightly shorter.
You can:
(1) Turn on completion with the default options.
(2) Run the configuration tool (compinstall). You can also run
this from the command line with the following commands:
autoload -Uz compinstall
compinstall
if you don't want to configure completion now.
(0) Don't turn on completion.
"
read -k key$longprompt
case $key in
(1)
completion_lines=${(f)"$(compinstall -o)"}
install_state[completion]="Unsaved changes"
save=1
;;
(2)
if compinstall; then
install_state[completion]="Configured"
# compinstall has done it's thing, so we don't need
# to write anything.
completion_lines=()
fi
;;
(0)
completion_lines=()
install_state[completion]="Recommended"
;;
(*)
continue
;;
esac
break
done
fi
}
__zni_bindkey_config() {
__zni_apply_defaults -B emacs "Change default editing configuration"
if __zni_display_and_edit "Default editing configuration" \
"The keys in the shell's line editor can be made to behave either" \
"like Emacs or like Vi, two common Unix editors. If you have no" \
"experience of either, Emacs is recommended. If you don't pick one," \
"the shell will try to guess based on the EDITOR environment variable." \
"Usually it's better to pick one explicitly."; then
install_state[bindkey]="Unsaved changes"
save=1
fi
}
__zni_completion_save() {
if (( ${#completion_lines} )); then
# We don't try to replace existing lines of completion configuration ---
# that's up to compinstall. We should already have tested that
# there was no existing completion set up.
print -rl $completion_lines >>$zd/.zshrc
fi
}
__zni_options_config() {
# when we have enough, should use:
# __zni_submenu "Common shell options"
# This is deliberately just a tiny selection.
# Feel free to extend it, but if you do, consider using __zni_submenu.
# The "no" prefix is used to indicate options on by default.
__zni_apply_defaults -o autocd '' "Change directory given just path." \
extendedglob '' "Use additional pattern matching features." \
appendhistory '' "Append new history lines instead of overwriting." \
'!nomatch' '' "Unmatched patterns cause an error." \
'!beep' '' "Beep on errors." \
notify '' "Immediately report changes in background job status."
if __zni_display_and_edit "Common shell options" \
"The following are some of the shell options that are most often used." \
"The descriptions are very brief; if you would like more information," \
"read the zshoptions manual page (type \"man zshoptions\")."; then
install_state[options]="Unsaved changes"
save=1
fi
}
########################################################################
# Main function
########################################################################
# Read and parse any existing lines, in case the function
# was called again.
__zni_retrieve_lines &&
__zni_parse_lines saved "$reply[@]"
if [[ $state_parameters[HISTORY] = saved ]]; then
install_state[history]="Saved"
fi
autoload -Uz compinstall
zstyle :compinstall filename $zd/.zshrc
if compinstall -d; then
install_state[completion]="Saved"
fi
# skip initial screen if the function was deliberately run by the user.
if [[ $1 != -f ]]; then
clear
print -r "This is the Z Shell configuration function for new users,
$myname.
You are seeing this message because you have no zsh startup files
(the files .zshenv, .zprofile, .zshrc, .zlogin in the directory
$zdmsg). This function can help you with a few settings that should
make your use of the shell easier.
You can:
(q) Quit and do nothing. The function will be run again next time."
if [[ ! -f $zd/.zshrc ]]; then
print -r "
(0) Exit, creating the file $zdmsg/.zshrc containing just a comment.
That will prevent this function being run again."
fi
print -r "
(1) Continue to the main menu.
"
if [[ -f /etc/zsh/newuser.zshrc.recommended ]]; then
print -r "(2) Populate your $zdmsg/.zshrc with the configuration recommended
by the system administrator and exit (you will need to edit
the file by hand, if so desired).
"
fi
read -k key$longprompt
print
case $key in
([qQ])
return 0
;;
(0)
print -r $msg >$zd/.zshrc
return 0
;;
(1)
;;
(2)
cp /etc/zsh/newuser.zshrc.recommended $zd/.zshrc
source $zd/.zshrc
return 0
;;
(*)
print -r "Aborting."
if [[ $1 != -f ]]; then
print "\
The function will be run again next time. To prevent this, execute:
touch $zdmsg/.zshrc"
fi
return 1
;;
esac
fi
print -r "Attempting to extract information from manual pages..."
(man zshoptions | col -b > $tmpfile-man-options;
man zshparam | col -b > $tmpfile-man-param) 2>/dev/null
while true; do
clear
print -nr "Please pick one of the following options:
(1) Configure settings for history, i.e. command lines remembered
and saved by the shell.\
${install_state[history]:+ ($install_state[history].)}
(2) "
if [[ $install_state[completion] = Recommended ]]; then
print -nr "Configure"
else
print -nr "Use"
fi
print -r " the new completion system.\
${install_state[completion]:+ ($install_state[completion].)}
(3) Configure how keys behave when editing command lines.\
${install_state[bindkey]:+ ($install_state[bindkey].)}
(4) Pick some of the more common shell options. These are simple \"on\"
or \"off\" switches controlling the shell's features. \
${install_state[options]:+ ($install_state[options].)}
"
print -nr "(0) Exit, "
if (( save )); then
print -r "saving the new settings. They will take effect immediately."
elif [[ -f $zd/.zshrc ]]; then
print -r "leaving the existing $zdmsg/.zshrc alone."
else
print -r "creating a blank $zdmsg/.zshrc file."
fi
print -r "
(a) Abort all settings and start from scratch. Note this will overwrite
any settings from $myname already in the startup file.
It will not alter any of your other settings, however."
if [[ $1 = -f ]]; then
print -r "
(q) Quit and do nothing else."
else
print -r "
(q) Quit and do nothing else. The function will be run again next time."
fi
read -k key$longprompt
print
case $key in
([qQ])
break
;;
([aA])
parsed_parameters=()
state_parameters=()
parsed_options=()
state_options=()
parsed_keymaps=()
state_keymaps=()
parsed_bindings=()
state_bindings=()
unparsed=()
;;
(0)
clear
if (( save )); then
if [[ -f $zd/.zshrc ]]; then
cp $zd/.zshrc $zd/.zshrc.zni &&
print -r "Copied old '$zdmsg/.zshrc' to '$zdmsg/.zshrc.zni'.
"
fi
__zni_save
__zni_completion_save
elif [[ ! -f $zd/.zshrc ]]; then
print -r $msg >$zd/.zshrc
fi
if [[ $1 != -f ]]; then
print -r "The function will not be run in future, but you can run
it yourself as follows:
autoload -Uz $myname
$myname -f
The code added to $zdmsg/.zshrc is marked by the lines
$startline
$endline
You should not edit anything between these lines if you intend to
run $myname again. You may, however, edit any other part
of the file."
fi
break
;;
(1)
__zni_history_config
;;
(2)
__zni_completion_config
;;
(3)
__zni_bindkey_config
;;
(4)
__zni_options_config
;;
esac
done
} always {
# Tidy up: always executed unless the shell is stopped dead
# in its tracks.
unfunction -m $myname __zni_\*
rm -f $tmpfile*
}
PK [ (` ` functions/_sisunu W+A #compdef sisu
local curcontext="$curcontext" state line ret=1
typeset -A opt_args
_arguments -s -C -M 'r:|[_-]=* r:|=*' \
'(--convert --to -C)-U[prints to screen url output map of available output possibilities]' \
'(--convert --to -C)-u[url mapping of output files for requested processing flags]' \
'(--convert --to -C)-V[more verbose than -v]' \
'(--convert --to -C)-v[verbose]' \
'--no-ocn[-\[hHp\]switches off object citation numbering]' \
'--no-annotate[-\[mhHpoxXabN\] strips output text of additional editors endnotes]' \
'(--convert --to -C)-A[plaintext with dos line-feeds, footnotes follow paragraphs in which they occur]' \
'(--convert --to -C)-a[plaintext with Unix line-feeds, footnotes follow paragraphs in which they occur]' \
'(--convert --to -C)-b[XHTML output]' \
'(- *)-C[initialise site]' \
'(--convert --to -C)-c[toggle screen color on or off depending on set default]' \
'(--convert --to -C)-E[plaintext with dos line-feeds, endnotes following main text]' \
'(--convert --to -C)-e[plaintext with Unix line-feeds, endnotes following main text]' \
'(--convert --to -C)-F[generate sample cgi web search form \[--webserv=webrick for sisu webrick url\]]' \
'(--convert --to -C -h)-H[HTML output, without link suffixes]' \
'(--convert --to -C -H)-h[HTML output]' \
'(--convert --to -C)-I[texinfo output, not maintained]' \
'(--convert --to -C)-L[print license info]' \
'(--convert --to -C)-M[maintenance mode, retain intermediate processing files]' \
'(--convert --to -C)-m[create intermediate markup file, metaverse, assumed for most output instuctions]' \
'(--convert --to -C)-N[document content certificate, output document digests]' \
'(--convert --to -C)-n[skip intermediate markup, skip -m]' \
'(--convert --to -C)-o[Open Document text format output]' \
'(--convert --to -C)-p[LaTeX pdf output]' \
'(--convert --to -C)-q[quiet mode]' \
'(--convert --to -C)-R[post output to remote host using rsync, requires pre-configuration]' \
'(--convert --to -C)-r[post output to remote host using scp, requires pre-configuration]' \
'(--convert --to -C)-S[produces and shares tarred gzipped markup source document with associated images etc.]' \
'(--convert --to -C)-s[shares markup source]' \
'(--convert --to -C)-t[termsheet, preprocessing]' \
'(- *)-W[starts ruby webrick server]' \
'(--convert --to -C)-w[concordance file]' \
'(--convert --to -C)-X[XML dom style]' \
'(--convert --to -C)-x[XML sax style]' \
'(--convert --to -C)-y[output summary page, manifest of existing generated output]' \
'(--convert --to -C)-Z[zap delete/destroy output]' \
'--import[-\[Dd\] imports document to database]' \
'--update[-\[Dd\] updates document in database]' \
'--remove[-\[Dd\] removes document from database]' \
'--dropall[-\[Dd\] drops database, tables, indexes, all!]' \
'--create[-\[Dd\] creates new database - tables, indexes, etc.]' \
'--recreate[-\[Dd\] drops database, killing data and creates new empty database - tables, indexes, etc.]' \
'(--convert --to -C)-D[postgresql database instruction]' \
'(--convert --to -C)-d[sqlite database instruction]' \
'(- *)--help[display help information]' \
'(--convert --to -C -2 -3 -4 -5)-1[shortcut, initial default -mNHwpy]' \
'(--convert --to -C -1 -3 -4 -5)-2[shortcut, initial default -mNHwpaoy]' \
'(--convert --to -C -1 -2 -4 -5)-3[shortcut, initial default -mNHwpaobxXy]' \
'(--convert --to -C -1 -2 -3 -5)-4[shortcut, initial default -mNHwpaobxXDy --import]' \
'(--convert --to -C -1 -2 -3 -4)-5[shortcut, initial default -mNHwpaobxXDy --update]' \
'--to=node[XML node based input representation, experimental]' \
'--to=sax[XML sax based input representation, experimental]' \
'--to=dom[XML dom based input representation, experimental]' \
'--convert=footnotes[embedded footnotes]' \
'--to=current[current markup]' \
'*:SiSU files:_files -g "*.(sst|ssm)(.)"'
PK [,
yx x functions/_x_localenu W+A #autoload
local x="$argv[(I)-X]"
if (( x )); then
_message -r "$argv[x + 1]"
else
_message -e locales 'locale'
fi
PK [y functions/_file_systemsnu W+A #autoload
local expl fss
case $OSTYPE in
aix*) fss=( jfs nfs cdrfs ) ;;
irix*) fss=( efs proc fd nfs iso9660 dos hfs cachefs xfs ) ;;
linux*)
typeset -aU fss
fss=( adfs bfs cramfs ext2 ext3 hfs hpfs iso9660 minix ntfs qnx4
reiserfs romfs swap udf ufs vxfs xfs xiafs )
[[ -r /proc/filesystems ]] &&
fss+=( ${$(/dev/null)"}[2,-1]%% *} && ret=0
elif (( CURRENT == 3 )); then
case $subcmd in
addif|delif)
_net_interfaces && ret=0
;;
setageing|setgcint|setfd|sethello|setmaxage)
_message -e time 'time (seconds)'
;;
setbridgeprio)
_message -e priority 'priority'
;;
setpathcost|setportprio)
_message -e ports 'port'
;;
stp)
_wanted states expl 'state' compadd on off && ret=0
;;
*)
_message 'unknown subcommand: $subcmd'
;;
esac
elif (( CURRENT == 4 )); then
if [[ $subcmd == setpathcost ]]; then
_message -e cost 'cost'
elif [[ $subcmd == setportprio ]]; then
_message -e priority 'priority'
fi
fi
fi
return ret
PK [N, , functions/history-search-endnu W+A # function history-search-end {
#
# This implements functions like history-beginning-search-{back,for}ward,
# but takes the cursor to the end of the line after moving in the
# history, like history-search-{back,for}ward. To use them:
# zle -N history-beginning-search-backward-end history-search-end
# zle -N history-beginning-search-forward-end history-search-end
# bindkey '...' history-beginning-search-backward-end
# bindkey '...' history-beginning-search-forward-end
integer cursor=$CURSOR mark=$MARK
if [[ $LASTWIDGET = history-beginning-search-*-end ]]; then
# Last widget called set $MARK.
CURSOR=$MARK
else
MARK=$CURSOR
fi
if zle .${WIDGET%-end}; then
# success, go to end of line
zle .end-of-line
else
# failure, restore position
CURSOR=$cursor
MARK=$mark
return 1
fi
# }
PK [Z9 9 functions/tetrisnu W+A # Someone once accused zsh of not being as complete as Emacs, because it
# lacks Tetris and an adventure game.
#
# autoload -Uz tetris
# zle -N tetris
# bindkey '...' tetris
emulate -L zsh
tetris_hsz=11
tetris_vsz=20
typeset -ga tetris_shapes
tetris_shapes=(
0x0f00 0x4444 0x0f00 0x4444
0x4e00 0x4c40 0x0e40 0x4640
0x6600 0x6600 0x6600 0x6600
0x4620 0x6c00 0x4620 0x6c00
0x2640 0x6300 0x2640 0x6300
0x6440 0x8e00 0x44c0 0x0e20
0xc440 0x0e80 0x4460 0x2e00
)
typeset -gA tetris_rotations
tetris_rotations=(
0x0f00 0x4444 0x4444 0x0f00
0x4e00 0x4c40 0x4c40 0x0e40 0x0e40 0x4640 0x4640 0x4e00
0x6600 0x6600
0x4620 0x6c00 0x6c00 0x4620
0x2640 0x6300 0x6300 0x2640
0x6440 0x8e00 0x8e00 0x44c0 0x44c0 0x0e20 0x0e20 0x6440
0xc440 0x0e80 0x0e80 0x4460 0x4460 0x2e00 0x2e00 0xc440
)
tetris_blankline=
for ((tetris_i=tetris_hsz; tetris_i--; )); do
tetris_blankline="$tetris_blankline "
done
tetris_blankboard=
for ((tetris_i=tetris_vsz; tetris_i--; )); do
tetris_blankboard="$tetris_blankboard$tetris_blankline"
done
bindkey -N tetris
bindkey -R -M tetris '\000-\377' tetris-timeout
for ((tetris_i=256; tetris_i--; )); do
bindkey -M tetris 'T\'$(([##8]tetris_i)) tetris-timeout
done
bindkey -M tetris Ta tetris-left
bindkey -M tetris Tj tetris-left
bindkey -M tetris Ts tetris-rotate
bindkey -M tetris Tk tetris-rotate
bindkey -M tetris Td tetris-right
bindkey -M tetris Tl tetris-right
bindkey -M tetris 'T ' tetris-drop
bindkey -M tetris Tq tetris-quit
unset tetris_board tetris_score
zle -N tetris
function tetris {
emulate -L zsh
if ! zle; then
print -u2 "Use M-x tetris RET to play tetris."
return 2
fi
tetris_saved_state="BUFFER=${BUFFER:q};CURSOR=${CURSOR:q};MARK=${MARK:q};zle -K ${KEYMAP:q}"
tetris_speed=$((100.0/KEYTIMEOUT))
zle -K tetris
if [[ ${tetris_board+set} == set ]]; then
tetris-timeout
else
tetris_board=$tetris_blankboard
tetris_score=0
tetris-new-block
fi
}
function tetris-new-block {
emulate -L zsh
tetris_block=$tetris_shapes[1+RANDOM%$#tetris_shapes]
tetris_block_y=0
tetris_block_x=4
if ! tetris-block-fits; then
tetris-place-block "#"
tetris-render-screen
unset tetris_board tetris_score
tetris-quit
return
fi
tetris-place-block "*"
tetris-timed-move
}
zle -N tetris-left
function tetris-left {
emulate -L zsh
tetris-place-block " "
(( tetris_block_x-- ))
tetris-block-fits || (( tetris_block_x++ ))
tetris-place-block "*"
tetris-timeout
}
zle -N tetris-right
function tetris-right {
emulate -L zsh
tetris-place-block " "
(( tetris_block_x++ ))
tetris-block-fits || (( tetris_block_x-- ))
tetris-place-block "*"
tetris-timeout
}
zle -N tetris-rotate
function tetris-rotate {
emulate -L zsh
tetris-place-block " "
local save_block=$tetris_block
tetris_block=$tetris_rotations[$tetris_block]
tetris-block-fits || tetris_block=$save_block
tetris-place-block "*"
tetris-timeout
}
zle -N tetris-drop
function tetris-drop {
emulate -L zsh
tetris-place-block " "
((tetris_block_y++))
while tetris-block-fits; do
((tetris_block_y++))
done
((tetris_block_y--))
tetris-block-dropped
}
zle -N tetris-timeout
function tetris-timeout {
emulate -L zsh
tetris-place-block " "
((tetris_block_y++))
if tetris-block-fits; then
tetris-place-block "*"
tetris-timed-move
return
fi
((tetris_block_y--))
tetris-block-dropped
}
function tetris-block-dropped {
emulate -L zsh
tetris-place-block "O"
local fl=${tetris_blankline// /O} i=$((tetris_block_y*tetris_hsz)) y
for ((y=0; y!=4; y++)); do
if [[ $tetris_board[i+1,i+tetris_hsz] == $fl ]]; then
tetris_board[i+1,i+tetris_hsz]=
tetris_board=$tetris_blankline$tetris_board
((tetris_score++))
fi
((i += tetris_hsz))
done
tetris-new-block
}
function tetris-block-fits {
emulate -L zsh
local y x i=$((1+tetris_block_y*tetris_hsz+tetris_block_x)) b=0x8000
for ((y=0; y!=4; y++)); do
for ((x=0; x!=4; x++)); do
if ((tetris_block&b)); then
((x+tetris_block_x >= 0)) || return 1
((x+tetris_block_x < tetris_hsz)) || return 1
((y+tetris_block_y >= 0)) || return 1
((y+tetris_block_y < tetris_vsz)) || return 1
[[ $tetris_board[i] == " " ]] || return 1
fi
((b >>= 1))
((i++))
done
((i+=tetris_hsz-4))
done
return 0
}
function tetris-place-block {
emulate -L zsh
local y x i=$((1+tetris_block_y*tetris_hsz+tetris_block_x)) b=0x8000
for ((y=0; y!=4; y++)); do
for ((x=0; x!=4; x++)); do
((tetris_block&b)) && tetris_board[i]=$1
((b >>= 1))
((i++))
done
((i+=tetris_hsz-4))
done
}
function tetris-timed-move {
emulate -L zsh
tetris-render-screen
LBUFFER=
RBUFFER=$'\n'$tetris_screen
zle -R
zle -U T
}
function tetris-render-screen {
emulate -L zsh
setopt extendedglob
local s i extras
extras=(
"Score: $tetris_score"
""
"Game parameters: ${tetris_hsz}x$tetris_vsz, ${tetris_speed}Hz"
""
"Keys: left: a j"
" rotate: s k"
" right: d l"
" drop: space"
" quit: q"
)
for ((i=0; i!=tetris_vsz; i++)); do
s="$s|${${${${${tetris_board[1+i*tetris_hsz,(i+1)*tetris_hsz]}//O/()}//\*/**}// / }//\#/##}|"${extras[1]+ $extras[1]}$'\n'
extras[1]=()
done
s="$s+${tetris_blankline// /--}+"
tetris_screen=$s
}
zle -N tetris-quit
function tetris-quit {
emulate -L zsh
if [[ ! -o always_last_prompt ]]; then
BUFFER=
zle -M $tetris_screen
fi
eval $tetris_saved_state
if [[ -o always_last_prompt ]]; then
zle -M $tetris_screen
fi
}
tetris "$@"
PK [Vۮ functions/which-commandnu W+A zmodload -i zsh/parameter zsh/zutil
zle -I
local -a whencecmd wds
# Set the whence style to your favourite function
# (but NOT which-command!)
zstyle -a :zle:$WIDGET whence whencecmd || whencecmd=(whence -c --)
wds=(${(z)LBUFFER})
local wd barewd
local -A seen
while true; do
wd=${wds[1]}
barewd=${(Q)wd}
if [[ $barewd != $wd || -n $seen[$barewd] ]]; then
# quoted or already expanded, see if original word is an alias...
if [[ -z $seen[$barewd] && -n $aliases[$wd] ]]; then
# yes, so we need to decode that, with no extra expansion...
$whencecmd $wd
seen[$wd]=1
wds=(${(z)aliases[$wd]})
continue
else
# use unquoted word, don't expand alias
(unalias -- $barewd 2>/dev/null; $whencecmd $barewd)
fi
else
# turn on globsubst for =ls etc.
$whencecmd ${~barewd}
if [[ -n $aliases[$barewd] && -z $seen[$barewd] ]]; then
# Recursively expand aliases
seen[$barewd]=1
wds=(${(z)aliases[$barewd]})
continue
fi
fi
break
done
PK [yak
functions/_idnu W+A #compdef id
_arguments \
'-a[no-op]' \
'(-Z --context)'{-Z,--context}'[print only context]' \
'(-g --group)'{-g,--group}'[print only EGID]' \
'(-G --groups)'{-G,--groups}'[print all GIDs]' \
'(-n --name)'{-n,--name}'[print name instead of number]' \
'(-r --real)'{-r,--real}'[print real ID instead of effective]' \
'(-u --user)'{-u,--user}'[print only EUID]' \
'--help[display help]' \
'--version[display version]' \
':user:_users'
PK [ZA functions/_schrootnu W+A #compdef schroot
local expl context state line
typeset -A opt_args
_arguments -S \
'(-h --help)'{-h,--help}'[help]' \
'(-a --all)'{-a,--all}'[select all chroots and active sessions]' \
'--all-chroots[select all chroots]' \
'--all-sessions[select all active sessions]' \
'*'{-c,--chroot=}'[use specified chroot]:chroot:->chroot' \
'(-d --directory)'{-d,--directory=}'[directory to use]:dir:_files -W / -P /' \
'(-u --user)'{-u,--user=}'[username (default current user)]:user:_users' \
'(-l --list)'{-l,--list}'[list available chroots]' \
'(-i --info)'{-i,--info}'[show information about selected chroots]' \
'--location[print location of selected chroots]' \
'--config[dump configuration of selected chroots]' \
'(-p --preserve-environment)'{-p,--preserve-environment}'[preserve user environment]' \
'(-q --quiet)'{-q,--quiet}'[quiet]' \
'(-v --verbose)'{-v,--verbose}'[verbose]' \
'(-V --version)'{-V,--version}'[version]' \
'(-b --begin-session)'{-b,--begin-session}'[begin a session; returns a session ID]' \
'--recover-session[recover an existing session]' \
'(-e --end-session)'{-e,--end-session}'[end an existing session]' \
'(-f --force)'{-f,--force}'[force operation]' \
'(-):command name: _command_names -e' \
'*::arguments: _normal' && return 0
case "$state" in
(chroot)
_wanted tag expl 'chroot' \
compadd $(schroot -l -a)
;;
esac
PK [; functions/_mozillanu W+A #compdef mozilla mozilla-firefox mozilla-xremote-client firefox iceweasel=firefox
local curcontext="$curcontext" state line expl ret=1 suf
typeset -A opt_args
local popts="-installer -CreateProfile -P -ProfileWizard -ProfileManager -SelectProfile"
local -a mozopts
if [[ $service = *remote* ]]; then
state=remote
else
if [[ $service = *firefox* ]]; then
mozopts=(
'-browser[open browser window]' \
'-console[start with debugging console]' \
'-h[output help message]' \
'-help[output help message]' \
'-inspector[start with DOM Inspector]:URL to inspect:->location' \
'-install-global-extension[install an extension]:extension to install:_files' \
'-new-window[load URL in new window]:URL to load:->location' \
'-new-tab[load URL in new tab]:URL to load:->location' \
'-no-remote[run with multiple profiles]' \
'-profile[specify profile file]:profile file:_files' \
'-v[show version]' \
'-version[show version]' \
'-safe-mode[disable extensions and themes for this session]'
)
else
mozopts=(
"($popts)-installer[start with 4.x migration window]"
"($popts)-ProfileWizard[start with profile wizard]"
"($popts)-SelectProfile[start with profile selection dialog]"
'-splash[enable splash screen]'
'-chat[start with IRC client]'
'-news[start with news]'
'-venkman[start with JavaScript debugger]'
'-terminal[start with command line terminal]'
'-mail[start with mail]'
'-compose[start with messenger compose]:URL:_urls'
)
fi
_x_arguments -C $mozopts \
'-height[height of startup window]:height' \
'(-)'{-h,-help}'[show usage message]' \
"($popts)-CreateProfile:profile" \
'-width[width of startup window]:width' \
'(-)'{-v,-version}'[show the version number and build date]' \
"($popts)-P[start with profile]:profile:->profile" \
"($popts)-ProfileManager[start with profile manager]" \
'-UILocale:locale' \
'-contentLocale:locale' \
'-remote[execute a command in an existing Mozilla]:remote command:->remote' \
'-jsconsole[start with JavaScript Console]' \
'-edit[start with editor]:URL:_urls' \
'-chrome[load the specified chrome]:URL:_urls' \
'*:location:->urls' && ret=0
fi
[[ "$state" = "urls" ]] &&
_files "$@" && return 0
# Handle mozilla remote commands
if [[ "$state" = "remote" ]]; then
local -a remote_commands
remote_commands=(openURL openFile saveAs mailto addBookmark ping)
compset -P '*\('
if compset -S '(|\\)\)*'; then
set - -S "" "$@"
else
set - -S"${${QIPREFIX:+)}:-\)}$compstate[quote] " "$@"
fi
case $IPREFIX in
openURL*)
if compset -P "*,"; then
_wanted option expl 'option' compadd "$@" new-tab new-window && ret=0
else
compset -S ',*'
state=urls
fi
;;
addBookmark*) state=urls;;
openFile*) _files "$@" -W ~;;
saveAs*)
if compset -P "*,"; then
_wanted types expl 'data type' \
compadd "$@" -M 'm:{a-zA-Z}={A-Za-z}' HTML Text PostScript && ret=0
else
compset -S ",*" || suf=","
_files -qS "$suf" -W ~ && ret=0
fi
;;
mailto*)
_email_addresses -s, -c && ret=0
;;
*)
compset -S '(|\\)\(*' || suf="${${QIPREFIX:+(}:-\(}"
_wanted commands expl 'remote commands' \
compadd -qS "$suf" -M 'm:{a-zA-Z}={A-Za-z}' -a \
remote_commands && ret=0
;;
esac
fi
if [[ "$state" = "urls" ]]; then
# Complete mozilla urls
if compset -P about: ; then
_wanted values expl 'about what' \
compadd "$@" authors blank cache document fonts global hype image-cache \
license logo memory-cache mozilla plugins && ret=0
elif compset -P news: ; then
_newsgroups "$@" && ret=0
elif compset -P mailto: ; then
_email_addresses -c && ret=0
else
_tags prefixes
while _tags; do
while _next_label prefixes expl 'URL prefix' "$@"; do
_urls "$expl[@]" && ret=0
compset -S '[^:]*'
compadd -S '' "$expl[@]" about: news: mailto: mocha: javascript: && ret=0
done
(( ret )) || return 0
done
fi
fi
if [[ $state == "profile" ]]; then
if [[ $service == *firefox* ]]; then
local -a profiles text profiledir
case "$OSTYPE" in
darwin*) profiledir=~/"Library/Application Support/Firefox" ;;
*) profiledir=~/.mozilla/firefox/ ;;
esac
profiles=(${(f)"$(< ${profiledir}/profiles.ini)"})
profiles=(${(M)${profiles}:#(\[Profile|(Path|Name)=)*})
text=${(F)profiles}
profiles=(${(f)text//(#b)\[Profile([0-9]##)\]
Name=([^
]##|)
Path=([^
]##|)/$match[2]})
profiles=(${profiles%:})
compadd $profiles
else
compadd ~/.mozilla/*/*.slt(\:h\:t)
fi
fi
return ret
PK [m-® functions/_pinenu W+A #compdef pine pinef
local optfile getopts='pine -conf' sortorder lusortorder opts send idx
if (( $#_cache_pine_options )); then
for optfile in ~/.pinerc /etc/pine.conf; do
if [[ -f $optfile ]]; then
getopts="cat $optfile"
break
fi
done
_cache_pine_options=( $($=getopts | sed -n 's/^\([-a-z]*=\).*/-\1/p') )
fi
sortorder=( {subject,arrival,date,from,size}{,/reverse} )
lusortorder=( dont-sort {nickname,fullname}{,-with-lists-last} )
opts=( -h -v -F -conf -create_lu -pinerc -copy_abook -copy_pinerc) # exclusive options
idx=( -f -c -i -I -n -o -sort ) # options used when viewing messages
send=( -attach -attachlist -attach_and_delete -url ) # options when sending
_arguments -s \
"($opts $idx $send -bail -d -k -z -r -p -P *)-h[display help]" \
"($opts $idx $send -bail -d -k -z -r -p -P *)-v[display version information]" \
"($opts $idx $send -r *)-F+[specify file to open and page through]:file:_files" \
"($opts $idx $send *)-conf[print out fresh global configuration]" \
"($opts $idx $send *)-pinerc[put fresh pinerc configuration in file]:file:_files" \
"($opts $idx $send *)-create_lu[create .lu from script]:addressbook file:_files:sort order:(${(j: :)lusortorder})" \
"($opts $idx $send *)-copy_pinerc:pinerc file:_files:remote folder" \
"($opts $idx $send *)-copy_abook:addressbook file:_files:remote folder" \
"($opts $idx -url)-attach[go directly into composer with given file]:file:_files" \
"($opts $idx -url)-attachlist[go to composer with given files]:file:_files" \
"($opts $idx -url)-attach_and_delete[go to composer, attach file, delete when finished]:file:_files" \
"($opts $idx $send)-url[open the given URL]:URL:_email_addresses -c -P mailto\:" \
"($opts $send)-f+[specify mailbox to load]:mailbox: _mailboxes" \
"($opts $send)-c+[specify context to apply to -f arg]: :_guard '[0-9]#' number" \
"($opts $send)-sort[specify sort order of folder]:sort order:(${(j: :)sortorder})" \
"($opts $send)-i[go directly to index, bypassing main menu]" \
"($opts $send)-I+[specify initial keystrokes to be executed]:keystrokes" \
"($opts $send)-n+[entry in index to begin on]: :_guard '[0-9]#' number" \
"($opts $send)-o[open first folder read-only]" \
"(-F -h -v)-r[restricted - can only send mail to oneself]" \
"(-h -v)-d[set debug level]:debug:(0 1 2 3 4 5 6 7 8 9 flush timestamp imap= numfiles= verbose=)" \
\(${(j. .)opts:#-F}')-k[force use of function keys]' \
\(${(j. .)opts:#-F}')-z[allow use of ^Z suspension]' \
\(${(j. .)opts:#-F}')-p+[use alternate .pinerc file]:alternate pinerc:_files' \
\(${(j. .)opts:#-F}')-P+[use alternate pine.conf file]:alternate pine.conf:_files' \
\(${(j. .)opts:#-F}')-x[use configuration exceptions file]:configuration exceptions file:_files' \
\(${(j. .)opts:#-F}")-bail[exit if pinerc file doesn't already exist]" \
'*::recipient:_email_addresses -n pine' \
${^_cache_pine_options}':option value'
PK [J functions/_regex_wordsnu W+A #autoload
local opt OPTARG
local term=$'\0'
while getopts "t:" opt; do
case $opt in
(t)
term=$OPTARG
;;
(*)
return 1
;;
esac
done
shift $(( OPTIND - 1 ))
local tag=$1
local desc=$2
shift 2
reply=(\()
integer i
local -a wds
for (( i = 1; i <= $#; i++ )); do
wds=(${(s.:.)argv[i]})
reply+=(/${wds[1]//\**/"[^$term]#"}"$term"/)
if [[ $term = $'\0' ]]; then
reply+=(":${tag}:${desc}:(( ${wds[1]//\*}:${wds[2]//(#m)[: \(\)]/\\$MATCH} ))")
else
reply+=(":${tag}:${desc}:_values -s ${(q)term} ${(q)desc} \
${(q)${${wds[1]//\*}//(#m)[:\[\]]/\\$MATCH}}\\[${(q)${wds[2]//(#m)[:\[\]]/\\$MATCH}}\\]")
fi
eval "reply+=($wds[3])"
if (( $i == $# )); then
reply+=(\))
else
reply+=(\|)
fi
done
PK [5] functions/_time_zonenu W+A #compdef -value-,TZ,-default-
local expl
if (( ! $+_zoneinfo_dirs )); then
_zoneinfo_dirs=( /usr/{share,lib,share/lib}/{zoneinfo*,locale/TZ}(/) )
fi
_wanted time-zones expl 'time zone' _files -W _zoneinfo_dirs "$@" -
PK [5P functions/_xtermnu W+A #compdef xterm
_xt_arguments \
-+{ah,ai,aw,bc,bdc,cb,cm,cn,cu,dc,hf,ie,im,j,ls,mb,nul,pc,rw,s,sb,sf,si,sk,sp,t,u8,ulc,ut,vb,wc,wf,samename} \
-{version,help,132,leftbar,rightbar,C} \
'-b:inner border size:' \
'-bcf:time text cursor is off when blinking (milliseconds):' \
'-bcn:time text cursor is on when blinking (milliseconds):' \
'-cc:character class:' \
'-cr:text cursor color:_x_color' \
'-e:program: _command_names -e:*::program arguments: _normal' \
'-fb:bold font:_x_font' \
'-fi:icon font:_x_font' \
'-hc:background color for highlighted text:_x_color' \
'-mc:multi-click threshold (milliseconds):' \
'-ms:pointer cursor color:_x_color' \
'-nb:margin bell number:' \
'-sl:save lines:' \
'-ti:terminal ID:_terminals' \
'-tm:terminal setting:' \
'-tn:terminal type:' \
'-ziconbeep:iconbeep (percent):' \
'-C' \
'-S-:pseudo-terminal and file descriptor:'
PK [J functions/_xmms2nu W+A #compdef xmms2
_xmms2_command() {
local xmms2_cmds
xmms2_cmds=(
add:"adds a URL to the playlist"
addarg:"adds one URL with arguments to the playlist"
addid:"adds a Medialib id to the playlist"
insert:"inserts one URL at a specific position"
insertid:"inserts one Medialib id at a specific position"
radd:"adds a directory recursively to the playlist"
clear:"clears the playlist"
shuffle:"shuffles the playlist"
sort:"sort the playlist; use a space delimiter for multiple properties"
remove:"removes something from the playlist"
list:"lists the playlist"
addpls:"Adds the contents of a playlist file to the playlist"
play:"starts playback"
stop:"stops playback"
toggleplay:"toggles playback status between play/pause"
pause:"pause playback"
next:"play next song"
prev:"play previous song"
seek:"seek to a specific place in current song"
jump:"take a leap in the playlist"
move:"move a entry in the playlist"
volume:"set volume for a channel"
volume_list:"list volume levels for each channel"
mlib:"medialib manipulation - type 'xmms2 mlib' for more extensive help"
playlist:"playlist manipulation - type 'xmms2 playlist' for more extensive help"
coll:"collection manipulation - type 'xmms2 coll' for more extensive help"
browse:"browse server file lists"
status:"go into status mode"
info:"information about current entry"
current:"formatted information about the current entry"
config:"set a config value"
config_list:"list all config values"
plugin_list:"list all plugins loaded in the server"
stats:"get statistics from server"
quit:"make the server quit"
help:"print help about a command"
)
if (( CURRENT == 1 )); then
_describe -t command "xmms2 commands" xmms2_cmds
else
local curcontext="$curcontext"
fi
local cmd=$words[1]
local curcontext="${curcontext%:*}:xmms2-${cmd}"
_call_function ret _xmms2_$cmd
}
_xmms2_jump() {
songlist=(${"$(xmms2 list)"})
playlistitems=()
for song ($songlist); do
if [[ $song = (#b)' '\[(<->)/(<->)\]' '(*)' '\((*)\) ]]; then
playlistitems+=("$match[1][$match[3]]")
fi
done
_values -s ' ' 'playlist items' ${(On)playlistitems}
}
_xmms2_mlib() {
local mlib_cmds
mlib_cmds=(
add:"Add 'url' to medialib"
loadall:"Load everything from the mlib to the playlist"
searchadd:"Search for, and add songs to playlist"
search:"Search for songs matching criteria"
addpath:"Import metadata from all media files under 'path'"
rehash:"Force the medialib to check whether its data is up to date"
remove:"Remove an entry from medialib"
setstr:"Set a string property together with a medialib entry."
setint:"Set a int property together with a medialib entry."
rmprop:"Remove a property from a medialib entry"
addcover:"Add a cover image on id(s)."
)
if (( CURRENT == 2 )); then
_describe -t command "xmms2 mlib commands" mlib_cmds
else
local curcontext="$curcontext"
fi
local cmd=$words[2]
local curcontext="${curcontext%:*}:xmms2-${cmd}"
_call_function ret _xmms2_$cmd
}
_xmms2_playlist() {
local playlist_cmds
playlist_cmds=(
list:"List all available playlists"
create:"Create a playlist"
type:"Set the type of the playlist (list, queue, pshuffle)"
load:"Load 'playlistname' stored in medialib"
remove:"Remove a playlist"
)
if (( CURRENT == 2 )); then
_describe -t command "xmms2 playlist commands" playlist_cmds
else
local curcontext="$curcontext"
fi
local cmd=$words[2]
local curcontext="${curcontext%:*}:xmms2-${cmd}"
_call_function ret _xmms2_playlist_$cmd
}
_xmms2_playlist_load() {
local list
list=($(xmms2 playlist list))
_describe -t command "xmms2 playlists" list
}
_xmms2_playlist_remove() {
local list
list=($(xmms2 playlist list))
_describe -t command "xmms2 playlists" list
}
_xmms2_coll() {
local coll_cmds
coll_cmds=(
save:"Save a pattern as a collection"
rename:"Rename a collection"
list:"List all collections in a given namespace"
query:"Display all the media in a collection"
queryadd:"Add all media in a collection to active playlist"
find:"Find all collections that contain the given media"
get:"Display the structure of a collection"
remove:"Remove a saved collection"
attr:"Get/set an attribute for a saved collection"
)
if (( CURRENT == 2 )); then
_describe -t command "xmms2 collection commands" coll_cmds
else
local curcontext="$curcontext"
fi
local cmd=$words[2]
local curcontext="${curcontext%:*}:xmms2-${cmd}"
_call_function ret _xmms2_coll_$cmd
}
_xmms2_coll_helper() {
local list
list=($(xmms2 coll list))
_describe -t command "xmms2 playlists" list
}
_xmms2_coll_rename() {
_xmms2_coll_helper
}
_xmms2_coll_remove() {
_xmms2_coll_helper
}
_xmms2_coll_get() {
_xmms2_coll_helper
}
_xmms2_coll_query() {
_xmms2_coll_helper
}
_xmms2_coll_queryadd() {
_xmms2_coll_helper
}
_xmms2_coll_attr() {
_xmms2_coll_helper
}
_xmms2_add() {
_files
}
_xmms2_radd() {
_dirs
}
_xmms2_addpls() {
local expl
_description files expl 'playlist'
_files "$expl[@]" -g '*.([mM]3[uU]|[pP][lL][sS])'
}
_xmms2() {
_arguments \
'--format[specify the format of song display]:format string' \
'--no-status[prevent printing song status on completion]' \
'*::xmms2 command:_xmms2_command'
}
_xmms2 "$@"
PK [;p; ; functions/run-help-opensslnu W+A
if [ $# -eq 0 ]; then
man openssl
else
man $1
fi
PK [
o o functions/_ignorednu W+A #autoload
# Use ignored matches.
[[ _matcher_num -gt 1 || $compstate[ignored] -eq 0 ]] && return 1
local comp
integer ind
if ! zstyle -a ":completion:${curcontext}:" completer comp; then
comp=( "${(@)_completers[1,_completer_num-1]}" )
ind=${comp[(I)_ignored(|:*)]}
(( ind )) && comp=("${(@)comp[ind,-1]}")
fi
local _comp_no_ignore=yes tmp expl \
_completer _completer_num \
_matcher _c_matcher _matchers _matcher_num
_completer_num=1
for tmp in "$comp[@]"; do
if [[ "$tmp" = *:-* ]]; then
_completer="${${tmp%:*}[2,-1]//_/-}${tmp#*:}"
tmp="${tmp%:*}"
elif [[ $tmp = *:* ]]; then
_completer="${tmp#*:}"
tmp="${tmp%:*}"
else
_completer="${tmp[2,-1]//_/-}"
fi
curcontext="${curcontext/:[^:]#:/:${_completer}:}"
zstyle -a ":completion:${curcontext}:" matcher-list _matchers ||
_matchers=( '' )
_matcher_num=1
_matcher=''
for _c_matcher in "$_matchers[@]"; do
if [[ "$_c_matcher" == +* ]]; then
_matcher="$_matcher $_c_matcher[2,-1]"
else
_matcher="$_c_matcher"
fi
if [[ "$tmp" != _ignored ]] && "$tmp"; then
if zstyle -s ":completion:${curcontext}:" single-ignored tmp &&
[[ $compstate[old_list] != shown &&
$compstate[nmatches] -eq 1 ]]; then
case "$tmp" in
show) compstate[insert]='' compstate[list]='list force' tmp='' ;;
menu)
compstate[insert]=menu
_description original expl original
compadd "$expl[@]" -S '' - "$PREFIX$SUFFIX"
;;
esac
fi
return 0
fi
(( _matcher_num++ ))
done
(( _completer_num++ ))
done
return 1
PK [oH functions/prompt_zefram_setupnu W+A function prompt_zefram_precmd {
local exitstatus=$?
setopt localoptions noxtrace noksharrays
psvar=(SIG)
[[ $exitstatus -gt 128 ]] && psvar[1]=SIG$signals[$exitstatus-127]
[[ $psvar[1] = SIG ]] && psvar[1]=$exitstatus
jobs % >/dev/null 2>&1 && psvar[2]=
}
function prompt_zefram_setup {
PS1='[%(2L.%L/.)'$ZSH_VERSION']%(?..%B{%v}%b)%n%(2v.%B@%b.@)%m:%B%~%b%(!.#.>) '
PS2='%(4_:... :)%3_> '
prompt_opts=( cr subst percent )
add-zsh-hook precmd prompt_zefram_precmd
}
prompt_zefram_setup "$@"
PK [L functions/_unamenu W+A #compdef uname
typeset -A _uname_args
if _pick_variant gnu="Free Soft" unix --version; then
case $LANG in
(de_DE.UTF-8)
_uname_args=(
all "alle Informationen ausgeben"
kernel-name "Namen des Kernels ausgeben"
nodename "Netzwerknamen der Maschine ausgeben"
kernel-release "Release-Nummer des Kernels ausgeben"
kernel-version "Version des Kernels ausgeben"
machine "Maschinentyp (Hardware) ausgeben"
processor "Typ des Prozessors ausgeben (oder das Wort unknown)"
hardware-platform "Hardwareplattform ausgeben (oder das Wort unknown)"
operating-system "Namen des Betriebssystems ausgeben"
help "diese Hilfe anzeigen und beenden"
version "Versionsinformation anzeigen und beenden"
)
;;
(*)
_uname_args=(
all "print all information"
kernel-name "print the kernel name"
nodename "print the network node hostname"
kernel-release "print the kernel release"
kernel-version "print the kernel version"
machine "print the machine hardware name"
processor "print the processor type or \"unknown\""
hardware-platform "print the hardware platform or \"unknown\""
operating-system "print the operating system"
help "display this help and exit"
version "output version information and exit"
)
;;
esac
_arguments \
'(--all -a)'{--all,-a}'['$_uname_args[all]']' \
'(--kernel-name -s)'{--kernel-name,-s}'['$_uname_args[kernel-name]']' \
'(--nodename -n)'{--nodename,-n}'['$_uname_args[nodename]']' \
'(--kernel-release -r)'{--kernel-release,-r}'['$_uname_args[kernel-release]']' \
'(--kernel-version -v)'{--kernel-version,-v}'['$_uname_args[kernel-version]']' \
'(--machine -m)'{--machine,-m}'['$_uname_args[machine]']' \
'(--processor -p)'{--processor,-p}'['$_uname_args[processor]']' \
'(--hardware-platform -i)'{--hardware-platform,-i}'['$_uname_args[hardware-platform]']' \
'(--operating-system -o)'{--operating-system,-o}'['$_uname_args[operating-system]']' \
'--help['$_uname_args[help]']' \
'--version['$_uname_args[version]']'
else
# TODO add options of a NON GNU implementation
fi
PK [3 functions/_setoptnu W+A #compdef setopt
# If you first want to complete only unset options, un-comment the lines
# setting the _options_unset array and then use:
#
# _options_unset || _options
#
# here.
_options
PK [h25 5 functions/_urpminu W+A #compdef urpme urpmi urpmi.addmedia urpmi.removemedia urpmi.update urpmq urpmf parsehdlist
_urpmi_media() {
local ret=1 single=0
local -a all_sources opts
if [[ $1 = -s ]]; then
single=1
shift
fi
# TODO should we probe for active media only?
all_sources=( ${(f)"$(urpmq --list-media 2> /dev/null)"} )
if (( single )); then
compadd "$expl[@]" -a all_sources && ret=0
else
_values -s , 'urpmi media' "$all_sources[@]" && ret=0
fi
return $ret
}
_urpmi_rpms() {
local ret=1 expl
_tags rpms files
while _tags; do
if _requested rpms expl 'urpmi RPM'; then
local -a pkgs
pkgs=( $(urpmq --list 2> /dev/null \
${(k)opt_args[--media]:-${opt_args[--searchmedia]:+--media}} \
${(v)opt_args[--media]}${opt_args[--searchmedia]:+${opt_args[--media]:+,}${opt_args[--searchmedia]}} \
${(k)opt_args[--excludemedia]} ${(v)opt_args[--excludemedia]}
)
)
compadd "$expl[@]" -a pkgs && ret=0
fi
_requested files expl '(S)RPM file' \
_files -g '*.(#i)rpm(-.)' && ret=0
(( ret )) || break
done
return ret
}
# TODO add completion of remote directory for SSH, rsync, ftp
_urpmi_media_url() {
local expl ret=1
if compset -P file:// || compset -P removable://; then
_files "$@" -W / -/ && ret=0
elif [[ -prefix '(ftp|http)://' ]]; then
_urls "$@" && ret=0
else
if (( ${+opt_args[--virtual]} )); then
_wanted mediatype expl 'type of media' \
compadd -S "" "$@" -- file:// && ret=0
else
_wanted mediatype expl 'type of media' \
compadd -S "" "$@" -- ssh:// rsync:// file:// http:// ftp:// removable:// && ret=0
fi
fi
return $ret
}
_urpme_package() {
local -a _rpms
_rpms=( $(_call_program packages rpm -qa 2>/dev/null) )
compadd "$@" -a _rpms
}
_urpmi_parallel_alias() {
# placeholder as I do not actually have parallel system to test
return 1
}
_urpmi() {
local state context line ret=1 help="--help -h"
local -a opts_help opts_net opts_verbose opts_inst_rem opts_search opts_media
opts_help=(
"($help : -)"{--help,-h}"[print usage information]"
)
opts_net=(
"($help --wget)--curl[use curl to retrieve distant files]"
"($help)--limit-rate[limit the download speed (b/s)]:download speed in b/s: "
"($help)--proxy:proxy host:_hosts"
"($help)--proxy-user:proxy user:_users"
"($help --curl)--wget[use wget to retrieve distant files]"
)
opts_verbose=(
"(--help -h -v)-q[quiet mode]"
"(--help -h -q)-v[verbose mode]"
)
opts_inst_rem=(
"($help)--auto[automatically select a package in choices]"
"($help)--force[force invocation even if some packages do not exist]"
"($help)--parallel[distributed urpmi across machines of alias]:urpmi alias name:_urpmi_parallel_alias"
"($help)--root[use another root for rpm installation]:root diretory:_files -/"
"($help)--test[test only, do not modify system]"
"($help)-a[select all matches on command line]"
)
opts_search=(
"($help --fuzzy -z)"{--fuzzy,-y}"[return all matches even if exact match exists]"
"($help -p -P)-p[allow search in provides to find package]"
"($help -p -P)-P[do not search in provides to find package]"
)
opts_media=(
"($help)--excludemedia[do not use the given media]:urpmi media: _urpmi_media"
"($help --update --use-distrib)--media[use only the media listed by comma]:urpmi media: _urpmi_media"
"($help)--searchmedia[use only the given media to search requested (or updated) packages]:urpmi media: _urpmi_media -s"
"($help)--sortmedia[sort media according to substrings separated by comma]:urpmi media: _urpmi_media"
"($help)--synthesis[use the given synthesis instead of urpmi db]:synthesis file:_url"
"($help --media --use-distrib)--update[use only update media]"
"($help --media --update)--use-distrib[configure urpmi on the fly from a distrib tree]:installation media:_urpmi_media_url"
)
case "$service" in
urpme )
_arguments -A '-*' \
$opts_help \
$opts_inst_rem \
"--auto[do not ask any question]" \
"-v[verbose]" \
": :_urpme_package"
;;
urpmi.addmedia )
_arguments -A '-*' \
$opts_help \
$opts_net \
$opts_verbose \
"($help)--arch[use specified architecture]:Mandrake architecture: " \
"($help :)--distrib[automatically create all media from an installation medium]:media URL:_urpmi_media_url" \
"($help)--from[use specified url for list of mirrors]:mirror URL:_url" \
"($help)--no-md5sum[disable MD5SUM file checking]" \
"($help --probe-hdlist --probe-synthesis)--no-probe[do not try to find any synthesis or hdlist file]" \
"($help --no-probe --probe-synthesis)--probe-hdlist[try to find and use hdlist file]" \
"($help --no-probe --probe-hdlist)--probe-synthesis[try to find and use synthesis file]" \
"($help)--update[mark as update media]" \
"($help)--version[use specified distribution version]:Mandrake version: " \
"($help)--virtual[create virtual media wich are always up-to-date]" \
"($help)-c[clean headers cache directory]" \
"($help)-f[force generation of hdlist files]" \
"($help --distrib):name of media: " \
"($help --distrib):media URL:_urpmi_media_url" \
"($help --distrib): :(with)" \
"($help --distrib):relative path to hdlist file" \
&& ret=0
;;
urpmi.removemedia )
_arguments -A '-*' \
$opts_help \
$opts_verbose \
"($help : -)"{--help,-h}"[print usage information]" \
"($help :)-a[select all media]" \
"($help)-c[clean headers cache directory]" \
"($help)-y[fuzzy mathing on media names]" \
"(-a)"{,\*}": : _urpmi_media" \
&& ret=0
;;
urpmi.update )
_arguments -A '-*' \
$opts_help \
$opts_net \
$opts_verbose \
"($help : -)"{--help,-h}"[print usage information]" \
"($help)--force-key[force update of gpg key]" \
"($help : -a)--update[update only update media]" \
"($help --update :)-a[select all non-removable media]" \
"($help)-c[clean /var/cache/urpmi/headers on exit]" \
"($help)*-f[force generation of hdlist files]" \
"($help -a)"{,\*}": : _urpmi_media" \
&& ret=0
;;
urpmi )
_arguments -A '-*' \
$opts_help \
$opts_net \
$opts_verbose \
$opts_inst_rem \
$opts_search \
$opts_media \
"($help : -)"{--help,-h}"[print usage information]" \
"($help)--allow-force[allow asking user to install packages without dependencies checking and integrity]" \
"($help)--allow-nodeps[allow asking user to install packages without dependencies checking]" \
"($help)--auto-select[utomatically select packages to upgrade the system]" \
"($help --env)--bug[output a bug report in given directory]:directory for bug report:_files -/" \
"($help -X)--best-output[automatically select text or X interface]" \
"($help --noclean)--clean[remove rpm from cache before anything else]" \
"($help --clean)--noclean[keep rpm not used in cache]" \
"($help --bug)--env[use specific environment (typically result of --bug)]:directory for bug report:_files -/" \
"($help)--excludedocs[exclude docs files]: " \
"($help)--excludepath[exclude path separated by comma]:path: " \
"($help)--install-src[install only source package (no binaries)]" \
"($help)--keep[keep existing packages if possible]" \
"($help)--more-choices[propose more choices than the default]" \
"($help --no-resume)--resume[resume transfer of partially-downloaded files]" \
"($help --resume)--no-resume[do not resume transfer of partially-downloaded files]" \
"($help)--root[use another root for rpm installation]:root diretory:_files -/" \
"($help)--skip[packages which installation should be skipped]:packages: " \
"($help)--split-length[small transaction length]:transaction length: " \
"($help)--split-level[split in small transaction]:transaction size: " \
"($help --src -s)"{--src,-s}"[next package is source package]" \
"($help)--strict-arch[upgrade only packages with the same architecture]" \
"($help)--no-uninstall[never ask to uninstall a package, abort the installation]" \
"($help --verify-rpm)--no-verify-rpm[do not verify rpm signature before installation]" \
"($help --no-verify-rpm)--verify-rpm[verify rpm signature before installation]" \
"($help)-a[select all packages matching command line]" \
"($help -m -M)-m[choose minimum closure of requires (default)]" \
"($help -m -M)-M[choose maximum closure of requires]" \
"($help --best-output)-X[use X interface]" \
"($help)"{,\*}": :_urpmi_rpms" \
&& ret=0
;;
urpmq )
_arguments -A '-*' \
$opts_help \
$opts_media \
$opts_search \
"($help)--auto-select[automatically select packages for upgrading the system]" \
"($help)--force[ignore non-existent packages]" \
"($help)--headers[extract headers for package listed from urpmi db to stdout]" \
"($help : -list --list-media --list-url --list-nodes --list-aliases)--list[list available packages]" \
"($help : -list --list-media --list-url --list-nodes --list-aliases)--list-media[list available media]" \
"($help : -list --list-media --list-url --list-nodes --list-aliases)--list-url[list available url]" \
"($help : -list --list-media --list-url --list-nodes --list-aliases)--list-nodes[list available nodes]" \
"($help : -list --list-media --list-url --list-nodes --list-aliases)--list-aliases[list available aliases]" \
"($help)--sources[show full path to package file]" \
"($help --src -s)"{--src,-s}"[next package is source package]" \
"($help)--summary[print RPM summary]" \
"($help)-c[complete output with package to be removed]" \
"($help)-d[extend query to package dependencies]" \
"($help)-f[print version, release and arch with name]" \
"($help)-g[print groups too with name]" \
"($help)-i[print useful information in human readable form]" \
"($help)-l[list files in package]" \
"($help)-r[print version and release too with name]" \
"($help)-R[reverse search to what requires package]" \
"($help)-u[remove package if a better version is already installed]" \
"($help -list --list-media --list-url --list-nodes --list-aliases)*:urpmi package name":_urpmi_rpms \
&& ret=0
;;
urpmf )
# TODO this is not complete, some operators are missing
_arguments -A '-*' \
$opts_help \
$opts_media \
"($help --name --group --size --epoch --summary --description --sourcerpm --packager --buildhost --url --provides --requires --files --conflicts --obsoletes)--all[print all tags]" \
"($help --all --name)--buildhost[print tag buildhost: build host]" \
"($help --all --name)--conflicts[print tag conflicts: all conflicts]" \
"($help --all --name)--description[print tag description: description]" \
"($help --all --name)--epoch[print tag epoch: epoch]" \
"($help --all --name)--files[print tag files: all files]" \
"($help --all --name)--group[print tag group: group]" \
"($help --all --group --size --epoch --summary --description --sourcerpm --packager --buildhost --url --provides --requires --files --conflicts --obsoletes)--name[print only package names]" \
"($help --all --name)--obsoletes[print tag obsoletes: all obsoletes]" \
"($help --verbose)--quiet[do not print tag name]" \
"($help --all --name)--packager[print tag packager: packager]" \
"($help --all --name)--provides[print tag provides: all provides]" \
"($help --all --name)--requires[print tag requires: all requires]" \
"($help --all --name)--size[print tag size: size]" \
"($help --all --name)--sourcerpm[print tag sourcerpm: source rpm]" \
"($help --all --name)--summary[print tag summary: summary]" \
"($help)--uniq[do not print identical lines]" \
"($help --all --name)--url[print tag url: url]" \
"($help --quiet)--verbose[verbose mode]" \
"($help)*-a[binary AND operator]" \
"($help)-i[ignore case distinctions in every pattern]" \
"($help)-f[print version, release and arch with name]" \
"($help)-e[include perl code directly as perl -e]:perl code: " \
"($help)*-o[binary OR operator]" \
&& ret=0
;;
parsehdlist )
# TODO this is not complete, some operators are missing
_arguments -A '-*' \
$opts_help \
"($help --interactive --quiet --name --group --size --epoch --summary --description --sourcerpm --packager --buildhost --url --provides --requires --files --conflicts --obsoletes)--all[print all tags]" \
"($help --all --interactive --name)--buildhost[print tag buildhost: build host]" \
"($help --all --interactive --name)--conflicts[print tag conflicts: all conflicts]" \
"($help --all --interactive --name)--description[print tag description: description]" \
"($help --all --interactive --name)--epoch[print tag epoch: epoch]" \
"($help --all --interactive --name)--files[print tag files: all files]" \
"($help --all --interactive --name)--group[print tag group: group]" \
"($help --all --interactive --group --size --epoch --summary --description --sourcerpm --packager --buildhost --url --provides --requires --files --conflicts --obsoletes)--name[print only package names]" \
"($help --all --interactive --name)--obsoletes[print tag obsoletes: all obsoletes]" \
"($help --interactive)--quiet[do not print tag name]" \
"($help --all --interactive --name)--packager[print tag packager: packager]" \
"($help --all --interactive --name)--provides[print tag provides: all provides]" \
"($help --all --interactive --name)--requires[print tag requires: all requires]" \
"($help --all --interactive --name)--size[print tag size: size]" \
"($help --all --interactive --name)--sourcerpm[print tag sourcerpm: source rpm]" \
"($help --all --interactive --name)--summary[print tag summary: summary]" \
"($help)--uniq[do not print identical lines]" \
"($help --all --interactive --name)--url[print tag url: url]" \
"*:hdlist files:_files -g '*.cz'" \
&& ret=0
;;
esac
return $ret
}
_urpmi "$@"
PK [4H? functions/VCS_INFO_get_data_svnnu W+A ## vim:ft=zsh
## subversion support by:
## + Frank Terbeck
## + Phil Pennock
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions noksharrays extendedglob NO_shwordsplit
local svnbase svnbranch a b rrn
local -A svninfo parentinfo
local -xA hook_com
svnbase=".";
svninfo=()
${vcs_comm[cmd]} info --non-interactive | while IFS=: read a b; do svninfo[${a// /_}]="${b## #}"; done
while [[ -d "${svnbase}/../.svn" ]]; do
parentinfo=()
${vcs_comm[cmd]} info --non-interactive "${svnbase}/.." | while IFS=: read a b; do parentinfo[${a// /_}]="${b## #}"; done
[[ ${parentinfo[Repository_UUID]} != ${svninfo[Repository_UUID]} ]] && break
svninfo=(${(kv)parentinfo})
svnbase="${svnbase}/.."
done
svnbase="$(VCS_INFO_realpath ${svnbase})"
rrn=${svnbase:t}
zstyle -s ":vcs_info:${vcs}:${usercontext}:${rrn}" branchformat svnbranch || svnbranch="%b:%r"
hook_com=( branch "${svninfo[URL]##*/}" revision "${svninfo[Revision]}" )
if VCS_INFO_hook 'set-branch-format' "${svnbranch}"; then
zformat -f svnbranch "${svnbranch}" "b:${hook_com[branch]}" "r:${hook_com[revision]}"
else
svnbranch=${hook_com[branch-replace]}
fi
hook_com=()
VCS_INFO_formats '' "${svnbranch}" "${svnbase}" '' '' "${svninfo[Revision]}" ''
return 0
PK [K
functions/_totdnu W+A #compdef totdconfig
_arguments \
- set1 \
'-a[add totd specific options]' \
'-D[add totd specific config into dhclient-enter-hooks]' \
'-d:name server:_hosts' \
'-l[configure resolv.conf]' \
- set2 \
'-r:config to remove:(dhcp totd resolv all)' \
- set3 \
'-h[help]'
PK [ functions/_tagsnu W+A #autoload
local prev
# A `--' as the first argument says that we should tell comptags to use
# the preceding function nesting level. This is only documented here because
# if everything goes well, users won't have to worry about it and should
# not mess with it.
if [[ "$1" = -- ]]; then
prev=-
shift
fi
if (( $# )); then
# We have arguments: the tags supported in this context.
local curcontext="$curcontext" order tag nodef tmp
if [[ "$1" = -C?* ]]; then
curcontext="${curcontext%:*}:${1[3,-1]}"
shift
elif [[ "$1" = -C ]]; then
curcontext="${curcontext%:*}:${2}"
shift 2
fi
[[ "$1" = -(|-) ]] && shift
zstyle -a ":completion:${curcontext}:" group-order order &&
compgroups "$order[@]"
# Set and remember offered tags.
comptags "-i$prev" "$curcontext" "$@"
# Sort the tags.
if [[ -n "$_sort_tags" ]]; then
"$_sort_tags" "$@"
else
zstyle -a ":completion:${curcontext}:" tag-order order ||
(( ! ${@[(I)options]} )) ||
order=('(|*-)argument-* (|*-)option[-+]* values' options)
for tag in $order; do
case $tag in
-) nodef=yes;;
\!*) comptry "${(@)argv:#(${(j:|:)~${=~tag[2,-1]}})}";;
?*) comptry -m "$tag";;
esac
done
[[ -z "$nodef" ]] && comptry "$@"
fi
# Return non-zero if at least one set of tags should be used.
comptags "-T$prev"
return
fi
# The other mode: switch to the next set of tags.
comptags "-N$prev"
PK [[&v# v# functions/match-words-by-stylenu W+A # Match words by the style given below. The matching depends on the
# cursor position. The matched_words array is set to the matched portions
# separately. These look like:
#
#
#
# where the cursor position is always after the third item and `after'
# is to be interpreted as `after or on'. Some
# of the array elements will be empty; this depends on the style.
# For example
# foo bar rod stick
# ^
# with the cursor where indicated will with typical settings produce the
# elements `foo ', `bar', ` ', ` ', `rod', ` ' and `stick'.
#
# The style word-style can be set to indicate what a word is.
# The three possibilities are:
#
# shell Words are shell words, i.e. elements of a command line.
# whitespace Words are space delimited words; only space or tab characters
# are considered to terminated a word.
# normal (the default): the usual zle logic is applied, with all
# alphanumeric characters plus any characters in $WORDCHARS
# considered parts of a word. The style word-chars overrides
# the parameter. (Any currently undefined value will be
# treated as `normal', but this should not be relied upon.)
# specified Similar to normal, except that only the words given
# in the string (and not also alphanumeric characters)
# are to be considered parts of words.
# unspecified The negation of `specified': the characters given
# are those that aren't to be considered parts of a word.
# They should probably include white space.
#
# In the case of the `normal' or `(un)specified', more control on the
# behaviour can be obtained by setting the style `word-chars' for the
# current context. The value is used to override $WORDCHARS locally.
# Hence,
# zstyle ':zle:transpose-words*' word-style normal
# zstyle ':zle:transpose-words*' word-chars ''
# will force bash-style word recognition, i.e only alphanumeric characters
# are considered parts of a word. It is up to the function which calls
# match-words-by-style to set the context in the variable curcontext,
# else a default context will be used (not recommended).
#
# You can override the use of word-chars with the style word-class.
# This specifies the same information, but as a character class.
# The surrounding square brackets shouldn't be given, but anything
# which can appear inside is allowed. For example,
# zstyle ':zle:*' word-class '-:[:alnum:]'
# is valid. Note the usual care with `]' , `^' and `-' must be taken if
# they need to appear as individual characters rather than for grouping.
#
# The final style is `skip-chars'. This is an integer; that many
# characters counting the one under the cursor will be treated as
# whitespace regardless and added to the front of the fourth element of
# matched_words. The default is zero, i.e. the character under the cursor
# will appear in if it is whitespace, else in
# . This style is mostly useful for forcing
# transposition to ignore the current character.
#
# The values of the styles can be overridden by options to the function:
# -w
# -s
# -c
# -C
emulate -L zsh
setopt extendedglob
local wordstyle spacepat wordpat1 wordpat2 opt charskip wordchars wordclass
local match mbegin mend pat1 pat2 word1 word2 ws1 ws2 ws3 skip
local nwords MATCH MBEGIN MEND subwordrange
local curcontext=${curcontext:-:zle:match-words-by-style}
autoload -Uz match-word-context
match-word-context
while getopts "w:s:c:C:r:" opt; do
case $opt in
(w)
wordstyle=$OPTARG
;;
(s)
skip=$OPTARG
;;
(c)
wordclass=$OPTARG
;;
(C)
wordchars=$OPTARG
;;
(r)
subwordrange=$OPTARG
;;
(*)
return 1
;;
esac
done
[[ -z $wordstyle ]] && zstyle -s $curcontext word-style wordstyle
[[ -z $skip ]] && zstyle -s $curcontext skip-chars skip
[[ -z $skip ]] && skip=0
case $wordstyle in
(*shell*) local bufwords
# This splits the line into words as the shell understands them.
bufwords=(${(z)LBUFFER})
nwords=${#bufwords}
wordpat1="${(q)bufwords[-1]}"
# Take substring of RBUFFER to skip over $skip characters
# from the cursor position.
bufwords=(${(z)RBUFFER[1+$skip,-1]})
wordpat2="${(q)bufwords[1]}"
spacepat='[[:space:]]#'
# Assume the words are at the top level, i.e. if we are inside
# 'something with spaces' then we need to ignore the embedded
# spaces and consider the whole word.
bufwords=(${(z)BUFFER})
if (( ${#bufwords[$nwords]} > ${#wordpat1} )); then
# Yes, we're in the middle of a shell word.
# Find out what's in front.
eval pat1='${LBUFFER%%(#b)('${wordpat1}')('${spacepat}')}'
# Now everything from ${#pat1}+1 is wordy
wordpat1=${LBUFFER[${#pat1}+1,-1]}
wordpat2=${RBUFFER[1,${#bufwords[$nwords]}-${#wordpat1}+1]}
wordpat1=${(q)wordpat1}
wordpat2=${(q)wordpat2}
fi
;;
(*space*) spacepat='[[:space:]]#'
wordpat1='[^[:space:]]##'
wordpat2=$wordpat1
;;
(*) local wc
# See if there is a character class.
wc=$wordclass
if [[ -n $wc ]] || zstyle -s $curcontext word-class wc; then
# Treat as a character class: do minimal quoting.
wc=${wc//(#m)[\'\"\`\$\(\)\^]/\\$MATCH}
else
# See if there is a local version of $WORDCHARS.
wc=$wordchars
if [[ -z $wc ]]; then
zstyle -s $curcontext word-chars wc ||
wc=$WORDCHARS
fi
if [[ $wc = (#b)(?*)-(*) ]]; then
# We need to bring any `-' to the front to avoid confusing
# character classes... we get away with `]' since in zsh
# this isn't a pattern character if it's quoted.
wc=-$match[1]$match[2]
fi
wc="${(q)wc}"
fi
# Quote $wc where necessary, because we don't want those
# characters to be considered as pattern characters later on.
if [[ $wordstyle = *specified* ]]; then
if [[ $wordstyle != *unspecified* ]]; then
# The given set of characters are the word characters, nothing else
wordpat1="[${wc}]##"
# anything else is a space.
spacepat="[^${wc}]#"
else
# The other way round.
wordpat1="[^${wc}]##"
spacepat="[${wc}]#"
fi
else
# Normal: similar, but add alphanumerics.
wordpat1="[${wc}[:alnum:]]##"
spacepat="[^${wc}[:alnum:]]#"
fi
wordpat2=$wordpat1
;;
esac
# The eval makes any special characters in the parameters active.
# In particular, we need the surrounding `[' s to be `real'.
# This is why we quoted the wordpats in the `shell' option, where
# they have to be treated as literal strings at this point.
match=()
eval pat1='${LBUFFER%%(#b)('${wordpat1}')('${spacepat}')}'
word1=$match[1]
ws1=$match[2]
if [[ $wordstyle = *subword* ]]; then
if [[ -z $subwordrange ]] &&
! zstyle -s $curcontext subword-range subwordrange; then
subwordrange='[:upper:]'
fi
# The rule here is that a word boundary may be an upper case letter
# followed by a lower case letter, or an upper case letter at
# the start of a group of upper case letters. To make
# it easier to be consistent, we just use anything that
# isn't an upper case characer instead of a lower case
# character.
# Here the initial "*" will match greedily, so we get the
# last such match, as we want.
integer epos
if [[ $word1 = (#b)(*)([${~subwordrange}][^${~subwordrange}]*) ]]; then
(( epos = ${#match[1]} ))
fi
if [[ $word1 = (#b)(*[^${~subwordrange}])([${~subwordrange}]*) ]]; then
(( ${#match[1]} > epos )) && (( epos = ${#match[1]} ))
fi
if (( epos > 0 )); then
pat1+=$word1[1,epos]
word1=$word1[epos+1,-1]
fi
fi
match=()
charskip=
repeat $skip charskip+=\?
eval pat2='${RBUFFER##(#b)('${charskip}${spacepat}')('\
${wordpat2}')('${spacepat}')}'
ws2=$match[1]
word2=$match[2]
ws3=$match[3]
if [[ $wordstyle = *subword* ]]; then
# Do we have a group of upper case characters at the start
# of word2 (that don't form the entire word)?
# Again, rely on greedy matching of first pattern.
if [[ $word2 = (#b)([${~subwordrange}][${~subwordrange}]##)(*) &&
-n $match[2] ]]; then
# Yes, so the last one is new word boundary.
(( epos = ${#match[1]} - 1 ))
# Otherwise, do we have upper followed by non-upper not
# at the start? Ignore the initial character, we already
# know it's a word boundary so it can be an upper case character
# if it wants.
elif [[ $word2 = (#b)(?[^${~subwordrange}]##)[${~subwordrange}]* ]]; then
(( epos = ${#match[1]} ))
else
(( epos = 0 ))
fi
if (( epos )); then
# Careful: if we matched a subword there's no whitespace immediately
# after the matched word, so ws3 should be empty and any existing
# value tacked onto pat2.
pat2="${word2[epos+1,-1]}$ws3$pat2"
ws3=
word2=$word2[1,epos]
fi
fi
matched_words=("$pat1" "$word1" "$ws1" "$ws2" "$word2" "$ws3" "$pat2")
PK [) functions/_lzopnu W+A #compdef lzop
local expl state line decompress disp curcontext="$curcontext" sep ret=1
typeset -A opt_args
_arguments -C -s \
'(-c --stdout --to-stdout)'{-c,--stdout,--to-stdout}'[write on standard output]' \
'(-d --decompress --uncompress -x -extract)'{-d,--decompress,--uncompress}'[decompress]' \
'(-x --extract -d --decompress --uncompress -n --name -p --path)'{-x,--extract}'[extract]' \
'(-f --force)'{-f,--force}'[force overwrite]' \
'(- *)'{-h,-H,--help}'[display help information]' \
'(-l --list)'{-l,--list}'[list compressed file contents]' \
'(-L --license)'{-L,--license}'[display software license]' \
'(-n --no-name -N --name)'{-n,--no-name}'[do not save or restore the original name and time stamp]' \
'(-N --name -n --no-name)'{-N,--name}'[save or restore the original name and time stamp]' \
'--no-mode[do not restore original mode]' \
'--no-time[do not restore original time stamp]' \
'(-q --quiet --silent)'{-q,--quiet,--silent}'[suppress all warnings]' \
'(-r --recursive)'{-r,--recursive}'[operate recursively on directories]' \
'(-S --suffix)'{-S+,--suffix=}'[specify suffix for compressed files]:suffix' \
'(-t --test)'{-t,--test}'[test compressed file integrity]' \
\*{-v,--verbose}'[verbose mode]' \
'(- *)'{-V,--version}'[display version number]' \
'( -1 -2 -3 -4 -5 -6 -7 -8 -9 --best)--fast' \
'(--fast -2 -3 -4 -5 -6 -7 -8 -9 --best)-1' \
'(--fast -1 -3 -4 -5 -6 -7 -8 -9 --best)-2' \
'(--fast -1 -2 -4 -5 -6 -7 -8 -9 --best)-3' \
'(--fast -1 -2 -3 -5 -6 -7 -8 -9 --best)-4' \
'(--fast -1 -2 -3 -4 -6 -7 -8 -9 --best)-5' \
'(--fast -1 -2 -3 -4 -5 -7 -8 -9 --best)-6' \
'(--fast -1 -2 -3 -4 -5 -6 -8 -9 --best)-7' \
'(--fast -1 -2 -3 -4 -5 -6 -7 -9 --best)-8' \
'(--fast -1 -2 -3 -4 -5 -6 -7 -8 --best)-9' \
'(--fast -1 -2 -3 -4 -5 -6 -7 -8 -9 )--best' \
'--ls=[list each compressed file in a format similar to ls -ln]:ls flag:->flags' \
'--info[list internal header fields for each compressed file]' \
'(-I --sysinfo)'{-I,--sysinfo}'[display information about the system]' \
'(-o --outfile)'{-o,--outfile=}'[specify output file]:output file:_files' \
'(-p --path)'{-p,--path=}'[write output files to specified directory]:directory:_files -/' \
'(-F --no-checksum)'{-F,--no-checksum}'[do not store or verify a checksum]' \
'(-k --keep -U --unlink --delete)'{-k,--keep}"[keep (don't delete) input files]" \
'(-U --unlink --delete)'{-U,--unlink,--delete}'[delete input files]' \
'--no-stdin[do not try to read stdin]' \
'--no-warn[suppress all warnings]' \
'--ignore-warn[suppress all warnings and never exit with status 2]' \
'--no-color[do not use an color escape sequences]' \
'--mono[assume a mono ANSI terminal]' \
'--color[assume a color ANSI terminal]' \
'--intro[display intro sequence]' \
'--filter=[preprocess data with a special multimedia filter]:number' \
'*:files:->files' && ret=0
case "$state" in
files)
if (( $+opt_args[-d] || $+opt_args[--decompress] ||
$+opt_args[--uncompress] || $+opt_args[-x] || $+opt_args[--extract] ||
$+opt_args[--test] || $+opt_args[-t] || $+opt_args[--list] ||
$+opt_args[-l] || $+opt_args[--ls] || $+opt_args[--info] )); then
_description files expl 'compressed file'
_files "$expl[@]" -g '*.[tl]zo(-.)' && ret=0
else
_description files expl 'file to compress'
_files "$expl[@]" -g '^*.[tl]zo(-.)' && ret=0
fi
;;
flags)
zstyle -s ":completion:${curcontext}:flags" list-separator sep || sep=--
disp=(
"F $sep Append a \`*' for executable files"
"G $sep Inhibit display of group information"
"Q $sep Enclose file names in double quotes" )
disp=( ${disp[@]:#[Z$PREFIX]*} )
compset -P '[FGQ]*'
compadd -d disp - ${disp[@]%% *} && ret=0
;;
esac
return ret
PK [#5 functions/_pkgaddnu W+A #compdef pkgadd
_pkgadd_pass() {
_values -S : 'password descriptor' \
'(file env console)pass[literal password]:password:' \
'(pass file console)env[environment variable]:environment:_parameters -g "*export*"' \
'(pass env console)file[file]:file:_files' \
'(pass env file)console[from /dev/tty]'
}
_pkgadd() {
_arguments -s \
'-d[device]:device file:_files' \
'-x[HTTP(S) proxy]:HTTP proxy: ' \
'-k[keystore]:keystore:_files' \
'-P[password to decrypt keystore]:password:_pkgadd_pass' \
'-Y[select packages by category]:category: ' \
- set1 \
'-n[non-interactive mode]' \
'-v[trace all scripts]' \
'-a[admin file]:admin file:_files' \
"-M[don't use vfstab file]" \
'-R[root path]:root path:_files -/' \
'-r[response file]:response file:_files' \
'-V[alternate vfstab file]:vfstab file:_files' \
'*:package instance:_pkg_instance --_opts uninstalled:-d' \
- set2 \
'-s[spool package]:spool directory:_files -/' \
'*:package instance:_pkg_instance --_opts uninstalled:-d'
}
_pkgadd "$@"
PK [OА functions/_debfosternu W+A #compdef debfoster
local curcontext="$curcontext" state line expl ret=1
_arguments -C \
'(-v --verbose)'{-v,--verbose}'[be a loudmouth]' \
'(-V --version)'{-V,--versuib}'[show version and copyright information]' \
'(-h --help)'{-h,--help}'[show help information]' \
'(-q --quiet)'{-q,--quiet}'[silently build keeper file]' \
'(-f --force)'{-f,--force}'[force system to conform to keeper file]' \
'(-m --mark-only)'{-m,--mark-only}'[do not install or delete packages]' \
'(-u --upgrade)'{-u,--upgrade}'[try to upgrade dependencies]' \
'(-c --config)'{-c,--config}'[specify configuration file]:file:_files' \
'(-k --keeperfile)'{-k,--keeperfile}'[specify keeper file]:file:_files' \
'(-n --no-keeperfile)'{-n,--no-keeperfile}'[do not read keeper file]' \
'(-i --ignore-default-rules)'{-i,--ignore-default-rules}'[ignore default rules]' \
'(-a --show-keepers)'{-a,--show-keepers}'[show packages on keeper list]' \
'(-s --show-orphans)'{-s,--show-orphans}'[show orphaned packages]' \
'(-d --show-depends)'{-d,--show-depends}'[show all depends of specified package]:package:_deb_packages avail' \
'(-e --show-dependents)'{-e,--show-dependents}'[show dependents of specified package]:package:_deb_packages avail' \
'(-p --show-providers)'{-p,--show-providers}'[show packages providing specified package]:package:_deb_packages avail' \
'(-r --show-related)'{-r,--show-related}'[show packages brought in by specified package]:package:_deb_packages avail' \
'(-t --use-tasks)'{-t,--use-tasks}'[make tasks visible as packages]' \
'*-'{-option,o}'[override any configuration option]:option string:->option' \
'*:package markings: _alternative "installed:installed packages:_deb_packages -S- installed" "uninstalled:uninstalled packages:_deb_packages uninstalled"' \
&& ret=0
if [[ -n "$state" ]]; then
if compset -P '*='; then
case "$IPREFIX" in
*(#i)(install|remove|info)cmd*)
_wanted values expl 'command string' _command && ret=0
;;
*(#i)(keeperfile|dpkg(status|available))*)
_wanted values expl 'metadata file' _files && ret=0
;;
*(#i)maxpriority*)
_wanted values expl 'package priority' \
compadd required important standard optional extra ANY && ret=0
;;
*(#i)(use(hold|essential|predepends|recommends|suggests|tasks)|negativekeepers|verbose|force|quiet)*)
_wanted values expl 'truth value' \
compadd yes no && ret=0
;;
*(#i)(no|)keepsections*)
_wanted values expl 'section' compadd \
x11 web utils text tex sound shells science \
otherosfs oldlibs news net misc math mail libs \
interpreters hamradio graphics games electronics \
editors doc devel comm base admin && ret=0
;;
*(#i)guessdepends*)
_wanted values expl 'name extension' \
compadd doc dev && ret=0
;;
esac
else
_wanted values expl 'configure file option' \
compadd -M 'm:{a-z}={A-Z}' -S '=' - \
InstallCmd RemoveCmd InfoCmd KeeperFile DpkgStatus \
DpkgAvailable MaxPriority UseHold UseEssential \
UsePreDepends UseRecommends UseSuggests UseTasks \
KeepSections NokeepSections GuessDepends NegativeKeepers \
Verbose Force Quiet && ret=0
fi
fi
return ret
PK [u functions/_setupnu W+A #autoload
local val nm="$compstate[nmatches]"
[[ $# -eq 1 ]] && 2="$1"
if zstyle -a ":completion:${curcontext}:$1" list-colors val; then
zmodload -i zsh/complist
if [[ "$1" = default ]]; then
_comp_colors=( "$val[@]" )
else
_comp_colors=( "$_comp_colors[@]"
"(${2})${(@)^val:#(|\(*\)*)}" "${(M@)val:#\(*\)*}" )
fi
# Here is the problem mentioned in _main_complete.
# elif [[ "$1" = default && -n "$ZLS_COLORS$ZLS_COLOURS" ]]; then
# zmodload -i zsh/complist
# ZLS_COLORS="$ZLS_COLORS$ZLS_COLOURS"
elif [[ "$1" = default ]]; then
unset ZLS_COLORS ZLS_COLOURS
fi
if zstyle -t ":completion:${curcontext}:$1" list-packed; then
compstate[list]="${compstate[list]} packed"
elif [[ $? -eq 1 ]]; then
compstate[list]="${compstate[list]:gs/packed//}"
else
compstate[list]="$_saved_list"
fi
if zstyle -t ":completion:${curcontext}:$1" list-rows-first; then
compstate[list]="${compstate[list]} rows"
elif [[ $? -eq 1 ]]; then
compstate[list]="${compstate[list]:gs/rows//}"
else
compstate[list]="$_saved_list"
fi
if zstyle -t ":completion:${curcontext}:$1" last-prompt; then
compstate[last_prompt]=yes
elif [[ $? -eq 1 ]]; then
compstate[last_prompt]=''
else
compstate[last_prompt]="$_saved_lastprompt"
fi
if zstyle -t ":completion:${curcontext}:$1" accept-exact; then
compstate[exact]=accept
elif [[ $? -eq 1 ]]; then
compstate[exact]=''
else
compstate[exact]="$_saved_exact"
fi
[[ _last_nmatches -ge 0 && _last_nmatches -ne nm ]] &&
_menu_style=( "$_last_menu_style[@]" "$_menu_style[@]" )
if zstyle -a ":completion:${curcontext}:$1" menu val; then
_last_nmatches=$nm
_last_menu_style=( "$val[@]" )
else
_last_nmatches=-1
fi
[[ "$_comp_force_list" != always ]] &&
zstyle -s ":completion:${curcontext}:$1" force-list val &&
[[ "$val" = always ||
( "$val" = [0-9]## &&
( -z "$_comp_force_list" || _comp_force_list -gt val ) ) ]] &&
_comp_force_list="$val"
PK [3%O O functions/_bugnu W+A #compdef bug reportbug querybts
local _bug_commonargs _rb_commonargs
_bug_commonargs=(
'-d[debug: send mail to postmaster@localhost]'
'-m[maintainer-only]'
'-p[print to stdout instead of mail]'
'-h[help]'
'*:package:_deb_packages installed'
)
_rb_commonargs=(
'(-B --bts)'{-B,--bts=}'[use alternate BTS]:system:(debian gnome kde tdyc kde-debian)'
'(-l --ldap)'{-l,--ldap}'[enable LDAP support]'
'(-l --ldap)--no-ldap[disable LDAP support]'
'(--proxy --http_proxy)'--{http_,}'proxy=:proxy host:_hosts'
)
case "$service" in
bug)
_arguments \
'-c[exclude configs from report]' \
'-f[argument is a file, not a package]' \
'-H[special header]:custom header:' \
'-q[quiet - no e-mail forwarding]' \
'-s[set subject]:subject:' \
'-S[set severity]:severity:(wishlist normal important serious grave critical)' \
'-v[version]' \
'-x[do not cc submitter]' \
'-z[send configs verbatim]' \
"$_bug_commonargs[@]"
;;
reportbug)
_arguments \
'(-c --no-config-files)'{-c,--no-config-files}'[exclude configs from report]' \
'(-f --filename)'{-f,--filename=}'[argument is a file, not a package]:filename:_files' \
'(-H --header)'{-H,--header=}'[special header]:custom header' \
'(-s --subject)'{-s,--subject=}'[set subject]:subject' \
'(-S --severity)'{-S,--severity=}'[set severity]:severity:(wishlist normal important serious grave critical)' \
'(-x --no-cc)'{-x,--no-cc}'[do not cc submitter]' \
'(-z --no-compress)'{-z,--no-compress}'[send configs verbatim]' \
'(-a --af)'{-a,--af}'[use af instead of editor]' \
'(-g --gpg --gnupg)'{-g,--gpg,--gnupg}'[sign report with GnuPG]' \
'(-i --include)'{-i,--include}'[include text]:include file:_files' \
'(-A --attach)'{-A,--attach=}'[attach file]:attachment:_files' \
'(-M --mutt)'{-M,--mutt}'[use mutt instead of editor]' \
'(-G --gnus)'{-G,--gnus}'[use GNUS instead of editor]' \
'(-e --editor)'{-e,--editor=}'[use specified editor instead of editor]:editor' \
'--mua=[use specified mua instead of editor]' \
'--mta=[use specified mta]' \
'(-n --nmh --mh)'{-n,--nmh,--mh}'[use comp instead of editor]' \
'(-o --output)'{-o,--output=}'[output to file instead of mail]:output file:_files' \
'(-P --pgp)'{-P,--pgp}'[sign report with PGP]' \
'(-C --class)'{-C,--class=}':GNATS report class' \
'--realname=:real name' \
'(--replyto)--reply-to=' \
'(--reply-to)--replyto=' \
'--email=:originating address:_email_addresses' \
'--smtphost=:SMTP server:_hosts' \
'(-p --print)'{-p,--print}'[print to stdout instead of mail]' \
'(-q --quiet)'{-q,--quiet}'[reduce verbosity of output]' \
'(--no-query-source)--query-source' \
'(--query-source)--no-query-source' \
'(--no-debconf)--debconf' \
'(--debconf)--no-debconf' \
'(-Q --query-only)'{-Q,--query-only}'[do not submit]' \
'(-j --justification)'{-j,--justification=}':justification' \
'(-V --package-version)'{-V,--package-version=}':package version' \
'(-u --interface)'{-u,--interface=}':user interface' \
'(-t --type)'{-t,--type=}':type of report' \
'--template[output a template report only]' \
'--configure[reconfigure reportbug for this user]' \
'(--no-check-available)--check-available' \
'(--check-available)--no-check-available' \
'--mode=' \
'(-v --verify --no-verify)'{-v,--verify}'[verify integrity with debsums]' \
'(--verify -v)--no-verify' \
'(-k --kudos)'{-k,--kudos}'[send appreciative email to maintainer]' \
'--mirror=:BTS mirror:_hosts' \
'--list-cc=:carbon copy:' \
'--report-quiet' \
'(-O --offline)'{-O,--offline}'[disable external queries]' \
'(-b --no-query-bts --query-bts)'{-b,--no-query-bts}'[do not query BTS]' \
'(-b --no-query-bts)--query-bts' \
'(-T --tags)'{-T,--tags=}'[add specified tags]:tags' \
'(-m)--maintonly' \
'(-d)--debug' \
'--version' \
'--license' \
'(--no-paranoid)--paranoid' \
'(--paranoid)--no-paranoid' \
'--body=:message body string' \
'--body-file=:message body file:_files' \
"$_bug_commonargs[@]" \
"$_rb_commonargs[@]"
;;
querybts)
_arguments \
'(-w --web)'{-w,--web}'[launch external web browser]' \
'(-A --archive)'{-A,--archive}'[browse archived bugs]' \
'(-s --source)'{-s,--source}'[query for source packages rather than binary]' \
'(-v --version)'{-v,--version}'[show version]' \
"$_rb_commonargs[@]" \
'*:package:_deb_packages avail'
;;
esac
PK [+" " functions/_dpkgnu W+A #compdef dpkg dpkg-deb dpkg-query dpkg-reconfigure
local _dpkg_deb_actions _dpkg_common_actions _dpkg_actions _dpkg_options
local _dpkg_options_recursive #_dpkg_actions_install _dpkg_actions_record_avail
local _dpkg_deb_only_actions
local _dpkg_deb_and_query_only_actions _dpkg_deb_and_query_only_options
local _dpkg_query_actions
local curcontext="$curcontext" context state line expl ret
typeset -A opt_args
_dpkg_deb_only_actions=(
'-D[debugging output]'
'(--new)--old[old archive format]'
'(--old)--new[new archive format]'
'--nocheck[suppress control file check]'
'-z+[compression level]:compression number:(1 2 3 4 5 6 7 8 9)'
)
_dpkg_deb_actions=(
'(--build -b)'{--build,-b}'[build archive]:directory:_files -/'
'(--contents -c)'{--contents,-c}'[list contents]:Debian package:_files -g "*.u#deb(-.)"'
'(--info -I)'{--info,-I}'[show info]:Debian package:_files -g "*.u#deb(-.)"'
'(--field -f)'{--field,-f}'[show fields]:Debian package:_files -g "*.u#deb(-.)"'
'(--control -e)'{--control,-e}'[extract control]:Debian package:_files -g "*.u#deb(-.)"'
'(--extract -x)'{--extract,-x}'[extract files]:Debian package:_files -g "*.u#deb(-.)"'
'(--vextract -X)'{--vextract,-X}'[extract and list files]:Debian package:_files -g "*.u#deb(-.)"'
'--fsys-tarfile[output fs tarfile]:Debian package:_files -g "*.u#deb(-.)"'
)
_dpkg_common_actions=(
'--help[show help]'
'--version[show version]'
'(--license --licence)'{--license,--licence}'[show licencing]'
)
_dpkg_actions=(
'(--install -i)'{--install,-i}'[install packages]:*:Debian packages:->install'
'--unpack[unpack package]:Debian package:_files -g "*.deb(-.)"'
'--configure[reconfigure specified packages]:*:package:->configure'
'(--remove -r)'{--remove,-r}'[remove package]:*:package:->remove'
'(--purge -P)'{--purge,-P}'[purge package]:*:package:->purge'
'--update-avail[update available]:package file:_files'
'--merge-avail[merge available]:package file:_files'
'(--record-avail -A)'{--record-avail,-A}'[record available]:*:package files:->record_avail'
'--forget-old-unavail[forget uninstalled unavailable]'
'--clear-avail[clear available]'
'(--audit -C)'{--audit,-C}'[check for broken pkgs]'
'--get-selections[get selections]:pattern:'
'--set-selections[set selections]'
'--yet-to-unpack[list uninstalled]'
'--print-architecture[print target architecture]'
'--print-installation-architecture'
'--compare-versions[compare version numbers]:*::expression:= ->compare_versions'
)
_dpkg_options=(
'--abort-after[abort after errors]:number of errors:'
'--root=[alternative root]:root:_files -/'
'--instdir=[change inst root but not data dir]:_files -/'
'(--selected-only -O)'{--selected-only,-O}'[skip unselected packages]'
'(--skip-same-version -E)'{--skip-same-version,-E}'[skip packages with same version as installed]'
'(--refuse-downgrade -G)'{--refuse-downgrade,-G}'[skip packages with earlier version than installed]'
'(--auto-deconfigure -B)'{--auto-deconfigure,-B}'[install can break other packages]'
'--largemem[optimize for >4Mb RAM]'
'--smallmem[optimize for <4Mb RAM]'
'--no-act[show potential actions but do not follow through]'
'-D+[debug options]:debug options:(h 1 2 3)'
'--debug=[debug options]:debug options:(help 1 2 3)'
'--ignore-depends=[ignore depends involving package]:package:_deb_packages avail'
--{force,refuse,no-force}'--[forcing options]:what:(all downgrade configure-any hold bad-path not-root overwrite overwrite-diverted bad-verify depends-version depends confnew confold confdef confmiss conflicts architecture overwrite-dir remove-reinstreq remove-essential help)'
)
_dpkg_options_recursive=( '(--recursive -R)'{--recursive,-R}'[recursive]' )
_dpkg_deb_and_query_only_actions=(
'(--show -W)'{--show,-W}'[show package info]:Debian package:_files -g \*.u\#deb'
)
_dpkg_deb_and_query_only_options=(
'--showformat=-[alternative format]:format: '
)
_dpkg_query_actions=(
'(--status -s)'{--status,-s}'[display package status]:*:packages:->status'
'(--print-avail -p)'{--print-avail,-p}'[display available details]:packages:_deb_packages avail'
'(--listfiles, -L)'{--listfiles,-L}'[list owned files]:*:packages:->listfiles'
'(--list -l)'{--list,-l}'[list packages]:*:packages:->list'
'(--search -S)'{--search,-S}'[search for file owner]:*:pattern:->search'
'--admindir=[data directory]:directory:_files -/'
)
# not needed anymore?
# _dpkg_actions_install=('(--install)-i[install]' '(-i)--install')
# _dpkg_actions_record_avail=('(--record-avail)-A[record available]' '(-A)--record-avail')
case "$service" in
dpkg)
_arguments -C -s \
"$_dpkg_actions[@]" \
"$_dpkg_deb_actions[@]" \
"$_dpkg_common_actions[@]" \
"$_dpkg_options[@]" \
"$_dpkg_options_recursive[@]" \
"$_dpkg_query_actions[@]" && return 0
;;
dpkg-deb)
_arguments "$_dpkg_deb_actions[@]" \
"$_dpkg_deb_only_actions[@]" \
"$_dpkg_common_actions[@]" \
"$_dpkg_deb_and_query_only_actions[@]" \
"$_dpkg_deb_and_query_only_options[@]" && return 0
;;
dpkg-query)
_arguments "$_dpkg_query_actions[@]" \
"$_dpkg_common_actions[@]" \
"$_dpkg_deb_and_query_only_actions[@]" \
"$_dpkg_deb_and_query_only_options[@]" && return 0
;;
dpkg-reconfigure)
_arguments -s -w \
'(-f --frontend)'{-f,--frontend}'[select frontend to use]:frontend:(dialog readline noninteractive gnome kde editor web)' \
'(-p --priority)'{-p,--priority}'[specify min priority of questions]:priority:(low medium high critical)' \
'--default-priority[use default question priority]' \
'(*)--all[reconfigure all installed packages using debconf]' \
'(-u --unseen-only)'{-u,--unseen-only}'[only ask questions not yet seen are asked]' \
'--force[reconfigure even packages in broken state]' \
'(-)'{-h,--help}'[display help information]' \
'*:package:_deb_packages installed' && return 0
;;
esac
case "$state" in
install|record_avail)
_call_function ret _dpkg_$state && return ret
# not needed anymore?
# "${(@e):-\$_dpkg_actions_${state}}" \
_arguments -C -A '-*' -s \
"$_dpkg_options[@]" \
\!${^_dpkg_actions%%:*} \
- recur \
"$_dpkg_options_recursive[@]" \
'*:directory:_path_files -/' \
- nonrecur \
'*:Debian package:_path_files -g "*.deb(-.)"'
;;
remove|status|listfiles)
_call_function ret _dpkg_$state && return ret
_arguments -C -A "-*" -s "$_dpkg_options[@]" \
'*:package:_deb_packages installed'
;;
purge)
_call_function ret _dpkg_$state && return ret
_arguments -C -A "-*" -s "$_dpkg_options[@]" \
'*:package:_deb_packages xinstalled'
;;
list)
_call_function ret _dpkg_$state && return ret
_arguments -C -A "-*" -s "$_dpkg_options[@]" \
'*:packages:_deb_packages avail'
;;
compare_versions)
_call_function ret _dpkg_$state && return ret
_arguments -C -A "-*" -s \
'1:version A:' \
'2:operator:(lt le eq ne ge gt lt-nl le-nl ge-nl gt-nl)' \
'3:version B:'
;;
configure)
_call_function ret _dpkg_$state && return ret
_arguments -C -A "-*" -s '--configure' \
"$_dpkg_options[@]" \
'(* -a --pending)'{-a,--pending}'[pending packages]' \
'*:package:_deb_packages installed'
;;
search)
_call_function ret _dpkg_$state && return ret
_files
;;
esac
PK [=f functions/_user_adminnu W+A #compdef useradd usermod groupadd groupmod
local args shells home=${${words[(r)-D]:+b}:-d} sun redhat
[[ -e /etc/redhat-release || -e /etc/mandrake-release ]]
redhat=$?
if [[ $service = user* ]]; then
if [[ -r /etc/shells ]]; then
shells=( ${${(f)"$(&1)"}[1]}}[2]}
if [[ -r $acropath ]]; then
_acroread_version=${${(M)${(f)"$(<$acropath)"}:#ver=*}##ver=}
fi
fi
fi
if [[ $_acroread_version == [789].* ]]; then
local -a extra_args
extra_args=()
if [[ $_acroread_version == [89].* ]]; then
extra_args+=(-man '-installCertificate:server ip::server port')
fi
if [[ $_acroread_version == 9.* ]]; then
extra_args+=(-openInNewInstance)
fi
_arguments -C \
"${extra_args[@]}" \
'--display=:X display:_x_display' \
'--screen=:X screen (overrides the screen part of DISPLAY)' \
--sync \
'-geometry:[x][{+|-}{+|-}]' \
-help \
-iconic \
'*-setenv:=' \
-tempFile \
'-tempFileTitle:title' \
-openInNewWindow \
-version \
'-visual:X visual:_x_visual' \
'-toPostScript:*::PostScript conversion options:= ->tops' \
'*:PDF file:_files -g "*.(#i)pdf(-.)"' && return
[[ -n "$state" ]] && _arguments \
'-pairs:*:pdf_file_1 ps_file_1 ...:_files -g "*.(#i)(pdf|ps)(-.)"' \
-binary \
'-start:integer' \
'-end:integer' \
-optimizeForSpeed \
-landscape \
-reverse \
'(-even)-odd' \
'(-odd)-even' \
-commentsOff \
-annotsOff \
-stampsOff \
-markupsOn \
'(-level3)-level2' \
'(-level2)-level3' \
-printerhalftones \
-saveVM \
'-scale:integer' \
-shrink \
-expand \
'-size:page size (or custom size wxh in points):(letter tabloid ledger legal executive a3 a4 a5 b4 b5)' \
'-transQuality:transparency flattening level:(1 2 3 4 5)' \
'*:PDF file:_files -g "*.(#i)pdf(-.)"' && return
else
_x_arguments -C \
-help \
-helpall \
\*-iconic \
\*+iconic \
'-name:application name:_x_name' \
'*-setenv:=' \
-tempFile \
'-tempFileTitle:title' \
'(+useFrontEndProgram)-useFrontEndProgram' \
'(-useFrontEndProgram)+useFrontEndProgram' \
'-visual:X visual:_x_visual' \
'-xrm:X resource specification:_x_resource' \
'-toPostScript:*::PostScript conversion options:= ->tops' \
'*:PDF file:_files -g "*.(#i)pdf(-.)"' && return
[[ -n "$state" ]] && _arguments \
'-pairs:*:pdf_file_1 ps_file_1 ...:_files -g "*.(#i)(pdf|ps)(-.)"' \
-binary \
'-start:integer' \
'-end:integer' \
-optimizeForSpeed \
-landscape \
-reverse \
'(-even)-odd' \
'(-odd)-even' \
-commentsOff \
'(-level2 -level3)-level1' \
'(-level1 -level3)-level2' \
'(-level1 -level2)-level3' \
-printerhalftones \
-saveVM \
'-scale:integer' \
-shrink \
'-size:page size (or custom size wxh in points):(letter tabloid ledger legal executive a3 a4 a5 b4 b5)' \
'-transQuality:transparency flattening level:(1 2 3 4 5)' \
'*:PDF file:_files -g "*.(#i)pdf(-.)"' && return
fi
return 1
PK [X functions/_xmodmapnu W+A #compdef xmodmap
local curcontext="$curcontext" state line ret=1
typeset -A opt_args
_x_arguments -C \
-{help,grammar,verbose,quiet} \
'-n[only show what would be done]' \
'*-e[specify expression]:expression:->expr' \
'-pm[print modifier map]' \
'-pk[print keymap table]' \
'-pke[print keymap table as expressions]' \
'-pp[print pointer map]' \
':X mapping file:_files' && ret=0
if [[ -n "$state" ]]; then
local expl expr="${PREFIX##[ ]#}" what suf
if compset -P '[^ ]##[ ]##'; then
case "$expr" in
keycode*)
if compset -P '*=[ ]#'; then
compset -P '*[ ]'
what=ksyms
elif [[ "$expr" = *[\ \ ]##[^\ \ ]##[\ \ ] ]]; then
IPREFIX="${IPREFIX}${PREFIX}"
PREFIX=''
compadd -S ' ' '=' && ret=0
else
_message -e keys 'key code or `any'"'"
fi
;;
keysym*)
if compset -P '*=[ ]#'; then
compset -P '*[ ]'
what=ksyms
elif [[ "$expr" = *[\ \ ]##[^\ \ ]##[\ \ ] ]]; then
IPREFIX="${IPREFIX}${PREFIX}"
PREFIX=''
compadd -S ' ' '=' && ret=0
else
what=ksym-eq
fi
;;
clear*)
what=mods
;;
(add|remove)*)
if compset -P '*[ ]##'; then
what=ksyms
else
what=mods-eq
fi
;;
pointer*)
if compset -P '*=[ ]#'; then
compset -P '*[ ]'
_description values expl 'button code'
compadd "$expl[@]" -qS ' ' 1 2 3 4 5 default
return
else
IPREFIX="${IPREFIX}${PREFIX}"
PREFIX=''
compadd -S ' ' '=' && ret=0
fi
;;
esac
if [[ "$what" = *eq* ]]; then
suf=(-S ' = ')
elif [[ "$what" = *ksyms* ]]; then
if [[ -n "$compstate[quote]" ]]; then
suf=(-S "$compstate[quote] " -r "$compstate[quote] ")
else
suf=(-qS ' ')
fi
else
suf=()
fi
[[ "$what" = *mods* ]] && _x_modifier "$suf[@]" && ret=0
[[ "$what" = *ksym* ]] && _x_keysym "$suf[@]" && ret=0
else
_tags commands
while _tags; do
while _next_label commands expl command; do
compadd "$expl[@]" -S ' ' keycode keysym clear add remove && ret=0
compadd "$expl[@]" -S ' = ' pointer && ret=0
done
(( ret )) || return 0
done
fi
fi
return ret
PK [Bҽ functions/tcp_aliasnu W+A # Create an alias for a TCP session.
#
# The syntax is similar to the `alias' builtin. Aliases with a trailing
# `=' are assigned, while those without are listed.
#
# The alias can be used to refer to the session, however any output
# from the session will be shown using information for the base
# session name. Likewise, any other reference to the session's file
# descriptor will cause the original session name rather than the alias to
# be used.
#
# It is an error to attempt to create an alias for a non-existent session.
# The alias will be removed when the session is closed.
#
# An alias can be reused without the session having to be closed.
# However, a base session name cannot be used as an alias. If this
# becomes necessary, the base session should be renamed with tcp_rename
# first.
#
# With no arguments, list aliases.
#
# With the option -d, delete the alias. No value is allowed in this case.
#
# With the option -q (quiet), just return status 1 on failure. This
# does not apply to bad syntax, which is always reported. Bad syntax
# includes deleting aliases when supplying a value.
emulate -L zsh
setopt extendedglob cbases
local opt quiet base value alias delete arg match mbegin mend fd array
integer stat index
while getopts "qd" opt; do
case $opt in
(q) quiet=1
;;
(d) delete=1
;;
(*) return 1
;;
esac
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
if (( ! $# )); then
if (( ${#tcp_aliases} )); then
for fd value in ${(kv)tcp_aliases}; do
for alias in ${=value}; do
print -r - \
"${alias}: alias for session ${tcp_by_fd[$fd]:-unnamed fd $fd}"
done
done
fi
return 0
fi
for arg in $*; do
if [[ $arg = (#b)([^=]##)=(*) ]]; then
if [[ -n $delete ]]; then
print "$0: value given with deletion command." >&2
stat=1
continue
fi
alias=$match[1]
base=$match[2]
if [[ -z $base ]]; then
# hmm, this is very nearly a syntax error...
[[ -z $quiet ]] && print "$0: empty value for alias $alias" >&2
stat=1
continue
fi
if [[ ${+tcp_by_name} -eq 0 || -z ${tcp_by_name[$base]} ]]; then
[[ -z $quiet ]] && print "$0: no base session \`$base' for alias"
stat=1
continue
fi
if [[ -n ${tcp_by_name[$alias]} ]]; then
# already exists, OK if this is an alias...
fd=${tcp_by_name[$alias]}
array=(${=tcp_aliases[$fd]})
if [[ -n ${array[(r)$alias]} ]]; then
# yes, we're OK; delete the old alias.
unset "tcp_by_name[$alias]"
index=${array[(i)$alias]}
array=(${array[1,index-1]} ${array[index+1,-1]})
if [[ -z "$array" ]]; then
unset "tcp_aliases[$fd]"
else
tcp_aliases[$fd]="$array"
fi
else
# oops
if [[ -z $quiet ]]; then
print "$0: \`$alias' is already a session name." >&2
fi
stat=1
continue
fi
fi
(( ! ${+tcp_aliases} )) && typeset -gA tcp_aliases
fd=${tcp_by_name[$base]}
if [[ -n ${tcp_aliases[$fd]} ]]; then
tcp_aliases[$fd]+=" $alias"
else
tcp_aliases[$fd]=$alias
fi
tcp_by_name[$alias]=$fd
if zmodload -i zsh/parameter; then
if (( ${+functions[tcp_on_alias]} )); then
tcp_on_alias $alias $fd
fi
fi
else
alias=$arg
fd=${tcp_by_name[$alias]}
if [[ -z $fd ]]; then
print "$0: no such alias \`$alias'" >&2
stat=1
continue
fi
# OK if this is an alias...
array=(${=tcp_aliases[$fd]})
if [[ -n ${array[(r)$alias]} ]]; then
# yes, we're OK
if [[ -n $delete ]]; then
unset "tcp_by_name[$alias]"
index=${array[(i)$alias]}
array=(${array[1,index-1]} ${array[index+1,-1]})
if [[ -z "$array" ]]; then
unset "tcp_aliases[$fd]"
else
tcp_aliases[$fd]="$array"
fi
if zmodload -i zsh/parameter; then
if (( ${+functions[tcp_on_unalias]} )); then
tcp_on_unalias $alias $fd
fi
fi
else
print -r - \
"${alias}: alias for session ${tcp_by_fd[$fd]:-unnamed fd $fd}"
fi
else
# oops
if [[ -z $quiet ]]; then
print "$0: \`$alias' is a session name." >&2
fi
stat=1
continue
fi
fi
done
return $stat
PK [| | functions/_vim-addonsnu W+A #compdef vim-addons
local state line cmds ret=1
typeset -A opt_args
_arguments -C \
{-q,--query}'[be quiet and make the output more parseable]' \
{-r,--registry-dir}'[set the registry directory]' \
{-s,--source-dir}'[set addon source directory]' \
{-t,--target-dir}'[set addon target directory]' \
{-v,--verbose}'[increase verbosity]' \
{-y,--system-dir}'[set system-wide target directory]' \
{-h,--help}'[help]' \
{-w,--system-wide}'[set target directory to the system-wide one (overrides -t)]' \
'1: :->cmds' \
'*: :->args' && ret=0
case $state in
cmds)
cmds=(
'install:install the specified addon'
'remove:remove the specified addon'
'list:list available addons in registry'
'status:list the status of addons'
'disable:disable the specified addons'
'amend:under the effects of the previous disable'
'files:list the files composing the specified addon'
'show:display detailed information about the specified addon'
)
_describe -t commands 'vim-addons command' cmds && ret=0
;;
args)
case $line[1] in
install)
_wanted addon expl 'addon' compadd $(command vim-addons -q | awk '$2 == "removed" { print $1 }') && ret=0
;;
amend)
_wanted addon expl 'addon' compadd $(command vim-addons -q | awk '$2 == "disabled" { print $1 }') && ret=0
;;
remove)
_wanted addon expl 'addon' compadd $(command vim-addons -q | awk '$2 ~ /disabled|installed/ { print $1 }') && ret=0
;;
files|status|disable|show)
_wanted addon expl 'addon' compadd $(command vim-addons list) && ret=0
;;
esac
;;
esac
return ret
PK [jw functions/_limitnu W+A #compdef limit
if ! ((CURRENT % 2)); then
_limits
elif [[ $PREFIX = u* ]]; then
compadd unlimited
else
_message -e values "number and scaling factor"
fi
PK [C+ functions/VCS_INFO_get_cmdnu W+A ## vim:ft=zsh
# find out if the user wants us to use a special binary.
# the default command name is the same as the backend name.
local cmd
zstyle -s ":vcs_info:${vcs}:${usercontext}:${rrn}" "command" cmd
vcs_comm[cmd]=${cmd:-$vcs}
PK [~ functions/VCS_INFO_quiltnu W+A ## vim:ft=zsh:foldmethod=marker
function VCS_INFO_quilt-match() {
emulate -L zsh
setopt extendedglob
local d mode="$1" param="$2"
local -a list
case ${mode} in
(assoc) list=( ${(kOP)param} );;
(array) : "${foo[@]}" ${(t)foo}; list=( ${(OP)param} );;
(*) return 1;;
esac
for d in "${list[@]}"; do
if [[ ${PWD} == ${d%/##}(|/*) ]]; then
print "$d"
return 0
fi
done
return 1
}
function VCS_INFO_quilt-standalone-detect() {
emulate -L zsh
setopt extendedglob
local param
local -i ret
zstyle -s "${context}" quilt-standalone param || return 1
[[ "${param}" == 'never' ]] && return 1
[[ "${param}" == 'always' ]] && return 0
if (( ${+functions[$param]} )); then
${param}
return $?
fi
case ${(Pt)param} in
*association*)
local m
local -A A
m="$(VCS_INFO_quilt-match assoc ${param})"
A=(${(kvP)param})
(( $? == 0 )) && [[ ${A[$m]} == "true" ]] && return 0
return 1
;;
*array*)
typeset -gU ${param}
VCS_INFO_quilt-match array ${param} > /dev/null
return $?
;;
*scalar*)
[[ "${(P)param}" == 'always' ]] && return 0
[[ "${(P)param}" == 'never' ]] && return 1
;;
esac
# If nothing hit yet, it just wasn't meant to be.
return 1
}
function VCS_INFO_quilt-dirfind() {
# This is a wrapper around VCS_INFO_bydir_detect(). It makes sure
# that $vcs_comm[] is unchanged. Currently, changing anything in it
# should not be an issue, but this makes sure the code can safely
# be called elsewhere, too - if needed.
emulate -L zsh
setopt extendedglob
local dir="$1" file="$2"; shift $#
local ret oldfile olddir
olddir=${vcs_comm[basedir]}
vcs_comm[basedir]=''
if [[ -n "${file}" ]]; then
oldfile=${vcs_comm[detect_need_file]}
vcs_comm[detect_need_file]=${file}
fi
VCS_INFO_bydir_detect ${dir}
ret=$?
[[ -n "${file}" ]] && vcs_comm[detect_need_file]=${oldfile}
printf '%s' ${vcs_comm[basedir]}
vcs_comm[basedir]="${olddir}"
return ${ret}
}
function VCS_INFO_quilt() {
emulate -L zsh
setopt extendedglob
local mode="$1"
local patches pc tmp qstring root
local -i ret
local -x context
local -a applied unapplied applied_string unapplied_string quiltcommand
local -Ax hook_com
context=":vcs_info:${vcs}.quilt-${mode}:${usercontext}:${rrn}"
zstyle -t "${context}" use-quilt || return 1
case ${mode} in
(standalone)
VCS_INFO_quilt-standalone-detect || return 1
;;
(addon)
;;
(*)
printf 'Invalid mode: `%s'\''\n' "$1"
return 2
;;
esac
zstyle -s "${context}" quilt-patch-dir patches || patches="${QUILT_PATCHES}"
if [[ "${patches}" != /* ]]; then
tmp=${patches:-patches}
patches="$(VCS_INFO_quilt-dirfind "${tmp}")"
ret=$?
(( ret )) && return ${ret}
patches=${patches}/${tmp}
else
[[ -d ${patches} ]] || return 1
fi
pc="$(VCS_INFO_quilt-dirfind .pc .version)"
ret=$?
if (( ret == 0 )); then
[[ ${quiltmode} == 'standalone' ]] && root=${pc}
pc=${pc}/.pc
if [[ -e ${pc}/applied-patches ]]; then
applied=( ${(f)"$(<$pc/applied-patches)"} )
# throw away empty entries
applied=( ${applied:#} )
applied=( ${(Oa)applied} )
else
applied=()
fi
fi
if zstyle -t "${context}" get-unapplied; then
# This zstyle call needs to be moved further up if `quilt' needs
# to be run in more places than this one.
zstyle -s "${context}" quiltcommand quiltcommand || quiltcommand='quilt'
unapplied=( ${(f)"$(QUILT_PATCHES=$patches $quiltcommand --quiltrc /dev/null unapplied 2> /dev/null)"} )
unapplied=( ${unapplied:#} )
else
unapplied=()
fi
if VCS_INFO_hook 'gen-applied-string' "${applied[@]}"; then
if (( ${#applied} )); then
applied_string=${applied[1]}
else
applied_string=""
fi
else
applied_string=${hook_com[applied-string]}
fi
hook_com=()
if VCS_INFO_hook 'gen-unapplied-string' "${unapplied[@]}"; then
unapplied_string="${#unapplied}"
else
unapplied_string=${hook_com[unapplied-string]}
fi
if (( ${#applied} )); then
zstyle -s "${context}" patch-format qstring || qstring="%p (%n applied)"
else
zstyle -s "${context}" nopatch-format qstring || qstring="no patch applied"
fi
hook_com=( applied "${applied_string}" unapplied "${unapplied_string}"
applied-n ${#applied} unapplied-n ${#unapplied} )
if VCS_INFO_hook 'set-patch-format' ${qstring}; then
zformat -f qstring "${qstring}" "p:${hook_com[applied]}" "u:${hook_com[unapplied]}" \
"n:${#applied}" "c:${#unapplied}"
else
qstring=${hook_com[patch-replace]}
fi
hook_com=()
case ${mode} in
(standalone)
VCS_INFO_formats '' '' "${root}" '' '' '' "${qstring}"
VCS_INFO_set
;;
(addon)
# When VCS_INFO_quilt() is called with "addon" a "local -x REPLY" variable
# should be in place. That variable can be unset after it's being used.
REPLY="${qstring}"
;;
esac
VCS_INFO_hook 'post-quilt' ${mode} ${patches} ${pc:-\\-nopc-}
}
VCS_INFO_quilt "$@"
PK [ functions/_x_visualnu W+A #autoload
local expl
# with the -b option, include `Best' in the matches
local best="${argv[(r)-b]:+Best}"
argv[(i)-b]=()
_wanted visuals expl visual compadd "$@" -M 'm:{a-zA-Z}={A-Za-z}' - \
$best DirectColor TrueColor PseudoColor StaticColor GrayScale StaticGray
PK [qi i functions/_packnu W+A #compdef pack unpack pcat=unpack
local expl state line
case $service in
pack)
_arguments -C \
'-f[force packing even for files which will not benefit]' \
'-[show statistics for files]' \
'*:file to compress:_files -g "^*.z(-.)"'
;;
unpack)
_description files expl 'compressed file'
_files "$expl[@]" -g '*.z(-.)'
;;
esac
PK [:` functions/_umlnu W+A #compdef linux uml_moo uml_mconsole uml_switch tunctl
local curcontext="$curcontext" state st line expl suf ret=1
typeset -A opt_args
case $service in
uml_moo)
_arguments '1:COW file:_files -g "*cow*(-.)"' '2:new backing file:_files'
return
;;
uml_switch)
_arguments \
'-unix[listen on specified pair of sockets]:control socket: :data socket' \
'-hub[act like a hub]'
return
;;
uml_mconsole)
if (( CURRENT == 2 )); then
_wanted socket expl 'socket name' compadd {~/.uml,/tmp}/*/mconsole(N=:h:t) && ret=0
elif [[ $words[CURRENT-1] = config ]]; then
if [[ -prefix ubd || -prefix eth ]]; then
state=option
else
_wanted device expl device compadd -S '' ubd eth && ret=0
fi
elif [[ $words[CURRENT-1] = remove ]]; then
_wanted device expl device compadd ubd{0..7} eth{0..9} && ret=0
elif (( CURRENT == 3 )); then
_values 'command' \
'version[print the UML kernel version number]' \
'help[print help]' \
'halt[shutdown UML system immediately]' \
'reboot[reboot the UML system immediately]' \
'config[add a new device to the virtual machine]' \
'remove[delete a device from the virtual machine]' \
'sysrq[perform sysrq action]:key:((r\:turn\ of\ keyboard\ raw\ mode k\:secure\ access\ key b\:reboot o\:shutdown s\:sync u\:remount p\:dump\ registers t\:dump\ tasks m\:dump\ memory e\:SIGTERM\ to\ all i\:SIGKILL\ to\ all l\:SIGKILL\ to\ all\ inc.\ init h\:help {0..9}\:console\ log\ level))' \
'cad[invoke ctrl-alt-del handler]' \
'stop[pause the UML]' \
'go[continue the UML]' \
&& ret=0
else
_message 'no more arguments'
fi
;;
linux)
_arguments -C \
'(* -)--version[display kernel version number]' \
'(* -)--help[print usage information]' \
'(* -)--showconfig[show kernel configuration]' \
'(-)*:option:->option' && ret=0
;;
tunctl)
_arguments \
'(-d)-b[brief output]' \
'-f[specify tun clone device]:tun clone device:_files' \
'(-d)-u[specify owner]:owner:_users' \
'(-b -u -t)-d[specify devicename to delete]:device name:(tap{0..9})' \
'(-d)-t[specify devicename]:device name:(tap{0..9})'
return
;;
esac
while [[ -n $state ]]; do
st=$state
unset state
case $st in
option)
if compset -P '(ssl|con)[0-9]#='; then
state=channel
continue
elif compset -P con; then
_message -e consoles 'console number'
return
elif compset -P ssl; then
_message -e serial 'serial line number'
return
elif compset -P 'ubd[0-7](|r)(|s)='; then
compset -P '*,'
_files && return
elif compset -P ubd; then
_message -e devices 'device number'
return
elif compset -P 'eth[0-9]##='; then
if compset -P 1 '*,'; then
_message -e options option
else
_wanted transports expl transports compadd -S, \
ethertap tuntap daemon mcast slip && return
fi
return
elif compset -P eth; then
_message -e ethernet number
return
fi
compadd -n -S '' con ssl ubd eth && ret=0
_values -C -w "option" \
'mem[specify amount of "physical" memory to allocate]:memory' \
'iomem[configure file as named IO memory region]:arg:->iomem' \
'gdb[attach gdb to specified channel]:channel:->channel' \
'gdb-pid[specify pid of debugger]:debugger pid:_pids' \
'debugtrace[cause tracing thread to wait for debugger]' \
'honeypot[put process stacks in the same location as on host]' \
'debug[start kernel under gdb control]' \
'root[specify root filesystem]:root device' \
'umid[specify name for this UML machine]:name' \
'uml_dir[location to place pid and umid files]:directory:_directories' \
'initrd[boot from initrd image]:initrd file:_files' \
'jail[enable protection of kernel memory from processes]' \
'*con[attach a console to a host channel]:channel:->channel' \
'*ssl[attach a serial line to a host channel]:channel:->channel' \
'fake_ide[create ide0 entries which map onto ubd devices]' \
'*ubd[associate device with host file]' \
'fakehd[change the ubd device name to "hd"]' \
'*eth[configure a network device]' \
'ncpus[specify number of virtual processors to start]:processors' \
'mode[force UML to run in specified mode]:mode:(tt)' \
'mconsole[request mconsole driver to send a message to socket]:socket' \
'xterm[specify alternate terminal emulator]:terminal emulator:->xterm' \
'dsp[specify host dsp device]:dsp device:_files' \
'mixer[specify host mixer device]:mixer device:_files' \
'umn[specify ip address for host side of slip device]' && ret=0
;;
iomem)
if compset -P '*,'; then
_files && ret=0
else
_message -e name
fi
;;
channel)
compset -P '*,' || suf=( -S , )
_values -S : ${suf/S/s} "channel" \
pty pts xterm \
'tty:tty:_files $suf' \
"fd:file descriptor:_file_descriptors $suf" && ret=0
;;
xterm)
if compset -P 2 '*,'; then
_wanted -x argument expl 'execute switch' compadd - -e -x && ret=0
elif compset -P 1 '*,'; then
_wanted -x argument expl 'title switch' compadd -S , - -t -T -title && ret=0
else
_wanted command expl 'terminal emulator' _command_names -e -S , && ret=0
fi
;;
esac
done
return ret
PK [< functions/_command_namesnu W+A #autoload
# The option `-e' if given as the first argument says that we should
# complete only external commands and executable files. This and a
# `-' as the first argument is then removed from the arguments.
local args defs
zstyle -t ":completion:${curcontext}:commands" rehash && rehash
defs=(
'commands:external command:_path_commands'
)
[[ -n "$path[(r).]" || $PREFIX = */* ]] &&
defs=( "$defs[@]"
'executables:executable file or directory:_path_files -/g \*\(-\*\)'
)
if [[ "$1" = -e ]]; then
shift
else
[[ "$1" = - ]] && shift
defs=( "$defs[@]"
'builtins:builtin command:compadd -k builtins'
'functions:shell function:compadd -k functions'
'aliases:alias:compadd -k aliases'
'suffix-aliases:suffix alias:_suffix_alias_files'
'reserved-words:reserved word:compadd -k reswords'
'jobs:: _jobs -t'
'parameters:: _parameters -g "^*readonly*" -qS= -r "\n\t\- =["'
)
fi
args=( "$@" )
local -a cmdpath
if zstyle -a ":completion:${curcontext}" command-path cmdpath &&
[[ $#cmdpath -gt 0 ]]
then
local -a +h path
local -A +h commands
path=( $cmdpath )
fi
_alternative -O args "$defs[@]"
PK [/W W functions/_hdiutilnu W+A #compdef hdiutil
# utilities
#
_hdiutil_disk() {
local -a disk_desc
_call_program devices hdiutil info | while read; do
local disk_name="${${(M)REPLY[(w)1]%/dev/disk*}#/dev/}"
if (( #disk_name )); then
disk_desc+=( "$disk_name:${${(M)REPLY% *}#?}" )
fi
done
_describe -t devices disks disk_desc
}
_hdiutil_device() {
local -a device_desc
_call_program devices /usr/bin/hdiutil burn -list | while read; do
if [[ "$REPLY" == [:space:]#IOService:* ]]; then
device_desc+=( "$REPLY" )
fi
done
local expl
_wanted devices expl device compadd "$device_desc[@]"
}
_hdiutil_imagesize(){
local -a arr
local num="${PREFIX%%[^0-9]*}"
if [[ -n "$num" ]]; then
arr=(
"$num"b:"$(($num / 2.**11)) mega bytes"
"$num"k:"$(($num / 2.**10)) mega bytes"
"$num"m:"$(($num)) mega bytes"
"$num"g:"$(($num)) giga bytes"
"$num"t:"$(($num * 2**10)) giga bytes"
"$num"p:"$(($num * 2**20)) giga bytes"
"$num"e:"$(($num * 2**30)) giga bytes"
)
local expl
_describe -t values "size (b, k, m, g..)" arr -V1
else
_message "size (b, k, m, g..)"
fi
}
_hdiutil_imageformat(){
local -a fmts
fmts=(
"UDRW:UDIF read/write image"
"UDRO:UDIF read-only image"
"UDZO:UDIF zlib-compressed image"
"UDCO:UDIF ADC-compressed image"
"UFBI:UDIF entire image with MD5 checksum"
"UDTO:DVD/CD-R master for export"
"UDxx:UDIF stub image"
"UDSP:SPARSE (growable with content)"
"Rdxx:NDIF read-only image (Disk Copy 6.3.3 format)"
"DC42:Disk Copy 4.2 image"
)
ofmts=(
"UDRo:UDIF read-only"
"UDCo:UDIF compressed"
"RdWr:NDIF read/write image"
"ROCo:NDIF compressed image"
"Rken:NDIF compressed"
)
_describe -t types "image format" fmts -V1 ||
_describe -t types "obsolete/deprecated image format" ofmts -V1
}
_hdiutil(){
local -a _common_options
_common_options=(
'(: -)'-help'[display help message of a verb]'
'(-quiet)-verbose' '(-verbose debug)-quiet' '(-quiet)-debug'
)
local -A _common_usage_options
_common_usage_options=(
-shadow "-shadow:shadow file:_files -g \*.shadow"
-encryption "-encryption:encryption method:(CEncryptedEncoding)"
-stdinpass "-stdinpass[specify password from standard input]"
-certificate "-certificate[secondary access certificate]:certificate file:_files"
-cacert "-cacert[certificate authority certificate]: :_files"
-imagekey "*-imagekey[image key]: :->keyvalue"
-srcimagekey "*-srcimagekey[source image key]: :->keyvalue"
-tgtimagekey "*-tgtimagekey[target image key]: :->keyvalue"
-insecurehttp "-insecurehttp[ignore SSL host validation failure]"
-plist "-plist[display output in plist format]"
-recover "-recover[keychain to unlock]:keychain file:_files -g \*.keychain"
)
local -a _1st_arguments
_1st_arguments=(
'help:display minimal usage information'
'attach:attach a disk image'
'mount:attach a disk image'
'detach:detach a disk image'
'eject:detach a disk image'
'verify:verify the checksum of a disk image'
'create:create a disk image'
'convert:convert a disk image into another format'
'burn:burn image to optical media'
'makehybrid:generate cross-platform hybrid images'
'compact:compacts a SPARSE disk image'
'info:display information about the disk image driver and attached images'
'load:manually load the disk image driver'
'checksum:calculate the specified checksum on the image data'
'chpass:change the passphrase for an encrypted image'
'unflatten:extract any UDIF metadata into resource fork'
'flatten:embed any resource fork into UDIF data fork'
'hfsanalyze:print information about an HFS/HFS+ volume'
'mountvol:mount a volume'
'unmount:unmount a volume'
'imageinfo:print out information about a disk image'
'plugins:print information about DiskImages framework plugins'
'internet-enable:enable or disable post-processing for the image'
'resize:resize partition or image'
'segment:segment disk image'
'pmap:display the partition map'
)
local size_spec='-size -sectors -megabytes -srcfolder -srcdir'
#
local curcontext="$curcontext" state line expl
local -A opt_args
_arguments -C '*:: :->subcmds'
if (( CURRENT == 1 )); then
_describe -t commands "hdiutil subcommands" _1st_arguments
return
fi
case "$words[1]" in
attach|mount)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-imagekey]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-plist]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"$_common_usage_options[-recover]" \
"(-readwrite)-readonly[force the resulting device to be read-only]" \
"(-readonly)-readwrite[attempt to set the device to be read/write]" \
"(-nokernel)-nokernel[attach with/without a helper process]" \
"(-kernel)-kernel[attach with/without a helper process]" \
"-notremovable[prevent this image from being detached]" \
"(-nomount)-mount[indicate whether image should be mounted]:mount?:(required optional suppressed)" \
"(-mount)-nomount[indicate whether image should be mounted]" \
"-mountroot[mount volumes in specified path]: :_directories" \
"-mountpoint[mount volume at specified path]: :_directories" \
"-union[perform a union mount]" \
"-private[suppress mount notifications to the rest of the system]" \
"-nobrowse[mark the volumes non-browsable in applications]" \
"-owners[enable or disable owners for HFS+ volumes]: :(on off)" \
"*-drivekey[key/value pair in the IOKit registry]:key=value:" \
"(-noverify)-verify[verify image checksums]" \
"(-verify)-noverify" \
"(-noignorebadchecksums)-ignorebadchecksums[indicate bad checksums should be ignored]" \
"(-ignorebadchecksums)-noignorebadchecksums" \
"(-noidme)-idme[perform IDME actions]" \
"(-idme)-noidme" \
"(-noidmereveal)-idmereveal[reveal the results of IDME processing]" \
"(-idmereveal)-noidmereveal" \
"(-noidmetrash)-idmetrash[put IDME images in the trash after processing]" \
"(-idmetrash)-noidmetrash" \
"(-noautoopen)-autoopen[auto-open volumes after attaching an image]" \
"(-autoopen)-noautoopen" \
"(-noautoopenro)-autoopenro[auto-open read-only volumes]" \
"(-autoopenro)-noautoopenro" \
"(-noautoopenrw)-autoopenrw[auto-open read/write volumes]" \
"(-autoopenrw)-noautoopenrw" \
"1:disk image to attach:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
detach|eject)
_arguments \
"$_common_options[@]" \
"-force[unmount any filesystems and detaches the image]" \
"1: :_hdiutil_disk" && return 0
;;
verify)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-imagekey]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-plist]" \
"1:disk image to verify:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
create)
local fold_opts="-format -crossdev -nocrossdev -scrub -noscrub"
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-imagekey]:" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-tgtimagekey]" \
"$_common_usage_options[-plist]" \
"($size_spec $fold_opts)-size[specify size]: :_hdiutil_imagesize" \
"($size_spec $fold_opts)-sectors[specify size]:512 byte sectors" \
"($size_spec $fold_opts)-megabytes[specify size]:mega bytes" \
"($size_spec)-srcfolder[specify directory]: :_directories" \
"($size_spec)-srcdir[specify directory]: :_directories" \
"-align[size to which partition is aligned]:size" \
"-type[image type]:image type:(UDIF SPARSE)" \
"-fs[filesystem to make]:filesystem:(HFS+ HFS+J HFSX HFS MS-DOS UFS)" \
"-volname[volume name]:name" \
"-uid[uid of root directory]:uid in number" \
"-gid[gid of root directory]:gid in number" \
"-mode[mode of root directory]:mode" \
"-nouuid[suppress addiing a UUID]" \
"(-noautostretch)-autostretch" \
"(-autostretch)-noautostretch" \
"-stretch[max_stretch]: :_hdiutil_imagesize" \
"-fsargs[additional arguments to pass to newfs]:arguments" \
"-layout[partition layout]:partition layout:(NONE SPUD UNIVERSAL\ CD UNIVERSAL\ HD)" \
"-partitionType[partition type]:partition type:(Apple_HFS Apple_UFS)" \
"-ov[overwrite an existing file]" \
"-attach[attach the image after creating it]" \
"-format:format:_hdiutil_imageformat" \
"(-nocrossdev)-crossdev[cross device boundaries when copying from the source]" \
"(-crossdev)-nocrossdev" \
"(-noscrub)-scrub[skip temporary files and trashes]" \
"(-scrub)-noscrub" \
"(-noanyowners)-anyowners[allow user files being copied]" \
"(-anyowners)-noanyowners" \
"1:disk image to create:_files" && return 0
if [[ $state = keyvalue ]]; then
_values 'key=value' \
"di-sparse-puma-compatible: :(TRUE FALSE)" \
"di-shadow-puma-compatible: :(TRUE FALSE)" \
"encrypted-encoding-version:version:(1 2)" \
"zlib-level:compression level:(1 2 3 4 5 6 7 8 9)" && return 0
fi
;;
convert)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-certificate]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-tgtimagekey]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"$_common_usage_options[-plist]" \
"-align:size (512 byte sectors)" \
"-segmentSize: :_hdiutil_imagesize" \
"-pmap[add partition map]" \
"-tasks[number of tasks for compression operation]:number:" \
"-ov[overwrite an existing file]" \
"-format:format:_hdiutil_imageformat" \
"-o:target disk image:_files" \
"1:source disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
if [[ $state = keyvalue ]]; then
_values 'key=value' \
"zlib-level:compression level:(1 2 3 4 5 6 7 8 9)" && return 0
fi
;;
burn)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"-device[device to use for burning]:device:_hdiutil_device" \
"-testburn[don\'t turn on laser]" \
"-anydevice[allow burning to devices not qualified by Apple]" \
"(-eject)-noeject[don\'t eject disc after burning]" \
"(-noeject)-eject" \
"(-verifyburn)-noverifyburn[don\'t verify disc contents after burn]" \
"(-noverifyburn)-verifyburn" \
"(-addpmap)-noaddpmap[don\'t add partition map]" \
"(-noaddpmap)-addpmap" \
"(-skipfinalfree)-noskipfinalfree[don\'t skip final free partition]" \
"(-noskipfinalfree)-skipfinalfree" \
"(-nooptimizeimage)-optimizeimage[optimize filesystem for burning]" \
"(-optimizeimage)-nooptimizeimage" \
"-nounderrun[turn off buffer underrun protection]" \
"-forceclose[force the disc to be closed after burning]" \
"-speed[desired \"x-factor\"]:x_factor:(1 2 4 6 max)" \
"-sizequery[calculate the required size without burning anything]" \
"-erase[erase the media]" \
"-fullerase[erase all sectors of the disc]" \
"-list[list all burning devices with paths suitable for -device]" \
"1:disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
makehybrid)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"-hfs[generate an HFS+ filesystem]" \
"-iso[generate an ISO9660 filesystem with Rock Ridge extensions]" \
"-joliet[generate Joliet extensions to ISO9660]" \
"-hfs-blessed-directory[blessed folder for booting Mac OS X]: :_directories" \
"-hfs-openfolder[folder automatically opened]: :_directories" \
"-hfs-startupfile-size[Startup File size]:bytes" \
"-abstract-file[path to an ISO9660/Joliet Abstract file]: :_file" \
"-bibliography-file[path to a ISO9660/Joliet Bibliography file]: :_file" \
"-copyright-file[path to a ISO9660/Joliet Copyright file]: :_file" \
"-application[creator application name]:creator name" \
"-preparer[data preparer name]:preparer name" \
"-publisher[publisher name]:publisher name" \
"-system-id[system identifier]:system identifier" \
"-keep-mac-specific[keep Macintosh-specific files in non-HFS+ filesystems]" \
"-default-volume-name[default volume name for all filesystems]:name" \
"-hfs-volume-name[volume name for HFS+ filesystem]:name" \
"-iso-volume-name[volume name for ISO9660 filesystem]:name" \
"-joliet-volume-name[volume name for Joliet]:name" \
"-hide-all[glob expression to hide]:glob expression" \
"-hide-hfs[glob expression to hide in HFS+]:glob expression" \
"-hide-iso[glob expression to hide in ISO9660]:glob expression" \
"-hide-joliet[glob expression to hide in Joliet]:glob expression" \
"-print-size[print size estimate and quit]" \
"-plistin[accept command-line options as a plist on stdin]" \
"-ov[overwrite an existing file]" \
"(-noverify)-verify[verify image checksums]" \
"(-verify)-noverify" \
"(-nokernel)-nokernel[attach with a helper process]" \
"(-kernel)-kernel[attach without a helper process]" \
"-o:target disk image:_files" \
"1:source disk image or directory:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
compact)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"$_common_usage_options[-plist]" \
"1:sparse image:_files -g \*.sparseimage" && return 0
;;
info)
_arguments "$_common_options[@]" \
"$_common_usage_options[-plist]" && return 0
;;
load)
_arguments "$_common_options[@]" && return 0
;;
checksum)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"$_common_usage_options[-plist]" \
"-type:image type:(UDIF-CRC32 UDIF-MD5 DC42 CRC28 CRC32 MD5)" \
"1:disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
chpass)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-recover]" \
"$_common_usage_options[-srcimagekey]" \
"-oldstdinpass[specify old password from standard input]" \
"-newstdinpass[specify new password from standard input]" \
"1:disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
unflatten)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"1:disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
flatten)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"(-xml)-noxml[don\'t embed XML data for in-kernel attachment]" \
"(-noxml)-xml" \
"(-rsrcfork)-norsrcfork[don\'t embed resource fork data]" \
"(-norsrcfork)-rsrcfork" \
"1:disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
hfsanalyze)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"1:disk image or device:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
mountvol)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-plist]" \
"1: :_path_files -W /dev -g disk\*" && return 0
;;
unmount)
_arguments \
"$_common_options[@]" \
"-force[unmount filesystem regardless of open files]" \
"1:device or mount point:_files" && return 0
;;
imageinfo)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"$_common_usage_options[-plist]" \
"-format[just print out the image format]" \
"-checksum[just print out the image checksum]" \
"1:disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
plugins)
_arguments \
"$_common_options[@]" "$_common_usage_options[-plist]" && return 0
;;
internet-enable)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-plist]" \
"(-yes -no -query)"{-yes,-no,-query} \
"1:disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
;;
resize)
_arguments -C \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"$_common_usage_options[-plist]" \
"(-sectors)-size[specify size]: :_hdiutil_imagesize" \
"(-size)-sectors[specify size]:size (512 byte sectors)/min/max:" \
"-imageonly[only resize image file]" \
"-partitiononly[only resize partition(s) in the image]" \
"-partitionNumber[partition to resize]:partition number" \
"-growonly[only allow the image to grow]" \
"-shrinkonly[only allow the image to shrink]" \
"-nofinalgap[allow elimination of trailing free partition]" \
"-limits[displays min/current/max size]" \
"1:disk image:_files -g \*.dmg\(\|.bin\)" \
&& return 0
;;
segment)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-tgtimagekey]" \
"$_common_usage_options[-plist]" \
"(-segmentSize)-segmentCount[number of segments]:number" \
"(-segmentCount)-segmentSize[segment size]: :_hdiutil_imagesize" \
"-firstSegmentSize[first segment size]: :_hdiutil_imagesize" \
"-restricted[make restricted segments]" \
"-o[first segment name]:name" \
"1:source disk image:_files -g \*.dmg\(\|.bin\)" \
&& return 0
;;
pmap)
_arguments \
"$_common_options[@]" \
"$_common_usage_options[-encryption]" \
"$_common_usage_options[-stdinpass]" \
"$_common_usage_options[-srcimagekey]" \
"$_common_usage_options[-shadow]" \
"$_common_usage_options[-insecurehttp]" \
"$_common_usage_options[-cacert]" \
"-options[just print out the image checksum]: :->option" \
"1:disk image:_files -g \*.\(dmg\|sparseimage\)\(\|.bin\)" \
&& return 0
case "$state" in
option)
_values -s '' option \
"r[process all without modification]" \
"x[process 2K & 512 entries and merge]" \
"s[return all quantities in sectors]" \
"S[sort all entries by block number]" \
"g[account for all unmapped space]" \
"c[combine adjacent freespace entries]" \
"f[extend last partition to device end]" \
"v[synthesize single volumes as a single partition entry]" \
"k[skip zero length entries]" \
"K[skip all free & void partitions]" \
"m[merge small free partitions into a previous partition]" \
"i[ignore small free partitions caused by block alignment]"
;;
esac
;;
*)
_message "unknown hdiutil command: $words[1]"
_default
;;
esac
return 1
}
_hdiutil "$@"
PK [(t functions/_object_classesnu W+A #compdef odmget odmshow odme
local expl
_wanted objectclasses expl 'object class' \
_files -W ${ODMDIR:-/etc/objrepos} -g '^*.vc(-.)' "$@" -
PK [D
functions/_reprepronu W+A #compdef reprepro
local context state line distfile
typeset -A opt_args
local -a codenames
_arguments \
'(-h --help)'{-h,--help}'[display help]' \
'*'{-v,-V,--verbose}'[be more verbose]' \
'--silent[be less verbose]' \
'(-b --basedir)'{-b,--basedir}':basedir:_files -/' \
'--confdir:config dir:_files -/' \
'--distdir:dist dir:_files -/' \
'--logdir:log dir:_files -/' \
'--overridedir:override dir:_files -/' \
'--dbdir:db dir:_files -/' \
'--listdir:list dir:_files -/' \
'--methoddir:method dir:_files -/' \
'(-C --component)'{-C,--component}':component:(component1 component2)' \
'(-A --architecture)'{-A,--architecture}':architecture:(amd64 sparc)' \
'(-T --type)'{-T,--type}':file type:(dsc deb udeb)' \
'(-S --section)'{-S,--section}':section:(section1 section2)' \
'(-P --priority)'{-P,--priority}':priority:(high low)' \
'--export=:whether and how:(never changed normal force)' \
'--ignore=:error type:(what otherwhat)' \
'--nolistsdownload[do not download Release or index files]' \
'--keepunreferencedfiles[do not delete files that are no longer used]' \
'--keepunneededlists' \
'--keepdirectories' \
'--ask-passphrase' \
'--noskipold' \
'--waitforlock:count:' \
'--spacecheck:behavior:(full none)' \
'--dbsafetymargin:bytes count:' \
'--safetymargin:bytes count:' \
'--noguessgpgtty' \
':reprepro command:(export createsymlinks list listfilter remove update
iteratedupdate checkupdate predelete pull checkpull includedeb
includeudeb includedsc include processincoming check checkpool
rereference dumpreferences dumpunreferenced deleteunreferenced
reoverride dumptracks retrack removealltracks removetrack tidytracks
copy clearvanished gensnapshot rerunnotifiers)' \
'*::subcmd:->subcmd' && return 0
case "$state" in
(subcmd)
case "$words[1]" in
(export|update|iteratedupdate|checkupdate|predelete|pull|checkpull|check)
if [[ -n "$opt_args[--confdir]" ]]; then
distfile=${opt_args[--confdir]}/distributions
elif [[ -n "$opt_args[-b]" ]]; then
distfile=${opt_args[-b]}/conf/distributions
elif [[ -n "$opt_args[--basedir]" ]]; then
distfile=${opt_args[--basedir]}/conf/distributions
elif [[ -n "$REPREPRO_BASE_DIR" ]]; then
distfile=${REPREPRO_BASE_DIR}/conf/distributions
else
distfile=$PWD/conf/distributions
fi
codenames=($(awk '/^[Cc][Oo][Dd][Ee][Nn][Aa][Mm][Ee]: / {$1="";print}' "$distfile"))
_wanted -V 'codenames' expl 'codename' compadd -a codenames
;;
(*)
_files
;;
esac
;;
esac
PK [0waX X functions/_smitnu W+A #compdef smit smitty
local state line expl curcontext="$curcontext"
_arguments -C \
'-s[specify smit.script file]:smit.script file:_files' \
'-l[specify smit.log file]:smit.log file:_files' \
'-C[use curses interface]' \
'-D[debug mode]' \
'-d[FastPath is dialogue screen]' \
'-f[allow redirection of stdin and stdout]' \
'-h[display help/usage message]' \
'-M[start smit in windows mode]' \
'-m[FastPath is menu screen]' \
'-n[FastPath is selector screen]' \
'-o[alternate SMIT/ODM database]' \
'-t[generate trace information]' \
'-v[verbose]' \
'-x[do not run any execute commands]' \
'-X[do not run any commands]' \
'1:fast path:->fastpath'
[[ "$state" = fastpath ]] && (( $+commands[odmget] )) &&
_wanted fastpaths expl 'fast path' compadd \
$(odmget sm_cmd_hdr sm_name_hdr|sed -n 's/^ id = \"\(.*\)\"/\1/p')
PK [D
functions/_git-buildpackagenu W+A #compdef git-buildpackage
_arguments \
'--version[show program version number and exit]' \
'--help[show help message and exit]' \
'--git-ignore-new[build with uncommited changes in the source tree]' \
'--git-no-ignore-new[negates --git-ignore-new]' \
'--git-verbose[verbose command execution]' \
'--git-tag[create a tag after a successful build]' \
'--git-tag-only[do not build, only tag and run the posttag hook]' \
'--git-retag[do not fail if the tag already exists]' \
'--git-sign-tags[sign tags]' \
'--git-no-sign-tags[negates --git-sign-tags]' \
'--git-keyid=-[GPG keyid to sign tags with]:GPG key:' \
'--git-debian-tag=-[format string for debian tags]:default is debian/%(version)s:' \
'--git-upstream-tag=-[format string for upstream tags]:default is upstream/%(version)s:' \
'--git-pristine-tar[use pristine-tar to create .orig.tar.gz]' \
'--git-no-pristine-tar[negates --git-pristine-tar]' \
'--git-force-create[force creation of orig.tar.gz]' \
'--git-no-create-orig[do not create orig.tar.gz]' \
'--git-tarball-dir=-[location to look for external tarballs]:tarball directory:_files -/' \
'--git-compression=-[compression type]:compression:(auto gzip bzip2 lzma xz)' \
'--git-compression-level=-[set compression level]:level:(1 2 3 4 5 6 7 8 9)' \
'--git-upstream-branch=-[upstream branch]::' \
'--git-debian-branch=-[branch the Debian package is being developed on]::' \
'--git-ignore-branch[build although debian-branch != current branch]' \
'--git-no-ignore-branch[negates --git-ignore-branch]' \
'--git-builder=-[command to build the Debian package]:command:' \
'--git-cleaner=-[command to clean the working copy]:command:' \
'--git-prebuild=-[command to run before a build]:command:' \
'--git-postbuild=-[hook run after a successful build]:command:' \
'--git-posttag=-[hook run after a successful tag operation]:command:' \
'--git-pbuilder[Invoke git-pbuilder for building]' \
'--git-no-pbuilder[negates --git-pbuilder]' \
'--git-dist=-[build for this distribution when using git-pbuilder]:distribution:' \
'--git-arch=-[build for this architecture when using git-pbuilder]:architecture:' \
'--git-export-dir=-[before building the package export the source into this directory]:directory:_files -/' \
'--git-export=-[export treeish object instead of HEAD]:treeish:' \
'--git-dont-purge[retain exported package build directory]' \
'--git-overlay[extract orig tarball when using export-dir option]' \
'--git-no-overlay[negates --git-overlay]' \
'*:Other options:_dpkg-buildpackage'
PK [ޯ| functions/_nautilusnu W+A #compdef nautilus
_arguments \
'--browser[open a browser window]' \
'(--check -c)'{-c,--check}'[perform a quick set of self-check tests]' \
'(--geometry -g)'{-g,--geometry=}':geometry:_x_geometry' \
'(--no-default-window -n)'{-n,--no-default-window}'[only create windows for explicitly specified URIs]' \
'--no-desktop[do not manage the desktop]' \
'(--quit -q)'{-q,--quit}'[quit Nautilus]' \
'--help[show a summary of options]' \
'--version[show version]' \
'*:URI: _alternative "files:file:_files" "urls:URL:_urls"'
PK [ڋH H functions/_toolchain-sourcenu W+A #compdef tpkg-install tpkg-make tpkg-debarch tpkg-update tpkg-install-libc
local expl
(( CURRENT == 2 )) &&
_wanted target expl 'target platform' \
compadd alpha-linux arm-linux hppa-linux i{3..6}86-linux ia32-linux ia64-linux m68k-linux \
mipsel-linux mips-linux ppc-linux powerpc-linux sparc-linux s390-linux
PK [p) functions/promptinitnu W+A ##
## zsh prompt themes extension
## by Adam Spiers
##
## Load with `autoload -Uz promptinit; promptinit'.
## Type `prompt -h' for help.
##
typeset -gaU prompt_themes
typeset -ga prompt_theme
typeset -g prompt_newline
prompt_themes=()
promptinit () {
emulate -L zsh
setopt extendedglob
local ppath='' name theme
# Autoload all prompt_*_setup functions in fpath
for theme in $^fpath/prompt_*_setup(N); do
if [[ $theme == */prompt_(#b)(*)_setup ]]; then
name="$match[1]"
if [[ -r "$theme" ]]; then
prompt_themes=($prompt_themes $name)
autoload -Uz prompt_${name}_setup
else
print "Couldn't read file $theme containing theme $name."
fi
else
print "Eh? Mismatch between glob patterns in promptinit."
fi
done
# To manipulate precmd and preexec hooks...
autoload -Uz add-zsh-hook
# Variables common to all prompt styles
prompt_newline=$'\n%{\r%}'
}
prompt_preview_safely() {
emulate -L zsh
print -P "%b%f%k"
if [[ -z "$prompt_themes[(r)$1]" ]]; then
print "Unknown theme: $1"
return
fi
local -a psv; psv=($psvar); local -a +h psvar; psvar=($psv) # Ick
local +h PS1=$PS1 PS2=$PS2 PS3=$PS3 PS4=$PS4 RPS1=$RPS1
local -a precmd_functions preexec_functions
# The next line is a bit ugly. It (perhaps unnecessarily)
# runs the prompt theme setup function to ensure that if
# the theme has a _preview function that it's been autoloaded.
prompt_${1}_setup
if typeset +f prompt_${1}_preview >&/dev/null; then
prompt_${1}_preview "$@[2,-1]"
else
prompt_preview_theme "$@"
fi
}
set_prompt() {
emulate -L zsh
local opt preview theme usage old_theme
usage='Usage: prompt
Options:
-c Show currently selected theme and parameters
-l List currently available prompt themes
-p [] Preview given themes (defaults to all)
-h [] Display help (for given theme)
-s Set and save theme
Switch to new theme immediately (changes not saved)
Use prompt -h for help on specific themes.'
getopts "chlps:" opt
case "$opt" in
(h|p)
setopt localtraps
if [[ -z "$prompt_theme[1]" ]]; then
# Not using a prompt theme; save settings
local -a psv; psv=($psvar); local -a +h psvar; psvar=($psv) # Ick
local +h PS1=$PS1 PS2=$PS2 PS3=$PS3 PS4=$PS4 RPS1=$RPS1
local precmd_functions preexec_functions
else
trap 'prompt_${prompt_theme[1]}_setup "${(@)prompt_theme[2,-1]}"' 0
fi
;;
esac
case "$opt" in
c) if [[ -n $prompt_theme ]]; then
print -n "Current prompt theme"
(( $#prompt_theme > 1 )) && print -n " with parameters"
print " is:\n $prompt_theme"
else
print "Current prompt is not a theme."
fi
return
;;
h) if [[ -n "$2" && -n $prompt_themes[(r)$2] ]]; then
if functions prompt_$2_setup >/dev/null; then
# The next line is a bit ugly. It (perhaps unnecessarily)
# runs the prompt theme setup function to ensure that if
# the theme has a _help function that it's been autoloaded.
prompt_$2_setup
fi
if functions prompt_$2_help >/dev/null; then
print "Help for $2 theme:\n"
prompt_$2_help
else
print "No help available for $2 theme."
fi
print "\nType \`prompt -p $2' to preview the theme, \`prompt $2'"
print "to try it out, and \`prompt -s $2' to use it in future sessions."
else
print "$usage"
fi
;;
l) print Currently available prompt themes:
print $prompt_themes
return
;;
p) preview=( $prompt_themes )
(( $#* > 1 )) && preview=( "$@[2,-1]" )
for theme in $preview; do
[[ "$theme" == "$prompt_theme[*]" ]] && continue
prompt_preview_safely "$=theme"
done
print -P "%b%f%k"
;;
s) print "Set and save not yet implemented. Please ensure your ~/.zshrc"
print "contains something similar to the following:\n"
print " autoload -Uz promptinit"
print " promptinit"
print " prompt $*[2,-1]"
shift
;&
*) if [[ "$1" == 'random' ]]; then
local random_themes
if (( $#* == 1 )); then
random_themes=( $prompt_themes )
else
random_themes=( "$@[2,-1]" )
fi
local i=$(( ( $RANDOM % $#random_themes ) + 1 ))
argv=( "${=random_themes[$i]}" )
fi
if [[ -z "$1" || -z $prompt_themes[(r)$1] ]]; then
print "$usage"
return
fi
# Reset some commonly altered bits to the default
add-zsh-hook -D precmd "prompt_*_precmd"
add-zsh-hook -D preexec "prompt_*_preexec"
set -A zle_highlight ${zle_highlight:#default:*}
(( ${#zle_highlight} )) || unset zle_highlight
prompt_$1_setup "$@[2,-1]" && prompt_theme=( "$@" )
;;
esac
}
prompt () {
local prompt_opts
set_prompt "$@"
(( $#prompt_opts )) &&
setopt noprompt{bang,cr,percent,subst} "prompt${^prompt_opts[@]}"
true
}
prompt_preview_theme () {
emulate -L zsh
local -a psv; psv=($psvar); local -a +h psvar; psvar=($psv) # Ick
local +h PS1=$PS1 PS2=$PS2 PS3=$PS3 PS4=$PS4 RPS1=$RPS1
local precmd_functions preexec_functions
print -n "$1 theme"
(( $#* > 1 )) && print -n " with parameters \`$*[2,-1]'"
print ":"
prompt_${1}_setup "$@[2,-1]"
[[ -n ${precmd_functions[(r)prompt_${1}_precmd]} ]] &&
prompt_${1}_precmd
[[ -o promptcr ]] && print -n $'\r'; :
print -P "${PS1}command arg1 arg2 ... argn"
[[ -n ${preexec_functions[(r)prompt_${1}_preexec]} ]] &&
prompt_${1}_preexec
}
[[ -o kshautoload ]] || promptinit "$@"
PK [id@^ functions/_pdfnu W+A #compdef pdf2dsc pdf2ps pdfimages pdfinfo pdftopbm pdftops pdftotext pdfopt pdffonts kpdf okular
local expl ext=''
# ghostscript:
# pdf2dsc pdf2ps pdfopt
# xpdf:
# pdfimages pdfinfo pdftopbm pdftops pdftotext xpdf pdffonts
# KDE 3:
# kpdf
# KDE 4:
# okular
if [[ "$1" == '-z' ]]; then
ext='(|.bz2|.gz|.Z)'
shift
fi
_description files expl 'PDF file'
_files "$@" "$expl[@]" -g "*.(#i)pdf$ext(-.)"
PK [7A functions/_grepnu W+A #compdef grep egrep fgrep -value-,GREP_OPTIONS,-default-
# Ulrik Haugen 2001
local arguments matchers command
if [[ $service = *GREP_OPT* ]]; then
compset -q
words=( fake "$words[@]" )
(( CURRENT++ ))
command=grep
else
arguments=(
'(-e --regexp -f --file)1: :_guard "^--*" pattern'
'*:files:_files'
)
command="$words[1]"
fi
if [[ $service != [ef]grep ]]; then
matchers='(--extended-regexp --fixed-strings --basic-regexp --perl-regexp -E -F -G -P)'
arguments+=(
$matchers{--extended-regexp,-E}'[use extended regular expression]'
$matchers{--fixed-strings,-F}'[use literal strings]'
$matchers{--basic-regexp,-G}'[use basic regular expression]'
$matchers{--perl-regexp,-P}'[use perl regular expression]'
)
fi
arguments=( $arguments[@]
'(--after-context -A)'{--after-context=,-A+}'[specify lines of trailing context]:lines'
'(--text -a --binary-files -I)'{--text,-a}'[process binary file as if it were text]'
'(--before-context -B)'{--before-context=,-B+}'[specify lines of leading context]:lines'
'(--context,-C)'{--context=,-C-}'[specify lines of context]:lines'
'(--color --colour)--'{color,colour}'=-[distinguish matching string]::when:(always never auto)'
'(--byte-offset -b -c)'{--byte-offset,-b}'[print the byte offset with output lines]'
'(--text -a -I)--binary-files=[specify type to assume for binary files]:file type:(binary without-match text)'
'(--count -c --byte-offset -b --line-number -n)'{--count,-c}'[only print a count of matching lines]'
'(--directories -d -r --recursive)'{--directories=,-d+}'[specify handling of directories]:action on directory:(read skip recurse)'
'(--devices -D)'{--devices=,-D+}'[specify handling of devices, FIFOs and sockets]:action on device:(read skip)'
'(1)*'{--regexp=,-e+}'[specify pattern]:pattern'
'(1)*'{--file=,-f+}'[specify pattern file]:file:_files'
'(--with-filename -H --no-filename -h)'{--with-filename,-H}'[print filename with each match]'
'(--no-filename -h --with-filename -H --null -Z --files-without-match -L --file-with-matches -l)'{--no-filename,-h}'[suppress printing of filenames]'
'--label=[provide filename to print for stdin]:filename label for stdin'
'--line-buffered[flush output on every line]'
'(--text -a --binary-files)-I[process binary files as if non-matching]'
'(--ignore-case -i -y)'{--ignore-case,-i,-y}'[case-insensitive]'
'(--files-without-match -L --file-with-matches -l --no-filename -h)'{--files-without-match,-L}"[output non-matching files' names only]"
'(--files-with-matches -l --files-without-match -L --no-filename -h)'{--files-with-matches,-l}"[output matching files' names only]"
'(--max-count -m)'{--max-count=,-m+}'[stop after specified no of matches]:max number of matches'
'(--line-number -n -c)'{--line-number,-n}'[prefix output with line numbers]'
'(--only-matching -o)'{--only-matching,-o}'[show only matching part of line]'
'(--quiet --silent -q)'{--quiet,--silent,-q}'[suppress normal output]'
'(--recursive -r -R -d --directories)'{--recursive,-r,-R}'[recurse subdirectories]'
'*--include=[examine files matching specified pattern]:file pattern'
'*--exclude=[skip files matching specified pattern]:file pattern'
'*--exclude-from=[skip files matching pattern in specified file]:file:_files'
'*--exclude-dir=[skip directories matching specified pattern]:directory pattern'
'(--no-messages -s)'{--no-messages,-s}'[suppress messages about unreadable]'
'(--version -V)'{--version,-V}'[display version info]'
'(--invert-match -v)'{--invert-match,-v}'[select non-matching lines]'
'(--word-regexp -w --line-regexp -x)'{--word-regexp,-w}'[force pattern to match only whole words]'
'(--line-regexp -x --word-regexp -w)'{--line-regexp,-x}'[force pattern to match only whole lines]'
'(--null -Z --no-filename -h)'{--null,-Z}'[print 0 byte after FILE name]'
'--help[display help]'
'--mmap[memory map input]'
)
# remove long options?
_pick_variant -c "$command" gnu=gnu unix --help ||
arguments=( ${arguments:#(|*\)(\*|))--*} )
_arguments -S -s $arguments[@]
PK [x||
functions/_ccalnu W+A #compdef ccal
_arguments \
'-nodata[ignore appointment descriptions file]' \
'-data-file=[load appointments from file]:caldat file:_files' \
'-future[show only future appointments on current month]' \
"-today[show only today's appointments on current month]" \
'-europe[European format (first day is Monday)]' \
'-american[North American format (first day is Sunday)]' \
'-maxappts=[display maximum of n appointments]:number of appointments:('{8..50}')' \
'-pause[pause for keystroke before exiting]' \
'-nocolor[inhibit use of colors]' \
'-color-file=[load color definitions from file]:calcol file:_files' \
'-8bit[display 8-bit ascii characters]' \
'1:month:(1 2 3 4 5 6 7 8 9 10 11 12 jan feb mar apr may jun jul aug sep oct nov dec)' \
'2:year:'
PK [W functions/zfgcpnu W+A # function zfgcp {
# ZFTP get as copy: i.e. first arguments are remote, last is local.
# Supposed to work exactly like a normal copy otherwise, i.e.
# zfgcp rfile lfile
# or
# zfgcp rfile1 rfile2 rfile3 ... ldir
# Options:
# -G don't to remote globbing, else do
# -t update the local file times to the same time as the remote.
# Currently this only works if you have the `perl' command,
# and that perl is version 5 with the standard library.
# See the function zfrtime for more gory details.
#
# If there is no current connection, try to use the existing set of open
# parameters to establish one and close it immediately afterwards.
emulate -L zsh
[[ $curcontext = :zf* ]] || local curcontext=:zfgcp
local opt remlist rem loc opt_G opt_t
integer stat do_close
while getopts :Gt opt; do
[[ $opt = '?' ]] && print "zfgcp: bad option: -$OPTARG" >&2 && return 1
eval "opt_$opt=1"
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
zfautocheck || return 1
# hmm, we should really check this after expanding the glob,
# but we shouldn't expand the last argument remotely anyway.
if [[ $# -gt 2 && ! -d $argv[-1] ]]; then
print "zfgcp: last argument must be a directory." 2>&1
return 1
elif [[ $# == 1 ]]; then
print "zfgcp: not enough arguments." 2>&1
return 1
fi
if [[ -d $argv[-1] ]]; then
local dir=$argv[-1]
argv[-1]=
for remlist in $*; do
# zfcd directory hack to put the front back to ~
if [[ $remlist = $HOME || $remlist = $HOME/* ]]; then
remlist="~${remlist#$HOME}"
fi
if [[ $opt_G != 1 ]]; then
zfrglob remlist
fi
if (( $#remlist )); then
for rem in $remlist; do
loc=$dir/${rem:t}
if zftp get $rem >$loc; then
[[ $opt_t = 1 ]] && zfrtime $rem $loc
else
stat=1
fi
done
fi
done
else
if [[ $1 = $HOME || $1 = $HOME/* ]]; then
1="~${1#$HOME}"
fi
zftp get $1 >$2 || stat=$?
fi
(( $do_close )) && zfclose
return $stat
# }
PK [=H3 functions/_bisonnu W+A #compdef bison
_arguments -s -S \
'(--file-prefix)-b+[specify output file prefix]:output file prefix' \
'(--defines)-d[write token definition file]' \
'(--raw)-r[output bison token numbers]' \
'(--token-table)-k[output token table]' \
'(--no-lines)-l[don'"'"'t generate #line directives]' \
'(--no-parser)-n[don'"'"'t generate parse (only declarations)]' \
'(--output-file)-o+[specify parser output file name]:parser file name:_files' \
'(--name-prefix)-p+[change yy prefix]:prefix string' \
'(--debug)-t[output YYDEBUG definition]' \
'(--verbose)-v[verbose mode]' \
'(--version)-V[show version]' \
'(--help)-h[show help]' \
'(--yacc --fixed-output-file)-y[imitate yacc'"'"'s output file convention]' \
':input file:_files -g \*.\(\#i\)\(bison\|yacc\|y\)\(-.\)' \
-- \
'*=outfile:parser file name:_files' \
'*file-prefix=prefix:output file prefix' \
'*name-prefix=prefix:prefix string'
PK [hUV functions/_duploadnu W+A #compdef dupload
if (( ! $+_dupload_sites )); then
_dupload_sites=(
$(grep -hs "^\$cfg" /etc/dupload.conf ~/.dupload.conf | sed 's/^\$cfg{\([^}]*\)}.*$/\1/')
)
fi
_arguments \
'--to:nickname[nickname of target site]:('"$_dupload_sites"')' \
'(-d --debug)'{-d,--debug}'[ftp verbosity]:debuglevel:' \
'(-f --force)'{-f,--force}'[upload ignoring logs]' \
'(-k --keep)'{-k,--keep}'[keep going, skip broken]' \
'--no[dry run]' \
'--nomail[suppress announcement]' \
'--mailonly[dry run and real announcement]' \
'--noarchive[add anti-archival header]' \
'(-p --print)'{-p,--print}'[print config legibly]' \
'(-q --quiet)'{-q,--quiet}'[quiet]' \
'(-V --Version)'{-V,--Version}'[display version information]' \
'*:changes file:_files -g "*.changes(-.)"'
PK []0 functions/_piupartsnu W+A #compdef piuparts
local context state line
typeset -A opt_args
_arguments -s \
'(-a --apt)'{-a,--apt} \
'(-b --basetgz)'{-b,--basetgz=}':base tarball:_files' \
'(-d --distribution)'{-d,--distribution=}':Debian distribution:(sarge etch sid experimental)' \
'(-i --ignore)*'{-i,--ignore=}':file to ignore:_files' \
'(-I --ignore-regexp)*'{-I,--ignore-regexp=}':expression to ignore' \
'(-k --keep-tmpdir)'{-k,--keep-tmpdir} \
'(-l --log-file)'{-l,--logfile=}':log file:_files' \
'(-m --mirror)'{-m,--mirror=}':Debian mirror:_urls' \
'(-n --no-ignores)'{-n,--no-ignores} \
'(-p --pbuilder)'{-p,--pbuilder}'[use /var/cache/pbuilder/base.tgz]' \
'(-s --save)'{-s,--save=}':target tarball:_files' \
'(-t --tmpdir)'{-t,--tmpdir=}':temp dir:_files -/' \
'-V[version]' \
'*:package:->packages' && return 0
case "$state" in
(packages)
if (( $+opt_args[-a] )); then
_deb_packages avail
else
_files -g '*.deb'
fi
;;
esac
PK [zZU functions/forward-word-matchnu W+A emulate -L zsh
setopt extendedglob
autoload -Uz match-words-by-style
local curcontext=":zle:$WIDGET" word
local -a matched_words
integer count=${NUMERIC:-1}
if (( count < 0 )); then
(( NUMERIC = -count ))
zle ${WIDGET/forward/backward}
return
fi
while (( count-- )); do
match-words-by-style
# For some reason forward-word doesn't work like the other word
# commands; it skips whitespace only after any matched word
# characters.
if [[ -n $matched_words[4] ]]; then
# just skip the whitespace
word=$matched_words[4]
else
# skip the word and trailing whitespace
word=$matched_words[5]$matched_words[6]
fi
if [[ -n $word ]]; then
(( CURSOR += ${#word} ))
else
return 1
fi
done
return 0
PK [7AL L functions/_email_addressesnu W+A #autoload
# options:
#
# -n plugin - can complete nicknames from specified plugin
# -s sep - complete a list of addresses separated by specified character
# -c - e-mail address must be of form user@host (no comments or aliases)
#
# Plugins are written as separate functions with names starting `_email-'.
# They should either do their own completion or return the addresses in the
# reply array in the form 'alias:address' and return 300. The -c option is
# passed on to plugins (and -n could be if needed ever). New plugins will be
# picked up and run automatically.
# plugins
(( $+functions[_email-mail] )) ||
_email-mail() {
local rc rcfiles i
rcfiles=( $files[$plugin] )
for ((i=1;i<=$#rcfiles;i++)); do
rcfiles+=( ${~${(M)${(f)"$(<$rcfiles[i])"}:#source*}##source[[:blank:]]##}(N) )
done
reply=()
for rc in $rcfiles; do
reply+=( ${${${(M)${(f)"$(<$rc)"}:#alias*}##alias[[:blank:]]##}/[[:blank:]]##/:} )
done
return 300
}
(( $+functions[_email-mutt] )) || _email-mutt() { _email-mail }
(( $+functions[_email-mush] )) || _email-mush() { _email-mail }
(( $+functions[_email-MH] )) ||
_email-MH() {
reply=( ${${(f)"$(_call_program aliases ali 2>/dev/null)"}/: /:} )
return 300
}
(( $+functions[_email-pine] )) ||
_email-pine() {
reply=( ${${${${${(f)"$(<~/.addressbook)"}:#*DELETED*}:#\ *}/ [^ ]# /:}%% *} )
return 300
}
(( $+functions[_email-ldap] )) ||
_email-ldap() {
local -a expl ali res filter
local -A opts
local dn cn mail
zparseopts -D -E -A opts c
zstyle -a ":completion:${curcontext}:$curtag" filter filter
(( $#filter )) || return
filter=( "("${filter}"=${PREFIX}*${SUFFIX})" )
(( $#filter > 1 )) && filter="(|"${(j..)filter}")"
res=( ${(f)"$(_call_program $curtag ldapsearch -LLL \$filter cn mail 2>/dev/null)"} )
(( $#res > 1 )) || return
for dn cn mail in "${res[@]}"; do
if (( $+opts[-c] )); then
ali+=( "${mail#*: }" )
else
cn="${cn#*: }"
[[ $cn = *$~__specials* ]] && cn="\"$cn\""
ali+=( "$cn <${mail#*: }>" )
fi
done
compstate[insert]=menu
_wanted email-ldap expl 'matching names' \
compadd -U -i "$IPREFIX" -I "$ISUFFIX" "$@" -a - ali
}
(( $+functions[_email-local] )) ||
_email-local() {
local suf opts
zparseopts -D -E -A opts c S:=suf
if compset -P '*@'; then
_hosts "$@" "$suf[@]"
else
suf=()
compset -S '@*' || suf=( -qS @ )
_users "$suf[@]" "$@"
fi
}
_email_addresses() {
local -a plugins reply list args
local -A opts files
local plugin rcfile muttrc expl ret fret
local __specialx='][()<>@,;:\\".'
local __spacex=" " # Space, tab
local __specials="[$__specialx]"
local __atom="[^$__specialx$__spacex]##"
local __space="[$__spacex]#" # Really, space or comment
local __qtext='[^"\\]'
local __qpair='\\?'
local __beginq='"'
local __endq='(|[^\\])"'
local __dot="$__space.$__space"
local __domainref="$__atom"
local __domainlit='\[([^]]|'"$__qpair"')#(|[^\\])\]'
local __quotedstring="$__beginq($__qtext|$__qpair)#$__endq"
local __word="($__atom|$__quotedstring)"
local __phrase="($__space$__word$__space)#" # Strictly, should use `##'
local __localpart="$__word($__dot$__word)#"
local __subdomain="($__domainref|$__domainlit)"
local __domain="$__subdomain($__dot$__subdomain)#"
local __addrspec="$__localpart$__space@$__space$__domain"
local __addresses="($__qtext|$__quotedstring)##"
zparseopts -D -E -A opts n: s: c
set -- "$@" -M 'r:|[.@]=* r:|=* m:{a-zA-Z}={A-Za-z}'
if [[ -n $opts[-s] ]]; then
# remove up to the last unquoted separator
if [[ ${(Q)PREFIX} = (#b)($~__addresses$opts[-s])* ]]; then
IFS="$opts[-s]" eval 'compset -P $(( ${#${=${:-x${match[1]}x}}} - 1 )) "*${opts[-s]}"'
fi
# for the suffix, I'm too lazy to work out how to preserve quoted separators
compset -S "$opts[-s]*" || set -- -q -S "$opts[-s]" "$@"
fi
# get list of all plugins except any with missing config files
if ! zstyle -s ":completion:${curcontext}:email-addresses" muttrc muttrc; then
[[ -e ~/mutt/muttrc ]] && muttrc="~/mutt/muttrc" || muttrc="~/.muttrc"
fi
files=( MH ${MH:-~/.mh_profile} mutt $~muttrc mush ~/.mushrc mail ${MAILRC:-~/.mailrc} pine ~/.addressbook )
plugins=(
${${(k)functions[(I)_email-*]#*-}:#(${(kj.|.)~files})}
$files(Ne:'REPLY=( ${(k)files[(r)$REPLY]} ):')
)
ret=1
_tags email-$plugins
while _tags; do
for plugin in $plugins; do
if _requested email-$plugin; then
while _next_label email-$plugin expl 'email address'; do
args=()
if (( $+opts[-c] )) || zstyle -t \
":completion:${curcontext}:$curtag" strip-comments
then
args=( '-c' )
fi
if ! _call_function fret _email-$plugin "$@" $args; then
_message "$plugin: plugin not found"
continue
fi
ret=$(( ret && fret ))
if (( fret == 300 )); then
if (( ! $+opts[-c] )) && [[ $opts[-n] = $plugin ]]; then
zformat -a list ' -- ' "${reply[@]}"
_wanted mail-aliases expl 'alias' compadd "$@" \
-d list - ${reply%%:*} && ret=0
else
if (( $#args )); then
reply=( ${(SM)${reply#*:}##$~__addrspec} )
else
# remove lines not containing `@' as they probably aren't addresses
reply=( "${(@)${(M@)reply:#*@*}#*:}" )
fi
compadd -a "$@" "$expl[@]" reply && ret=0
fi
fi
done
fi
done
(( ret )) || return 0
done
return 1
}
_email_addresses "$@"
PK [)Ǘ functions/_looknu W+A #compdef look
local curcontext="$curcontext" state line expl ret=1
typeset -A opt_args
_arguments -C -s \
'-t+[termination character]:termination character:' \
'-f[case insensitive]' \
'-d[dictionary order]' \
':string:->string' \
':dictionary file:_files' && ret=0
[[ -n "$state" && ! -prefix - ]] && _wanted values expl 'word prefix' \
compadd - $(_call_program words $words[1] '"$PREFIX"' 2>/dev/null) && return
return ret
PK [t^ functions/_ctags_tagsnu W+A #autoload
local expl tags
[[ -r tags ]] && tags=( ${${${(f)"$(< tags)"}:#!*}%%[[:blank:]]*} )
_wanted ctags expl 'tag' compadd -M 'm:{a-zA-Z}={A-Za-z}' -a "$@" - tags
PK [Hqe qe functions/_path_filesnu W+A #autoload
local -a match mbegin mend
# Look for glob qualifiers. Do this first: if we're really
# in a glob qualifier, we don't actually want to expand
# the earlier part of the path. We can't expand inside
# parentheses otherwise, so as we test that successfully
# we should be able to commit to glob qualifiers here.
#
# Extra nastiness to be careful about a quoted parenthesis.
# The initial tests look for parentheses with zero or an
# even number of backslashes in front. We also require that
# there was at least one character before the parenthesis for
# a bare glob qualifier.
# The later test looks for an outstanding quote.
if _have_glob_qual $PREFIX; then
compset -p ${#match[1]}
if [[ -o extendedglob ]] && compset -P '\#'; then
_globflags
else
_globquals
fi
return
fi
# Utility function for in-path completion. This allows `/u/l/b'
# to complete to `/usr/local/bin'.
local linepath realpath donepath prepath testpath exppath skips skipped
local tmp1 tmp2 tmp3 tmp4 i orig eorig pre suf tpre tsuf opre osuf cpre
local pats haspats ignore pfx pfxsfx sopt gopt opt sdirs ignpar cfopt listsfx
local nm=$compstate[nmatches] menu matcher mopts sort mid accex fake
local listfiles listopts tmpdisp origtmp1 Uopt
local accept_exact_dirs path_completion
integer npathcheck
local -a Mopts
typeset -U prepaths exppaths
exppaths=()
# Get the options.
zparseopts -a mopts \
'P:=pfx' 'S:=pfxsfx' 'q=pfxsfx' 'r:=pfxsfx' 'R:=pfxsfx' \
'W:=prepaths' 'F:=ignore' 'M+:=matcher' \
J+: V+: X+: 1 2 n 'f=tmp1' '/=tmp1' 'g+:-=tmp1'
sopt="-${(@j::M)${(@)tmp1#-}#?}"
(( $tmp1[(I)-[/g]*] )) && haspats=yes
(( $tmp1[(I)-g*] )) && gopt=yes
if (( $tmp1[(I)-/] )); then
pats="${(@)${(@M)tmp1:#-g*}#-g}"
pats=( '*(-/)' ${${(z):-x $pats}[2,-1]} )
else
pats="${(@)${(@M)tmp1:#-g*}#-g}"
pats=( ${${(z):-x $pats}[2,-1]} )
fi
pats=( "${(@)pats:# #}" )
if (( $#pfx )); then
compset -P "$pfx[2]" || pfxsfx=( "$pfx[@]" "$pfxsfx[@]" )
fi
if (( $#prepaths )); then
tmp1="${prepaths[2]}"
if [[ "$tmp1[1]" = '(' ]]; then
prepaths=( ${^=tmp1[2,-2]%/}/ )
elif [[ "$tmp1[1]" = '/' ]]; then
prepaths=( "${tmp1%/}/" )
else
prepaths=( ${(P)^tmp1%/}/ )
(( ! $#prepaths )) && prepaths=( ${tmp1%/}/ )
fi
(( ! $#prepaths )) && prepaths=( '' )
else
prepaths=( '' )
fi
if (( $#ignore )); then
if [[ "${ignore[2]}" = \(* ]]; then
ignore=( ${=ignore[2][2,-2]} )
else
ignore=( ${(P)ignore[2]} )
fi
fi
# If we were given no file selection option, we behave as if we were given
# a `-f'.
if [[ "$sopt" = -(f|) ]]; then
if [[ -z "$gopt" ]]; then
sopt='-f'
pats=('*')
else
unset sopt
fi
fi
if (( ! $mopts[(I)-[JVX]] )); then
local expl
if [[ -z "$gopt" && "$sopt" = -/ ]]; then
_description directories expl directory
else
_description files expl file
fi
tmp1=$expl[(I)-M*]
if (( tmp1 )); then
if (( $#matcher )); then
matcher[2]="$matcher[2] $expl[1+tmp1]"
else
matcher=(-M "$expl[1+tmp1]")
fi
fi
mopts=( "$mopts[@]" "$expl[@]" )
fi
# If given no `-F' option, we may want to use $fignore, turned into patterns.
[[ -z "$_comp_no_ignore" && $#ignore -eq 0 &&
( -z $gopt || "$pats" = \ #\*\ # ) && -n $FIGNORE ]] &&
ignore=( "?*${^fignore[@]}" )
if (( $#ignore )); then
_comp_ignore=( "$_comp_ignore[@]" "$ignore[@]" )
(( $mopts[(I)-F] )) || mopts=( "$mopts[@]" -F _comp_ignore )
fi
if [[ $#matcher -eq 0 && -o nocaseglob ]]; then
# If globbing is case insensitive and there's no matcher,
# do case-insensitive matching.
matcher=( -M 'm:{a-zA-Z}={A-Za-z}' )
fi
if (( $#matcher )); then
# Add the current matcher to the options to compadd.
mopts=( "$mopts[@]" "$matcher[@]" )
fi
if zstyle -s ":completion:${curcontext}:" file-sort tmp1; then
case "$tmp1" in
*size*) sort=oL;;
*links*) sort=ol;;
*(time|date|modi)*) sort=om;;
*access*) sort=oa;;
*(inode|change)*) sort=oc;;
*) sort=on;;
esac
[[ "$tmp1" = *rev* ]] && sort[1]=O
[[ "$tmp1" = *follow* ]] && sort="-${sort}-"
if [[ "$sort" = on ]]; then
sort=
else
mopts=( "${(@)mopts/#-J/-V}" )
tmp2=()
for tmp1 in "$pats[@]"; do
if _have_glob_qual "$tmp1" complete; then
# unbalanced parenthesis is correct: match[1] contains the start,
# match[5] doesn't contain the end.
tmp2+=( "${match[1]}#q${sort})(${match[5]})" )
else
tmp2+=( "${tmp1}(${sort})" )
fi
done
pats=( "$tmp2[@]" )
fi
fi
# Check if we have to skip over sequences of slashes. The value of $skips
# is used below to match the pathname components we always have to accept
# immediately.
if zstyle -t ":completion:${curcontext}:paths" squeeze-slashes; then
skips='((.|..|)/)##'
else
skips='((.|..)/)##'
fi
zstyle -s ":completion:${curcontext}:paths" special-dirs sdirs
zstyle -t ":completion:${curcontext}:paths" list-suffixes &&
listsfx=yes
[[ "$pats" = ((|*[[:blank:]])\*(|[[:blank:]]*|\([^[:blank:]]##\))|*\([^[:blank:]]#/[^[:blank:]]#\)*) ]] &&
sopt=$sopt/
zstyle -a ":completion:${curcontext}:paths" accept-exact accex
zstyle -a ":completion:${curcontext}:" fake-files fake
zstyle -s ":completion:${curcontext}:" ignore-parents ignpar
zstyle -t ":completion:${curcontext}:paths" accept-exact-dirs &&
accept_exact_dirs=1
zstyle -T ":completion:${curcontext}:paths" path-completion &&
path_completion=1
if [[ -n "$compstate[pattern_match]" ]]; then
if { [[ -z "$SUFFIX" ]] && _have_glob_qual "$PREFIX" complete } ||
_have_glob_qual "$SUFFIX" complete; then
# Copy all glob qualifiers from the line to
# the patterns used when generating matches
tmp3=${match[5]}
if [[ -n "$SUFFIX" ]]; then
SUFFIX=${match[2]}
else
PREFIX=${match[2]}
fi
tmp2=()
for tmp1 in "$pats[@]"; do
if _have_glob_qual "$tmp1" complete; then
# unbalanced parenthesis is correct: match[1] contains the start,
# match[5] doesn't contain the end.
tmp2+=( "${match[1]}${tmp3}${match[5]})")
else
tmp2+=( "${tmp1}(${tmp3})" )
fi
done
pats=( "$tmp2[@]" )
fi
fi
# We get the prefix and the suffix from the line and save the whole
# original string. Then we see if we will do menu completion.
pre="$PREFIX"
suf="$SUFFIX"
opre="$PREFIX"
osuf="$SUFFIX"
orig="${PREFIX}${SUFFIX}"
eorig="$orig"
[[ $compstate[insert] = (*menu|[0-9]*) || -n "$_comp_correct" ||
( -n "$compstate[pattern_match]" &&
"${orig#\~}" != (|*[^\\])[][*?#~^\|\<\>]* ) ]] && menu=yes
if [[ -n "$_comp_correct" ]]; then
cfopt=-
Uopt=-U
else
Mopts=(-M "r:|/=* r:|=*")
fi
# Now let's have a closer look at the string to complete.
if [[ "$pre" = [^][*?#^\|\<\>\\]#(\`[^\`]#\`|\$)*/* && "$compstate[quote]" != \' ]]; then
# If there is a parameter expansion in the word from the line, we try
# to complete the beast by expanding the prefix and completing anything
# after the first slash after the parameter expansion.
# This fails for things like `f/$foo/b/' where the first `f' is
# meant as a partial path.
linepath="${(M)pre##*\$[^/]##/}"
function {
# do not treat an unset parameter expansion as the empty string
setopt localoptions nounset
eval 'realpath=${(e)~linepath}' 2>/dev/null
}
[[ -z "$realpath" || "$realpath" = "$linepath" ]] && return 1
pre="${pre#${linepath}}"
i='[^/]'
i="${#linepath//$i}"
orig="${orig[1,(in:i:)/][1,-2]}"
donepath=
prepaths=( '' )
elif [[ "$pre[1]" = \~ && -z "$compstate[quote]" ]]; then
# It begins with `~', so remember anything before the first slash to be able
# to report it to the completion code. Also get an expanded version of it
# (in `realpath'), so that we can generate the matches. Then remove that
# prefix from the string to complete, set `donepath' to build the correct
# paths and make sure that the loop below is run only once with an empty
# prefix path by setting `prepaths'.
linepath="${pre[2,-1]%%/*}"
if [[ -z "$linepath" ]]; then
realpath="${HOME%/}/"
elif [[ "$linepath" = ([-+]|)[0-9]## ]]; then
if [[ "$linepath" != [-+]* ]]; then
tmp1="$linepath"
else
if [[ "$linepath" = -* ]]; then
tmp1=$(( $#dirstack $linepath ))
else
tmp1=$linepath[2,-1]
fi
[[ -o pushdminus ]] && tmp1=$(( $#dirstack - $tmp1 ))
fi
if (( ! tmp1 )); then
realpath=$PWD/
elif [[ tmp1 -le $#dirstack ]]; then
realpath=$dirstack[tmp1]/
else
_message 'not enough directory stack entries'
return 1
fi
elif [[ "$linepath" = [-+] ]]; then
realpath=${~:-\~$linepath}/
else
eval "realpath=~${linepath}/" 2>/dev/null
if [[ -z "$realpath" ]]; then
_message "unknown user \`$linepath'"
return 1
fi
fi
linepath="~${linepath}/"
[[ "$realpath" = "$linepath" ]] && return 1
pre="${pre#*/}"
orig="${orig#*/}"
donepath=
prepaths=( '' )
else
# If the string does not start with a `~' we don't remove a prefix from the
# string.
linepath=
realpath=
if zstyle -s ":completion:${curcontext}:" preserve-prefix tmp1 &&
[[ -n "$tmp1" && "$pre" = (#b)(${~tmp1})* ]]; then
pre="$pre[${#match[1]}+1,-1]"
orig="$orig[${#match[1]}+1,-1]"
donepath="$match[1]"
prepaths=( '' )
elif [[ "$pre[1]" = / ]]; then
# If it is a absolute path name, we remove the first slash and put it in
# `donepath' meaning that we treat it as the path that was already handled.
# Also, we don't use the paths from `-W'.
pre="$pre[2,-1]"
orig="$orig[2,-1]"
donepath='/'
prepaths=( '' )
else
# The common case, we just use the string as it is, unless it begins with
# `./' or `../' in which case we don't use the paths from `-W'.
[[ "$pre" = (.|..)/* ]] && prepaths=( '' )
donepath=
fi
fi
# Now we generate the matches. First we loop over all prefix paths given
# with the `-W' option.
for prepath in "$prepaths[@]"; do
# Get local copies of the prefix, suffix, and the prefix path to use
# in the following loop, which walks through the pathname components
# in the string from the line.
skipped=
cpre=
if [[ ( -n $accept_exact_dirs || -z $path_completion ) && \
${pre} = (#b)(*)/([^/]#) ]]; then
# We've been told either that we can accept an exact directory prefix
# immediately, or that path expansion is inhibited. Try the longest
# path prefix first: in the first case, this saves stats in the simple
# case and may get around automount behaviour if early components don't
# yet exist, and in the second case this is the prefix we want to keep.
#
# Explanation of substitution: For tmp1 and tpre, which are used further
# on, we need to remove quotes from everything that's not a pattern
# character, because the code that does the file generation only
# strips quotes from pattern characters (you know better than
# to ask why). Because we need to test for a real directory,
# however, for tmp2 we unquote everything.
tmp1=${match[1]}
tpre=${match[2]}
tmp2=${(Q)tmp1}
tmp1=${tmp1//(#b)\\(?)/$match[1]}
tpre=${tpre//(#b)\\([^\\\]\[\^\~\(\)\#\*\?])/$match[1]}
# Theory: donepath needs the quoting of special characters
# still in it. However, we need it without at this point.
# (I think.) Note this is different from the above where we're
# doing something a bit different.
tmp3=${donepath//(#b)\\(?)/$match[1]}
while true; do
if [[ -z $path_completion || -d $prepath$realpath$tmp3$tmp2 ]]; then
tmp3=$tmp3$tmp1/
# Now put donepath back the way it should be. (I think.)
donepath=${tmp3//(#b)([\\\]\[\^\~\(\)\#\*\?])/\\$match[1]}
pre=$tpre
break
elif [[ $tmp1 = (#b)(*)/([^/]#) ]]; then
tmp1=$match[1]
tpre=$match[2]/$tpre
else
break
fi
done
fi
tpre="$pre"
tsuf="$suf"
# Now we strip quoting from pattern characters, too, because
# testpath is used as a literal string. I suppose we could
# alternatively use ${~testpath} later.
#
# I'm not sure if donepath itself should be entirely unquoted at
# some point but probably not here, since we need the quoted pattern
# characters in tmp1 below (I think).
testpath="${donepath//(#b)\\([\\\]\[\^\~\(\)\#\*\?])/$match[1]}"
tmp2="${(M)tpre##${~skips}}"
tpre="${tpre#$tmp2}"
tmp1=( "$prepath$realpath$donepath$tmp2" )
# count of attemps for pws non-canonical hack
(( npathcheck = 0 ))
while true; do
origtmp1=("${tmp1[@]}")
# Get the prefix and suffix for matching.
if [[ "$tpre" = */* ]]; then
PREFIX="${tpre%%/*}"
SUFFIX=
else
PREFIX="${tpre}"
SUFFIX="${tsuf%%/*}"
fi
# Force auto-mounting. There might be a better way...
# Commented out in the hope that `pws non-canonical hack'
# down below does this for us. Can be uncommented if it
# doesn't.
# : ${^tmp1}/${PREFIX}${SUFFIX}/.(/)
# Get the matching files by globbing.
tmp2=( "$tmp1[@]" )
if [[ "$tpre$tsuf" = */* ]]; then
compfiles -P$cfopt tmp1 accex "$skipped" "$_matcher $matcher[2]" "$sdirs" fake
elif [[ "$sopt" = *[/f]* ]]; then
compfiles -p$cfopt tmp1 accex "$skipped" "$_matcher $matcher[2]" "$sdirs" fake "$pats[@]"
else
compfiles -p$cfopt tmp1 accex "$skipped" "$_matcher $matcher[2]" '' fake "$pats[@]"
fi
tmp1=( $~tmp1 ) 2> /dev/null
if [[ -n "$PREFIX$SUFFIX" ]]; then
# See which of them match what's on the line.
# pws non-canonical hack which seems to work so far...
# if we didn't match by globbing, check that there is
# something to match by explicit name. This is for
# `clever' filing systems where names pop into existence
# when referenced.
#
# As suggested by Bart, to make sure the "compfiles" checks
# still work we repeat the tests above if we successfully
# find something that might need adding, but we make sure
# we only do this once for completion of each path segment.
if (( ! $#tmp1 && npathcheck == 0 )); then
(( npathcheck = 1 ))
for tmp3 in "$tmp2[@]"; do
if [[ -n $tmp3 && $tmp3 != */ ]]; then
tmp3+=/
fi
if [[ -e "$tmp3${(Q)PREFIX}${(Q)SUFFIX}" ]] then
(( npathcheck = 2 ))
fi
done
if (( npathcheck == 2 )); then
# repeat loop with same arguments
tmp1=("$origtmp1[@]")
continue
fi
fi
if (( ! $#tmp1 )); then
tmp2=( ${^${tmp2:#/}}/$PREFIX$SUFFIX )
elif [[ "$tmp1[1]" = */* ]]; then
if [[ -n "$_comp_correct" ]]; then
tmp2=( "$tmp1[@]" )
builtin compadd -D tmp1 "$matcher[@]" - "${(@)tmp1:t}"
if [[ $#tmp1 -eq 0 ]]; then
tmp1=( "$tmp2[@]" )
compadd -D tmp1 "$matcher[@]" - "${(@)tmp2:t}"
fi
else
tmp2=( "$tmp1[@]" )
compadd -D tmp1 "$matcher[@]" - "${(@)tmp1:t}"
fi
else
tmp2=( '' )
compadd -D tmp1 "$matcher[@]" -a tmp1
fi
# If no file matches, save the expanded path and continue with
# the outer loop.
if (( ! $#tmp1 )); then
if [[ "$tmp2[1]" = */* ]]; then
tmp2=( "${(@)tmp2#${prepath}${realpath}}" )
if [[ "$tmp2[1]" = */* ]]; then
tmp2=( "${(@)tmp2:h}" )
compquote tmp2
if [[ "$tmp2" = */ ]]; then
exppaths=( "$exppaths[@]" ${^tmp2}${tpre}${tsuf} )
else
exppaths=( "$exppaths[@]" ${^tmp2}/${tpre}${tsuf} )
fi
elif [[ ${tpre}${tsuf} = */* ]]; then
exppaths=( "$exppaths[@]" ${tpre}${tsuf} )
### this once was in an `else' (not `elif')
fi
fi
continue 2
fi
elif (( ! $#tmp1 )); then
# A little extra hack: if we were completing `foo/' and `foo'
# contains no files, this will normally produce no matches and other
# completers might think that's it's their time now. But if the next
# completer is _correct or something like that, this will result in
# an attempt to correct a valid directory name. So we just add the
# original string in such a case so that the command line doesn't
# change but other completers still think there are matches.
# We do this only if we weren't given a `-g' or `-/' option because
# otherwise this would keep `_files' from completing all filenames
# if none of the patterns match.
if [[ -z "$tpre$tsuf" && -n "$pre$suf" ]]; then
pfxsfx=(-S '' "$pfxsfx[@]")
### Don't remember what the break was good for. We explicitly
### execute this only when there are no matches in the directory,
### so why continue?
###
### tmp1=( "$tmp2[@]" )
### break
elif [[ -n "$haspats" && -z "$tpre$tsuf$suf" && "$pre" = */ ]]; then
PREFIX="${opre}"
SUFFIX="${osuf}"
compadd -nQS '' - "$linepath$donepath$orig"
tmp4=-
fi
continue 2
fi
if [[ -n "$ignpar" && -z "$_comp_no_ignore" &&
"$tpre$tsuf" != */* && $#tmp1 -ne 0 &&
( "$ignpar" != *dir* || "$pats" = '*(-/)' ) &&
( "$ignpar" != *..* || "$tmp1[1]" = *../* ) ]]; then
compfiles -i tmp1 _comp_ignore "$ignpar" "$prepath$realpath$donepath"
(( $#_comp_ignore && $mopts[(I)-F] )) ||
mopts=( "$mopts[@]" -F _comp_ignore )
fi
# Step over to the next component, if any.
if [[ "$tpre" = */* ]]; then
tpre="${tpre#*/}"
elif [[ "$tsuf" = */* ]]; then
tpre="${tsuf#*/}"
tsuf=
else
break
fi
# There are more components, so skip over the next components and make a
# slash be added.
tmp1=( ${tmp1//(#b)([][()|*?^#~<>\\=])/\\${match[1]}} )
tmp2="${(M)tpre##((.|..|)/)##}"
if [[ -n "$tmp2" ]]; then
skipped="/$tmp2"
tpre="${tpre#$tmp2}"
else
skipped=/
fi
(( npathcheck = 0 ))
done
# The next loop searches the first ambiguous component.
tmp3="$pre$suf"
tpre="$pre"
tsuf="$suf"
[[ -n "${prepath}${realpath}${testpath}" ]] &&
tmp1=( "${(@)tmp1#${prepath}${realpath}${testpath}}" )
while true; do
# First we check if some of the files match the original string
# for this component. If there are some we remove all other
# names. This avoids having `foo' complete to `foo' and `foobar'.
# The return value is non-zero if the component is ambiguous.
compfiles -r tmp1 "${(Q)tmp3}"
tmp4=$?
if [[ "$tpre" = */* ]]; then
tmp2="${cpre}${tpre%%/*}"
PREFIX="${linepath}${donepath}${tmp2}"
SUFFIX="/${tpre#*/}${tsuf#*/}"
else
tmp2="${cpre}${tpre}"
PREFIX="${linepath}${donepath}${tmp2}"
SUFFIX="${tsuf}"
fi
# This once tested `|| [[ -n "$compstate[pattern_match]" &&
# "$tmp2" = (|*[^\\])[][*?#~^\|\<\>]* ]]' but it should now be smart
# enough to handle multiple components with patterns.
if (( tmp4 )); then
# It is. For menu completion we now add the possible completions
# for this component with the unambiguous prefix we have built
# and the rest of the string from the line as the suffix.
# For normal completion we add the rests of the filenames
# collected as the suffixes to make the completion code expand
# it as far as possible.
tmp2="$testpath"
if [[ -n "$linepath" ]]; then
compquote -p tmp2 tmp1
elif [[ -n "$tmp2" ]]; then
compquote -p tmp1
compquote tmp2
else
compquote tmp1 tmp2
fi
if [[ -z "$_comp_correct" &&
"$compstate[pattern_match]" = \* && -n "$listsfx" &&
"$tmp2" = (|*[^\\])[][*?#~^\|\<\>]* ]]; then
PREFIX="$opre"
SUFFIX="$osuf"
fi
# This once tested `-n $menu ||' but our menu-completion expert says
# that's not what we want.
if [[ -z "$compstate[insert]" ]] ||
{ ! zstyle -t ":completion:${curcontext}:paths" expand suffix &&
[[ -z "$listsfx" &&
( -n "$_comp_correct" ||
-z "$compstate[pattern_match]" || "$SUFFIX" != */* ||
"${SUFFIX#*/}" = (|*[^\\])[][*?#~^\|\<\>]* ) ]] }; then
# We have not been told to insert the match, so we are
# listing, or something.
(( tmp4 )) && zstyle -t ":completion:${curcontext}:paths" ambiguous &&
compstate[to_end]=
if [[ "$tmp3" = */* ]]; then
if [[ -z "$listsfx" || "$tmp3" != */?* ]]; then
# I think this means we are expanding some directory
# back up the path.
tmp1=("${(@)tmp1%%/*}")
_list_files tmp1 "$prepath$realpath$testpath"
compadd $Uopt -Qf "$mopts[@]" \
-p "${Uopt:+$IPREFIX}$linepath$tmp2" \
-s "/${tmp3#*/}${Uopt:+$ISUFFIX}" \
-W "$prepath$realpath$testpath" \
"$pfxsfx[@]" $Mopts \
$listopts \
-a tmp1
else
# Same with a non-empty suffix
tmp1=("${(@)^tmp1%%/*}/${tmp3#*/}")
_list_files tmp1 "$prepath$realpath$testpath"
compadd $Uopt -Qf "$mopts[@]" \
-p "${Uopt:+$IPREFIX}$linepath$tmp2" \
-s "${Uopt:+$ISUFFIX}" \
-W "$prepath$realpath$testpath" \
"$pfxsfx[@]" $Mopts \
$listopts \
-a tmp1
fi
else
_list_files tmp1 "$prepath$realpath$testpath"
compadd $Uopt -Qf "$mopts[@]" -p "${Uopt:+$IPREFIX}$linepath$tmp2" \
-s "${Uopt:+$ISUFFIX}" \
-W "$prepath$realpath$testpath" \
"$pfxsfx[@]" $Mopts \
$listopts \
-a tmp1
fi
else
# We are inserting the match into the command line.
if [[ "$tmp3" = */* ]]; then
tmp4=( $Uopt -Qf "$mopts[@]" -p "${Uopt:+$IPREFIX}$linepath$tmp2"
-W "$prepath$realpath$testpath"
"$pfxsfx[@]" $Mopts )
if [[ -z "$listsfx" ]]; then
for i in "$tmp1[@]"; do
tmpdisp=("$i")
_list_files tmpdisp "$prepath$realpath$testpath"
compadd "$tmp4[@]" -s "${Uopt:+$ISUFFIX}" $listopts - "$tmpdisp"
done
else
[[ -n "$compstate[pattern_match]" ]] && SUFFIX="${SUFFIX:s./.*/}*"
for i in "$tmp1[@]"; do
_list_files i "$prepath$realpath$testpath"
compadd "$tmp4[@]" $listopts - "$i"
done
fi
else
_list_files tmp1 "$prepath$realpath$testpath"
compadd $Uopt -Qf "$mopts[@]" -p "${Uopt:+$IPREFIX}$linepath$tmp2" \
-s "${Uopt:+$ISUFFIX}" \
-W "$prepath$realpath$testpath" \
"$pfxsfx[@]" $Mopts \
$listopts \
-a tmp1
fi
fi
tmp4=-
break
fi
# If we have checked all components, we stop now and add the
# strings collected after the loop.
if [[ "$tmp3" != */* ]]; then
tmp4=
break
fi
# Otherwise we add the unambiguous component to `testpath' and
# take it from the filenames.
testpath="${testpath}${tmp1[1]%%/*}/"
tmp3="${tmp3#*/}"
if [[ "$tpre" = */* ]]; then
if [[ -z "$_comp_correct" && -n "$compstate[pattern_match]" &&
"$tmp2" = (|*[^\\])[][*?#~^\|\<\>]* ]]; then
cpre="${cpre}${tmp1[1]%%/*}/"
else
cpre="${cpre}${tpre%%/*}/"
fi
tpre="${tpre#*/}"
elif [[ "$tsuf" = */* ]]; then
[[ "$tsuf" != /* ]] && mid="$testpath"
if [[ -z "$_comp_correct" && -n "$compstate[pattern_match]" &&
"$tmp2" = (|*[^\\])[][*?#~^\|\<\>]* ]]; then
cpre="${cpre}${tmp1[1]%%/*}/"
else
cpre="${cpre}${tpre}/"
fi
tpre="${tsuf#*/}"
tsuf=
else
tpre=
tsuf=
fi
tmp1=( "${(@)tmp1#*/}" )
done
if [[ -z "$tmp4" ]]; then
if [[ "$mid" = */ ]]; then
PREFIX="${opre}"
SUFFIX="${osuf}"
tmp4="${testpath#${mid}}"
tmp3="${mid%/*/}"
tmp2="${${mid%/}##*/}"
if [[ -n "$linepath" ]]; then
compquote -p tmp3
else
compquote tmp3
fi
compquote tmp4 tmp2 tmp1
for i in "$tmp1[@]"; do
_list_files tmp2 "$prepath$realpath${mid%/*/}"
compadd $Uopt -Qf "$mopts[@]" -p "${Uopt:+$IPREFIX}$linepath$tmp3/" \
-s "/$tmp4$i${Uopt:+$ISUFFIX}" \
-W "$prepath$realpath${mid%/*/}/" \
"$pfxsfx[@]" $Mopts $listopts - "$tmp2"
done
else
if [[ "$osuf" = */* ]]; then
PREFIX="${opre}${osuf}"
SUFFIX=
else
PREFIX="${opre}"
SUFFIX="${osuf}"
fi
tmp4="$testpath"
if [[ -n "$linepath" ]]; then
compquote -p tmp4 tmp1
elif [[ -n "$tmp4" ]]; then
compquote -p tmp1
compquote tmp4
else
compquote tmp4 tmp1
fi
if [[ -z "$_comp_correct" && -n "$compstate[pattern_match]" &&
"${PREFIX#\~}$SUFFIX" = (|*[^\\])[][*?#~^\|\<\>]* ]]; then
tmp1=("$linepath$tmp4${(@)^tmp1}")
_list_files tmp1 "$prepath$realpath"
compadd -Qf -W "$prepath$realpath" "$pfxsfx[@]" "$mopts[@]" \
-M "r:|/=* r:|=*" $listopts -a tmp1
else
# Not a pattern match
_list_files tmp1 "$prepath$realpath$testpath"
compadd $Uopt -Qf -p "${Uopt:+$IPREFIX}$linepath$tmp4" \
-s "${Uopt:+$ISUFFIX}" \
-W "$prepath$realpath$testpath" \
"$pfxsfx[@]" "$mopts[@]" $Mopts $listopts -a tmp1
fi
fi
fi
done
# If we are configured to expand paths as far as possible and we collected
# expanded paths that are different from the string on the line, we add
# them as possible matches. Do that only if we are currently trying the
# last entry in the matcher-list style, otherwise other match specs might
# make the suffix that didn't match this time match in one of the following
# attempts.
if [[ _matcher_num -eq ${#_matchers} ]] &&
zstyle -t ":completion:${curcontext}:paths" expand prefix &&
[[ nm -eq compstate[nmatches] && $#exppaths -ne 0 &&
"$linepath$exppaths" != "$eorig" ]]; then
PREFIX="${opre}"
SUFFIX="${osuf}"
compadd -Q "$mopts[@]" -S '' -M "r:|/=* r:|=*" -p "$linepath" -a exppaths
fi
[[ nm -ne compstate[nmatches] ]]
PK ['26| | functions/_flashernu W+A #compdef flasher
_arguments \
'(--fiasco -F)'{--fiasco,-F}':location of a FIASCO image:_files' \
'(--kernel -k)'{--kernel,-k}':location of kernel image:_files' \
'(--initfs -n)'{--initfs,-n}':location of initfs image:_files' \
'(--rootfs -r)'{--rootfs,-r}':location of root JFFS2 image:_files' \
'(--xloader -x)'{--xloader,-x}':location of X-Loader image:_files' \
'(--secondary -s)'{--secondary,-s}':location of NOLO secondary bootloader image:_files' \
'(--2nd -2)'{--2nd,-2}':location of NOLO cold flasher ("2nd") image:_files' \
'(--unpack -u)'{--unpack,-u}'::unpack a FIASCO image:_files' \
'(--flash -f)'{--flash,-f}'[load and flash all supplied images]' \
'(--load -l)'{--load,-l}'[only load all supplied images]' \
'(--boot -b)'{--boot,-b}'::kernel cmdline' \
'(--reboot -R)'{--reboot,-R}'[reboot the board]' \
'(--read-board-id -i)'{--read-board-id,-i}'[print out the board type]' \
'(--serial-port -S)'{--serial-port,-S}':serial port used for cold flashing' \
'(--initialize-port -I)'{--initialize-port,-I}':something' \
'(--cold-flash -c)'{--cold-flash,-c}'[cold flash the device]' \
'--enable-rd-mode[enable R&D mode on the device]' \
'--disable-rd-mode[disable R&D mode on the device]' \
'--set-rd-flags::R&D mode flags to set' \
'--clear-rd-flags::R&D mode flags to clear' \
'--query-rd-mode[query the device R&D mode status and flags]' \
'--set-root-device:default root device' \
'--query-root-device[query the default root device]' \
'--enable-usb-host-mode[set the device into USB host mode]' \
'--disable-usb-host-mode[set the device into USB peripheral mode]' \
'--flash-only:components'
PK [ y y functions/prompt_off_setupnu W+A # Very simple prompt
prompt_off_setup () {
PS1="%# "
PS2="> "
prompt_opts=( cr percent )
}
prompt_off_setup "$@"
PK [*{> > functions/_psutilsnu W+A #compdef epsffit extractres fixdlsrps fixfmps fixmacps fixpsditps fixpspps fixscribeps fixtpps fixwfwps fixwpps fixwwps includeres psbook psmerge psnup psresize psselect pstops getafm showchar
case "$service" in
epsffit)
_arguments \
'-v[print version]' \
'-c[centres the image in the bounding box given]' \
'-r[rotates the image by 90 degrees anti-clockwise]' \
'-a[alters the aspect ratio to fit the bounding box]' \
'-s[adds a showpage at the end of the image]' \
'-m[rotates the image to maximise the size]' \
':lower left x:' \
':lower left y:' \
':upper right x:' \
':upper right y:' \
':input file:_ps' \
':output file:_ps'
;;
psbook)
_arguments \
'-q[quiet mode]' \
'-v[print version]' \
'-s-[signature size]:signature size:' \
':input file:_ps' \
':output file:_ps'
;;
psnup)
_arguments \
'-q[quiet mode]' \
'-v[print version]' \
'(-p)-w-[page width]:paper width:' \
'(-p)-h-[page height]:paper height:' \
'(-w -h)-p-[page size]:paper size:(a3 a4 a5 b5 letter legal 10x14)' \
'(-P)-W-[input page width]:input paper width:' \
'(-P)-H-[input page height]:input paper height:' \
'(-W -H)-P-[input page paper]:input paper paper:(a3 a4 a5 b5 letter legal 10x14)' \
'( -r -f)-l[landscape (rotated left)]' \
'(-l -f)-r[seascape (rotated right)]' \
'(-l -r )-f[flipped]' \
'-c[column major layout]' \
'-m-[margins around whole page]:margins around whole page:' \
'-b-[border around individual pages]:border around individual pages:' \
'-d-[draw borders]:line width for borders:' \
'-s-[override scale]:scale:' \
'( -4 -8 -n)-2[2 logical pages on a sheet]' \
'(-2 -8 -n)-4[4 logical pages on a sheet]' \
'(-2 -4 -n)-8[8 logical pages on a sheet]' \
'(-2 -4 -8 )-n[n-up]:pages on a sheet:' \
'-t-[layout tolerance]:layout tolerance:' \
':input file:_ps' \
':output file:_ps'
;;
psresize)
_arguments \
'-q[quiet mode]' \
'-v[print version]' \
'(-p)-w-[page width]:paper width:' \
'(-p)-h-[page height]:paper height:' \
'(-w -h)-p-[page size]:paper size:(a3 a4 a5 b5 letter legal 10x14)' \
'(-P)-W-[input page width]:input paper width:' \
'(-P)-H-[input page height]:input paper height:' \
'(-W -H)-P-[input page paper]:input paper paper:(a3 a4 a5 b5 letter legal 10x14)' \
':input file:_ps' \
':output file:_ps'
;;
psselect)
_arguments \
'-q[quiet mode]' \
'-v[print version]' \
'-e[select even pages]' \
'-o[select odd pages]' \
'-r[reverse order]' \
'-p-[pages]:pages:' \
':input file:_ps' \
':output file:_ps'
;;
pstops)
_arguments \
'-q[quiet mode]' \
'-v[print version]' \
'-d-[draw borders]:line width for borders:' \
'-b[no bind operator]' \
'(-p)-w-[page width]:paper width:' \
'(-p)-h-[page height]:paper height:' \
'(-w -h)-p-[page size]:paper size:(a3 a4 a5 b5 letter legal 10x14)' \
':[modulo\:][-]pageno[L][R][U][@scale][(xoff,yoff)][+|,]...:' \
':input file:_ps' \
':output file:_ps'
;;
extractres)
_arguments \
'-m[merge]' \
':input file:_ps'
;;
fixmacps)
_arguments \
'-d[directory]:directory:_files -/' \
'-n[name]:name:' \
':input file:_ps'
;;
psmerge)
_arguments \
'-o-[output file]:output file:_ps' \
'-t[thorough]' \
'*:input file:_ps'
;;
fixdlsrps|fixfmps|fixpsditps|fixpspps|fixscribeps|fixtpps|fixwfwps|fixwpps|fixwwps|includeres)
_ps
;;
getafm)
_arguments \
':font name:'
;;
showchar)
_arguments \
':font name:' \
':character name:'
;;
esac
PK [ functions/_pydocnu W+A #compdef pydoc
local context state line
typeset -A opt_args
_arguments \
'-k[keyword]:keyword:' \
'-p[port]:port:_ports' \
'-g[gui]' \
'-w[write out HTML]:file or dir:_files' \
':keyword, topic, module, package, or dotted reference:->lookup' && return 0
_alternative \
'keywords:keyword:compadd ${=${${(f)"$(pydoc keywords)"}[2,-1]}}' \
'topics:topic:compadd ${=${${(f)"$(pydoc topics)"}[2,-1]}}' \
'modules:module:'
PK [q+ functions/VCS_INFO_detect_gitnu W+A ## vim:ft=zsh
## git support by: Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
[[ $1 == '--flavours' ]] && { print -l git-p4 git-svn; return 0 }
if VCS_INFO_check_com ${vcs_comm[cmd]} && ${vcs_comm[cmd]} rev-parse --is-inside-work-tree &> /dev/null ; then
vcs_comm[gitdir]="$(${vcs_comm[cmd]} rev-parse --git-dir 2> /dev/null)" || return 1
if [[ -d ${vcs_comm[gitdir]}/svn ]] ; then vcs_comm[overwrite_name]='git-svn'
elif [[ -d ${vcs_comm[gitdir]}/refs/remotes/p4 ]] ; then vcs_comm[overwrite_name]='git-p4' ; fi
return 0
fi
return 1
PK [4"g g functions/_most_recent_filenu W+A #compdef -k complete-word \C-xm
# Complete the most recently modified file matching the pattern on the line
# so far: globbing is active, i.e. *.txt will be expanded to the most recent
# file ending in .txt
#
# With a prefix argument, select the Nth most recent matching file;
# negative arguments work in the opposite direction, so for example
# `Esc - \C-x m' gets you the oldest file.
local file tilde etilde
if [[ $PREFIX = \~*/* ]]; then
tilde=${PREFIX%%/*}
etilde=${~tilde}
# PREFIX and SUFFIX have full command line quoting in, but we want
# any globbing characters which are quoted to stay quoted.
eval "file=($PREFIX*$SUFFIX(om[${NUMERIC:-1}]N))"
file=(${file/#$etilde})
file=($tilde${(q)^file})
else
eval "file=($PREFIX*$SUFFIX(om[${NUMERIC:-1}]N))"
file=(${(q)file})
fi
(( $#file )) && compadd -U -i "$IPREFIX" -I "$ISUFFIX" -f -Q -- $file
PK [;{W W functions/_volume_groupsnu W+A #autoload
local expl
_wanted volumegroups expl 'volume group' compadd "$@" - $(lsvg)
PK [@qf& & functions/edit-command-linenu W+A # Edit the command line using your usual editor.
# Binding this to 'v' in the vi command mode map,
# autoload -Uz edit-command-line
# zle -N edit-command-line
# bindkey -M vicmd v edit-command-line
# will give ksh-like behaviour for that key,
# except that it will handle multi-line buffers properly.
local tmpfile=${TMPPREFIX:-/tmp/zsh}ecl$$
print -R - "$PREBUFFER$BUFFER" >$tmpfile
exec 0 )); then
local i
for i in "$@"; do
case "$i" in
-i) packages+=(${${(M)_fink_pkgs:#?i?*}#* }) ;;
-o) packages+=(${${(M)_fink_pkgs:#(i)*}#* }) ;;
-n) packages+=(${${(M)_fink_pkgs:# n *}#* }) ;;
esac
done
else
packages=(${_fink_pkgs#* })
fi
}
_fink_get_packages_without_cache(){
local expl
packages=(${(f)"$(
command fink list -t "$@" "$PREFIX" \
| command grep -v '\[virtual package\]' \
| command cut -f2
)"})
}
_fink_get_packages(){
# variable packages will be set
if zstyle -t ":completion:${curcontext}:" use-cache; then
_fink_get_packages_with_cache "$@"
else
_fink_get_packages_without_cache "$@"
fi
}
_finkpkgs_caching_policy(){
local -a oldp
oldp=( "$1"(Nmw+1) )
(( $#oldp )) ||
[[ /sw/var/cache/apt/pkgcache.bin -nt "$1" ]] ||
[[ /sw/var/lib/dpkg/available -nt "$1" ]]
}
_fink(){
local -a _1st_arguments
_1st_arguments=(
'install:install or update packages'
'remove:remove packages'
'purge:remove packages and configuration files'
'update-all:update all installed packages to the latest version'
'list:search package name or conditions and list'
'apropos:search package descriptions or conditions and list'
'describe:display a description of the package'
'fetch:download package source files'
'fetch-all:downloads all package source files'
'fetch-missing:download all missing package source files'
'build:build .deb packages'
'rebuild:rebuild .deb packages'
'reinstall:reinstall packages'
'configure:rerun the fink configuration process'
'selfupdate:upgrade to a new fink release'
'validate:validate files'
'scanpackages:call dpkg-scanpackages'
'checksums:validate the MD5 digest of all tarballs'
'cleanup:removes obsolete package files'
)
local context state line expl
local -A opt_args
_arguments \
'(-h --help)'{-h,--help}'[display help text]' \
'(-q --quiet)'{-q,--quiet}'[causes fink to be less verbose]' \
'(-V --version)'{-V,--version}'[display version information]' \
'(-v --verbose)'{-v,--verbose}'[causes fink to be more verbose]' \
'(-y --yes)'{-y,--yes}'[assume default answer for interactive questions]' \
'*:: :->subcmds' && return 0
if (( CURRENT == 1 )); then
_describe -t commands "fink subcommand" _1st_arguments
return
fi
local -a packages
case "$words[1]" in
install|update|enable|activate|use)
_fink_get_packages -n -o
_wanted packages expl 'not installed or outdated fink package' compadd -a packages ;;
remove|disable|deactivate|unuse|delete|purge)
_fink_get_packages -i
_wanted packages expl 'installed package' compadd -a packages ;;
#update-all)
list)
_arguments \
'(-t --tab)'{-t,--tab}'[outputs list with tabs as field delimiter]' \
'(-i --installed)'{-i,--installed}'[packages currently installed]' \
'(-u --uptodate)'{-u,--uptodate}'[packages up to date]' \
'(-o --outdate)'{-o,--outdated}'[packages newer version is available]' \
'(-n --notinstalled)'{-n,--notinstalled}'[packages not installed]' \
'(-b --buildonly)'{-b,--buildonly}'[packages Build Only Depends]' \
'(-s --section)'{-s=,--section=}'[sections]:section name' \
'(-m --maintainer)'{-m=,--maintainer=}'[maintainer]:maintainer name' \
--tree='[tree]:tree name' \
'(-w --width)'{-w=,--width=}'[width of display]:number or "auto"' \
'(1 : -)'{-h,--help}'[display help text]' \
'1: :->pkgs' && return 0
if [[ "$state" == pkgs ]]; then
_fink_get_packages
_wanted packages expl 'package name hint' compadd -a packages
fi ;;
apropos)
_arguments \
'(-t --tab)'{-t,--tab}'[output the list with tabs as field delimiter]' \
'(-w --width)'{-w=,--width=}'[width of display]:number or "auto"' \
'(1 : -)'{-h,--help}'[display help text]' \
'1: :->pkgs' && return 0
if [[ "$state" == pkgs ]]; then
_fink_get_packages
_wanted packages expl 'package hint' compadd -a packages
fi ;;
describe|desc|description|info)
_fink_get_packages
_wanted packages expl 'package' compadd -a packages ;;
#fetch)
#fetch-all)
fetch-missing)
_arguments \
'(-i --ignore-restrictive)'{-i,--ignore-restrictive}'[do not fetch packages that are "License: Restrictive"]' ;;
#build)
rebuild|reinstall)
_fink_get_packages
_wanted packages expl 'package' compadd -a packages ;;
#configure)
#selfupdate)
validate|check)
_wanted files expl 'finkinfo file' _files -g \*.info ;;
#scanpackages)
#checksums)
#cleanup)
esac
}
_fink "$@"
PK [
functions/_yastnu W+A #compdef yast yast2
_arguments \
'(- 1)'{-h,--help}'[display help information]' \
'(- 1)'{-l,--list}'[list all available modules]' \
'(-g --geometry)'{-g,--geometry}'[specify default window size]:_x_geometry' \
'(-s --style)'{-s,--style}'[specify widget style]:style:(qt)' \
'--noborder[no window manager border for main window]' \
'--fullscreen[use full screen]' \
'(-)'{-i,--install}'[install package]:*:package file:_files -g "*.rpm(-.)"' \
'1:module:( ${${(f)"$($words[1] -l 2>/dev/null)"}[2,-1]##* } )'
PK [)9$ $ functions/_whereisnu W+A #compdef whereis
_command_names -e
PK [ɼ functions/_sshfsnu W+A #compdef sshfs
_arguments \
'-V[version]' \
'-p:tcp port:' \
'-C[compression]' \
'-o:options:_values -s , "sshfs or fuse or mount options" reconnect sshfs_sync no_readahead sshfs_debug cache=:cache\ setting:(yes no) cache_timeout=:seconds: cache_stat_timeout=:seconds: cache_dir_timeout=:seconds: cache_link_timeout=:seconds: ssh_command=:ssh\ command:_command_names directport=:port: SSHOPT=:ssh\ option: default_permissions allow_other allow_root kernel_cache large_read direct_io max_read=:size: hard_remove debug fs_name=:name: use_ino readdir_ino' \
'-d[debug]' \
'-f[foreground]' \
'-s[disable multithreaded operation]' \
'-r[mount read-only]' \
'-h[help]' \
':remote directory:_user_at_host -S:' \
':mountpoint:_files -/'
PK [{ functions/_envnu W+A #compdef env
if _pick_variant gnu=Free\ Soft unix --version; then
_arguments \
'(--ignore-environment -i)'{-i,--ignore-environment}'[start with empty environment]' \
'*'{-u,--unset=}'[remove variable from the environment]:env var to remove:compadd ${(k)parameters[(R)*export*]}' \
'--help[help]' \
'--version[version]' \
'(-):command: _command_names -e' \
'*::arguments: _normal'
else
_precommand
fi
PK [-" " functions/_texinfonu W+A #compdef info tkinfo install-info makeinfo texi2dvi texindex
local curcontext="$curcontext" state line ret=1
local -A opt_args
local -a info
case $service in
info)
info=( _call_program info ${words[1]} )
_arguments -C -s \
'(: -)--apropos=[look up string in indices]:search string: ' \
'(-f --file)'{\*-d,\*--directory=}'[add directory to infopath]:info dir:_files -/' \
'--dribble=[record keystrokes]:file with keystrokes:_files' \
'(-f --file -d --directory)'{-f,--file=}'[info file to show]:info file:_files -g "*.info(|.gz|.bz2)(-.)"' \
'(: - -h --help)'{-h,--help}'[display usage]' \
'(-o --output -O)--index-search=[go directly to node if found]:search string: ' \
'(--index-search -o --output -O)'{-o,--output=}'[dump selected nodes to filename]:filename:_files -g "*(-.)"' \
'(-R --raw-escapes)'{-R,--raw-escapes}'[do not remove ANSI escapes from man pages]' \
'--restore=[read keystrokes from file]:filename:_files -g "*(-.)"' \
'(--index-search -o --output -O --show-options --usage)'{-O,--show-options,--usage}'[go to command-line options node]' \
'--subnodes[recursively output menu items]' \
'--vi-keys[use Vi-like key bindings]' \
'(: -)--version[display version information]' \
'(--apropos -h --help -O --output --version)*::menu item:->item' && ret=0
info=( $info {(kv)opt_args[(I)(-d|--directory|-f|--file)]} )
;;
install-info)
if _pick_variant debian=Debian gnu --version; then
_arguments -S \
'(* -)--help[display help information]' \
'(* -)--version[display version information]' \
'(--maxwidth --align --calign)--remove[delete existing entries]' \
'(--maxwidth --align --calign)--remove-exactly[delete existing entries taking exact entry name]' \
'--section[specify section to add entry in]:regexp::title' \
'--infodir=[specify directory containing dir file]:info directory:_files -/' \
'--align=[specify minimum indentation for description]:indentation' \
'--calign=[specify minimum indentation for continuation lines of description]:indentation' \
'--maxwidth=[specify maximum width of dir file]:width' \
'--quiet[suppress informational output]' \
'--description=[specify description for menu entry]:description' \
'--menuentry=[specify the menu entry for dir file]:menu entry' \
'--keep-old=[inhibit replacement of existing entries/removal of empty sections]' \
'--test[do not update dir file]' \
'--debug[enable debugging]' \
'*:info file:_files -g "*.info(-.)"'
return
else
_arguments \
'(--delete --remove)'{--delete,--remove}'[delete existing entries]' \
'(2)--dir-file=[specify dir file]:dir file:_files -g "dir(-.)"' \
\*{--entry,--info}'[specify directory entry to add]:text' \
'(- 1 2)--help[display help information]' \
'(1)--info-file=[specify info file to install in the directory]:info file:_files -g "*.info(-.)"' \
'(2)--info-dir=[specify directory containing dir file]:info directory:_files -/' \
'--quiet[suppress warnings]' \
'(--delete --remove)--section=[put new entries in specified section]' \
'(- 1 2)--version[display version information]' \
'1:info file:_files -g "*.info(-.)"' \
'2:dir file:_files -g "dir(-.)"'
return
fi
;;
makeinfo)
_arguments -s \
'--error-limit=[specify number of errors to quit after]:number' \
'--force[preserve output even if errors]' \
'(* -)--help[display help]' \
'--no-validate[suppress node cross-reference validation]' \
'--no-warn[suppress warnings]' \
'--reference-limit=[warn about at most specified number of references]:number' \
'(-v --verbose)'{-v,--verbose}'[explain what is being done]' \
'(* -)--version[display version info]' \
'(--html --xml)--docbook[output in DocBook format]' \
'(--docbook --xml)--html[output in HTML format]' \
'--no-headers[suppress node separators and menus]' \
'(--docbook --html)--xml[output in XML (TexinfoML) format]' \
'(-E --macro-expand)'{-E,--macro-expand}'[output macro-expanded source to specified file]:file:_files' \
'(--docbook --xml)--no-split[suppress splitting of output]' \
'--number-sections[output chapter and section numbers]' \
'(-o --output=)'{-o,--output}'[specify output file]:output file:_files' \
'(--docbook --html --xml)--enable-encoding[output special characters]' \
'(--docbook --html --xml)--fill-column=[specify width to break lines at]:width' \
'(--docbook --html --xml)--footnote-style=[specify style for output of footnotes]:((separate\:in\ own\ node end\:at\ end\ of\ node))' \
'(--docbook --html --xml)--paragraph-indent=[specify spaces to indent paragraphs by]' \
'(--docbook --html --xml)--split-size=[split Info files at specified size]:size' \
'--commands-in-node-names[allow @ commands in node names]' \
'-D[define variable]:variable' \
'-I[specify directory to append to @include search path]:directory:_files -/' \
'-P[specify directory to prepend to @include search path]:directory:_files -/' \
'-U[undefine variable]:variable' \
'(--html --no-ifhtml)--ifhtml[process @ifhtml and @html when not generating HTML]' \
'(--no-ifinfo)--ifinfo[process @ifinfo even when not generating Info]' \
'(--no-iftex)--iftex[process @iftex and @tex text]' \
'(--no-ifplaintext)--ifplaintext[process @ifplaintext even when not generating plain text]' \
'(--ifhtml)--no-ifhtml[do not process @ifhtml and @html text]' \
'(--ifinfo)--no-ifinfo[do not process @ifinfo text]' \
'(--ifplaintext)--no-ifplaintext[do not process @ifplaintext text]' \
'(--iftex)--no-iftex[do not process @iftex and @tex text]' \
'*:texinfo file:_texi'
return
;;
texi2dvi)
_arguments -s \
'(-b --batch)'{-b,--batch}'[no interaction]' \
'(-c --clean)'{-c,--clean}'[remove all auxiliary files]' \
'(-D --debug)'{-D,--debug}'[turn on shell debugging (set -x)]' \
'(- *)'{-h,--help}'[display help information]' \
'(-o --output)'{-o,--output=}'[specify output file]:output file:_files' \
'(-q -s --quiet --silent -V --verbose)'{-q,-s,--silent,--quiet}'[no output except errors]' \
'(-q -s --quiet --silent -V --verbose)'{-V,--verbose}'[report on what is done]' \
'(- *)'{-v,--version}'[display version information]' \
'-@[use @input instead of \input; for preloaded Texinfo]' \
'(-e --expand)'{-e,--expand}'[force macro expansion using makeinfo]' \
'-I[specify search dir for texinfo files]:directory:_files -/' \
'(-l --language)'{-l,--language}'[specify language of input file]:language:(LaTeX Texinfo)' \
'(-p --pdf)'{-p,--pdf}'[use pdftex or pdflatex for processing]' \
\*{-t,--texinfo}'[specify command to insert after @setfilename]:command' \
'*:file:_texi'
return
;;
texindex)
_arguments \
'(* -)--help[display help]' \
'(* -)--version[display version info]' \
'(--no-keep)--keep[keep temporary files around after processing]' \
'(--keep)--no-keep[do not keep temporary files (default)]' \
'(-o --output)'{-o,--output=}'[specify output file]:file:_files' \
'*:texinfo file:_texi'
return
;;
tkinfo)
_x_arguments -C \
'-+'{headers,buttons,balloons,scrollthrough,pagesep,showdir} \
'-linklook:menu display:(color font underline)' \
'-highlight:link display:(color inverse underline)' \
'-searchlook:search match display:(color inverse underline)' \
'-iconic' \
'-dir:info path:_dir_list' \
'-file:info file:_files -g "*.info(|.gz|.bz2)(-.)"' \
'-node:info node:->item' \
'*::menu items:->item' && ret=0
info=( _call_program info info ${(kv)opt_args[(I)-file]/-file/-f} )
;;
esac
case $state in
item )
local -a items tags expl infopath
(( $#INFOPATH )) && infopath=( -W ${s/:/INFOPATH} )
tags=(items)
if [[ $CURRENT -eq 1 ]]; then
tags+=files
fi
_tags $tags
while _tags; do
if _requested files expl 'info file'; then
_files "$expl[@]" $infopath -g '*.info' && ret=0
fi
if _requested items; then
items=(${${(M)${${(f)"$(${info} --output - ${words[1,CURRENT-1]} 2>/dev/null)"}[1,(r)[[:space:]]#--- The Detailed Node Listing ---[[:space:]]#]}:#\* *~\* Menu:*}:/(#b)\*[[:space:]]##([^:]##):(#B)( \(?##\)[^.]#.|(:|))[[:space:]]#(#b)(*)[[:space:]]#/$match[1]${match[2]:+:}$match[2]})
_describe -t items "menu item" items && ret=0
fi
done
;;
esac
return ret
PK [u u functions/capitalize-word-matchnu W+A emulate -L zsh
setopt extendedglob
autoload match-words-by-style
local curcontext=":zle:$WIDGET" word
local -a matched_words
integer count=${NUMERIC:-1}
while (( count-- > 0 )); do
match-words-by-style
word=${(j..)matched_words[4,5]}
if [[ -n $word ]]; then
LBUFFER+=${(C)word}
RBUFFER=${(j..)matched_words[6,7]}
else
return 1
fi
done
return 0
PK [T[{
{
functions/_history_complete_wordnu W+A #compdef -K _history-complete-older complete-word \e/ _history-complete-newer complete-word \e,
#
# Complete words from the history
#
# by Adam Spiers, with help gratefully received from
# Sven Wischnowsky and Bart Schaefer
#
# Available styles:
#
# list -- avoid to display lists of available matches
# stop -- stop before looping at beginning and end of matches
# sort -- sort matches lexically (default is to sort by age)
# remove-all-dups --
# remove /all/ duplicate matches rather than just consecutives
# range -- range of history words to complete
_history_complete_word () {
eval "$_comp_setup"
local expl direction stop curcontext="$curcontext"
if [[ -z "$curcontext" ]]; then
curcontext=history-words:::
else
curcontext="history-words${curcontext#*:}"
fi
if [[ $WIDGET = *newer ]]; then
direction=newer
else
direction=older
fi
zstyle -t ":completion:${curcontext}:history-words" stop && stop=yes
zstyle -T ":completion:${curcontext}:history-words" list || compstate[list]=''
if [[ $LASTWIDGET = _history-complete-* &&
( -n "$compstate[old_list]" || -n $_hist_stop ) ]]; then
if [[ "$direction" == older ]]; then
if [[ $_hist_stop = new ]]; then
PREFIX=$_hist_old_prefix
_history_complete_word_gen_matches
compstate[insert]=2
_hist_stop=
elif [[ $_hist_stop = old ]]; then
PREFIX=$_hist_old_prefix
_history_complete_word_gen_matches
compstate[insert]=1
_hist_stop=
elif [[ compstate[old_insert] -lt _hist_menu_length ]]; then
compstate[old_list]=keep
(( compstate[insert] = compstate[old_insert] + 1 ))
elif [[ -n $stop ]]; then
_hist_stop=old
_message 'beginning of history reached'
return 1
else
compstate[old_list]=keep
compstate[insert]=1
fi
elif [[ "$direction" == 'newer' ]]; then
if [[ $_hist_stop = old ]]; then
PREFIX=$_hist_old_prefix
_history_complete_word_gen_matches
compstate[insert]=$(( $compstate[nmatches] - 1 ))
_hist_stop=
elif [[ $_hist_stop = new ]]; then
PREFIX=$_hist_old_prefix
_history_complete_word_gen_matches
compstate[insert]=$compstate[nmatches]
_hist_stop=
elif [[ compstate[old_insert] -gt 1 ]]; then
compstate[old_list]=keep
(( compstate[insert] = compstate[old_insert] - 1 ))
elif [[ -n $stop ]]; then
_hist_stop=new
_message 'end of history reached'
return 1
else
compstate[old_list]=keep
compstate[insert]=$_hist_menu_length
fi
fi
return 0
else
_hist_stop=
_hist_old_prefix="$PREFIX"
_history_complete_word_gen_matches
fi
(( $compstate[nmatches] ))
}
_history_complete_word_gen_matches () {
[[ -n "$_hist_stop" ]] && PREFIX="$_hist_old_prefix"
_main_complete _history
zstyle -T ":completion:${curcontext}:history-words" list || compstate[list]=
_hist_menu_length="$compstate[nmatches]"
if [[ $_lastcomp[insert] != *unambig* ]]; then
case "$direction" in
newer) compstate[insert]=$_hist_menu_length
[[ -n "$_hist_stop" ]] && (( compstate[insert]-- ))
;;
older) compstate[insert]=1
[[ -n "$_hist_stop" ]] && (( compstate[insert]++ ))
;;
esac
fi
_hist_stop=
return
}
_history_complete_word "$@"
PK [g
functions/_paxnu W+A #compdef pax
_arguments -s \
'-r[read]' \
'-w[write]' \
'-a[append]' \
'-b:block size:(512 1024 1536 2048 2560 3072 3584 4096 4608 5120 5632 6144 6656 7168 7680 8192 8704 9216 9728 10240 10752 11264 11776 12288 12800 13312 13824 14336 14848 15360 15872 16384 16896 17408 17920 18432 18944 19456 19968 20480 20992 21504 22016 22528 23040 23552 24064 24576 25088 25600 26112 26624 27136 27648 28160 28672 29184 29696 30208 30720 31232 31744 32256 32768 33280 33792 34304 34816 35328 35840 36352 36864 37376 37888 38400 38912 39424 39936 40448 40960 41472 41984 42496 43008 43520 44032 44544 45056 45568 46080 46592 47104 47616 48128 48640 49152 49664 50176 50688 51200 51712 52224 52736 53248 53760 54272 54784 55296 55808 56320 56832 57344 57856 58368 58880 59392 59904 60416 60928 61440 61952 62464 62976 63488 64000 64512
1k 2k 3k 4k 5k 6k 7k 8k 9k 10k 11k 12k 13k 14k 15k 16k 17k 18k 19k 20k
21k 22k 23k 24k 25k 26k 27k 28k 29k 30k 31k 32k 33k 34k 35k 36k 37k 38k
39k 40k 41k 42k 43k 44k 45k 46k 47k 48k 49k 50k 51k 52k 53k 54k 55k 56k
57k 58k 59k 60k 61k 62k 63k
1b 2b 3b 4b 5b 6b 7b 8b 9b 10b 11b 12b 13b 14b 15b 16b 17b 18b 19b 20b
21b 22b 23b 24b 25b 26b 27b 28b 29b 30b 31b 32b 33b 34b 35b 36b 37b 38b
39b 40b 41b 42b 43b 44b 45b 46b 47b 48b 49b 50b 51b 52b 53b 54b 55b 56b
57b 58b 59b 60b 61b 62b 63b 64b 65b 66b 67b 68b 69b 70b 71b 72b 73b 74b
75b 76b 77b 78b 79b 80b 81b 82b 83b 84b 85b 86b 87b 88b 89b 90b 91b 92b
93b 94b 95b 96b 97b 98b 99b 100b 101b 102b 103b 104b 105b 106b 107b 108b
109b 110b 111b 112b 113b 114b 115b 116b 117b 118b 119b 120b 121b 122b
123b 124b 125b 126b)' \
'-c[match all but specified]' \
'-d[match only directory but not contents]' \
'-f:archive:_files -g "*.(tar|cpio)"' \
'-i[interactively rename files]' \
'-j[filter archive through bzip2]' \
'-k[do not overwrite existing files]' \
'-l[hardlink files]' \
'-n[select only the first match for each pattern]' \
'-o:options:_values options write_opt\:writeopt\:\(nodir\)' \
'-p:privileges:(a ae aem am amo amp ao ap e em em m mo mp o p)' \
'-s:substitution expression:' \
'-t[reset access times of files after access]' \
'-u[ignore older files]' \
'-v[verbose]' \
'-x:output format:(cpio bcpio sv4cpio sv4crc tar ustar)' \
'-B:maximum number of octets per archive:' \
'-D[ignore older files by ctime]' \
'-E:maximum number of consecutive read faults:' \
'*-G:group:_groups' \
'-H[follow only command-line symlinks]' \
'-L[follow all symlinks]' \
'-P[do not follow symlinks]' \
'-T:time range:' \
'*-U:user:_users' \
'-X[do not descend into directories that have a different device ID]' \
'-Y[ignore older files by ctime after file name mods]' \
'-Z[ignore older files after file name mods]' \
'*:files:_files'
PK [O< < functions/_bzip2nu W+A #compdef bzip2 bunzip2 bzcat=bunzip2 bzip2recover -redirect-,<,bunzip2=bunzip2 -redirect-,>,bzip2=bunzip2 -redirect-,<,bzip2=bzip2
local decompress expl state line curcontext="$curcontext" ret=1
typeset -A opt_args
case "$service" in
bzip2recover) [[ $CURRENT = 2 ]] && state=files;;
bzip2) decompress=no;&
bunzip2) _arguments -C -s -S \
'(--help)-h[display help message]' \
'(-h)--help[display help message]' \
'(--decompress --compress -z --test -t)-d[decompress]' \
'(-d --compress -z --test -t)--decompress[decompress]' \
'(--compress --decompress -d --test -t)-z[compress]' \
'(-z --decompress -d --test -t)--compress[compress]' \
"(--keep)-k[keep (don't delete) input files]" \
"(-k)--keep[keep (don't delete) input files]" \
'(--force)-f[force overwrite]' \
'(-f)--force[force overwrite]' \
'(--test --decompress -d --compress -z )-t[test compressed file integrity]' \
'(-t --decompress -d --compress -z )--test[test compressed file integrity]' \
'(--stdout)-c[write on standard output]' \
'(-c)--stdout[write on standard output]' \
'(--quiet)-q[suppress all warnings]' \
'(-q)--quiet[suppress all warnings]' \
'*-v[verbose mode]' \
'*--verbose[verbose mode]' \
'(--license)-L[display software license]' \
'(-L)--license[display software license]' \
'(--version)-V[display version number]' \
'(-V)--version[display version number]' \
'(--small)-s[use less memory (at most 2500k)]' \
'( -2 -3 -4 -5 -6 -7 -8 -9)-1' \
'(-1 -3 -4 -5 -6 -7 -8 -9)-2' \
'(-1 -2 -4 -5 -6 -7 -8 -9)-3' \
'(-1 -2 -3 -5 -6 -7 -8 -9)-4' \
'(-1 -2 -3 -4 -6 -7 -8 -9)-5' \
'(-1 -2 -3 -4 -5 -7 -8 -9)-6' \
'(-1 -2 -3 -4 -5 -6 -8 -9)-7' \
'(-1 -2 -3 -4 -5 -6 -7 -9)-8' \
'(-1 -2 -3 -4 -5 -6 -7 -8 )-9' \
'*:files:->files' && ret=0
;;
esac
if [[ "$state" = files ]]; then
(( $+opt_args[-z] || $+opt_args[--compress] )) && decompress=no
(( $+opt_args[-d] || $+opt_args[--decompress] || $+opt_args[-t] ||
$+opt_args[--test] )) && unset decompress
if [[ -z "$decompress" ]]; then
_description files expl 'compressed file'
_files "$expl[@]" -g '*.(bz2|tbz|tbz2)(-.)' && return
else
_description files expl 'file to compress'
_files "$expl[@]" -g '^*.(bz2|tbz|tbz2)(-.)' && return
fi
fi
return ret
PK [F{ functions/VCS_INFO_nvcsformatsnu W+A ## vim:ft=zsh
## Written by Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions noksharrays NO_shwordsplit
local c v rr
if [[ $1 == '-preinit-' ]] ; then
c='default'
v='-preinit-'
rr='-all-'
fi
zstyle -a ":vcs_info:${v:-$vcs}:${c:-$usercontext}:${rrn:-$rr}" nvcsformats msgs
(( ${#msgs} > maxexports )) && msgs[${maxexports},-1]=()
return 0
PK [gSv/ / functions/compauditnu W+A # So that this file can also be read with `.' or `source' ...
compaudit() { # Define and then call
# Audit the fpath to assure that it contains all the directories needed by
# the completion system, and that those directories are at least unlikely
# to contain dangerous files. This is far from perfect, as the modes or
# ownership of files or directories might change between the time of the
# audit and the time the function is executed.
# This function is designed to be called from compinit, which assumes that
# it is in the same directory, i.e., it can be autoloaded from the initial
# fpath as compinit was. Most local parameter names in this function must
# therefore be the same as those used in compinit.
emulate -L zsh
setopt extendedglob
[[ -x /usr/bin/getent ]] || getent() {
if [[ $2 = <-> ]]; then
grep ":$2:[^:]*$" /etc/$1
else
grep "^$2:" /etc/$1
fi
}
# The positional parameters are the directories to check, else fpath.
if (( $# )); then
local _compdir=''
elif (( $#fpath == 0 )); then
print 'compaudit: No directories in $fpath, cannot continue' 1>&2
return 1
else
set -- $fpath
fi
# _i_check is defined by compinit; used here as a test for whether this
# function is running standalone or was called by compinit. If called
# by compinit, we use parameters that are defined in compinit's scope,
# otherwise we make them local here.
(( $+_i_check )) || {
local _i_q _i_line _i_file _i_fail=verbose
local -a _i_files _i_addfiles _i_wdirs _i_wfiles
local -a -U +h fpath
}
fpath=( $* )
# _compdir may be defined by the user; see the compinit documentation.
# If it isn't defined, we want it to point somewhere sensible, but the
# user is allowed to set it to empty to bypass the check below.
(( $+_compdir )) || {
local _compdir=${fpath[(r)*/$ZSH_VERSION/*]}
[[ -z $_compdir ]] && _compdir=$fpath[1]
### [[ -d $_compdir/../Base ]] && _compdir=${_compdir:h}
}
_i_wdirs=()
_i_wfiles=()
_i_files=( ${^~fpath:/.}/^([^_]*|*~|*.zwc)(N) )
if [[ -n $_compdir ]]; then
if [[ $#_i_files -lt 20 || $_compdir = */Base || -d $_compdir/Base ]]; then
# Too few files: we need some more directories, or we need to check
# that all directories (not just Base) are present.
_i_addfiles=()
if [[ -d $_compdir/Base/Core ]]; then
# Add all the Completion subdirectories (CVS-layout)
_i_addfiles=(${_compdir}/*/*(/^M))
elif [[ -d $_compdir/Base ]]; then
# Likewise (installation-layout)
_i_addfiles=(${_compdir}/*(/^M))
fi
for _i_line in {1..$#_i_addfiles}; do
_i_file=${_i_addfiles[$_i_line]}
[[ -d $_i_file && -z ${fpath[(r)$_i_file]} ]] ||
_i_addfiles[$_i_line]=
done
fpath=($fpath $_i_addfiles)
_i_files=( ${^~fpath:/.}/^([^_]*|*~|*.zwc)(N) )
fi
fi
[[ $_i_fail == use ]] && return 0
# RedHat Linux "per-user groups" check. This is tricky, because it's very
# difficult to tell whether the sysadmin has put someone else into your
# "private" group (e.g., via the default group field in /etc/passwd, or
# by NFS group sharing with an untrustworthy machine). So we must assume
# that this has not happened, and pick the best group.
local GROUP GROUPMEM _i_pw _i_gid _i_ulwdirs
if ((UID == EUID )); then
getent group $LOGNAME | IFS=: read GROUP _i_pw _i_gid GROUPMEM
else
getent group $EGID | IFS=: read GROUP _i_pw _i_gid GROUPMEM
fi
# We search for:
# - world/group-writable directories in fpath not owned by root and the user
# - parent-directories of directories in fpath that are world/group-writable
# and not owned by root and the user (that would allow someone to put a
# digest file for one of the directories into the parent directory)
# - digest files for one of the directories in fpath not owned by root and
# the user
# - and for files in directories from fpath not owned by root and the user
# (including zwc files)
if [[ $GROUP == $LOGNAME && ( -z $GROUPMEM || $GROUPMEM == $LOGNAME ) ]]; then
_i_wdirs=( ${^fpath}(N-f:g+w:^g:${GROUP}:,-f:o+w:,-^u0u${EUID})
${^fpath:h}(N-f:g+w:^g:${GROUP}:,-f:o+w:,-^u0u${EUID}) )
else
_i_wdirs=( ${^fpath}(N-f:g+w:,-f:o+w:,-^u0u${EUID})
${^fpath:h}(N-f:g+w:,-f:o+w:,-^u0u${EUID}) )
fi
if [[ -f /etc/debian_version ]]
then
_i_ulwdirs=( ${(M)_i_wdirs:#/usr/local/*} )
_i_wdirs=( ${_i_wdirs:#/usr/local/*} ${^_i_ulwdir}(Nf:g+ws:^g:staff:,f:o+w:,^u0) )
fi
_i_wdirs=( $_i_wdirs ${^fpath}.zwc^([^_]*|*~)(N-^u0u${EUID}) )
_i_wfiles=( ${^fpath}/^([^_]*|*~)(N-^u0u${EUID}) )
case "${#_i_wdirs}:${#_i_wfiles}" in
(0:0) _i_q= ;;
(0:*) _i_q=files ;;
(*:0) _i_q=directories ;;
(*:*) _i_q='directories and files' ;;
esac
if [[ -n "$_i_q" ]]; then
[[ $_i_fail == verbose ]] && {
print There are insecure ${_i_q}: 1>&2
print -l - $_i_wdirs $_i_wfiles
}
return 1
fi
return 0
} # Define and then call
compaudit "$@"
PK [lT T functions/_dumpadmnu W+A #compdef dumpadm
_dumpadm() {
local -a content
content=(
"kernel"\:"Kernel memory pages only"
"all"\:"All memory pages"
"curproc"\:"Kernel memory pages plus curproc pages"
)
_arguments -s \
'-n[dont run savecore on reboot]' \
'-u[update dump configuration from dumpadm.conf]' \
'-y[run savecore on reboot]' \
'-c[set dump content]:dump content:(($content))' \
'-d[set dump device]:block devices:_files -g "*(-%b)"' \
'-m[set minfree size ]:' \
'-s[set the savecore directory]:directory:_files -/' \
'-r[alternate root directory]:directory:_files -/'
}
_dumpadm "$@"
PK [Kx*] ] functions/calendar_lockfilesnu W+A # Lock the given files.
# Append the names of lockfiles to the array lockfiles.
local file lockfile msgdone
# Number of attempts to lock a file. Probably not worth stylising.
integer lockattempts=4 loadtried
# The lockfile name is not stylised: it has to be a fixed
# derivative of the main fail.
for file; do
lockfile=$file.lockfile
for (( i = 0; i <= lockattempts; i++ )); do
if ln -s $file $lockfile >/dev/null 2>&1; then
lockfiles+=($lockfile)
break
fi
if zle && [[ -z $msgdone ]]; then
msgdone="${lockfile}: waiting to acquire lock"
zle -M $msgdone
fi
if (( ! loadtried )); then
zmodload -i zsh/zselect 2>/dev/null
(( loadtried = 1 ))
fi
if zmodload -e zsh/zselect; then
# This gives us finer grained timing (100th second).
# Randomize the sleep between .1 and 2 seconds so that
# we are much less likely to have multiple instances
# retrying at once.
zselect -t $(( 10 + RANDOM * 190 / 32768 ))
else
sleep 1
fi
done
if [[ -n $msgdone ]]; then
zle -M ${msgdone//?/ }
msgdone=
fi
if [[ ${lockfiles[-1]} != $lockfile ]]; then
msgdone="Failed to lock $file; giving up after $lockattempts attempts.
Another instance of calendar may be using it.
Delete $lockfiles if you believe this to be an error."
if zle; then
zle -M $msgdone
else
print $msgdone >&2
fi
# The parent should take action to delete any lockfiles
# already locked. Typically this won't be necessary, since
# we will always lock the main calendar file first.
return 1
fi
done
return 0
PK [co functions/_ncftpnu W+A #compdef ncftp lftp
local expl bookmarks=$HOME/.$service/bookmarks
if [[ -f $bookmarks ]]; then
bookmarks=(${"${(f)$(<$bookmarks)}"%%[[:space:],]*})
[[ $service == ncftp ]] && shift 2 bookmarks
_wanted bookmarks expl bookmark compadd -a bookmarks && return 0
fi
_hosts
PK [o>! ! functions/_rakenu W+A #compdef rake
# rake, version 0.8.3
local curcontext="$curcontext" state line expl ret=1
typeset -A opt_args
_arguments -C -s -S \
'(--classic-namespace -C)'{--classic-namespace,-C}'[put Task and FileTask in the top level namespace]' \
'(--dry-run -n)'{--dry-run,-n}'[do a dry run without executing actions]' \
'(- *)'{--describe,-D}'[describe the tasks (matching the specified pattern), then exit]:pattern::' \
'(--execute -e)'{--execute,-e}'[execute some Ruby code and exit]:Ruby code:' \
'(--execute-print -p)'{--execute-print,-p}'[execute some Ruby code, print the result, then exit]:Ruby code:' \
'(--execute-continue -E)'{--execute-continue,-E}'[execute some Ruby code, then continue with normal task processing]:Ruby code:' \
'(- *)'{--help,-h,-H}'[display help information]' \
\*{--libdir,-I}'[include specified directory in the search path for required modules]:library directory:_files -/' \
'(--rakelibdir --rakelib -R)'{--rakelibdir,--rakelib,-R}'[auto-import any .rake files in the specified directory. (default is 'rakelib')]:rake library directory:_files -/' \
'(--nosearch -N)'{--nosearch,-N}'[do not search parent directories for the Rakefile]' \
'(- *)'{--prereqs,-P}'[display the tasks and prerequisites, then exit]' \
'(--quiet -q --silent -s --verbose -v)'{--quiet,-q}'[do not log messages to standard output]' \
'(--rakefile -f)'{--rakefile,-f}'[use specified file as the rakefile]:rake file:_files' \
\*{--require,-r}'[require specified module before executing rakefile]:library:->library' \
'(- *)--rules[trace the rules resolution]' \
'(--quiet -q --silent -s --verbose -v)'{--silent,-s}"[like --quiet, but also suppresses the 'in directory' announcement]" \
'(--system,-g)'{--system,-g}'[using system wide (global) rakefiles (usually '~/.rake/*.rake')]' \
'(- *)'{--tasks,-T}'[display the tasks (matching the specified pattern) with descriptions, then exit]:pattern::' \
'(--trace -t)'{--trace,-t}'[turn on invoke/execute tracing, enable full backtrace]' \
'(--quiet -q --silent -s --verbose -v)'{--verbose,-v}'[log message to standard output (default)]' \
'(- *)'{--version,-V}'[display version information]' \
'*:target:->target' && ret=0
case "$state" in
library)
local -a dirs
dirs=( $(_call_program directories ruby -e 'puts\ \$:' 2>/dev/null) ${(s.:.)opt_args[-I]} )
_wanted libraries expl library _path_files -W dirs && ret=0
;;
target)
local -a targets
targets=( ${${(f)"$(_call_program targets $words[1] -sT $opt_args[(I)(-N|--nosearch)] ${(kv)opt_args[(I)(-f|--rakefile)]} 2>/dev/null)"}/(#b)rake ([^ ]##) ##\# (*)/${${match[1]}//:/\\:}:${match[2]:l}} )
if (( ! ${targets[(I)rake aborted!]} )) then
_describe -t targets 'rake target' targets && ret=0
else
_message -e targets 'rake target'
fi
;;
esac
return ret
PK [ functions/_store_cachenu W+A #autoload
#
# Storage component of completions caching layer
local _cache_ident _cache_ident_dir
_cache_ident="$1"
if zstyle -t ":completion:${curcontext}:" use-cache; then
# Decide which directory to cache to, and ensure it exists
zstyle -s ":completion:${curcontext}:" cache-path _cache_dir
: ${_cache_dir:=${ZDOTDIR:-$HOME}/.zcompcache}
if [[ ! -d "$_cache_dir" ]]; then
if [[ -e "$_cache_dir" ]]; then
_message "cache-dir style points to a non-directory\!"
else
# if module load fails, we *should* be okay using normal mkdir so
# we load feature b:mkdir instead of b:zf_mkdir; note that modules
# loaded in a sub-shell don't affect the parent.
( zmodload -F zsh/files b:mkdir; mkdir -m 0700 -p "$_cache_dir"
) 2>/dev/null
if [[ ! -d "$_cache_dir" ]]; then
_message "couldn't create cache-dir $_cache_dir"
return 1
fi
fi
fi
_cache_ident_dir="$_cache_dir/$_cache_ident"
_cache_ident_dir="$_cache_ident_dir:h"
if [[ ! -d "$_cache_ident_dir" ]]; then
if [[ -e "$_cache_ident_dir" ]]; then
_message "cache ident dir points to a non-directory:$_cache_ident_dir"
else
# See also rationale in zmodload above
( zmodload -F zsh/files b:mkdir; mkdir -m 0700 -p "$_cache_ident_dir"
) 2>/dev/null
if [[ ! -d "$_cache_ident_dir" ]]; then
_message "couldn't create cache-ident_dir $_cache_ident_dir"
return 1
fi
fi
fi
shift
for var; do
case ${(Pt)var} in
(*readonly*) ;;
(*(association|array)*) print -r "$var=( ${(kv@Pqq)^^var} )";;
(*) print -r "$var=${(Pqq)^^var}";;
esac
done >! "$_cache_dir/$_cache_ident"
else
return 1
fi
return 0
PK []y functions/zfgotonu W+A # zfgoto bname
# Go to bookmark bname, a location on a remote FTP host. Unless
# this was the last session or is for anonymous FTP, prompt for
# the user's password.
#
# Maybe this should try and look for an appropriate session to use
# for the transfer.
emulate -L zsh
setopt extendedglob
[[ $curcontext = :zf* ]] || local curcontext=:zfgoto
# Set ZFTP_BMFILE if not already set. This should agree with
# the corresponding line in zfmark.
: ${ZFTP_BMFILE:=${ZFDOTDIR:-$HOME}/.zfbkmarks}
typeset -A bkmarks
local line opt_n opt
while getopts :n opt; do
[[ $opt = '?' ]] && print "zfgoto: bad option: -$OPTARG" && return 1
eval "opt_$opt=1"
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
if (( $# != 1 )); then
print "Usage: zfgoto bookmark" >&2
return 1
fi
if [[ -n $opt_n && -f ~/.ncftp/bookmarks ]]; then
local oldifs=$IFS
IFS=,
while read -rA line; do
bkmarks[$line[1]]="${line[3]:-anonymous}@${line[2]}:${line[6]}"
done < ~/.ncftp/bookmarks
IFS=$oldifs
elif [[ -f $ZFTP_BMFILE ]]; then
# read in file: could optimise this by recording last read time
# comparing with file
while read -r line; do
# ignore blank and comment lines
[[ $line = [[:blank:]]# || $line = [[:blank:]]#'#'* ]] && continue
bkmarks[${line%% *}]="${line#* }"
done <$ZFTP_BMFILE
fi
line=${bkmarks[$1]}
if [[ -z $line ]]; then
print "Bookmark \`$1' not found" >&2
return 1
fi
local user host dir
user=${line%%@*}
line=${line#*@}
host=${line%%:*}
dir=${line#*:}
if [[ $ZFTP_USER = $user && $ZFTP_HOST = $host ]]; then
# We're already there, just change directory
zfcd ${dir:-~}
elif [[ $user = ftp || $user = anonymous ]]; then
# Anonymous ftp, so we don't need password etc.
zfanon $host && [[ -n $dir ]] && zfcd $dir
elif [[ $zfconfig[lastloc_$ZFTP_SESSION] = ${host}:* &&
$user = $zfconfig[lastuser_$ZFTP_SESSION] ]]; then
# This was the last session, so assume it's still setup in the
# open parameters
zfopen && [[ -n $dir ]] && zfcd $dir
else
# Last try: see if it's in the parameters.
local params
params=($(zftp params))
if [[ $host = $params[1] && $user = $params[2] ]]; then
zfopen && [[ -n $dir ]] && zfcd $dir
else
zfopen $host $user && [[ -n $dir ]] && zfcd $dir
fi
fi
PK [' functions/tcp_opennu W+A # Open a TCP session, add it to the list, handle it with zle if that's running.
# Unless using -a, -f, -l or -s, first two arguments are host and port.
#
# Remaining argument, if any, is the name of the session, which mustn't
# clash with an existing one. If none is given, the number of the
# connection is used (i.e. first connection is 1, etc.), or the first
# available integer if that is already in use.
#
# Session names, whether provided on the command line or in the
# .ztcp_sessions file should not be `clever'. A clever name is one
# with characters that won't work. This includes whitespace and an
# inconsistent set of punctuation characters. If in doubt, stick
# to alphanumeric, underscore and non-initial hyphen.
#
# -a fd Accept a connection on fd and make that the session.
# This will block until a successful incoming connection is received.
#
# fd is probably a value returned by ztcp -l; no front-end
# is currently provided for that but it should simply be
# a matter of calling `ztcp -l port' and storing $REPLY, then
# closing the listened port with `ztcp -c $stored_fd'.
#
# -f fd `Fake' tcp connection on the given file descriptor. This
# could be, for example, a file descriptor already opened to
# a named pipe. It should not be a regular file, however.
# Note that it is not a good idea for two different sessions
# to be attempting to read from the same named pipe, so if
# both ends of the pipe are to be handled by zsh, at least
# one should use the `-z' option.
#
# -l sesslist
# -s sessname
# Open by session name or comma separated list; either may
# be repeated as many times as necessary. The session must be
# listed in the file ${ZDOTDIR:-$HOME}/.ztcp_sessions. Lines in
# this file look exactly like a tcp_open command line except the
# session name is at the start, for example
# sess1 pwspc 2811
# has the effect of
# tcp_open pwspc 2811 sess1
# Remaining arguments (other than options) to tcp_open are
# not allowed. Options in .ztcp_sessions are not handled.
# The file must be edited by hand.
#
# -z Don't install a zle handler for reading on the file descriptor.
# Otherwise, if zle is enabled, the file descriptor will
# be tested while at the shell prompt and any input automatically
# printed in the same way as job control notification.
#
# If a session is successfully opened, and if the function `tcp_on_open'
# exists, it is run with the arguments session_name, session_fd.
emulate -L zsh
setopt extendedglob cbases
# Global set up for TCP function suite.
zmodload -i zsh/net/tcp || return 1
zmodload -i zsh/zutil
autoload -Uz tcp_alias tcp_close tcp_command tcp_expect tcp_fd_handler
autoload -Uz tcp_log tcp_output tcp_proxy tcp_read tcp_rename tcp_send
autoload -Uz tcp_sess tcp_spam tcp_talk tcp_wait tcp_point tcp_shoot
# TCP_SECONDS_START is only set if we override TCP_SECONDS locally,
# so provide a global value for convenience. Should probably always be 0.
(( ${+TCP_SECONDS_START} )) || typeset -gF TCP_SECONDS_START
# Processing for new connection.
local opt accept fake nozle sessfile sess quiet
local -a sessnames sessargs
integer stat
while getopts "a:f:l:qs:z" opt; do
case $opt in
(a) accept=$OPTARG
if [[ $accept != [[:digit:]]## ]]; then
print "option -a takes a file descriptor" >&2
return 1
fi
;;
(f) fake=$OPTARG
if [[ $fake != [[:digit:]]## ]]; then
print "option -f takes a file descriptor" >&2
return 1
fi
;;
(l) sessnames+=(${(s.,.)OPTARG})
;;
(q) quiet=1
;;
(s) sessnames+=($OPTARG)
;;
(z) nozle=1
;;
(*) return 1
;;
esac
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
(( ${+tcp_by_fd} )) || typeset -gA tcp_by_fd
(( ${+tcp_by_name} )) || typeset -gA tcp_by_name
typeset -A sessassoc
if (( ${#sessnames} )); then
if [[ $# -ne 0 || -n $accept || -n $fake ]]; then
print "Incompatible arguments with \`-s' option." >&2
return 1
fi
for sess in ${sessnames}; do
sessassoc[$sess]=
done
sessfile=${ZDOTDIR:-$HOME}/.ztcp_sessions
if [[ ! -r $sessfile ]]; then
print "No session file: $sessfile" >&2
return 1
fi
while read -A sessargs; do
[[ ${sessargs[1]} = '#'* ]] && continue
if (( ${+sessassoc[${sessargs[1]}]} )); then
sessassoc[${sessargs[1]}]="${sessargs[2,-1]}"
fi
done < $sessfile
for sess in ${sessnames}; do
if [[ -z $sessassoc[$sess] ]]; then
print "Couldn't find session $sess in $sessfile." >&2
return 1
fi
done
else
if [[ -z $accept && -z $fake ]]; then
if (( $# < 2 )); then
set -- wrong number of arguments
else
host=$1 port=$2
shift $(( $# > 1 ? 2 : 1 ))
fi
fi
if [[ -n $1 ]]; then
sessnames=($1)
shift
else
sessnames=($(( ${#tcp_by_fd} + 1 )))
while [[ -n $tcp_by_name[$sessnames[1]] ]]; do
(( sessnames[1]++ ))
done
fi
sessassoc[$sessnames[1]]="$host $port"
fi
if (( $# )); then
print "Usage: $0 [-z] [-a fd | -f fd | host port [ session ] ]
$0 [-z] [ -s session | -l sesslist ] ..." >&2
return 1
fi
local REPLY fd
for sess in $sessnames; do
if [[ -n $tcp_by_name[$sess] ]]; then
print "Session \`$sess' already exists." >&2
return 1
fi
sessargs=()
if [[ -n $fake ]]; then
fd=$fake;
else
if [[ -n $accept ]]; then
ztcp -a $accept || return 1
else
sessargs=(${=sessassoc[$sess]})
ztcp $sessargs || return 1
fi
fd=$REPLY
fi
tcp_by_fd[$fd]=$sess
tcp_by_name[$sess]=$fd
[[ -o zle && -z $nozle ]] && zle -F $fd tcp_fd_handler
# needed for new completion system, so I'm not too sanguine
# about requiring this here...
if zmodload -i zsh/parameter; then
if (( ${+functions[tcp_on_open]} )); then
if ! tcp_on_open $sess $fd; then
if [[ -z $quiet ]]; then
if (( ${#sessargs} )); then
print "Session $sess" \
"(host $sessargs[1], port $sessargs[2] fd $fd): tcp_on_open FAILED."
else
print "Session $sess (fd $fd) tcp_on_open FAILED."
fi
tcp_close -- $sess
else
tcp_close -q -- $sess
fi
stat=1
continue
fi
fi
fi
if [[ -z $quiet ]]; then
if (( ${#sessargs} )); then
print "Session $sess" \
"(host $sessargs[1], port $sessargs[2] fd $fd) opened OK."
else
print "Session $sess (fd $fd) opened OK."
fi
fi
done
if [[ -z $TCP_SESS || -z $tcp_by_name[$TCP_SESS] ]]; then
# careful in case we closed it again...
if [[ -n $tcp_by_name[$sessnames[1]] ]]; then
[[ -z $quiet ]] && print "Setting default TCP session $sessnames[1]"
typeset -g TCP_SESS=$sessnames[1]
fi
fi
return $stat
PK [y1J J ' functions/down-line-or-beginning-searchnu W+A # Like down-line-or-search, but uses the whole line prefix up to the
# cursor position for searching forwards.
emulate -L zsh
if [[ ${+NUMERIC} -eq 0 &&
( $LASTWIDGET = $__searching || $RBUFFER != *$'\n'* ) ]]
then
[[ $LASTWIDGET = $__searching ]] && CURSOR=$__savecursor
__searching=$WIDGET
__savecursor=$CURSOR
if zle .history-beginning-search-forward; then
[[ $RBUFFER = *$'\n'* ]] ||
zstyle -T ':zle:down-line-or-beginning-search' leave-cursor &&
zle .end-of-line
return
fi
[[ $RBUFFER = *$'\n'* ]] || return
fi
__searching=''
zle .down-line-or-history
PK [
] functions/_sttynu W+A #compdef stty
local expl
if [[ "$words[CURRENT-1]" = \
(*erase|discard|status|dsusp|intr|kill|lnext|quit|reprint|start|s*p) ]]; then
_wanted characters expl 'control character' compadd '^-' '^h' '^?' '^c' '^u'
else
compset -P '[-+]'
_wanted values expl setting \
compadd rows columns intr quit erase kill eof eol eol2 start stop \
susp dsusp reprint discard werase lnext parenb parodd cs8 \
cstopb hupcl cread clocal parext ignbrk brkint ignpar \
parmrk inpck istrip inlcr igncr icrnl iuclc ixon ixany ixoff \
imaxbel isig icanon xcase echo echoe echok echonl noflsh \
tostop echoctl echoprt echoke flusho pending iexten opost \
olcuc onlcr ocrnl onocr onlret ofill ofdel
fi
PK [z/f functions/pick-web-browsernu W+A # Function to find a web browser to run on a URL or file.
# Can also be run as a script. It is suitable for use as
# a suffix alias:
# alias -s html=pick-web-browser
#
# The single argument is the URL or file name which may be of any type.
# The only processing which occurs is that if the argument is a file,
# it is converted into a URL. As the function takes account of
# any necessary conversions to the file name (for example, if it
# contains spaces), it is generally preferable to pass in raw file
# names rather than convert them to URLs elsewhere.
#
# The function takes account of the fact that many X Windows browsers
# which are already running on the current display can take a command
# to pass the URL to that process for handling. A typical sign
# that this has happened is that apparently nothing happens --- you
# need to check the browser window.
#
# If no $DISPLAY is set, the function tries to start a terminal-based
# browser instead.
emulate -L zsh
setopt extendedglob cbases nonomatch warncreateglobal
zmodload -i zsh/zutil
local -a xbrowsers ttybrowsers
# X Windows browsers which might be running and can accept
# a remote URL.
zstyle -a :mime: x-browsers xbrowsers ||
xbrowsers=(firefox mozilla netscape opera konqueror)
# Preferred command line browsers.
zstyle -a :mime: tty-browsers ttybrowsers ||
ttybrowsers=(elinks links lynx)
# Characters in addition to alphanumerics which can appear literally
# in a URL. `-' should be the first if it appears, so append others
# to the end.
local litc="-_./"
local -a windows remoteargs match mbegin mend
local url browser command
url=$1
if [[ -f $url ]]; then
if [[ $url = *[^-_[:alnum:]]* ]]; then
# Convert special characters into hex escapes.
local sofar
while [[ $url = (#b)([${litc}[:alnum:]]#)([^${litc}[:alnum:]])(*) ]]
do
sofar+="$match[1]%${$(( [#16] ##$match[2] ))##0x}"
url=$match[3]
done
url="$sofar$url"
fi
# Turn this into a local URL
if [[ $url = /* ]]; then
url=file://$url
else
url=file://$PWD/$url
fi
fi
local bstyle
local -a bstyles
zstyle -a :mime: browser-styles bstyles || bstyles=(running x tty)
for bstyle in $bstyles; do
case $bstyle in
(running)
[[ -z $DISPLAY ]] && continue
# X Windows running
# Get the name of all windows running; use the internal name, not
# the friendly name, which is less useful.
windows=(${(ou)${(M)${(f)"$(xwininfo -root -all)"}:#*\"*\"\:[[:space:]]\(\"*}/(#b)*\"*\"\:[[:space:]]\(\"(*)\"[[:space:]]\"*\"\)*/$match[1]})
#windows=(${(f)"$(xwininfo -root -all |
# perl -ne '/.*"(.*)": \("(.*)" "(.*)"\).*/ and $w{$2} = 1;
# END { print join("\n", keys %w), "\n" }')"})
# Is any browser we've heard of running?
for browser in $xbrowsers; do
# Some browser executables call themselves -bin
if [[ $windows[(I)(#i)$browser(|[.-]bin)] -ne 0 ]]; then
if zstyle -s ":mime:browser:running:${browser}:" command command; then
# The (q)'s here and below are pure paranoia: no browser
# name is going to include metacharacters, and we already
# converted difficult characters in the URL to hex.
zformat -f command $command b:${(q)browser} u:${(q)url}
eval $command
else
case $browser in
(konqueror)
# kfmclient is less hairy and better supported than direct
# use of dcop. Run kfmclient --commands
# for more information. Note that as konqueror is a fully
# featured file manager, this will actually do complete
# MIME handling, not just web pages.
kfmclient openURL $url ||
dcop $(dcop|grep konqueror) default openBrowserWindow $url
;;
(firefox)
# open in new tab
$browser -new-tab $url
;;
(opera)
$browser -newpage $url
;;
(*)
# Mozilla bells and whistles are described at:
# http://www.mozilla.org/unix/remote.html
$browser -remote "openURL($url)"
;;
esac
fi
return
fi
done
;;
(x)
[[ -z $DISPLAY ]] && continue
# Start our preferred X Windows browser in the background.
for browser in $xbrowsers; do
if eval "[[ =$browser != \\=$browser ]]"; then
if zstyle -s ":mime:browser:new:${browser}:" command command; then
zformat -f command $command b:${(q)browser} u:${(q)url}
eval $command "&"
else
# The following is to make the job text more readable.
eval ${(q)browser} ${(q)url} "&"
fi
return
fi
done
;;
(tty)
# Start up dumb terminal browser.
for browser in $ttybrowsers; do
if eval "[[ =$browser != \\=$browser ]]"; then
if zstyle -s ":mime:browser:new:${browser}" command command; then
zformat -f command $command b:${(q)browser} u:${(q)url}
eval $command
else
$browser $url
fi
return
fi
done
;;
esac
done
# No eligible browser.
return 255
PK [=ZQ Q functions/tcp_proxynu W+A # Listen on the given port and for every connection, start a new
# command (defaults to $SHELL) in the background on the accepted fd.
# WARNING: this can leave your host open to the universe. For use
# in a restricted fashion on a secure network.
#
# Remote logins are much more efficient...
local TCP_LISTEN_FD
trap '[[ -n $TCP_LISTEN_FD ]] && ztcp -c $TCP_LISTEN_FD; return 1' \
HUP INT TERM EXIT PIPE
if [[ $1 != <-> ]]; then
print "Usage: $0 port [cmd args... ]" >&2
return 1
fi
integer port=$1
shift
ztcp -l $port || return 1
TCP_LISTEN_FD=$REPLY
(( $# )) || set -- ${SHELL:-zsh}
local cmd=$1
shift
while ztcp -a $TCP_LISTEN_FD; do
# hack to expand aliases without screwing up arguments
eval $cmd '$* <&$REPLY >&$REPLY 2>&$REPLY &'
# Close the session fd; we don't need it here any more.
ztcp -c $REPLY
done
PK [I e< # functions/incremental-complete-wordnu W+A # Autoload this function, run `zle -N ' and bind
# to a key.
# This allows incremental completion of a word. After starting this
# command, a list of completion choices can be shown after every character
# you type, which you can delete with ^h or DEL. RET will accept the
# completion so far. You can hit TAB to do normal completion, ^g to
# abort back to the state when you started, and ^d to list the matches.
#
# This works only with the new function based completion system.
# Recommended settings:
# zstyle ':completion:incremental:*' completer _complete _ignored
# zstyle :incremental stop-keys $'[\e\C-b\C-f\C-n\C-p\C-u-\C-x]'
# BUGS:
# The _oldlist completer breaks incremental completion. Use a context-
# specific completer zstyle as shown above to disable the _oldlist
# completer in this function.
# The main widget function.
incremental-complete-word() {
emulate -L zsh
unsetopt autolist menucomplete automenu # doesn't work well
local key lbuf="$LBUFFER" rbuf="$RBUFFER" pmpt pstr word
local lastl lastr wid twid num post toolong
local curcontext="${curcontext}" stop brk
[[ -z "$curcontext" ]] && curcontext=:::
curcontext="incremental:${curcontext#*:}"
zstyle -s ":incremental" prompt pmpt ||
pmpt='incremental (%c): %u%s %l'
zstyle -s ":incremental" stop-keys stop
zstyle -s ":incremental" break-keys brk
if zstyle -t ":incremental" list; then
wid=list-choices
post=( icw-list-helper )
else
wid=complete-word
post=()
fi
comppostfuncs=( "$post[@]" )
zle $wid "$@"
LBUFFER="$lbuf"
RBUFFER="$rbuf"
num=$_lastcomp[nmatches]
if (( ! num )); then
word=''
state='-no match-'
elif [[ "${LBUFFER}${RBUFFER}" = *${_lastcomp[unambiguous]}* ]]; then
word=''
state='-no prefix-'
else
word="${_lastcomp[unambiguous]}"
state=''
fi
zformat -f pstr "$pmpt" "u:${word}" "s:$state" "n:$num" \
"l:$toolong" "c:${_lastcomp[completer]}"
zle -R "$pstr"
read -k key
while [[ '#key' -ne '#\\r' && '#key' -ne '#\\n' &&
'#key' -ne '#\\C-g' ]]; do
twid=$wid
if [[ "$key" = ${~stop} ]]; then
zle -U "$key"
return
elif [[ "$key" = ${~brk} ]]; then
return
elif [[ '#key' -eq '#\\C-h' || '#key' -eq '#\\C-?' ]]; then
[[ $#LBUFFER -gt $#l ]] && LBUFFER="$LBUFFER[1,-2]"
elif [[ '#key' -eq '#\\t' ]]; then
zle complete-word "$@"
lbuf="$LBUFFER"
rbuf="$RBUFFER"
elif [[ '#key' -eq '#\\C-d' ]]; then
twid=list-choices
else
LBUFFER="$LBUFFER$key"
fi
if (( ! PENDING )); then
lastl="$LBUFFER"
lastr="$RBUFFER"
[[ "$twid" = "$wid" ]] && comppostfuncs=( "$post[@]" )
toolong=''
zle $twid "$@"
LBUFFER="$lastl"
RBUFFER="$lastr"
num=$_lastcomp[nmatches]
if (( ! num )); then
word=''
state='-no match-'
elif [[ "${LBUFFER}${RBUFFER}" = *${_lastcomp[unambiguous]}* ]]; then
word=''
state='-no prefix-'
else
word="${_lastcomp[unambiguous]}"
state=''
fi
zformat -f pstr "$pmpt" "u:${word}" "s:$state" "n:$num" \
"l:$toolong" "c:${_lastcomp[completer]}"
zle -R "$pstr"
else
zle -R
fi
read -k key
done
if [[ '#key' -eq '#\\C-g' ]]; then
LBUFFER="$lbuf"
RBUFFER="$rbuf"
fi
zle -Rc
}
# Helper function used as a completion post-function used to make sure that
# the list of matches in only shown if it fits on the screen.
icw-list-helper() {
# +1 for the status line we will add...
if [[ compstate[list_lines]+BUFFERLINES+1 -gt LINES ]]; then
compstate[list]='list explanations messages'
[[ compstate[list_lines]+BUFFERLINES+1 -gt LINES ]] && compstate[list]=''
toolong='...'
fi
}
incremental-complete-word "$@"
PK [56K functions/_zfs_datasetnu W+A #autoload
local -a type typearg list
zparseopts -D -E -a type t+:
[[ -n $type[(r)fs] ]] && typearg=( filesystem )
[[ -n $type[(r)vol] ]] && typearg=( $typearg volume )
[[ -n $type[(r)snap] ]] && typearg=( $typearg snapshot )
[[ -n $typearg ]] && typearg=( -t ${(j:,:)typearg} )
datasetlist=( ${="$(zfs list -H -o name $typearg)":#no datasets available} )
expl_type=${typearg[2,-1]//,/\/}
if [[ -n $type[(r)mtpt] ]]; then
mlist=( ${="$(zfs list -H -o mountpoint $typearg)":#no mountpoints available} )
datasetlist=( $datasetlist $mlist )
expl_type="$expl_type/mountpoint"
fi
# compadd "$@" - $list
_wanted dataset expl "$expl_type" _multi_parts "$@" / datasetlist
PK [`dg
functions/_next_tagsnu W+A #compdef -k list-choices \C-xn
# Main widget.
_next_tags() {
eval "$_comp_setup"
local ins ops="$PREFIX$SUFFIX"
unfunction _all_labels _next_label
_all_labels() {
local __gopt __len __tmp __pre __suf __ret=1 __descr __spec __prev
if [[ "$1" = - ]]; then
__prev=-
shift
fi
__gopt=()
zparseopts -D -a __gopt 1 2 V J x
__tmp=${argv[(ib:4:)-]}
__len=$#
if [[ __tmp -lt __len ]]; then
__pre=$(( __tmp-1 ))
__suf=$__tmp
elif [[ __tmp -eq $# ]]; then
__pre=-2
__suf=$(( __len+1 ))
else
__pre=4
__suf=5
fi
while comptags "-A$__prev" "$1" curtag __spec; do
(( $#funcstack > _tags_level )) && _comp_tags="${_comp_tags% * }"
_tags_level=$#funcstack
[[ "$_next_tags_not" = *\ ${__spec}\ * ]] && continue
_comp_tags+=" $__spec "
if [[ "$curtag" = *[^\\]:* ]]; then
zformat -f __descr "${curtag#*:}" "d:$3"
_description "$__gopt[@]" "${curtag%:*}" "$2" "$__descr"
curtag="${curtag%:*}"
"$4" "${(P@)2}" "${(@)argv[5,-1]}" && __ret=0
else
_description "$__gopt[@]" "$curtag" "$2" "$3"
"${(@)argv[4,__pre]}" "${(P@)2}" "${(@)argv[__suf,-1]}" && __ret=0
fi
done
return __ret
}
_next_label() {
local __gopt __descr __spec
__gopt=()
zparseopts -D -a __gopt 1 2 V J x
if comptags -A "$1" curtag __spec; then
(( $#funcstack > _tags_level )) && _comp_tags="${_comp_tags% * }"
_tags_level=$#funcstack
[[ "$_next_tags_not" = *\ ${__spec}\ * ]] && continue
_comp_tags+=" $__spec "
if [[ "$curtag" = *[^\\]:* ]]; then
zformat -f __descr "${curtag#*:}" "d:$3"
_description "$__gopt[@]" "${curtag%:*}" "$2" "$__descr"
curtag="${curtag%:*}"
set -A $2 "${(P@)2}" "${(@)argv[4,-1]}"
else
_description "$__gopt[@]" "$curtag" "$2" "$3"
set -A $2 "${(@)argv[4,-1]}" "${(P@)2}"
fi
return 0
fi
return 1
}
if [[ "${LBUFFER%${PREFIX}}" = "$_next_tags_pre" ]]; then
PREFIX="$_next_tags_pfx"
SUFFIX="$_next_tags_sfx"
else
_next_tags_pre="${LBUFFER%${PREFIX}}"
if [[ "$LASTWIDGET" = (_next_tags|list-*|*complete*) ]]; then
PREFIX="$_lastcomp[prefix]"
SUFFIX="$_lastcomp[suffix]"
fi
fi
_next_tags_not+=" $_lastcomp[tags]"
_next_tags_pfx="$PREFIX"
_next_tags_sfx="$SUFFIX"
ins="${compstate[old_insert]:+1}"
_main_complete _complete _next_tags_completer
[[ $compstate[insert] = automenu ]] && compstate[insert]=automenu-unambiguous
[[ $compstate[insert] = *unambiguous && -n "$ops" &&
-z "$_lastcomp[unambiguous]" ]] && compadd -Uns "$SUFFIX" - "$PREFIX"
compstate[insert]="$ins"
compstate[list]='list force'
compprefuncs+=( _next_tags_pre )
}
# Completer, for wrap-around.
_next_tags_completer() {
_next_tags_not=
_complete
}
# Pre-completion function.
_next_tags_pre() {
# Probably `remove' our label functions. A better test would be nice, but
# I think one should still be able to edit the current word between
# attempts to complete it.
if [[ -n $compstate[old_insert] && $WIDGET != _next_tags ]]; then
compstate[old_list]=keep
compstate[insert]=menu:2
return 0
elif [[ ${LBUFFER%${PREFIX}} != ${_next_tags_pre}* ]]; then
unfunction _all_labels _next_label
autoload -Uz _all_labels _next_label
else
compprefuncs+=( _next_tags_pre )
fi
}
_next_tags "$@"
PK [p6j j functions/zftp_chpwdnu W+A # function zftp_chpwd {
# You may want to alter chpwd to call this when $ZFTP_USER is set.
# If the directory really changed...
if [[ $ZFTP_PWD != $zfconfig[lastdir_$ZFTP_SESSION] ]]; then
# ...and also empty the stored directory listing cache.
# As this function is called when we close the connection, this
# is the only place we need to do these two things.
local curdir=$zfconfig[curdir_$ZFTP_SESSION]
[[ -n $curdir && -f $curdir ]] && rm -f $curdir
zfconfig[otherargs_$ZFTP_SESSION]=
zffcache -d
fi
if [[ -z $ZFTP_USER ]]; then
# last call, after an FTP logout
# delete the non-current cached directory
[[ -n $zfotherdir && -f $zfotherdir ]] && rm -f $zfotherdir
# don't keep lastdir between opens (do keep lastloc)
zfconfig[lastdir_$ZFTP_SESSION]=
# return the display to standard
zstyle -t ":zftp$curcontext" chpwd && chpwd
else
[[ -n $ZFTP_PWD ]] && zfconfig[lastdir_$ZFTP_SESSION]=$ZFTP_PWD
zfconfig[lastloc_$ZFTP_SESSION]="$ZFTP_HOST:$ZFTP_PWD"
zfconfig[lastuser_$ZFTP_SESSION]="$ZFTP_USER"
local args
if [[ -t 1 && -t 2 ]] && zstyle -t ":zftp$curcontext" titlebar; then
local str=$zfconfig[lastloc_$ZFTP_SESSION]
[[ ${#str} -lt 70 ]] && str="%m: %~ $str"
case $TERM in
sun-cmd) print -Pn "\033]l$str\033\\"
;;
*xterm*|rxvt|dtterm|Eterm|kterm) print -Pn "\033]2;$str\a"
;;
esac
fi
fi
# }
PK [ Qd6 6 functions/_listnu W+A #autoload
# This completer function makes the other completer functions used
# insert possible completions only after the list has been shown at
# least once.
[[ _matcher_num -gt 1 ]] && return 1
local pre suf expr
# Get the strings to compare.
if zstyle -t ":completion:${curcontext}:" word; then
pre="$HISTNO$LBUFFER"
suf="$RBUFFER"
else
pre="$PREFIX"
suf="$SUFFIX"
fi
# Should we only show a list now?
if zstyle -T ":completion:${curcontext}:" condition &&
[[ "$pre" != "$_list_prefix" || "$suf" != "$_list_suffix" ]]; then
# Yes. Tell the completion code about it and save the new values
# to compare the next time.
compstate[insert]=''
compstate[list]='list force'
_list_prefix="$pre"
_list_suffix="$suf"
fi
# We always return one, because we don't really do any work here.
return 1
PK [o- - functions/_nslookupnu W+A #compdef nslookup
# This may also be called from the `nslookup' wrapper function during
# `vared'iting a line.
# In this case this function tries to call other user-defined functions
# for certain contexts before adding completion. If these functions are
# defined, they are called and the default completions from this function
# are not added. The functions called are named `_nslookup_', with
# `' being any of:
#
# command
# When completing the first word on the line.
# redirect
# When completing after a redirection operator.
#
# Also, when completing after the first word, if the first word contains
# only lower case letters, we try to call the function `_nslookup_',
# where `' is the first word from the line. If the first word contains
# other characters than lower case letters, we try to call the function
# `_nslookup_host'.
local state curcontext="$curcontext" expl ret=1 setopts
typeset -A opt_args
setopts=(
'all[print current values]' \
'(nodebug)debug[simple debugging information]' \
'(debug)nodebug[no simple debugging information]' \
'(nod2)d2[extra debugging information]' \
'(d2)nod2[no extra debugging information]' \
'(nodefname)defname[append default domain name]' \
'(defname)nodefname[don'"'"'t append default domain name]' \
'(nosearch)search[append search list]' \
'(search)nosearch[don'"'"'t append search list]' \
'(norecurse)recurse[name server may query other servers]' \
'(recurse)norecurse[name server may not query other servers]' \
'(novc)vc[use virtual circuit]' \
'(vc)novc[don'"'"'t use virtual circuit]' \
'(noignoretc)ignoretc[ignore packet truncation errors]' \
'(ignoretc)noignoretc[don'"'"'t ignore packet truncation errors]' \
'class[change query class]:query class:((in\:Internet\ class chaos\:CHAOS\ class hesiod\:MIT\ Athena\ Hesiod\ class any\:wildcard\ \(any\ of\ the\ above\)))'
"domain[change default domain]:default domain:_domains"
'srchlist[change default domain and search list]: :->srchlist'
'port[change name server port]:name server port:'
{query,}type'[change type of information query]:query information type:((a\:internet\ address cname\:canonical\ name\ for\ alias hinfo\:CPU\ and\ operating\ system\ type minfo\:mailbox\ or\ mail\ list\ information mx\:mail\ exchanger ns\:name\ server\ for\ zone ptr\:host\ name\ or\ other\ information soa\:domain\'"'"'s\ \`start-of-authority\'"'"'\ information txt\:text\ information uinfo\:user\ information wks\:supported\ well-known\ services))'
'retry[change number of retries]:number of retries:'
'root[change name of root server]:root server:_hosts'
'timeout[change initial timeout interval]:timeout (seconds):'
)
if [[ -n "$compcontext" ]]; then
if [[ CURRENT -eq 1 ]]; then
_call_function ret _nslookup_command && return ret
_alternative \
'commands:command:(server lserver root finger ls view help set exit)' \
'hosts:: _hosts' && ret=0
return ret
elif [[ "$compstate[context]" = redirect ]]; then
_call_function ret _nslookup_redirect && return ret
_tags -C redirection files || return 1
if [[ "$words[1]" != (finger|ls) ]]; then
_message "redirection not allowed for command \`$words[1]'"
return 1
elif [[ "$compstate[redirect]" = '>' ]]; then
_description files expl 'write to file'
elif [[ "$compstate[redirect]" = '>>' ]]; then
_description files expl 'append to file'
else
_message "unknown redirection operator \`$compstate[redirect]'"
return 1
fi
_files "$expl[@]"
return
fi
if [[ "$words[1]" = [a-z]## ]]; then
_call_function ret _nslookup_$words[1] && return ret
else
_call_function ret _nslookup_host && return ret
fi
case "$words[1]" in
(|l)server)
_wanted hosts expl 'new default server' _hosts
return
;;
root|exit|help|\?)
return 1
;;
finger)
_message -e names 'finger name'
return 1
;;
ls)
_arguments -s \
'-t[records of given type]:query information type:((a\:internet\ address cname\:canonical\ name\ for\ alias hinfo\:CPU\ and\ operating\ system\ type minfo\:mailbox\ or\ mail\ list\ information mx\:mail\ exchanger ns\:name\ server\ for\ zone ptr\:host\ name\ or\ other\ information soa\:domain\'"'"'s\ \`start-of-authority\'"'"'\ information txt\:text\ information uinfo\:user\ information wks\:supported\ well-known\ services))' \
'-a[aliases of hosts in domain]' \
'-d[all records]' \
'-h[CPU and operating system information]' \
'-s[well-known services]' \
":domain:_domains"
return
;;
view)
_description files expl 'view file'
_files "$expl[@]"
return
;;
set)
typeset -A val_args
_values 'state information' "$setopts[@]" && ret=0
[[ -z "$state" ]] && return ret
;;
*)
_wanted hosts expl 'server' _hosts
return
esac
fi
# Now comes the command line option completion part.
if [[ -z "$state" ]]; then
local line
typeset -A opt_args
_arguments -C \
"-${(@)^${(@M)setopts:#*\]:*}/\[/=[}" \
"-${(@)^setopts:#(\(|*\]:)*}" \
"${(@)^${(@)${(@M)setopts:#\(*}/\)/)-}/\(/(-}" \
':host to find:_hosts' \
':server:_hosts' && ret=0
fi
# This is completion after `srchlist' for both types.
if [[ -n "$state" ]]; then
_tags domains || return 1
if compset -P '*/'; then
_description domains expl 'search list entry'
else
_description domains expl 'default domain name and first search list entry'
fi
if [[ -n "$_vals_cache_multi" ]]; then
_domains "$expl[@]" -qS/ -r "/\\- \\t\\n$_vals_cache_multi"
else
_domains "$expl[@]" -qS/
fi
return
fi
return ret
PK [][R R functions/_prefixnu W+A #autoload
# Try to ignore the suffix. A bit like e-o-c-prefix.
[[ _matcher_num -gt 1 || -z "$SUFFIX" ]] && return 1
local comp curcontext="$curcontext" tmp suf="$SUFFIX" \
_completer \
_matcher _c_matcher _matchers _matcher_num
integer ind
if ! zstyle -a ":completion:${curcontext}:" completer comp; then
comp=( "${(@)_completers[1,_completer_num-1]}" )
ind=${comp[(I)_prefix(|:*)]}
(( ind )) && comp=("${(@)comp[ind,-1]}")
fi
if zstyle -t ":completion:${curcontext}:" add-space; then
ISUFFIX=" $SUFFIX"
else
ISUFFIX="$SUFFIX"
fi
SUFFIX=''
local _completer_num=1
for tmp in "$comp[@]"; do
if [[ "$tmp" = *:-* ]]; then
_completer="${${tmp%:*}[2,-1]//_/-}${tmp#*:}"
tmp="${tmp%:*}"
elif [[ $tmp = *:* ]]; then
_completer="${tmp#*:}"
tmp="${tmp%:*}"
else
_completer="${tmp[2,-1]//_/-}"
fi
curcontext="${curcontext/:[^:]#:/:${_completer}:}"
zstyle -a ":completion:${curcontext}:" matcher-list _matchers ||
_matchers=( '' )
_matcher_num=1
_matcher=''
for _c_matcher in "$_matchers[@]"; do
if [[ "$_c_matcher" == +* ]]; then
_matcher="$_matcher $_c_matcher[2,-1]"
else
_matcher="$_c_matcher"
fi
if [[ "$tmp" != _prefix ]] && "$tmp"; then
[[ compstate[nmatches] -gt 1 ]] && return 0
compadd -U -i "$IPREFIX" -I "$ISUFFIX" - "${compstate[unambiguous]%$suf}x"
compstate[list]=
if [[ -n $compstate[unambiguous] ]]; then
compstate[insert]=unambiguous
else
compstate[insert]=0
fi
return 0
fi
(( _matcher_num++ ))
done
(( _completer_num++ ))
done
return 1
PK [` K K functions/_x_displaynu W+A #compdef -value-,DISPLAY,-default-
_tags displays && _hosts -S ':0 ' -r :
PK [ cUk k functions/_canonical_pathsnu W+A #autoload
# This completion function completes all paths given to it, and also tries to
# offer completions which point to the same file as one of the paths given
# (relative path when an absolute path is given, and vice versa; when ..'s are
# present in the word to be completed, and some paths got from symlinks.
# Usage: _canonical_paths [-A var] [-N] [-MJV12nfX] tag desc paths...
# -A, if specified, takes the paths from the array variable specified. Paths can
# also be specified on the command line as shown above. -N, if specified,
# prevents canonicalizing the paths given before using them for completion, in
# case they are already so. `tag' and `desc' arguments are well, obvious :) In
# addition, the options -M, -J, -V, -1, -2, -n, -F, -X are passed to compadd.
_canonical_paths_pwd() {
# Get the canonical directory name by changing to it.
integer chaselinks
[[ -o chaselinks ]] && (( chaselinks = 1 ))
setopt localoptions nopushdignoredups chaselinks
if builtin pushd -q -- $1 2>/dev/null; then
REPLY=$PWD
(( chaselinks )) || unsetopt chaselinks
builtin popd -q
else
REPLY=$1
fi
}
_canonical_paths_get_canonical_path() {
typeset newfile nondir
typeset -A seen
REPLY=$1
# Canonicalise the directory path. We may not be able to
# do this if we can't read all components.
if [[ -d $REPLY ]]; then
_canonical_paths_pwd $REPLY
else
# Resolve any trailing symbolic links, guarding against loops.
while [[ -z ${seen[$REPLY]} ]]; do
seen[$REPLY]=1
newfile=()
zstat -A newfile +link $REPLY 2>/dev/null
if [[ -n $newfile[1] ]]; then
REPLY=$newfile[1]
else
break
fi
done
if [[ $REPLY = */*[^/] && $REPLY != /[^/]# ]]; then
# Don't try this if there's a trailing slash or we're in
# the root directory.
nondir=${REPLY##*/#}
_canonical_paths_pwd ${REPLY%/#*}
REPLY+="/$nondir"
fi
fi
}
_canonical_paths_add_paths () {
local origpref=$1 expref rltrim curpref canpref subdir
[[ $2 != add ]] && matches=()
expref=${~origpref}
[[ $origpref == (|*/). ]] && rltrim=.
curpref=${${expref%$rltrim}:-./}
if zstat $curpref >&/dev/null; then
_canonical_paths_get_canonical_path $curpref
canpref=$REPLY
else
canpref=$curpref
fi
[[ $curpref == */ && $canpref == *[^/] ]] && canpref+=/
canpref+=$rltrim
[[ $expref == *[^/] && $canpref == */ ]] && origpref+=/
matches+=(${${(M)files:#$canpref*}/$canpref/$origpref})
for subdir in $expref?*(@); do
_canonical_paths_add_paths ${subdir/$expref/$origpref} add
done
}
_canonical_paths() {
local __index
typeset -a __gopts __opts
zparseopts -D -a __gopts M: J: V: 1 2 n F: X: A:=__opts N=__opts
: ${1:=canonical-paths} ${2:=path}
__index=$__opts[(I)-A]
(( $__index )) && set -- $@ ${(P)__opts[__index+1]}
local expl ret=1 tag=$1 desc=$2
shift 2
if ! zmodload -F zsh/stat b:zstat 2>/dev/null; then
_wanted "$tag" expl "$desc" compadd $__gopts $@ && ret=0
return ret
fi
typeset REPLY
typeset -a matches files
if (( $__opts[(I)-N] )); then
files=($@)
else
for __index in $@; do
_canonical_paths_get_canonical_path $__index
files+=($REPLY)
done
fi
local base=$PREFIX
typeset -i blimit
_canonical_paths_add_paths $base
if [[ -z $base ]]; then
_canonical_paths_add_paths / add
elif [[ $base == ..(/.(|.))#(|/) ]]; then
# This style controls how many parent directory links (..) to chase searching
# for possible completions. The default is 8. Note that this chasing is
# triggered only when the user enters atleast a .. and the path completed
# contains only . or .. components. A value of 0 turns off .. link chasing
# altogether.
zstyle -s ":completion:${curcontext}:$tag" \
canonical-paths-back-limit blimit || blimit=8
if [[ $base != */ ]]; then
[[ $base != *.. ]] && base+=.
base+=/
fi
until [[ $base.. -ef $base || blimit -le 0 ]]; do
base+=../
_canonical_paths_add_paths $base add
blimit+=-1
done
fi
_wanted "$tag" expl "$desc" compadd $__gopts -Q -U -a matches && ret=0
return ret
}
_canonical_paths "$@"
PK [l*Ʃ ! functions/delete-whole-word-matchnu W+A # Delete the entire word around the cursor. Does not handle
# a prefix argument; either the cursor is in the word or it isn't.
# The word may be just before the cursor, e.g.
# print this is a line
# ^ here
# and then the word before (i.e. `this') will be deleted.
#
# If the widget has the name `kill' in, the text deleted will be
# saved for future yanking in the normal way.
emulate -L zsh
setopt extendedglob
local curcontext=:zle:$WIDGET
local -a matched_words
# Start and end of range of characters to remove.
integer pos1 pos2
autoload -Uz match-words-by-style
match-words-by-style
if [[ -n "${matched_words[3]}" ]]; then
# There's whitespace before the cursor, so the word we are deleting
# starts at the cursor position.
pos1=$CURSOR
else
# No whitespace before us, so delete any wordcharacters there.
pos1="${#matched_words[1]}"
fi
if [[ -n "${matched_words[4]}" ]]; then
# There's whitespace at the cursor position, so only delete
# up to the cursor position.
(( pos2 = CURSOR + 1 ))
else
# No whitespace at the cursor position, so delete the
# current character and any following wordcharacters.
(( pos2 = CURSOR + ${#matched_words[5]} + 1 ))
fi
# Move the cursor then delete the block in one go for the
# purpose of undoing (and yanking, if appropriate).
(( CURSOR = pos1 ))
# If the widget name includes the word `kill', the removed
# text goes into the cutbuffer in the standard way.
if [[ $WIDGET = *kill* ]]; then
local word="${BUFFER[pos1+1,pos2-1]}"
if [[ $LASTWIDGET = *kill* ]]; then
CUTBUFFER="$CUTBUFFER$word"
else
zle copy-region-as-kill -- "$word"
fi
fi
BUFFER="${BUFFER[1,pos1]}${BUFFER[pos2,-1]}"
PK [9W W functions/_valuenu W+A #compdef -value- -array-value- -value-,-default-,-default-
# You can customize completion for different parameters by writing
# functions with the tag-line `#compdef -value-,,' where
# is the name of the parameter (or name-key when completing an
# associative array value) and is either `-default-' or the
# name of the command from the command-line.
if [[ "$service" != -value-,* ]]; then
local strs ctx=
strs=( -default- )
if [[ "$compstate[context]" != *value && -n "$_comp_command1" ]]; then
ctx="${_comp_command}"
strs=( "${_comp_command1}" "$strs[@]" )
[[ -n "$_comp_command2" ]] &&
strs=( "${_comp_command2}" "$strs[@]" )
fi
_dispatch -value-,${compstate[parameter]},$ctx \
-value-,{${compstate[parameter]},-default-},${^strs}
else
if [[ "$compstate[parameter]" != *-* &&
"$compstate[context]" = *value &&
"${(Pt)${compstate[parameter]}}" = assoc* ]]; then
if (( CURRENT & 1 )); then
_wanted association-keys expl 'association key' \
compadd -k "$compstate[parameter]"
else
compstate[parameter]="${compstate[parameter]}-${words[CURRENT-1]}"
_dispatch -value-,${compstate[parameter]}, \
-value-,{${compstate[parameter]},-default-},-default-
fi
else
local pats
if { zstyle -a ":completion:${curcontext}:" assign-list pats &&
[[ "$compstate[parameter]" = (${(j:|:)~pats}) ]] } ||
[[ "$PREFIX$SUFFIX" = *:* ]]; then
compset -P '*:'
compset -S ':*'
_default -r '\-\n\t /:' "$@"
else
_default "$@"
fi
fi
fi
PK [ functions/_antnu W+A #compdef ant -value-,ANT_ARGS,-default-
# Apache Ant version 1.7.1
local curcontext="$curcontext" state line expl ret=1
typeset -A opt_args
local buildfile classpath cp userjars importedfiles target='*:target:->target' targets tmp
find_targets() {
importedfiles=( $(sed -n "s/ *]* file=[\"']\([^\"']*\)[\"'].*/\1/p" < $1) )
# Tweaked to omit targets beginning with "-" that can't
# be invoked from the command line; see zsh-workers/24129.
sed -n "s/ *]* name=[\"']\([^-][^\"']*\)[\"'].*/\1/p" $1
if (( $#importedfiles )) ; then
( cd $1:h
for file in $importedfiles ; do
expanded=( $(echo $file | sed -n "s|\${ant.home}|$ANT_HOME|p") )
if [[ ! "bla$expanded" = "bla" ]]; then
file=$expanded
fi
if [[ -f $file ]]; then
find_targets $file
fi
done )
fi
}
if [[ $service = *ANT_ARGS* ]]; then
compset -q
words=( fake "$words[@]" )
(( CURRENT++ ))
unset target
fi
_arguments -C \
'(- *)'{-h,-help,--h,--help}'[display help information]' \
'--noconfig[suppress sourcing of configuration files]' \
'--usejikes[enable use of jikes by default, unless set explicitly in configuration files]' \
'--execdebug[print ant exec line generated by this launch script]' \
'(-p -projecthelp *)'{-p,-projecthelp}'[print project help information]' \
'(- *)-version[display version information]' \
'(- *)-diagnostics[print information helpful to diagnosis or report problems]' \
'(-q -quiet)'{-q,-quiet}'[be extra quiet]' \
'(-v -verbose)'{-v,-verbose}'[be extra verbose]' \
'(-d -debug)'{-d,-debug}'[print debugging information]' \
'(-e -emacs)'{-e,-emacs}'[produce logging information without adornments]' \
'*-lib[specify a path to search for jars and classes]:class path:->classpath' \
'(-l -logfile)'{-l,-logfile}'[use specified file for log]:logfile:_files' \
'-logger[specify the class which is to perform logging]:class:->class' \
'*-listener[add an instance of specified class as a project listener]:class:->class' \
'-noinput[do not allow interactive input]' \
'(-f -file -buildfile -s -find)'{-f,-file,-buildfile}'[use specified build file]:build file:_files -g "*.xml(-.)"' \
'*-D[specify property with value to use]:property:->property' \
'(-k -keep-going)'{-keep-going,-k}'[execute all targets that do not depend on failed target(s)]' \
'-propertyfile[load all properties from specified file with -D properties taking precedence]:property file:_files -g "*.properties(-.)"' \
'-inputhandler[specify class which will handle input requests]:class:->class' \
'(-s -find -f -file -buildfile)'{-s,-find}'[search for specified build file towards the root of filesystem]:build file:(build.xml)' \
'-nice[specify a niceness value for the main thread]:niceness value (default 5):({1..10})' \
'-nouserlib[run ant without using the jar files from ${user.home}/.ant/lib]' \
'-noclasspath[run ant without using CLASSPATH]' \
'-autoproxy[Java1.5+: use the OS proxy settings]' \
"-main[override Ant's normal entry point]:class:->class" \
$target && ret=0
case $state in
class)
if (( ! $+opt_args[-nouserlib] )); then
userjars=( $HOME/.ant/lib/*.jar )
fi
if (( ! $+opt_args[-noclasspath] )); then
classpath=$CLASSPATH
fi
cp=( $opt_args[-lib] $userjars $ANT_HOME/lib/*.jar $classpath )
cp=${(j.:.)cp:-' '}
_java_class -classpath $cp && ret=0
;;
classpath)
compset -P '*:'
compset -S ':*'
_alternative \
"classpath:$state:_path_files -qS: -g '*.(jar|zip)(-.)'" \
"classpath:$state:_path_files -r': ' -/" && ret=0
;;
property)
if compset -P '*='; then
_default && ret=0
else
_message -e properties 'property name'
fi
;;
target)
if [[ -n $opt_args[(I)(-s|-find)] ]]; then
buildfile=( (../)#${(v)opt_args[(I)(-s|-find)]:-build.xml}(N[-1]) )
else
buildfile=${(v)opt_args[(I)(-f|-file|-buildfile)]:-build.xml}
fi
if [[ -f $buildfile ]]; then
if zstyle -t ":completion:${curcontext}:targets" call-command; then
# Run ant -projecthelp also passing any of -find, -s, -buildfile, -file
# or -f options.
# Parse output into an array of the format "target:description".
# For the array to be set with correct argument boundaries, the entire
# set statement needs to be eval'd. On Cygwin, need to kill \r's output
# from Java or parsing will fail.
eval set -A tmp "${$(_call_program targets "$words[1]" -buildfile $buildfile -projecthelp |
while read target desc
do
# This loop reads ant -projecthelp output from versions 1.3 to 1.6
ln="${target}${desc:+:$desc}"
[[ $target = "" ]] && continue # skip blank lines
case $ln in
(Buildfile:*)
buildfile=$desc
;;
(Default:target:*)
# with version 1.5, target is on the same line
default_target="${${desc/target:/}# }"
# versions 1.3 and 1.4 with default target on a separate line
if [[ -z $default_target ]]; then
read junk
read default_target junk
fi
# Output target again indicating its the default one.
print -n "'${default_target}:(Default target) ' "
;;
(Searching:*|Main:targets:|Subtargets:|BUILD:SUCCESSFUL|Total:time:
*)
;;
(*)
# Return target and description
print -n "'$ln' "
;;
esac
done
)//$'\015'}"
_describe 'target' tmp && ret=0
else
targets=( $(find_targets $buildfile) )
_wanted targets expl target compadd -a targets && ret=0
fi
else
_message -e targets target
fi
;;
esac
return ret
PK [Tk
functions/_init_dnu W+A #compdef -p */(init|rc[0-9S]#).d/*
local cmds script
_compskip=all
if [[ $OSTYPE = freebsd* ]]; then
(( $+functions[_init_d_fullpath] )) ||
_init_d_fullpath() {
local -a scriptpath
local name=$1 dir
# Known locations of init scripts
# C.f. Unix/Type/_services
scriptpath=(/etc/rc.d $(/bin/sh -c '. /etc/rc.subr; load_rc_config XXX; echo $local_startup' 2>/dev/null))
for dir in $scriptpath; do
if [[ -f $dir/$name ]]; then
echo $dir/$name
return 0
fi
done
return 1
}
(( $+functions[_init_d_get_cmds] )) ||
_init_d_get_cmds() {
local magic cmds cmd_prefix
[[ -x $script ]] || return 1
[[ $(read -u0 -k2 magic < $script && echo $magic) = '#!' ]] || return 0
[[ -f /etc/rc.subr ]] && [[ -x /sbin/rcorder ]] || return 0
grep -q '^ *\. */etc/rc\.subr *$' $script || return 0
cmds=(
start stop restart rcvar status poll
$(/bin/sh -c "set -- rcvar; . $script >/dev/null; echo \$extra_commands" 2>/dev/null)
)
for cmd_prefix in {,one,fast,force,quiet}; do
echo ${cmds/#/$cmd_prefix}
done
return 0
}
else
(( $+functions[_init_d_fullpath] )) ||
_init_d_fullpath() {
local -a scriptpath
local name=$1 dir
# Known locations of init scripts
# C.f. Unix/Type/_services
scriptpath=(/etc/init.d /etc/rc.d /etc/rc.d/init.d)
for dir in $scriptpath; do
if [[ -f $dir/$name ]]; then
echo $dir/$name
return 0
fi
done
return 1
}
(( $+functions[_init_d_get_cmds] )) ||
_init_d_get_cmds() {
local what magic cmds
# If the file starts with `#!' we hope that this is a shell script
# and get lines looking like foo|bar) with the words in $what.
what='(st(art|op|atus)|(force-|)re(start|load)|debug_(up|down)|dump(|_stats)|add|delete|clean|list)'
read -u0 -k2 magic < $script && [[ $magic = '#!' ]] &&
cmds=( ${${(j:|:s:|:)${(M)${(f)"$(< $script)"}:#[[:blank:]]#(\'|)${~what}([[:blank:]]#\|[[:blank:]]#${~what})#(\'|)\)}}//[^-a-z_]} )
# This would be the pattern to use every line of the form foo).
# Some people say this might match too many lines...
#
# cmds=( ${${(j:|:s:|:)${(M)${(f)"$(< $script)"}:#[[:blank:]]#(\'|)[a-z_|]##\'|)\)}}//[^a-z_]} )
echo $cmds
return 0
}
fi
script=$words[1]
[[ $script = */* ]] || script="$(_init_d_fullpath "$script")"
cmds=( $(_init_d_get_cmds) ) || return
(( $#cmds )) || zstyle -a ":completion:${curcontext}:commands" commands cmds ||
cmds=(start stop)
_sub_commands $cmds
PK [% functions/_ponnu W+A #compdef pon poff
case "$service" in
(pon)
_arguments \
'(-q --quick)'{-q,--quick}'[hangs up after all ip-up scripts are run]' \
'1:provider to call:_files -W /etc/ppp/peers'
;;
(poff)
_arguments \
'-r[drop the line and redial]' \
'-d[toggle state of debug option]' \
'-c[renegotiate compression]' \
'-a[stop all pppds]' \
'-h[help]' \
'-v[version]' \
'1:provider to disconnect:_files -W /etc/ppp/peers'
;;
esac
PK [Y1 1 functions/checkmailnu W+A #!/bin/zsh
#
# This autoloadable function checks the folders specified as arguments
# for new mails. The arguments are interpreted in exactly the same way
# as the mailpath special zsh parameter (see zshparam(1)).
#
# If no arguments are given mailpath is used. If mailpath is empty, $MAIL
# is used and if that is also empty, /var/spool/mail/$LOGNAME is used.
# This function requires zsh-3.0.1 or newer.
#
emulate -L zsh
local file message
for file in "${@:-${mailpath[@]:-${MAIL:-/var/spool/mail/$LOGNAME}}}"
do
message="${${(M)file%%\?*}#\?}"
file="${file%%\?*}"
if [[ -d "$file" ]] then
file=( "$file"/**/*(.ND) )
if (($#file)) then
checkmail ${^file}\?$message
fi
elif test -s "$file" -a -N "$file"; then # this also sets $_ to $file
print -r -- "${(e)message:-You have new mail.}"
fi
done
PK [T functions/_cygservernu W+A #compdef cygserver cygserver.exe
# cygwin 1.5.25
_arguments -s -S \
'(--config-file -f)'{-f,--config-file}'[use specified file as config file (default /etc/cygserver.conf)]:config file:_files -g "*.conf(-.)"' \
'(--cleanup-threads -c)'{-c,--cleanup-threads}'[number of cleanup threads to use (default 2)]:number of threads:' \
'(--process-cache -p)'{-p,--process-cache}'[size of process cache]:cache size:' \
'(--request-threads -r)'{-r,--request-threads}'[number of request threads to use (default 10)]:number of threads:' \
'(--debug -d)'{-d,--debug}'[log debug messages to stderr]' \
'(--stderr -e --no-stderr -E)'{-e,--stderr}'[log to stderr (default if stderr is a tty)]' \
'(--stderr -e --no-stderr -E)'{-E,--no-stderr}"[don't log to stderr (see -y, -Y options)]" \
'(--log-level -l)'{-l,--log-level}'[verbosity of logging (1..7) (default 6)]:verbosity level:({1..7})' \
'(--syslog -y --no-syslog -Y)'{-y,--syslog}'[log to syslog (default if stderr is no tty)]' \
'(--syslog -y --no-syslog -Y)'{-Y,--no-syslog}"[don't log to syslog (see -e, -E options)]" \
'(--no-sharedmem -m)'{-m,--no-sharedmem}"[don't start XSI Shared Memory support]" \
'(--no-msgqueues -q)'{-q,--no-msgqueues}"[don't start XSI Message Queue support]" \
'(--no-semaphores -s)'{-s,--no-semaphores}"[don't start XSI Semaphore support]" \
'(--shutdown -S)'{-S,--shutdown}'[shutdown the daemon]' \
'(--help -h)'{-h,--help}'[output usage information and exit]' \
'(--version -v)'{-v,--version}'[output version information and exit]'
PK [Ԇ. . functions/_menunu W+A #autoload
[[ _matcher_num -gt 1 ]] && return 1
# This completer is an example showing how menu completion can be
# implemented with the new completion system.
# Use this one before the normal _complete completer, as in:
#
# zstyle ":completion:::::" completer _menu _complete
if [[ -n "$compstate[old_list]" ]]; then
# We have an old list, keep it and insert the next match.
compstate[old_list]=keep
compstate[insert]=$((compstate[old_insert]+1))
else
# No old list, make completion insert the first match.
compstate[insert]=1
fi
return 1
PK [P functions/VCS_INFO_maxexportsnu W+A ## vim:ft=zsh
## Written by Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
zstyle -s ":vcs_info:${vcs}:${usercontext}:${rrn}" "max-exports" maxexports || maxexports=2
if [[ ${maxexports} != <-> ]] || (( maxexports < 1 )); then
printf 'vcs_info(): expecting numeric arg >= 1 for max-exports (got %s).\n' ${maxexports}
printf 'Defaulting to 2.\n'
maxexports=2
fi
return 0
PK [WE*"$ "$ functions/_subversionnu W+A #compdef svn svnadmin svnadmin-static=svnadmin
_svn () {
local curcontext="$curcontext" state line expl ret=1
typeset -A opt_args
_arguments -C \
'(-)--help[print help information]' \
'(- *)--version[print client version information]' \
'1: :->cmds' \
'*:: :->args' && ret=0
if [[ -n $state ]] && (( ! $+_svn_cmds )); then
typeset -gHA _svn_cmds
_svn_cmds=(
${=${(f)${${"$(LC_ALL=C _call_program commands svn help)"#l#*Available subcommands:}%%Subversion is a tool*}}/(#s)[[:space:]]#(#b)([a-z]##)[[:space:]]#(\([a-z, ?]##\))#/$match[1] :$match[1]${match[2]:+:${${match[2]//[(),]}// /:}}:}
)
fi
case $state in
cmds)
_wanted commands expl 'svn command' _svn_commands && ret=0
;;
args)
local cmd args usage
typeset -gHA _cache_svn_status _cache_svn_mtime
cmd="${${(k)_svn_cmds[(R)*:$words[1]:*]}:-${(k)_svn_cmds[(i):$words[1]:]}}"
if (( $#cmd )); then
curcontext="${curcontext%:*:*}:svn-${cmd}:"
usage=${${(M)${(f)"$(LC_ALL=C _call_program options svn help $cmd)"}:#usage:*}#usage:*$cmd] }
args=(
${=${${${(M)${(f)"$(LC_ALL=C _call_program options svn help $cmd)"#(*Valid options:|(#e))}:#* :*}%% #:*}/ (arg|ARG)/:arg:}/(#b)-([[:alpha:]]) \[--([a-z-]##)\](:arg:)#/(--$match[2])-$match[1]$match[3] (-$match[1])--$match[2]$match[3]}
)
case $cmd in;
(add)
args+=(
'*:file:_files -g "*(^e:_svn_controlled:)"'
)
;;
(commit)
args=(
${args/(#b)(*--file*):arg:/$match[1]:file:_files}
'*:file:_files -g "*(e:_svn_status:)"'
)
;;
(delete)
args+=(
'*:file:_files -g ".svn(/e:_svn_deletedfiles:)"'
)
;;
(diff)
args+=(
'*: : _alternative "files:file:_files -g \*\(e:_svn_status:\)" "urls:URL:_svn_urls"'
)
;;
(help)
args+=(
'*::sub command:_svn_commands'
)
;;
(import)
args+=(
'1:project directory or import location: _alternative "files:file:_files" "urls:URL:_svn_urls"'
'2:import location: _alternative "files:file:_files" "urls:URL:_svn_urls"'
)
;;
(log)
args+=(
'1: : _alternative "files:file:_files -g \*\(e:_svn_controlled:\)" "urls:URL:_svn_urls"'
'*:file:_files -g "*(e:_svn_controlled:)"'
)
;;
(propget|propedit)
args+=(
'1:property name:_svn_props'
'2:target: _alternative "files:file:_files" "urls:URL:_svn_urls"'
)
;;
(propset)
args=(
':propname:(svn:ignore svn:keywords svn:executable svn:eol-style svn:mime-type svn:externals svn:needs-lock)'
${args/(#b)(*--file*):arg:/$match[1]:file:_files}
'*:path or url: _alternative "files:file:_files" "urls:URL:_svn_urls"'
)
;;
(resolved)
args+=(
'*:file:_files -g "*(e:_svn_conflicts:)"'
)
;;
(revert)
args+=(
'*:file:_files -g "(.svn|*)(/e:_svn_deletedfiles:,e:_svn_status:)"'
)
;;
(*)
case $usage in
*(SRC|DST|TARGET|URL*PATH)*)
args+=(
'*: : _alternative "files:file:_files" "urls:URL:_svn_urls"'
)
;;
*URL*) args+=( ':URL:_svn_urls' ) ;;
*PATH*) args+=( '*:file:_files' ) ;;
esac
;;
esac
_arguments "$args[@]" && ret=0
else
_message "unknown svn command: $words[1]"
fi
;;
esac
return ret
}
_svnadmin () {
local curcontext="$curcontext" state line ret=1
_arguments -C \
'(-)--help[print help information]' \
'(- *)--version[print client version information]' \
'1: :->cmds' \
'*:: :->args' && ret=0
if [[ -n $state ]] && (( ! $+_svnadmin_cmds )); then
typeset -gHA _svnadmin_cmds
_svnadmin_cmds=(
${=${(f)${${"$(LC_ALL=C _call_program commands svnadmin help)"#l#*Available subcommands:}}}/(#s)[[:space:]]#(#b)([-a-z]##)[[:space:]]#(\([a-z, ?]##\))#/$match[1] :$match[1]${match[2]:+:${${match[2]//[(),]}// /:}}:}
)
fi
case $state in
cmds)
_wanted commands expl 'svnadmin command' _svnadmin_commands && ret=0
;;
args)
local cmd args usage
cmd="${${(k)_svnadmin_cmds[(R)*:$words[1]:*]}:-${(k)_svnadmin_cmds[(i):$words[1]:]}}"
if (( $#cmd )); then
curcontext="${curcontext%:*:*}:svnadmin-${cmd}:"
usage=${${(M)${(f)"$(LC_ALL=C _call_program options svnadmin help $cmd)"}:#$cmd: usage:*}#$cmd: usage: svnadmin $cmd }
args=(
${=${${${(M)${(f)"$(LC_ALL=C _call_program options svnadmin help $cmd)"#(*Valid options:|(#e))}:#* :*}%% #:*}/ (arg|ARG)/:arg:}/(#b)-([[:alpha:]]) \[--([a-z-]##)\](:arg:)#/(--$match[2])-$match[1]$match[3] (-$match[1])--$match[2]$match[3]}
)
if [[ $usage == *REPOS_PATH* ]]; then
args+=( ":path:_files -/" )
elif [[ $cmd = help ]]; then
args+=( "*:subcommand:_svnadmin_commands" )
fi
_arguments "$args[@]" && ret=0
else
_message "unknown svnadmin command: $words[1]"
fi
;;
esac
return ret
}
(( $+functions[_svn_controlled] )) ||
_svn_controlled() {
[[ -f ${(M)REPLY##*/}.svn/text-base/${REPLY##*/}.svn-base ]]
}
(( $+functions[_svn_conflicts] )) ||
_svn_conflicts() {
[ -n $REPLY.(mine|r<->)(N[1]) ]
}
(( $+functions[_svn_deletedfiles] )) ||
_svn_deletedfiles() {
# Typical usage would be _files -g '.svn(/e:_svn_deletedfiles:)'
local cont controlled
reply=( )
[[ $REPLY = (*/|).svn ]] || return
controlled=( $REPLY/text-base/*.svn-base(N:r:t) )
for cont in ${controlled}; do
[[ -e $REPLY:h/$cont ]] || reply+=( ${REPLY%.svn}$cont )
done
}
(( $+functions[_svn_status] )) ||
_svn_status() {
local dir=$REPLY:h
local pat="${1:-([ADMR~]|?M)}"
zmodload -F zsh/stat b:zstat 2>/dev/null
local key="$(zstat +device $dir):$(zstat +inode $dir)"
local mtime="$(zstat +mtime $dir/.svn/entries)"
if (( ! $+_cache_svn_status[$key] || _cache_svn_mtime[$key] != mtime )); then
_cache_svn_status[$key]="$(_call_program files svn status -N $dir)"
_cache_svn_mtime[$key]="$mtime"
fi
(( ${(M)#${(f)_cache_svn_status[$key]}:#(#s)${~pat}*$REPLY} ))
}
(( $+functions[_svn_remote_paths] )) ||
_svn_remote_paths() {
local expl remfiles remdispf remdispd suf ret=1 pfx='\^/' sub='^/'
# prefix must match a valid repository path format, either standard style
# schema://host/path/.. or ^/path/.. specifying a path relative to the
# root of the working directory repository. In the second form, allow the
# leading '^' be escaped in case the user has the extendedglob option set.
[[ -prefix *://*/ ]] ||
[[ -f .svn/entries && ( -prefix '^/' || -prefix '\^/' ) ]] ||
return 1
# return if remote access is not permitted
zstyle -T ":completion:${curcontext}:" remote-access || return 1
remfiles=( ${(f)"$(svn list $IPREFIX${${PREFIX%%[^/]#}/#$pfx/$sub} 2>/dev/null)"} )
(( $? == 0 )) || return 1
# you might consider trying to return early if $#remfiles is zero,
# but for whatever reason remfiles will always contain at least a
# single empty string; that case is handled correctly below.
compset -P '*/'
compset -S '/*' || suf=file
remdispf=(${remfiles:#*/})
remdispd=(${(M)remfiles:#*/})
_tags files
while _tags; do
while _next_label files expl ${suf:-directory}; do
# add files, unless there is a '/' immediately to the right
[[ -n $suf ]] &&
compadd -S ' ' -q "$@" "$expl[@]" -d remdispf $remdispf && ret=0
# add directories; use empty suffix if there is a '/' immediately to the right
compadd -S "${suf:+/}" -q "$@" "$expl[@]" -d remdispd ${remdispd%/} && ret=0
done
(( ret )) || return 0
done
return 1
}
(( $+functions[_svn_urls] )) ||
_svn_urls() {
local urlsch expl ret=1
# first try completing a remote path; if successful, we are all done..
_svn_remote_paths && return 0
# allow configuring svn repository locations using the 'urls' zstyle.
# always attempt completion of these because then matcher-list styles
# which do substring matching will work correctly.
_urls -S/ && ret=0
if [[ ! -prefix *://? ]] ; then
zstyle -a ":completion:${curcontext}:" url-schemas urlsch \
|| urlsch=( file:// http:// https:// svn:// svn+ssh:// )
if (( $#urlsch )) ; then
compset -S '[^:]*'
_wanted url-schemas expl 'URL schema' compadd -S '' - $urlsch[@] && ret=0
fi
fi
return ret
}
(( $+functions[_svn_commands] )) ||
_svn_commands() {
compadd "$@" -k _svn_cmds || compadd "$@" ${(s.:.)_svn_cmds}
}
(( $+functions[_svnadmin_command] )) ||
_svnadmin_commands() {
compadd "$@" -k _svnadmin_cmds || compadd "$@" ${(s.:.)_svnadmin_cmds}
}
(( $+functions[_svn_props] )) ||
_svn_props() {
local properties
properties=( ${${(M)${(f)"$(svn proplist 2>/dev/null)"}:# [^ ]*}# } )
compadd "$@" -a properties && return 0
}
_subversion () {
case $service in
(svn) _svn "$@" ;;
(svnadmin) _svnadmin "$@" ;;
esac
}
_subversion "$@"
PK [mȿ! ! functions/zftp_progressnu W+A # function zftp_progress {
# Basic progress metre, showing the percent of the file transferred.
# You want growing bars? You gottem.
# styles used (context :zftp:zfparent_function:):
# progress
# empty or `none' no progress meter
# `bar' use a growing bar of inverse video
# `percent' or other non-blank show the percentage transferred
# If size of remote file is not available, `bar' or `percent' just show
# bytes.
# update
# Minimum time in seconds between updates of the progress display.
local style update=1
# What style: either bar for growing bars, or anything else for simple
# percentage. For bar we need to have the terminal width in COLUMNS,
# which is often set automatically, but you never know.
zstyle -s ":zftp$curcontext" progress style
# How many seconds to wait before printing an updated progress report.
zstyle -s ":zftp$curcontext" update update
# Don't show progress unless stderr is a terminal
[[ ! -t 2 || $style = (|none) ]] && return 0
if [[ -n $ZFTP_TRANSFER ]]; then
# avoid a `parameter unset' message
[[ $ZFTP_TRANSFER != *F ]] &&
(( ${+zftpseconds} )) && (( SECONDS - zftpseconds < update )) && return
# size is usually ZFTP_SIZE, but zftransfer may set ZFTP_TSIZE
local size=${ZFTP_TSIZE:-$ZFTP_SIZE}
if [[ ${size:-0} -ne 0 ]]; then
local frac="$(( ZFTP_COUNT * 100 / size ))%"
if [[ $style = bar && ${+COLUMNS} = 1 && $COLUMNS -gt 0 ]]; then
if (( ! ${+zftpseconds} )); then
print "$ZFTP_FILE ($size bytes): $ZFTP_TRANSFER" 1>&2
fi
integer maxwidth=$(( COLUMNS - 7 ))
local width="$(( ZFTP_COUNT * maxwidth / size ))"
print -nP "\r%S${(l:width:):-}%s${(l:maxwidth-width:):-}: ${frac}%%" 1>&2
else
print -n "\r$ZFTP_FILE ($size bytes): $ZFTP_TRANSFER $frac" 1>&2
fi
else
print -n "\r$ZFTP_FILE: $ZFTP_TRANSFER $ZFTP_COUNT" 1>&2
fi
if [[ $ZFTP_TRANSFER = *F && ${+zftpseconds} = 1 ]]; then
unset zftpseconds
print 1>&2
else
typeset -g zftpseconds=$SECONDS
fi
fi
# }
PK [ C[` ` functions/add-zsh-hooknu W+A # Add to HOOK the given FUNCTION.
# HOOK is one of chpwd, precmd, preexec, periodic, zshaddhistory,
# zshexit (the _functions subscript is not required).
#
# With -d, remove the function from the hook instead; delete the hook
# variable if it is empty.
#
# -D behaves like -d, but pattern characters are active in the
# function name, so any matching function will be deleted from the hook.
#
# Without -d, the FUNCTION is marked for autoload; -U is passed down to
# autoload if that is given, as are -z and -k. (This is harmless if the
# function is actually defined inline.)
emulate -L zsh
local -a hooktypes
hooktypes=(chpwd precmd preexec periodic zshaddhistory zshexit)
local opt
local -a autoopts
integer del
while getopts "dDUzk" opt; do
case $opt in
(d)
del=1
;;
(D)
del=2
;;
([Uzk])
autoopts+=(-$opt)
;;
(*)
return 1
;;
esac
done
shift $(( OPTIND - 1 ))
if (( $# != 2 || ${hooktypes[(I)$1]} == 0 )); then
print "Usage: $0 hook function\nValid hooks are:\n $hooktypes"
return 1
fi
local hook="${1}_functions"
local fn="$2"
if (( del )); then
# delete, if hook is set
if (( ${(P)+hook} )); then
if (( del == 2 )); then
set -A $hook ${(P)hook:#${~fn}}
else
set -A $hook ${(P)hook:#$fn}
fi
# unset if no remaining entries --- this can give better
# performance in some cases
if (( ! ${(P)#hook} )); then
unset $hook
fi
fi
else
if (( ${(P)+hook} )); then
if (( ${${(P)hook}[(I)$fn]} == 0 )); then
set -A $hook ${(P)hook} $fn
fi
else
set -A $hook $fn
fi
autoload $autoopts -- $fn
fi
PK [*֤
functions/agenu W+A # Match the age of a file, for use as a glob qualifer. Can
# take one or two arguments, which can be supplied by one of two
# ways (always the same for both arguments):
#
# print *(e:age 2006/10/04 2006/10/09:)
#
# Match all files modified between the start of those dates.
#
# print *(e:age 2006/10/04:)
#
# Match all files modified on that date. If the second argument is
# omitted it is taken to be exactly 24 hours after the first argument
# (even if the first argument contains a time).
#
# print *(e-age 2006/10/04:10:15 2006/10/04:10:45-)
#
# Supply times. All the time and formats handled by calendar_scandate
# are allowed, but whitespace must be quoted to ensure age receives
# the correct arguments.
#
# AGEREF1=2006/10/04:10:15
# AGEREF2=2006/10/04:10:45
# print *(+age)
#
# The same example using the other form of argument passing. The
# dates stay in effect until unset, but will be overridden if
# any argument is passed in the first format.
emulate -L zsh
zmodload -F zsh/stat b:zstat
zmodload -i zsh/parameter
autoload -Uz calendar_scandate
local -a vals tmp
[[ -e $REPLY ]] || return 1
zstat -A vals +mtime $REPLY || return 1
if (( $# >= 1 )); then
if [[ $1 = :* ]]; then
zstat -A tmp -F "%Y/%m/%d" +mtime ${1[2,-1]} || return 1
local AGEREF=$tmp[1]
else
local AGEREF=$1
fi
# if 1 argument given, never use globally defined AGEREF2
if [[ $2 = :* ]]; then
zstat -A tmp -F "%Y/%m/%d" +mtime ${2[2,-1]} || return 1
local AGEREF2=$tmp[1]
else
local AGEREF2=$2
fi
fi
integer mtime=$vals[1] date1 date2
local REPLY REPLY2
# allow a time only (meaning today)
if calendar_scandate -t $AGEREF; then
date1=$REPLY
if [[ -n $AGEREF2 ]]; then
if [[ $AGEREF2 = +* ]]; then
calendar_scandate -rt $AGEREF2[2,-1] || return 1
(( date2 = date1 + REPLY ))
else
calendar_scandate -t $AGEREF2 || return 1
date2=$REPLY
fi
else
(( date2 = date1 + 24 * 60 * 60 ))
fi
(( date1 <= mtime && mtime <= date2 ))
else
return 1
fi
PK [m functions/_dirsnu W+A #compdef dirs
_arguments -s \
'(-)-c[clear the directory stack]' \
'(* -c)-l[display directory names in full]' \
'(* -c)-v[display numbered list of directory stack]' \
'(* -c)-p[display directory entries one per line]' \
'(-)*:directory:_directories'
PK [hh functions/_portlintnu W+A #compdef portlint
_arguments -s \
'-a[additional check for scripts/* and pkg-*]' \
'-A[turn on all additional checks (equivalent to -abcNt)]' \
'-b[warn $(VARIABLE)]' \
'-c[committer mode]' \
'-C[pedantic committer mode (equivalent to -abct)]' \
'-g[group errors together to avoid duplication (disabled if -v is specified)]' \
'-h[show summary of command line options]' \
'-v[verbose mode]' \
'-t[nit pick about use of spaces]' \
'-N[writing a new port]' \
'-V[print the version and exit]' \
'-M[set make variables to ENV (ex. PORTSDIR=/usr/ports.work)]: :_guard ".#" "environment vars"' \
'-B[allow # contiguous blank lines]: :_guard "[0-9]#" "numeric value"' \
':port directory:_files -/'
PK [@sH H functions/_globqualsnu W+A #autoload
local state=qual expl char delim
local -a alts
while [[ -n $PREFIX ]]; do
char=$PREFIX[1]
compset -p 1
case $char in
([-/F.@=p*rwxAIERWXsStUG^MTNDn,])
# no argument
;;
(%)
# optional b, c
if [[ $PREFIX[1] = [bc] ]]; then
compset -p 1
fi
;;
(f)
if ! compset -P "[-=+][0-7?]##"; then
if [[ -z $PREFIX ]]; then
_delimiters qualifier-f
return
elif ! _globqual_delims; then
# still completing mode spec
_message -e modes "mode spec"
return
fi
fi
;;
(P)
# skip delimited prefix
if [[ -z $PREFIX ]]; then
_delimiters qualifier-P
return
elif ! _globqual_delims; then
# can't suggest anything here
_message -e prefix prefix
return
fi
;;
(e)
# complete/skip delimited command line
if [[ -z $PREFIX ]]; then
_delimiters qualifer-e
return
elif ! _globqual_delims; then
# still completing command to eval
compset -q
_normal
return
fi
;;
(+)
# complete/skip command name (no delimiters)
if [[ $PREFIX = [[:IDENT:]]# ]]; then
# either nothing there yet, or still on name
_command_names
return
fi
compset -P '[[:IDENT:]]##'
;;
(d)
# complete/skip device
if ! compset -p '[[:digit:]]##'; then
_message -e device-ids "device ID"
return
fi
;;
(l)
# complete/skip link count
if ! compset -P '([-+]|)[[:digit:]]##'; then
_message -e numbers "link count"
return
fi
;;
(u)
# complete/skip UID or delimited user
if ! compset -P '[[:digit:]]##'; then
if [[ -z $PREFIX ]]; then
_delimiters qualifier-u
return
elif ! _globqual_delims; then
# still completing user
_users -S $delim
return
fi
fi
;;
(g)
# complete/skip GID or delimited group
if ! compset -P '[[:digit:]]##'; then
if [[ -z $PREFIX ]]; then
_delimiters qualifier-g
return
elif ! _globqual_delims; then
# still completing group
_groups -S $delim
return
fi
fi
;;
([amc])
if ! compset -P '([Mwhms]|)([-+]|)<->'; then
# complete/skip relative time spec
alts=()
if ! compset -P '[Mwhms]' && [[ -z $PREFIX ]]; then
alts+=(
"time-specifiers:time specifier:\
((M\:months w\:weeks h\:hours m:\minutes s\:seconds))")
fi
if ! compset -P '[-+]' && [[ -z $PREFIX ]]; then
alts+=("senses:sense:((-\:less\ than +\:more\ than))")
fi
alts+=('digits:digit: ')
_alternative $alts
return
fi
;;
(L)
# complete/skip file size
if ! compset -P '([kKmMpP]|)([-+]|)<->'; then
# complete/skip size spec
alts=()
if ! compset -P '[kKmMpP]' && [[ -z $PREFIX ]]; then
alts+=(
"size-specifiers:size specifier:\
((k\:kb m\:mb p\:512-byte\ blocks))")
fi
if ! compset -P '[-+]' && [[ -z $PREFIX ]]; then
alts+=("senses:sense:((-\:less\ than +\:more\ than))")
fi
alts+=('digits:digit: ')
_alternative $alts
return
fi
;;
([oO])
# complete/skip sort spec
if ! compset -P "?"; then
alts=(
"n:lexical order of name"
"L:size of file"
"l:number of hard links"
"a:last access time"
"m:last modification time"
"c:last inode change time"
"d:directory depth"
"N:no sorting"
"e:execute code"
"+:+ command name"
)
_describe -t sort-specifiers "sort specifier" alts -Q -S ''
return
elif [[ $IPREFIX[-1] = e ]]; then
if [[ -z $PREFIX ]]; then
_delimiters qualifier-oe
return
elif ! _globqual_delims; then
compset -q
_normal
return
fi
elif [[ $IPREFIX[-1] = + ]]; then
if [[ $PREFIX = [[:IDENT:]]# ]]; then
# either nothing there yet, or still on name
_command_names
return
fi
fi
;;
(\[)
# complete/skip range: check for closing bracket
if ! compset -P "(-|)[[:digit:]]##(,(-|)[[:digit:]]##|)]"; then
if compset -P "(-|)[[:digit:]]##,"; then
_message "end of range"
else
_message "start of range"
fi
return
fi
;;
(:)
# complete modifiers and don't stop completing them
_history_modifiers q
return
;;
esac
done
case $state in
(qual)
local -a quals
quals=(
"/:directories"
"F:non-empty directories"
".:plain files"
"@:symbolic links"
"=:sockets"
"p:name pipes (FIFOS)"
"*:executable plain files"
"%:device files"
"r:owner-readable"
"w:owner-writeable"
"x:owner-executable"
"A:group-readable"
"I:group-writeable"
"E:group-executable"
"R:world-readable"
"W:world-writeable"
"X:world-executable"
"s:setuid"
"S:setgid"
"t:sticky bit set"
"f:+ access rights"
"e:execute code"
"+:+ command name"
"d:+ device"
"l:+ link count"
"U:owned by EUID"
"G:owned by EGID"
"u:+ owning user"
"g:+ owning group"
"a:+ access time"
"m:+ modification time"
"c:+ inode change time"
"L:+ size"
"^:negate qualifiers"
"-:follow symlinks toggle"
"M:mark directories"
"T:mark types"
"N:use NULL_GLOB"
"D:glob dots"
"n:numeric glob sort"
"o:+ sort order, up"
"O:+ sort order, down"
"P:prepend word"
"[:+ range of files"
"):end of qualifiers"
"\::modifier"
)
_describe -t globquals "glob qualifier" quals -Q -S ''
;;
esac
PK [YJQ Q functions/_ionicenu W+A #compdef ionice
_arguments \
'(* -)-h[display usage information]' \
'(*)-p[interpret args as process ID]:pid:_pids' \
'-c+[scheduling class]:class:(( 1\:realtime 2\:best-effort 3\:idle ))' \
'-n+[scheduling class priority]:class-priority:((
0\:high\ priority
{6..1}\:
7\:low\ priority
))' \
'*::command:_normal'
PK [ev functions/_webbrowsernu W+A #compdef amaya arena chimera dillo express galeon grail gzilla hotjava konqueror light mmm Mosaic netrik opera phoenix retawq skipstone www xmosaic zen
_alternative 'files:file:_files' 'urls:URL:_urls'
PK [} functions/_combinationnu W+A #autoload
# Usage:
# _combination [-s S] TAG STYLE \
# Ki1[:Ni1]=Pi1 Ki2[:Ni2]=Pi2 ... Kim[:Nim]=Pim Kj[:Nj] EXPL...
#
# STYLE should be of the form K1-K2-...-Kn.
#
# Example: telnet
#
# Assume a user sets the style `users-hosts-ports' as for the my-accounts
# tag:
#
# zstyle ':completion:*:*:telnet:*:my-accounts' users-hosts-ports \
# @host0: user1@host1: user2@host2:
# @mail-server:{smtp,pop3}
# @news-server:nntp
# @proxy-server:8000
#
#
# `_telnet' completes hosts as:
#
# _combination my-accounts users-hosts-ports \
# ${opt_args[-l]:+users=${opt_args[-l]:q}} \
# hosts "$expl[@]"
#
# This completes `host1', `host2', `mail-server', `news-server' and
# `proxy-server' according to the user given with `-l' if it is exists.
# And if it is failed, `_hosts' is called.
#
# `_telnet' completes ports as:
#
# _combination my-accounts users-hosts-ports \
# ${opt_args[-l]:+users=${opt_args[-l]:q}} \
# hosts="${line[2]:q}" \
# ports "$expl[@]"
#
# This completes `smtp', `pop3', `nntp' and `8000' according to the
# host argument --- $line[2] and the user option argument if it is
# exists. And if it is failed, `_ports' is called.
#
# `_telnet' completes users for an argument of option `-l' as:
#
# _combination my-accounts users-hosts-ports \
# ${line[2]:+hosts="${line[2]:q}"} \
# ${line[3]:+ports="${line[3]:q}"} \
# users "$expl[@]"
#
# This completes `user1' and `user2' according to the host argument and
# the port argument if they are exist. And if it is failed, `_users' is
# called.
local sep tag style keys pats key num tmp
if [[ "$1" = -s ]]; then
sep="$2"
shift 2
elif [[ "$1" = -s* ]]; then
sep="${1[3,-1]}"
shift
else
sep=:
fi
tag="$1"
style="$2"
shift 2
keys=( ${(s/-/)style} )
pats=( "${(@)keys/*/*}" )
while [[ "$1" = *=* ]]; do
tmp="${1%%\=*}"
key="${tmp%:*}"
if [[ $1 = *:* ]]; then
num=${tmp##*:}
else
num=1
fi
pats[$keys[(in:num:)$key]]="${1#*\=}"
shift
done
key="${1%:*}"
if [[ $1 = *:* ]]; then
num=${1##*:}
else
num=1
fi
shift
if zstyle -a ":completion:${curcontext}:$tag" "$style" tmp; then
eval "tmp=( \"\${(@M)tmp:#\${(j($sep))~pats}}\" )"
if (( keys[(in:num:)$key] != 1 )); then
eval "tmp=( \${tmp#\${(j(${sep}))~\${(@)\${(@)keys[2,(rn:num:)\$key]}/*/*}}${~sep}} )"
fi
tmp=( ${tmp%%${~sep}*} )
compadd "$@" -a tmp || { (( $+functions[_$key] )) && "_$key" "$@" }
else
(( $+functions[_$key] )) && "_$key" "$@"
fi
PK [9o- - functions/_in_varednu W+A #compdef -vared-
local also
# Completion inside vared.
if [[ $compstate[vared] = *\[* ]]; then
if [[ $compstate[vared] = *\]* ]]; then
# vared on an array-element
compstate[parameter]=${${compstate[vared]%%\]*}//\[/-}
compstate[context]=value
also=-value-
else
# vared on an array-value
compstate[parameter]=${compstate[vared]%%\[*}
compstate[context]=value
also=-value-
fi
else
# vared on a parameter, let's see if it is an array
compstate[parameter]=$compstate[vared]
if [[ ${(tP)compstate[vared]} = *(array|assoc)* ]]; then
compstate[context]=array_value
also=-array-value-
else
compstate[context]=value
also=-value-
fi
fi
# Don't insert TAB in first column. Never.
compstate[insert]="${compstate[insert]//tab /}"
_dispatch "$also" "$also"
PK [+{"k
functions/_perlnu W+A #compdef perl
#
# zsh completion code for the Perl interpreter
# Adam Spiers
#
_perl () {
_arguments -s \
'-0-:input record separator in octal (\0, if no argument): ' \
'-a[autosplit mode with -n or -p (splits $_ into @F)]' \
"-c[check syntax only (runs BEGIN and END blocks)]" \
'-d[run scripts under debugger]' \
'-d\:-[run under control of a debugging/tracing module]:debugging/tracing module:_perl_modules --strip-prefix --perl-hierarchy=Devel' \
'-D-:set debugging flags (argument is a bit mask or flags): ' \
"*-e+:one line of script. Several -e's allowed. Omit [programfile]." \
"-F-:split() pattern for autosplit (-a). The //'s are optional.: " \
'-h[list help summary]' \
'-i-[edit <> files in place (make backup if extension supplied)]:backup file extension: ' \
'*-I-[specify @INC/#include directory (may be used more than once)]:include path:_files -/' \
'-l-[enable line ending processing, specifies line terminator]:output record separator in octal: ' \
\*{-m,-M}"-[module.. executes \`use/no module...' before executing your script]:module:_perl_m_opt" \
"-n[assume 'while (<>) { ... }' loop around your script]" \
"-p[assume loop like -n but print line also like sed]" \
"-P[run script through C preprocessor before compilation]" \
"-s[enable some switch parsing for switches after script name]" \
"-S[look for the script using PATH environment variable]" \
"-T[turn on tainted checks]" \
"-u[dump core after parsing script]" \
"-U[allow unsafe operations]" \
"-v[print version number, patchlevel plus VERY IMPORTANT perl info]" \
"-V-[print perl configuration information]:configuration keys:_perl_config_vars" \
'-w[turn warnings on for compilation of your script. Recommended]' \
'-x-[strip off text before #!perl line and perhaps cd to directory]:directory to cd to:_files -/' \
'1:Perl script:_files -/ -g "*.(p[ml]|PL|t)(-.)"' \
'*::args: _normal'
}
_perl_m_opt () {
compset -P '-'
if compset -P '*='; then
_message -e module-arguments 'module arguments, comma separated'
else
_perl_modules -S= -q
fi
}
_perl_config_vars () {
if (( ! $+_perl_config_vars )); then
_perl_config_vars=( $(perl -MConfig -e 'print join("\n", keys %Config);') )
fi
local add_colon='-P:'
compset -P '*:' && add_colon=''
local delimiter='\ '
(( compstate[quoting] )) && delimiter=' '
compset -P '* ' && compset -q
compadd "$expl[@]" $add_colon -S$delimiter -q -a _perl_config_vars
}
_perl "$@"
PK [ r`F F functions/_varednu W+A #compdef vared
_arguments -s -A "-*" \
'(-a)-A[edit associative array]' \
'(-A)-a[edit array parameter]' \
"-c[create parameter or change type]" \
'-p+[specify left prompt]:prompt' \
'-r+[specify right prompt]:right prompt' \
'-h[allow access to history]' \
'-e[exit on EOF (^D)]' \
'1:parameter spec:_vars'
PK [Eoq q functions/_ttyctlnu W+A #compdef ttyctl
_arguments '(-u)-f[freeze terminal settings]' \
'(-f)-u[unfreeze terminal settings]'
PK [u3&B B functions/VCS_INFO_check_comnu W+A ## vim:ft=zsh
## Written by Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
case $1 in
(/*)
[[ -x $1 ]] && return 0
;;
(*)
(( ${+commands[$1]} )) && [[ -x ${commands[$1]} ]] && return 0
esac
return 1
PK [0c& functions/_complete_helpnu W+A #compdef -k complete-word \C-xh
_complete_help() {
eval "$_comp_setup"
local _sort_tags=_help_sort_tags text i j k tmp
typeset -A help_funcs help_tags help_sfuncs help_styles
compadd() { return 1 }
zstyle() {
local _f="${${(@)${(@)funcstack[2,(i)_(main_complete|complete|approximate|normal)]}:#_(dispatch|wanted|requested|all_labels|next_label)}% *}"
[[ -z "$_f" ]] && _f="${${(@)funcstack[2,(i)_(main_complete|complete|approximate|normal)]}:#_(dispatch|wanted|requested|all_labels|next_label)}"
if [[ "$help_sfuncs[$2]" != *${_f}* ||
"$help_styles[${2}${_f}]" != *${3}* ]]; then
[[ "$help_sfuncs[$2]" != *${_f}* ]] && help_sfuncs[$2]+=$'\0'"${_f}"
local _t
case "$1" in
-s) _t='[string] ';;
-a) _t='[array] ';;
-h) _t='[assoc] ';;
*) _t='[boolean]';;
esac
help_styles[${2}${_f}]+=",${_t} ${3}:${_f}"
fi
# No need to call the completers more than once with different match specs.
if [[ "$3" = matcher-list ]]; then
set -A "$4" ''
else
builtin zstyle "$@"
fi
}
trap 'unfunction compadd zstyle' EXIT INT
${1:-_main_complete}
unfunction compadd zstyle
trap - EXIT INT
for i in "${(@ok)help_funcs}"; do
text+=$'\n'"tags in context :completion:${i}:"
tmp=()
for j in "${(@ps.\0.)help_funcs[$i][2,-1]}"; do
tmp+=( "${(@s.,.)help_tags[${i}${j}][2,-1]}" )
done
zformat -a tmp ' (' "$tmp[@]"
tmp=( $'\n '${^tmp}')' )
text+="${tmp}"
done
if [[ ${NUMERIC:-1} -ne 1 ]]; then
text+=$'\n'
for i in "${(@ok)help_sfuncs}"; do
text+=$'\n'"styles in context ${i}"
tmp=()
for j in "${(@ps.\0.)help_sfuncs[$i][2,-1]}"; do
tmp+=( "${(@s.,.)help_styles[${i}${j}][2,-1]}" )
done
zformat -a tmp ' (' "$tmp[@]"
tmp=( $'\n '${^tmp}')' )
text+="${tmp}"
done
fi
compstate[list]='list force'
compstate[insert]=''
compadd -UX "$text[2,-1]" -n ''
}
_help_sort_tags() {
local f="${${(@)${(@)funcstack[3,(i)_(main_complete|complete|approximate|normal)]}:#_(dispatch|wanted|requested|all_labels|next_label)}% *}"
if [[ "$help_funcs[$curcontext]" != *${f}* ||
"$help_tags[${curcontext}${f}]" != *(${(j:|:)~argv})* ]]; then
[[ "$help_funcs[$curcontext]" != *${f}* ]] &&
help_funcs[$curcontext]+=$'\0'"${f}"
help_tags[${curcontext}${f}]+=",${argv}:${f}"
comptry "$@"
fi
}
_complete_help "$@"
PK [ȧH] functions/_twistednu W+A #compdef trial conch mktap cftp tapconvert twistd ckeygen lore pyhtmlizer websetroot tap2deb tkmktap tkconch manhole tap2rpm
# Copyright (c) 2005 Eric Mangold
# Maintainer: Eric Mangold
# This file is meant to be in your zsh function path. i.e. in one of those
# directories listed in your $fpath variable.
#
# e.g. /usr/local/share/zsh/site-functions/
#
# It is responsible for passing completion control to the correct
# completion function for the version of Twisted that is
# currently in use.
#
# Goals:
#
# We want to detect any changes to PYTHONPATH since the last time we ran.
# That way we can re-locate the completion functions so that we are sure
# to be completing for the right version of Twisted.
local dir old_fpath python_code run shebang
function debug () {
echo $@ >> /tmp/twisted_stub_debug
}
#debug "START _twisted_stub"
function load_twisted_completions() {
[[ -z $commands[twistd] ]] && echo 'ERROR: test command "twistd" not found in path' && return 1
shebang=$(head -1 $commands[twistd])
[[ $shebang != \#\!* ]] && echo 'ERROR: invalid shebang line for test script "twistd"' && return 1
PYTHON=$shebang[3,-1] # strip #! off the shebang
PYTHON=${PYTHON# *} # remove any spaces between #! and command
#debug PYTHON $PYTHON:q
python_code='
import twisted, os.path
dir = os.path.dirname(twisted.__file__)
print os.path.join(dir, "python", "zsh")
'
dir=$(${=PYTHON} -c "$python_code")
#debug "Trying to load twisted functions from $dir:q"
if [[ -r $dir/_twistd ]]; then
old_fpath=($fpath)
fpath=( $dir $fpath )
autoload +X _trial _conch _mktap _cftp _tapconvert _twistd _ckeygen
autoload +X _lore _pyhtmlizer _websetroot _tap2deb _tkmktap _tkconch
autoload +X _manhole _tap2rpm
fpath=($old_fpath)
else
echo 'ERROR: Cannot find twisted completion function files in $dir:q'
return 1
fi
}
function twisted_run () {
# run completion function for current command
# the :t modifier strips off any leading pathname components
eval _$words[1]:t
}
function twisted_save_load_run () {
# save PYTHONPATH, load twisted completions, and run the completion
# function for the current command
load_twisted_completions && twisted_run && PYTHONPATH_last=$PYTHONPATH
}
if [[ -n $PYTHONPATH_last ]]; then
#debug "PYTHONPATH_last is set to $PYTHONPATH_last"
#check if it's the same as the last time we ran
if [[ $PYTHONPATH == $PYTHONPATH_last ]]; then
#debug "PYTHONPATH == PYTHONPATH_last"
# it's the same, which means we've already loaded completion
# functions and nothing has changed.
twisted_run
else
twisted_save_load_run
fi
else
twisted_save_load_run
fi
#debug "END _twisted_stub"
#
PK [vrr functions/prompt_adam1_setupnu W+A # adam1 prompt theme
prompt_adam1_help () {
cat <<'EOF'
This prompt is color-scheme-able. You can invoke it thus:
prompt adam1 [ [ []]]
where the colors are for the user@host background, current working
directory, and current working directory if the prompt is split over
two lines respectively. The default colors are blue, cyan and green.
This theme works best with a dark background.
Recommended fonts for this theme: nexus or vga or similar. If you
don't have any of these, then specify the `plain' option to use 7-bit
replacements for the 8-bit characters.
And you probably thought adam1 was overkill.
EOF
}
prompt_adam1_setup () {
prompt_adam1_color1=${1:-'blue'}
prompt_adam1_color2=${2:-'cyan'}
prompt_adam1_color3=${3:-'green'}
base_prompt="%K{$prompt_adam1_color1}%n@%m%k "
post_prompt="%b%f%k"
base_prompt_no_color=$(echo "$base_prompt" | perl -pe "s/%(K{.*?}|k)//g")
post_prompt_no_color=$(echo "$post_prompt" | perl -pe "s/%(K{.*?}|k)//g")
add-zsh-hook precmd prompt_adam1_precmd
}
prompt_adam1_precmd () {
setopt noxtrace localoptions
local base_prompt_expanded_no_color base_prompt_etc
local prompt_length space_left
base_prompt_expanded_no_color=$(print -P "$base_prompt_no_color")
base_prompt_etc=$(print -P "$base_prompt%(4~|...|)%3~")
prompt_length=${#base_prompt_etc}
if [[ $prompt_length -lt 40 ]]; then
path_prompt="%B%F{$prompt_adam1_color2}%(4~|...|)%3~%F{white}"
else
space_left=$(( $COLUMNS - $#base_prompt_expanded_no_color - 2 ))
path_prompt="%B%F{$prompt_adam1_color3}%${space_left}<...<%~$prompt_newline%F{white}"
fi
PS1="$base_prompt$path_prompt %# $post_prompt"
PS2="$base_prompt$path_prompt %_> $post_prompt"
PS3="$base_prompt$path_prompt ?# $post_prompt"
}
prompt_adam1_setup "$@"
PK ["t functions/_guiltnu W+A #compdef guilt guilt-add guilt-applied guilt-delete guilt-files guilt-fold guilt-fork guilt-header guilt-help guilt-import-commit guilt-import guilt-init guilt-new guilt-next guilt-patchbomb guilt-pop guilt-prev guilt-push guilt-rebase guilt-refresh guilt-rm guilt-series guilt-status guilt-top guilt-unapplied
local -a _guilt_commands
_guilt_commands=(
'add:add a file to git and guilt'
'applied:list applied patches'
'delete:delete a patch'
'files:print the list of files that the topmost patch changes'
'fold:fold a specified patch into the topmost applied patch'
'fork:fork the topmost applied patch'
'header:print a patch header'
'help:open man page of a guilt command'
'import-commit:import one or more commits as patches'
'import:import specified patch file'
'init:initialize guilt for use in a git repository'
'new:create a new patch'
'next:output the name of next patch to be pushed'
'patchbomb:email a series of commits interactively'
'pop:pop patches from the tree'
'prev:output name of second topmost applied patch'
'push:push patches onto the tree'
'rebase:rebase pushed patches'
'refresh:refresh topmost applied patch'
'rm:remove a file from the git tree and guilt'
'series:print the stack of patches'
'status:print the status of files since the last refresh'
'top:output name of topmost applied patch'
'unapplied:list all unapplied patches'
)
case "$service" in
(guilt)
if (( CURRENT == 2 )); then
_describe -t commands 'guilt command' _guilt_commands && ret=0
else
_files
fi
;;
(*)
_files
;;
esac
PK [݅_a functions/_yumnu W+A #compdef yum
# Main dispatcher
_yum()
{
local curcontext="$curcontext" state lstate line
_arguments -s \
{-h,--help}'[show the help message]' \
{-t,--tolerant}'[be tolerant of errors]' \
'-C[run entirely from cache]' \
'-c[config file location]:Yum conf file:_files' \
'-R[maximum command wait time (in minutes)]:max wait time' \
'-d[debug level (0-10)]:debug level' \
'-e[error level (0-10)]:error level' \
'-y[answer yes for all questions]' \
'--installroot=[set install root]:install root:_files -/' \
'*--enablerepo=[enable or or more repositories]:repos to enable:_yum_disabled_repos_list' \
'*--disablerepo=[disable one or more repositories]:disable repos:_yum_enabled_repos_list' \
'--exclude=[exclude package(s) by name or glob]:exclude packages' \
'--version[show yum version]' \
'--obseletes[enable obsoletes processing during updates]' \
'--noplugins[disable yum plugins]' \
'*::yum command:_yum_command'
}
(( $+functions[_yum_command] )) || _yum_command()
{
local -a _yum_cmds
_yum_cmds=(
"install:install the latest version of a package or group of packages"
"erase:remove an installed package (with its dependencies)"
"remove:remove an installed package (with its dependencies)"
"clean:clean local yum cache"
"deplist:gives a list of all dependencies for a package"
"check-update:check if any updates are available"
"info:get description of available packages"
"list:is used to list various information about packages"
"groupinfo:get info on package groups"
"groupinstall:install a package group or groups"
"groupremove:remove a package group or groups"
"grouplist:list package groups"
"groupupdate:update a package group or groups"
"localinstall:install packages with local rpm files"
"localupdate:update packages with local rpm files"
"makecache:makes a local yum cache"
"provides:find out which package provides some feature or file"
"whatprovides:find out which package provides some feature or file"
"resolvedep:list packages providing the specified dependencies"
"search:find any packages matching pattern"
"shell:enter the 'yum shell'"
"update:update one or more packages"
"upgrade:upgrade one or more packages"
)
if (( CURRENT == 1 )); then
_describe -t commands 'yum command' _yum_cmds || compadd "$@"
else
local curcontext="$curcontext"
cmd="${${_yum_cmds[(r)$words[1]:*]%%:*}}"
# Deal with any aliases
case $cmd in
remove) cmd="erase";;
whatprovides) cmd="provides";;
upgrade) cmd="update";;
esac
if (( $#cmd )); then
curcontext="${curcontext%:*:*}:yum-${cmd}:"
local update_policy
zstyle -s ":completion:${curcontext}:" cache-policy update_policy
if [[ -z "$update_policy" ]]; then
zstyle ":completion:${curcontext}:" cache-policy _yum_caching_policy
fi
_call_function ret _yum_$cmd || _message 'no more arguments'
else
_message "unknown yum command: $words[1]"
fi
return ret
fi
}
# Fills the installed pkg cache
_yum_all_pkgs()
{
if ( [[ ${+_all_pkgs} -eq 0 ]] || _cache_invalid ALL ) &&
! _retrieve_cache ALL;
then
local prog="yum -C list all | sed 's/\s.*//' | grep '\.'"
_all_pkgs=( $(kages $prog 2>/dev/null) )
_store_cache ALL _all_pkg
fi
}
# Fills the installed pkg cache
_yum_installed_pkgs()
{
if ( [[ ${+_installed_pkgs} -eq 0 ]] || _cache_invalid INSTALLED ) &&
! _retrieve_cache INSTALLED;
then
_installed_pkgs=( $(yum -C list installed | sed 's/\s.*//' | grep '\.' 2>/dev/null) )
_store_cache INSTALLED _installed_pkgs
fi
}
# Fills the available pkg cache
_yum_available_pkgs()
{
if ( [[ ${+_available_pkgs} -eq 0 ]] || _cache_invalid AVAILABLE ) &&
! _retrieve_cache AVAILABLE;
then
_available_pkgs=( $(yum -C list available | sed 's/\s.*//' | grep '\.' 2>/dev/null) )
_store_cache AVAILABLE _available_pkgs
fi
}
# Fills the upgrade pkg cache
_yum_upgrade_pkgs()
{
if ( [[ ${+_upgrade_pkgs} -eq 0 ]] || _cache_invalid UPGRADE ) &&
! _retrieve_cache UPGRADE;
then
_upgrade_pkgs=( $(yum -C list upgrade | sed 's/\s.*//' | grep '\.' 2>/dev/null) )
_store_cache UPGRADE _upgrade_pkgs
fi
}
# Gets the list of defined repos
yum_repos() {
local trepo
local -a tarray
tarray=( $(egrep -h '(^\[.*\]|^enabled.*=)' /etc/yum.repos.d/*.repo /etc/yum.conf | sed -e 's/ //g' | sed -e 's/\[//g' | sed -e 's/\].*$//g' 2>/dev/null) )
local -i eindex=0
local -i dindex=0
for line in $tarray; do
if [[ "$line" = "enabled=1" ]]; then
enabled_yum_repos=($enabled_yum_repos $trepo)
elif [[ "$line" = "enabled=0" ]]; then
disabled_yum_repos=($disabled_yum_repos $trepo)
elif [[ "$line" != "main" ]]; then
trepo=$line
fi
done
}
(( $+functions[_yum_disabled_repos_list] )) || _yum_disabled_repos_list()
{
yum_repos
compadd "$@" -a -- disabled_yum_repos
}
(( $+functions[_yum_enabled_repos_list] )) || _yum_enabled_repos_list()
{
yum_repos
compadd "$@" -a -- enabled_yum_repos
}
# Completion function for erase|remove
(( $+functions[_yum_erase] )) || _yum_erase()
{
_yum_installed_pkgs
compadd "$@" -a -- _installed_pkgs
}
# Completion function for install
(( $+functions[_yum_install] )) || _yum_install()
{
_yum_available_pkgs
compadd "$@" -a -- _available_pkgs
}
# Completion function for localinstall
(( $+functions[_yum_localinstall] )) || _yum_localinstall()
{
_files -g '(#i)*.rpm(-.)'
}
# Completion function for localupdate
(( $+functions[_yum_localupdate] )) || _yum_localupdate()
{
_files -g '(#i)*.rpm(-.)'
}
# Completion function for update/upgrade
(( $+functions[_yum_update] )) || _yum_update()
{
_yum_upgrade_pkgs
compadd "$@" -a -- _upgrade_pkgs
}
# Completion function for deplist
(( $+functions[_yum_deplist] )) || _yum_deplist()
{
_yum_available_pkgs
compadd "$@" -a -- _available_pkgs
}
_yum_all()
{
_yum_all_pkgs
compadd "$@" -a -- _all_pkgs
}
_yum_list_or_info()
{
local -a listlist
listlist=(
"all:all packages in repositories"
"available:packages available in repositories"
"updates:packages with updates available"
"installed:installed packages"
"extras:packages installed that are not available in any yum repository"
"obsoletes:packages installed that are obsoleted"
"recent:packages recently added to repositories"
)
if (( CURRENT == 2 )); then
_describe -t yum-list-subcmds "Yum info/list sub-commands" listlist || _yum_all
else
local subcmd
subcmd="${${listlist[(r)$words[2]:*]%%:*}}"
# Deal with any aliases
case $subcmd in
installed) _yum_erase;;
available) _yum_install;;
updates) _yum_update;;
esac
fi
}
# Completion function for list
(( $+functions[_yum_list] )) || _yum_list()
{
_yum_list_or_info
}
# Completion function for info
(( $+functions[_yum_info] )) || _yum_info()
{
_yum_list_or_info
}
# Completion function for provides|whatprovides
(( $+functions[_yum_provides] )) || _yum_provides()
{
_files
}
# Completion function for resolvedep
(( $+functions[_yum_resolvedep] )) || _yum_resolvedep()
{
_files
}
# Completion function for clean
(( $+functions[_yum_clean] )) || _yum_clean()
{
local -a cleanlist
cleanlist=(
"all:all cache"
"cache:all cache"
"dbcache:DB cache"
"headers:cache headers"
"packages:cache packages"
"metadata:cache meta-data"
)
if (( CURRENT == 2 )); then
_describe -t yum-clean-subcmds "Yum clean sub-commands" cleanlist
fi
}
_yum_caching_policy()
{
local _yumrepomds
local -a oldp
# rebuild if cache is more than a week old
oldp=( "$1"(mw+1) )
(( $#oldp )) && return 0
_yumrepomds=( /var/cache/yum/**/repomd.xml )
if (( $#_yumrepomds )); then
for repo in $_yumrepomds; do
[[ "$repo" -nt "$1" ]] && return 0
done
fi
return 1
}
_yum "$@"
PK [": : functions/_file_descriptorsnu W+A #autoload
local i fds expl list link sep
fds=( /dev/fd/<0-9>(N:t) )
if zstyle -T ":completion:${curcontext}:" verbose && [[ -h /proc/$$/fd/$fds[1] ]]; then
zstyle -s ":completion:${curcontext}:" list-separator sep || sep=--
if zmodload -F zsh/stat b:zstat; then
for i in "${fds[@]}"; do
zstat +link -A link /proc/$$/fd/$i
list+=( "$i $sep ${link[1]}" )
done
elif (( $+commands[readlink] )); then
for i in "${fds[@]}"; list+=( "$i $sep $(readlink /proc/$$/fd/$i)" )
else
for i in "${fds[@]}"; do
list+=( "$i $sep $(ls -l /proc/$$/fd/$i|sed 's/.*-> //' )" )
done
fi
if (( $list[(I)* $sep ?*] )); then
_wanted file-descriptors expl 'file descriptor' compadd "$@" -d list -a - fds
return
fi
fi
_wanted file-descriptors expl 'file descriptor' compadd -a "$@" - fds
PK [6 4
functions/_mhnu W+A #compdef ali anno burst comp dist flist flists folder folders forw inc mark mhlist mhmail mhn mhparam mhpath mhshow mhstore msgchk next packf pick prev refile repl rmf rmm scan show sortm whom
if [[ -z $commands[mhpath] ]]; then
_message "MH commands are not available"
return 1
fi
# Completion for all possible MH commands.
local mymhdir=${$(_call_program mhpath mhpath + 2>/dev/null):-~/Mail}
local mhlib=/usr/lib/mh
local prev="$words[CURRENT-1]" expl
if compset -P 1 -; then
# get list of options, which MH commands can generate themselves
# awk is just too icky to use for this, sorry. send me one if
# you come up with it.
local -a options disp
options=(
$($words[1] -help | perl -ne 'if (/^\s*-\(?(\S+)/) {
$n = $1;
$n =~ s/\)//g;
print $n =~ s/^\[([a-z]+)\]// ? "$n\n$1$n\n" : "$n\n";
}')
)
if zstyle -t ":completion:${curcontext}:options" prefix-hidden; then
_wanted options expl option compadd -d disp - "$options[@]"
else
disp=( -${options} )
_wanted options expl option compadd -d disp - "$options[@]"
fi
return
elif compset -P 1 '[+@]' || [[ "$prev" = -draftfolder ]]; then
# Complete folder names.
local mhpath
if [[ $IPREFIX != '@' ]]; then
[[ $IPREFIX = '+' ]] || IPREFIX=+
mhpath=$mymhdir
else
mhpath=$(mhpath)
fi
_wanted files expl 'MH folder' _path_files -W mhpath -/
elif [[ "$prev" = -(editor|(whatnow|rmm|show|more)proc) ]]; then
_command_names -e
elif [[ "$prev" = -file ]]; then
_files
elif [[ "$prev" = -(form|audit|filter) ]]; then
# Need some MH template file, which may be in our own MH directory
# or with the standard library.
local mhfpath
# This is the only place we need mhlib, so leave the test till here.
mhlib=${${$(mhparam mhlproc 2>/dev/null):h}:-/usr/lib/mh}
mhfpath=($mymhdir $mhlib)
_wanted files expl 'MH template file' _files -W mhfpath -g '*(-.)'
elif [[ $service = mhmail ]]; then
_email_addresses
elif [[ "$prev" = -(no|)cc ]]; then
_wanted -C "$prev" values expl 'CC address' compadd all to cc me
elif [[ "$prev" = -[rw]cache ]]; then
_wanted -C "$prev" values expl cache compadd public private never ask
elif [[ "$prev" = -textfield ]]; then
_wanted -C "$prev" -x headers expl header compadd -M 'm:{a-zA-Z}={A-Za-z}' \
Subject From To cc
elif [[ "$prev" = -datefield ]]; then
_wanted -C "$prev" -x headers expl header compadd -M 'm:{a-zA-Z}={A-Za-z}' \
Delivery-Date
elif [[ $service = mhparam ]]; then
_wanted parameters expl 'MH parameter' compadd - \
${${(f)"$(mhparam -all)"}%%:*}
elif [[ $service = ali ]]; then
_email_addresses -n MH
elif compset -P '*:'; then
_message -e number 'number of messages'
else
# Generate sequences.
local foldnam folddir f sequences mhneg ret=1
compset -P '*-' # ignore start of message range
for f in $words; do
[[ $f = [@+]* ]] && foldnam=$f
done
if [[ $foldnam = '+'* ]]; then
folddir=$mymhdir/${foldnam#+}
elif [[ $foldnam = '@'* ]]; then
folddir=$(mhpath)/${foldnam#@}
else
folddir=$(mhpath)
# leaving foldnam empty works here
fi
sequences=( ${${(f)"$(mark $foldnam 2>/dev/null)"}%%:*} )
mhneg="$(mhparam Sequence-Negation)" && sequences=( {,$mhneg}$^sequences )
sequences+=( all first last prev next )
_tags sequences
while _tags; do
while _next_label sequences expl sequence; do
compadd -S ' ' -r '-: \t\n\-' "$expl[@]" -a sequences && ret=0
_path_files -S ' ' -r '-: \t\n\-' "$expl[@]" -W folddir -g '<->(-.)' &&
ret=0
done
(( ret )) || return 0
done
return ret
fi
PK [.
AC C functions/_gnupodnu W+A #compdef gnupod_addsong gnupod_addsong.pl=gnupod_addsong gnupod_check gnupod_check.pl=gnupod_check gnupod_INIT gnupod_INIT.pl=gnupod_INIT gnupod_search gnupod_search.pl=gnupod_search mktunes mktunes.pl=mktunes tunes2pod tunes2pod.pl=tunes2pod
local arguments
case "$service" in
(gnupod_addsong)
arguments=(
'(-h --help)'{-h,--help}'[display help and exit]'
--version'[output version information and exit]'
'(-m --mount)'{-m,--mount=}'[iPod mountpoint, default is $IPOD_MOUNTPOINT]:mount point:_files'
'(-r --restore)'{-r,--restore}'[restore the iPod (create a new GNUtunesDB from scratch)]'
'(-d --duplicate)'{-d,--duplicate}'[allow duplicate files]'
'(-p --playlist)'{-p,--playlist=}'[add songs to this playlist]:playlist:'
--playlist-is-podcast'[set podcast flag for playlist(s) created using --playlist]'
--podcast-artwork'[download and install artwork for podcasts from their channel]'
--podcast-cache-dir='[set a directory in which podcast media files will be cached]:podcast cache dir:'
--podcast-files-limit='[limit files to download (0 = all (default), -X = X oldest, X = X newest)]:podcast files limit:'.
--disable-v1'[do not read ID3v1 Tags (MP3 Only)]'
--disable-v2'[do not read ID3v2 Tags (MP3 Only)]'
'(-x --decode)'{-x,--decode=}'[convert FLAC Files to WAVE/MP3 or AAC on-the-fly]:encoding:(pcm mp3 aac aacbm)'
--decode=video'[convert .avi Files into iPod video on-the-fly]'
'(-e --reencode)'{-e,--reencode=}'[reencode MP3/AAC files with new quality on-the-fly]:quality number (0 = Good 9 = Bad):(1 2 3 4 5 6 7 8 9)'
'(-t --set-title)'{-t,--set-title=}'[set Title (Override ID3 Tag)]:title:'
'(-a --set-artist)'{-a,--set-artist=}'[set Artist (Override ID3 Tag)]:artist:'
'(-l --set-album)'{-l,--set-album=}'[set Album (Override ID3 Tag)]:album:'
'(-g --set-genre)'{-g,--set-genre=}'[set Genre (Override ID3 Tag)]:genre:'
--set-rating='[set Rating (0=-/20=*/40=**/60=***/80=****/100=*****)]:rating:(0 20 40 60 80 100)'
--set-playcount='[set Playcount]:play count:'
--set-songnum='[override Songnum/Tracknum field]:song number:'
'(-b --set-bookmarkable)'{-b,--set-bookmarkable}'[set this song as bookmarkable (= Remember position)]'
--set-shuffleskip'[exclude this file in shuffle-mode]'
--set-compilation'[mark songs as being part of a compilation]'
--min-vol-adj='[minimum volume adjustment allowed by ID3v2.4 RVA2 tag (range -100 to 100, default 0)]'
--max-vol-adj='[maximum volume adjustment allowed by ID3v2.4 RVA2 tag (range -100 to 100, default 0)]'
--artwork='[use FILE as album cover]:artwork:_files'
'*:file to add:_files'
)
;;
(gnupod_check)
arguments=(
'(-h --help)'{-h,--help}'[display help and exit]'
--version'[output version information and exit]'
'(-m --mount)'{-m,--mount=}'[iPod mountpoint (default is $IPOD_MOUNTPOINT)]:mount point:_files'
--fixit'[try to fixup some errors (may delete lost files)]'
)
;;
(gnupod_INIT)
arguments=(
'(-h --help)'{-h,--help}'[display help and exit]'
--version'[output version information and exit]'
'(-m --mount)'{-m,--mount=}'[iPod mountpoint (default is $IPOD_MOUNTPOINT)]:mount point:_files'
'(-d --disable-convert)'{-d,--disable-convert}'[do not try to convert an existing iTunesDB]'
'(-f --france)'{-f,--france}'[limit volume to 100dB, works only on very old iPods]'
--noask'[do not wait for any user input]'
)
;;
(gnupod_search)
arguments=(
--help'[display help and exit]'
--version'[display version information and exit]'
'(-m --mount)'{-m,--mount=}'[iPod mountpoint (default is $IPOD_MOUNTPOINT)]:mount point:_files'
'(-t --title)'{-t,--title=}'[search songs by title]:title string:'
'(-a --artist)'{-a,--artist=}'[search songs by artist]:artist string:'
'(-l --album)'{-l,--album=}'[search songs by album]:album string:'
'(-i --id)'{-i,--id=}'[search songs by ID]:ID integer:'
'(-g --genre)'{-g,--genre=}'[search songs by genre]:genre string:'
'(-c --playcount)'{-c,--playcount=}'[search songs by playcount]:playcount:'
'(-s --rating)'{-s,--rating=}'[search songs by Rating (20 is one star, 40 two, etc.)]:playcount:(0 20 40 60 80 100)'
'(-R --podcastrss)'{-R,--podcastrss=}'[search songs by RSS]:RSS:'
'(-G --podcastguid)'{-G,--podcastguid=}'[search songs by GUID]:GUID:'
'(-b --bitrate)'{-b,--bitrate=}'[search songs by Bitrate]:bitrate:'
'(-o --match-once)'{-o,--match-once}'[search does not need to match multiple times (eg. -a & -l)]'
--delete'[remove matched songs from the iPod]'
--view='[modify output (default is ialt, see --help)]:output string:'
--rename='[rename key into value for matched songs]:KEY=VALUE:'
--artwork='[use FILE as Cover for found files]:artwork:_files'
)
;;
(mktunes)
arguments=(
'(-h --help)'{-h,--help}'[display help and exit]'
--version'[output version information and exit]'
'(-m --mount)'{-m,--mount=}'[iPod mountpoint (default is $IPOD_MOUNTPOINT)]:mount point:_files'
'(-n --ipod-name)'{-n,--ipod-name=}'[iPod Name (For unlabeled iPods)]:name:'
'(-v --volume)'{-v,--volume=}'[adjust volume +-VALUE%]:volume percent:'
'(-e --energy)'{-e,--energy}'[save energy (disable scrolling title)]'
'(-g --fwguid)'{-g,--fwguid=}'[FirewireGuid / Serial of connected iPod]'
)
;;
(tunes2pod)
arguments=(
'(-h --help)'{-h,--help}'[display help and exit]'
--version'[output version information and exit]'
'(-m --mount)'{-m,--mount=}'[iPod mountpoint (default is $IPOD_MOUNTPOINT)]:mount point:_files'
--force'[disable sync checking]'
)
;;
(*)
return 1
;;
esac
_arguments : $arguments
PK [z.DI I functions/_domainsnu W+A #autoload
local expl domains tmp
if ! zstyle -a ":completion:${curcontext}:domains" domains domains; then
if (( ! $+_cache_domains )); then
_cache_domains=()
if [[ -f /etc/resolv.conf ]]; then
while read tmp; do
[[ "$tmp" = (domain|search)* ]] &&
_cache_domains=( "$_cache_domains[@]" "${=${tmp%%[ ]#}#*[ ]}" )
done < /etc/resolv.conf
_cache_domains=( "${(@)_cache_domains:#[ ]#}" )
fi
fi
domains=( "$_cache_domains[@]" )
fi
_wanted domains expl domain \
compadd -M 'm:{a-zA-Z}={A-Za-z} r:|.=* r:|=*' -a "$@" - domains
PK [Lܫ functions/_jobs_fgnu W+A #compdef disown fg
_jobs "$@"
PK [n2 functions/_putclipnu W+A #compdef putclip putclip.exe
# cygutils 1.3.2
_arguments -s -S \
'(--dos -d --unix -u --no-conv -n)'{-d,--dos}'[clipboard text will have DOS line endings]' \
'(--dos -d --unix -u --no-conv -n)'{-u,--unix}'[clipboard text will have UNIX line endings]' \
'(--dos -d --unix -u --no-conv -n)'{-n,--no-conv}'[do not translate line endings]' \
'(-)'{-\?,--help}'[display help information]' \
'(-)--usage[display brief usage message]' \
'(-)--version[display version information]' \
'(-)--license[display licensing information]'
PK [9C functions/_schednu W+A #compdef sched
local expl lines disp
if [[ CURRENT -eq 2 ]]; then
if compset -P -; then
lines=(${(f)"$(sched)"})
if zstyle -T ":completion:${curcontext}:jobs" verbose; then
disp=( -ld lines )
else
disp=()
fi
[[ -z $lines ]] || _wanted jobs expl 'scheduled jobs' \
compadd "$disp[@]" - {1..$#lines}
return
else
_message -e times 'time specification'
return 1
fi
fi
compset -n 3 && _normal
PK [@?z z functions/_dpkg-repacknu W+A #compdef dpkg-repack
_arguments \
'--root=[take package from filesystem rooted on ]:root dir:_files -/' \
'--arch=[force the package to be built for architecture ]:architecture:(alpha amd64 arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 sparc)' \
'--generate[generate build directory but do not build deb]' \
'*:package:_deb_packages xinstalled'
PK [{ functions/_globqual_delimsnu W+A #autoload
# Helper for _globquals. Sets delim to delimiter to match.
# don't restore special parameters
compstate[restore]=no
delim=$PREFIX[1]
compset -p 1
# One of matching brackets?
# These don't actually work: the parser gets very confused.
local matchl="<({[" matchr=">)}]"
integer ind=${matchl[(I)$delim]}
(( ind )) && delim=$matchr[ind]
if compset -P "[^$delim]#$delim"; then
# Completely matched.
return 0
else
# Still in delimiter
return 1
fi
PK [1 functions/zcalcnu W+A #!/bin/zsh -i
#
# Zsh calculator. Understands most ordinary arithmetic expressions.
# Line editing and history are available. A blank line or `q' quits.
#
# Runs as a script or a function. If used as a function, the history
# is remembered for reuse in a later call (and also currently in the
# shell's own history). There are various problems using this as a
# script, so a function is recommended.
#
# The prompt shows a number for the current line. The corresponding
# result can be referred to with $, e.g.
# 1> 32 + 10
# 42
# 2> $1 ** 2
# 1764
# The set of remembered numbers is primed with anything given on the
# command line. For example,
# zcalc '2 * 16'
# 1> 32 # printed by function
# 2> $1 + 2 # typed by user
# 34
# 3>
# Here, 32 is stored as $1. This works in the obvious way for any
# number of arguments.
#
# If the mathfunc library is available, probably understands most system
# mathematical functions. The left parenthesis must be adjacent to the
# end of the function name, to distinguish from shell parameters
# (translation: to prevent the maintainers from having to write proper
# lookahead parsing). For example,
# 1> sqrt(2)
# 1.4142135623730951
# is right, but `sqrt (2)' will give you an error.
#
# You can do things with parameters like
# 1> pi = 4.0 * atan(1)
# too. These go into global parameters, so be careful. You can declare
# local variables, however:
# 1> local pi
# but note this can't appear on the same line as a calculation. Don't
# use the variables listed in the `local' and `integer' lines below
# (translation: I can't be bothered to provide a sandbox).
#
# You can declare or delete math functions (implemented via zmathfuncdef):
# 1> function cube $1 * $1 * $1
# This has a single compulsory argument. Note the function takes care of
# the punctuation. To delete the function, put nothing (at all) after
# the function name:
# 1> function cube
#
# Some constants are already available: (case sensitive as always):
# PI pi, i.e. 3.1415926545897931
# E e, i.e. 2.7182818284590455
#
# You can also change the output base.
# 1> [#16]
# 1>
# Changes the default output to hexadecimal with numbers preceded by `16#'.
# Note the line isn't remembered.
# 2> [##16]
# 2>
# Change the default output base to hexadecimal with no prefix.
# 3> [#]
# Reset the default output base.
#
# This is based on the builtin feature that you can change the output base
# of a given expression. For example,
# 1> [##16] 32 + 20 / 2
# 2A
# 2>
# prints the result of the calculation in hexadecimal.
#
# You can't change the default input base, but the shell allows any small
# integer as a base:
# 1> 2#1111
# 15
# 2> [##13] 13#6 * 13#9
# 42
# and the standard C-like notation with a leading 0x for hexadecimal is
# also understood. However, leading 0 for octal is not understood --- it's
# too confusing in a calculator. Use 8#777 etc.
#
# Options: -# is the same as a line containing just `[#],
# similarly -##; they set the default output base, with and without
# a base discriminator in front, respectively.
#
#
# To do:
# - separate zcalc history from shell history using arrays --- or allow
# zsh to switch internally to and from array-based history.
emulate -L zsh
setopt extendedglob
# TODO: make local variables that shouldn't be visible in expressions
# begin with _.
local line ans base defbase forms match mbegin mend psvar optlist opt arg
local compcontext="-zcalc-line-"
integer num outdigits outform=1
# We use our own history file with an automatic pop on exit.
history -ap "${ZDOTDIR:-$HOME}/.zcalc_history"
forms=( '%2$g' '%.*g' '%.*f' '%.*E' '')
zmodload -i zsh/mathfunc 2>/dev/null
autoload -Uz zmathfuncdef
: ${ZCALCPROMPT="%1v> "}
# Supply some constants.
float PI E
(( PI = 4 * atan(1), E = exp(1) ))
# Process command line
while [[ -n $1 && $1 = -(|[#-]*) ]]; do
optlist=${1[2,-1]}
shift
[[ $optlist = (|-) ]] && break
while [[ -n $optlist ]]; do
opt=${optlist[1]}
optlist=${optlist[2,-1]}
case $opt in
('#') # Default base
if [[ -n $optlist ]]; then
arg=$optlist
optlist=
elif [[ -n $1 ]]; then
arg=$1
shift
else
print "-# requires an argument" >&2
return 1
fi
if [[ $arg != (|\#)[[:digit:]]## ]]; then
print - "-# requires a decimal number as an argument" >&2
return 1
fi
defbase="[#${arg}]"
;;
esac
done
done
for (( num = 1; num <= $#; num++ )); do
# Make sure all arguments have been evaluated.
# The `$' before the second argv forces string rather than numeric
# substitution.
(( argv[$num] = $argv[$num] ))
print "$num> $argv[$num]"
done
psvar[1]=$num
while vared -cehp "${ZCALCPROMPT}" line; do
[[ -z $line ]] && break
# special cases
# Set default base if `[#16]' or `[##16]' etc. on its own.
# Unset it if `[#]' or `[##]'.
if [[ $line = (#b)[[:blank:]]#('[#'(\#|)(<->|)']')[[:blank:]]#(*) ]]; then
if [[ -z $match[4] ]]; then
if [[ -z $match[3] ]]; then
defbase=
else
defbase=$match[1]
fi
print -s -- $line
line=
continue
else
base=$match[1]
fi
else
base=$defbase
fi
print -s -- $line
line="${${line##[[:blank:]]#}%%[[:blank:]]#}"
case "$line" in
# Escapes begin with a colon
(:(\\|)\!*)
# shell escape: handle completion's habit of quoting the !
eval ${line##:(\\|)\![[:blank:]]#}
line=
continue
;;
((:|)q)
# Exit
return 0
;;
((:|)norm) # restore output format to default
outform=1
;;
((:|)sci[[:blank:]]#(#b)(<->)(#B))
outdigits=$match[1]
outform=2
;;
((:|)fix[[:blank:]]#(#b)(<->)(#B))
outdigits=$match[1]
outform=3
;;
((:|)eng[[:blank:]]#(#b)(<->)(#B))
outdigits=$match[1]
outform=4
;;
(:raw)
outform=5
;;
((:|)local([[:blank:]]##*|))
eval $line
line=
continue
;;
((:|)function[[:blank:]]##(#b)([^[:blank:]]##)(|[[:blank:]]##([^[:blank:]]*)))
zmathfuncdef $match[1] $match[3]
line=
continue
;;
(:*)
print "Unrecognised escape"
line=
continue
;;
(*)
# Latest value is stored as a string, because it might be floating
# point or integer --- we don't know till after the evaluation, and
# arrays always store scalars anyway.
#
# Since it's a string, we'd better make sure we know which
# base it's in, so don't change that until we actually print it.
eval "ans=\$(( $line ))"
# on error $ans is not set; let user re-edit line
[[ -n $ans ]] || continue
argv[num++]=$ans
psvar[1]=$num
;;
esac
if [[ -n $base ]]; then
print -- $(( $base $ans ))
elif [[ $ans = *.* ]] || (( outdigits )); then
if [[ -z $forms[outform] ]]; then
print -- $(( $ans ))
else
printf "$forms[outform]\n" $outdigits $ans
fi
else
printf "%d\n" $ans
fi
line=
done
return 0
PK [o6< < functions/_zfsnu W+A #compdef zfs
_zfs() {
local context state line expl
typeset -A opt_args
local -a subcmds rw_properties rw_propnames ro_properties
subcmds=(
"create" "destroy" "clone" "promote" "rename" "snapshot"
"rollback" "list" "set" "get" "inherit" "mount" "unmount"
"share" "unshare" "send" "receive" "allow" "unallow"
"upgrade"
)
ro_properties=(
"name" "type" "creation" "used" "available" "referenced"
"compressratio" "mounted" "origin"
)
# TODO: Be cleverer about what values can be set. Is there any way to
# set the sorting for *size properties to false by default?
rw_properties=(
"aclinherit:value:(discard noallow secure passthrough)"
"aclmode:value:(discard groupmask passthrough)"
"atime:value:(on off)"
"canmount:value:(on off)"
"checksum:value:(on off fletcher2 fletcher4 sha256)"
"compression:value:(on off lzjb gzip gzip-{1..9})"
"copies:value:(1 2 3)"
"devices:value:(on off)"
"exec:value:(on off)"
"mountpoint:value:{if [[ -prefix /* ]]; then _path_files -/; else _wanted mountpoints expl 'mountpoint (type \"/\" to start completing paths)' compadd legacy none; fi}"
"quota:number or 'none':{if [[ -prefix [0-9]## ]]; then _message -e 'number'; elif [[ $PREFIX == quota= ]]; then _wanted none expl 'number or none' compadd none; else _wanted none expl 'quota' compadd none; fi}"
"readonly:value:(on off)"
"recordsize:value:(512 1K 2K 4K 8K 16K 32K 64K 128K)"
"reservation:value:" # , "none"
"setuid:value:(on off)"
"shareiscsi:value:(on off)" # or "type="
"sharenfs:value:(on off)" # or share(1M) options
"snapdir:value:(hidden visible)"
"version:value:(1 2 current)"
"volblocksize:value:(512 1K 2K 4K 8K 16K 32K 64K 128K)"
"volsize:value:" #
"xattr:value:(on off)"
"zoned:value:(on off)"
)
rw_propnames=( ${rw_properties%%:*} )
if [[ $service == "zfs" ]]; then
_arguments -C -A "-*" \
'-\?[help]' \
'*::command:->subcmd' && return 0
if (( CURRENT == 1 )); then
_wanted commands expl "zfs subcommand" compadd -a subcmds
return
fi
service="$words[1]"
curcontext="${curcontext%:*}=$service:"
fi
case $service in
("create")
_arguments -A "-*" \
'-p[create parent datasets]' \
'-o[set initial properties]:property:_values -s , "property" $rw_properties' \
- set1 \
':filesystem:' \
- set2 \
'-s[create sparse volume]' \
'-b[set volblocksize]:blocksize:' \
'-V[set size]:size:' \
':volume:'
;;
("destroy")
_arguments -A "-*" \
'-r[recursively destroy all children]' \
'-R[recursively destroy all dependents]' \
'-f[force unmounts]' \
':filesystem/volume/snapshot:_zfs_dataset'
;;
("snapshot")
_arguments -A "-*" \
'-r[recursively snapshot all descendant datasets]' \
':filesystem/volume:_zfs_dataset -t fs -t vol -S@'
;;
("rollback")
_arguments -A "-*" \
'-r[recursively destroy more recent snapshots]' \
'-R[recursively destroy more recent snapshots and clones]' \
'-f[force unmounts]' \
':snapshot:_zfs_dataset -t snap'
;;
("clone")
# XXX needs to bail if there are no snapshots
_arguments -A "-*" \
'-p[create parent datasets]' \
':snapshot:_zfs_dataset -t snap' \
':filesystem/volume:'
;;
("promote")
# XXX complete only cloned filesystems
_arguments \
':filesystem:_zfs_dataset -t fs' \
;;
("rename")
_arguments -A "-*" \
- set1 \
'-p[create parent datasets]' \
':filesystem/volume/snapshot:_zfs_dataset' \
':filesystem/volume/snapshot:' \
- set2 \
'-r[recursively rename snapshots of all descendent datasets]' \
':snapshot:_zfs_dataset -t snap' \
':snapshot:'
;;
("list")
_arguments -A "-*" \
'-r[recursively display children]' \
'-H[scripting mode]' \
'-o[properties to list]:property:_values -s , "property" $ro_properties $rw_propnames' \
'*-s[sort key (ascending)]:property:_values "property" $ro_properties $rw_propnames' \
'*-S[sort key (descending)]:property:_values "property" $ro_properties $rw_propnames' \
'-t[dataset types to list]:dataset type:_values -s , "dataset type" filesystem snapshot volume' \
'*:filesystem/volume/snapshot:_zfs_dataset'
;;
("set")
_arguments \
':property:_values -s , "property" $rw_properties' \
'*:filesystem/volume:_zfs_dataset -t fs -t vol'
;;
("get")
_arguments -A "-*" \
"-r[recursively display children's properties]" \
'-H[scripting mode]' \
'-p[display numbers exactly]' \
'-s[specify sources]:source:_values -s , "source" local default inherited temporary none' \
'-o[specify fields]:field:_values -s , "field" name property value source' \
':property:_values -s , "property" $ro_properties $rw_propnames all' \
'*:filesystem/volume/snapshot:_zfs_dataset'
;;
("inherit")
_arguments -A "-*" \
'-r[recursively inherit property for all children]' \
':property:_values -s , "property" $ro_properties $rw_properties' \
'*:filesystem/volume:_zfs_dataset -t fs -t vol'
;;
("mount")
_arguments -A "-*" \
'-o[mount options]:mount options:_values -s , "option" {,no}{devices,exec,setuid} ro rw' \
'-O[overlay mount]' \
'-v[report mount progress]' \
- set1 \
':filesystem:_zfs_dataset -t fs' \
- set2 \
'-a[mount all available ZFS filesystems]'
;;
("unmount")
_arguments -A "-*" \
- set1 \
'-f[force unmount]' \
':filesystem:_zfs_dataset -t fs -t mtpt' \
- set2 \
'-a[unmount all ZFS filesystems]'
;;
("share")
_arguments -A "-*" \
- set1 \
'-a[share all available ZFS filesystems]' \
- set2 \
':filesystem:_zfs_dataset -t fs'
;;
("unshare")
_arguments -A "-*" \
- set1 \
'-a[unshare all shared ZFS filesystems]' \
- set2 \
'-F[force unshare]' \
':filesystem:_zfs_dataset -t fs -t mtpt'
;;
("send")
_arguments -A "-*" \
'-i[generate an incremental stream]:snapshot:_zfs_dataset -t snap' \
':snapshot:_zfs_dataset -t snap'
;;
("receive")
_arguments -A "-*" \
'-v[verbose]' \
'-n[do not receive the stream]' \
'-F[force a rollback if necessary]' \
- set1 \
':filesystem/volume/snapshot:_zfs_dataset' \
- set2 \
'-d[set path prefix]:filesystem:_zfs_dataset -t fs'
;;
("allow"|"unallow")
_message "unimplemented zfs subcommand: $service"
;;
("upgrade")
_arguments -A "-*" \
- set1 \
'-v[verbose]' \
- set2 \
'-a[upgrade all filesystems on all pools]' \
'-r[upgrade descendent filesystems, too]' \
'-V[upgrade to specified version]:version:(1 2)' \
- set3 \
'-r[upgrade descendent filesystems, too]' \
'-V[upgrade to specified version]:version:(1 2)' \
':filesystem:_zfs_dataset -t fs' \
;;
(*)
_message "unknown zfs subcommand: $service"
;;
esac
}
_zfs "$@"
PK [a.r r functions/_fetchnu W+A #compdef fetch
# Deprecated arguments are removed from the completion
_arguments -s \
'-1[stop and return exit code 0 at the first successfully retrieved file]' \
'-4[forces fetch to use IPv4 addresses only]' \
'-6[forces fetch to use IPv6 addresses only]' \
'-A[do not automatically follow "temporary" (302) redirects]' \
'-a[automatically retry the transfer upon soft failures]' \
'-B[specify the read buffer size in bytes]:bytes:' \
'-d[use a direct connection even if a proxy is configured]' \
'-F[in combination with the -r flag, forces a restart]' \
'-l[if the target is a file-scheme URL, make a symbolic link to the target]' \
'-M' \
'-m[mirror mode]' \
'-N[use file instead of ~/.netrc to look up login names and pass- words for FTP sites]' \
'-n[do not preserve the modification time]' \
'-o[set the output file name]:file:_files' \
'-P' \
'-p[use passive FTP]' \
'-q[quiet mode]' \
'-R[do not delete the output file in any circumstances]' \
'-r[restart a previously interrupted transfer]' \
'-S[require the file size reported by the server to match the specified value]' \
'-s[print the size in bytes, without fetching it]' \
'-T[set timeout value]:seconds:' \
'-U[when using passive FTP, allocate the port for the data connection from the low port range]' \
'-v[increase verbosity level]' \
'-w[wait successive retries]:seconds:' \
'*:URL to fetch:_urls'
PK [:8 8 functions/run-help-sudonu W+A
if [ $# -eq 0 ]; then
man sudo
else
man $1
fi
PK [Ũm functions/_csshnu W+A #compdef cssh crsh
_arguments \
'-h[help]' \
'-H[show man page]' \
'-v[show version]' \
'-d[enable basic debugging mode]' \
'-D[enable extended debugging mode]' \
'-q[enable automatic quit after last window is closed]' \
'-Q[disable automatic quit after last window is closed]' \
'-u[output configuration]' \
'-g[enable window tiling]' \
'-G[disable window tiling]' \
'-c[use additional cluster file]:cluster file:_files' \
'-l:username:_users' \
'-T:window title prefix:' \
'-o:arguments to ssh or rsh:' \
'-t:arguments to terminals:' \
'-i[ignore errors from unresolvable hostnames]' \
'-e[evaluate arguments to identify potential errors]:userhostport:_user_at_host' \
'*:userhostport: _alternative hosts:host:_hosts usersathosts:userathost:_user_at_host'
PK [v
functions/_mtnu W+A #compdef mt
local -a args cmds
local state line curcontext="$curcontext" ret=1
args=( '(-)-f[specify raw tape device]:tape device:_files' )
cmds=(
{eof,weof}':write specified number of EOF marks at current position'
'fsf:forward space by specified number of files'
'fsr:forward space by specified number of records'
'bsf:backward space by specified number of files'
'bsr:backward space by specified number of records'
'asf:absolute space to specified file number'
'eom:go to end of recorded media on the tape'
'rewind:rewind the tape'
{offline,rewoffl}':rewind and unload the tape'
'status:print status information about the tape unit'
'retension:rewind, wind to end of reel, rewind again - smoothes tape tension'
'erase:erase the tape'
)
if _pick_variant gnu=GNU unix --version; then
args=(
'(1 2 -)'{-V,--version}'[print version info]'
'(1 2 -)--help[display usage info]'
'(-V --version --help -f --file)'{-f,--file=}'[specify raw tape device]:tape device:_files'
'(-V --version --help)--rsh-command=[specify remote shell command]:rsh command:_command_names -e'
)
# should really allow remote user@host for tape device
cmds+=(
'bsfm:backward space by specified number of file marks'
'fsfm:forward space by specified number of file marks'
'fss:forward space by specified number of setmarks'
'bss:backward space by specified number of setmarks'
'wset:write specified number of setmarks at current position'
{eod,seod}':space to end of valid data'
'setblk:set drive block size'
'setdensity:set tape density code'
'drvbuffer:set drive buffer code'
'stoptions:set driver option bits'
'stwrthreshold:set device write threshold'
'seek:seek to specified block'
'tell:tell the current block on tape'
'densities:explain some common density codes'
'datcompression:enquire or set compression status'
)
elif [[ $OSTYPE = (freebsd|dragonfly)* ]]; then
cmds=( ${cmds:#(asf|eof):*}
'smk:write specified number of setmarks at current position'
'fss:forward space by specified number of setmarks'
'bss:backward space by specified number of setmarks'
'rdhpos:read hardware block position'
'rdspos:read SCSI logical block position'
'sethpos:set hardware block position'
'setspos:set SCSI logical block position'
'errstat:print error status info about device'
'blocksize:set drive block size'
'density:set tape density code'
'geteotmodel:print the current EOT filemark model'
'seteotmodel:set the current EOT filemark model'
'eod:go to end of recorded media on the tape'
'comp:set compression mode'
)
elif [[ $OSTYPE = solaris* ]]; then
cmds+=(
'nbsf:back space by specified number of files positioning at file start'
'reserve:allow drive to remain reserved after close until explicit release'
'release:re-establish release at close behaviour'
)
if (( ! EUID )); then
cmds+=( 'forcereserve:break reservation of tape drive held by other host' )
fi
fi
_arguments -C "$args[@]" '(--help --version -V)1:operation:->operation' \
'2:count:' && ret=0
[[ -n "$state" ]] && _describe -t operations 'operation' cmds && ret=0
return ret
PK [y- - functions/_my_accountsnu W+A #autoload
_user_at_host -t my-accounts "$@"
PK [Z7 7 functions/VCS_INFO_hooknu W+A ### vim:ft=zsh:foldmethod=marker
## Written by Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
local hook func
local -x context hook_name
local -xi ret
local -a hooks
local -i debug
ret=0
hook_name="$1"
shift
context=":vcs_info:${vcs}+${hook_name}:${usercontext}:${rrn}"
zstyle -t "${context}" debug && debug=1 || debug=0
if (( debug )); then
printf 'VCS_INFO_hook: running hook: "%s"\n' "${hook_name}"
printf 'VCS_INFO_hook: current context: "%s"\n' "${context}"
fi
zstyle -a "${context}" hooks hooks || return 0
# Protect some internal variables in hooks. The `-g' parameter to
# typeset does *not* make the parameters global here (they are already
# "*-local-export). It prevents typeset from creating *new* *local*
# parameters in this function's scope.
typeset -g -r vcs rrn usercontext maxexports msgs vcs_comm
for hook in ${hooks} ; do
func="+vi-${hook}"
if (( ${+functions[$func]} == 0 )); then
(( debug )) && printf ' + Unknown function: "%s"\n' "${func}"
continue
fi
(( debug )) && printf ' + Running function: "%s"\n' "${func}"
true
${func} "$@"
case $? in
(0)
;;
(*)
break
;;
esac
done
typeset -g +r vcs rrn usercontext maxexports msgs vcs_comm
return $ret
PK [z _ _ functions/_toiletnu W+A #compdef toilet
local fontdir
typeset -A opt_args
fontdir=$(_call_program path toilet -I2 2>/dev/null)
_arguments \
'(-f --font)'{-f,--font}'[specify font]:font:_files -W ${~opt_args[-d]\:-$fontdir} -g \*tlf\*\(-.\:r\)' \
'(-d --directory)'{-d,--directory}'[specify font directory]:font directory:_files -/' \
'(-t --termwidth -w --width)'{-w,--width}'[set output width]:width:' \
'(-t --termwidth -w --width)'{-t,--termwidth}'[adapt to terminal width]' \
'(-F --filter)'{-F,--filter}'[apply filter to text]:filter:(gay metal)' \
'--gay[rainbow filter]' \
'--metal[metal filter]' \
'--irc[output IRC color codes]' \
'--html[output HTML document]' \
'--tga[output TGA document]' \
'(-h --help)'{-h,--help}'[help]' \
'(-I --infocode)'{-I,--infocode}'[print FIGlet-compatible infocode]:code:' \
'(-v --version)'{-v,--version}'[version]'
PK [ܻ functions/_stgitnu W+A #compdef stg
typeset -a subcmds
subcmds=( ${${${(M)${(f)"$(stg help 2> /dev/null)"}## *}# }/#(#b)([^[:space:]]##)[[:space:]]##(*)/$match[1]:$match[2]} )
local curcontext="$curcontext"
local subcmd
local ret=1
if (( CURRENT == 2 )); then
_describe -t commands 'stgit command' subcmds && ret=0
else
shift words
(( CURRENT-- ))
subcmd="$words[1]"
curcontext="${curcontext%:*}-${subcmd}:"
case $subcmd in
(push)
_wanted -V "unapplied patches" expl "patch" \
compadd ${${(M)${(f)"$(stg series 2> /dev/null)"}##- *}#- } \
&& ret=0
;;
(pop)
_wanted -V "applied patches" expl "patch" \
compadd ${${(M)${(f)"$(stg series 2> /dev/null)"}##[+>] *}#[+>] } \
&& ret=0
;;
(edit|files|goto|rename|log|float|delete|sink|mail|sync|show|pick|hide)
_wanted -V "patches" expl "patch" \
compadd $(stg series --noprefix > /dev/null) \
&& ret=0
;;
(*)
_files
;;
esac
fi
return ret
PK [ZE, , functions/_gccnu W+A #compdef gcc g++ -value-,LDFLAGS,-default- -value-,CFLAGS,-default- -value-,CPPFLAGS,-default-
local curcontext="$curcontext" state line ret=1 expl args args2
typeset -A opt_args
if [[ "$service" = -value-* ]]; then
compset -q
words=( fake "$words[@]" )
(( CURRENT++ ))
if [[ "$service" = *LDFLAGS ]]; then
args2=( '-R:runtime path:->rundir' )
else
args2=()
fi
else
args2=( '*:input file:_files -g "*.([cCmisSoak]|cc|cxx|ii|k[ih])(-.)"' )
fi
args=()
case $MACHTYPE in
m68*)
args=(
-m68000 -m68020 -m68020-40 -m68030 -m68040 -m68881
-mbitfield -mc68000 -mc68020 -mfpa -mnobitfield
-mrtd -mshort -msoft-float
)
;;
vax)
args=(
-mg -mgnu -munix
)
;;
c[1234]*)
args=(
-mc1 -mc2 -mc32 -mc34 -mc38
-margcount -mnoargcount
-mlong32 -mlong64
-mvolatile-cache -mvolatile-nocache
)
;;
amd290?0)
args=(
-m29000 -m29050 -mbw -mnbw -mdw -mndw
-mlarge -mnormal -msmall
-mkernel-registers -mno-reuse-arg-regs
-mno-stack-check -mno-storem-bug
-mreuse-arg-regs -msoft-float -mstack-check
-mstorem-bug -muser-registers
)
;;
arm)
args=(
-mapcs -m2 -m3 -m6 -mbsd -mxopen -mno-symrename
)
;;
m88k)
args=(
-m88000 -m88100 -m88110 -mbig-pic
-mcheck-zero-division -mhandle-large-shift
-midentify-revision -mno-check-zero-division
-mno-ocs-debug-info -mno-ocs-frame-position
-mno-optimize-arg-area -mno-serialize-volatile
-mno-underscores -mocs-debug-info
-mocs-frame-position -moptimize-arg-area
-mserialize-volatile -msvr3
-msvr4 -mtrap-large-shift -muse-div-instruction
-mversion-03.00 -mwarn-passed-structs
'-mshort-data--:maximum displacement:'
)
;;
rs6000|powerpc*)
args=(
'-mcpu=:CPU type:(rios1 rios2 rsc 501 603 604 power powerpc 403 common)'
-mpower -mno-power -mpower2 -mno-power2
-mpowerpc -mno-powerpc
-mpowerpc-gpopt -mno-powerpc-gpopt
-mpowerpc-gfxopt -mno-powerpc-gfxopt
-mnew-mnemonics -mno-new-mnemonics
-mfull-toc -mminimal-toc -mno-fop-in-toc -mno-sum-in-toc
-msoft-float -mhard-float -mmultiple -mno-multiple
-mstring -mno-string -mbit-align -mno-bit-align
-mstrict-align -mno-strict-align -mrelocatable -mno-relocatable
-mtoc -mno-toc -mtraceback -mno-traceback
-mlittle -mlittle-endian -mbig -mbig-endian
-mcall-aix -mcall-sysv -mprototype
)
;;
romp)
args=(
-mcall-lib-mul -mfp-arg-in-fpregs -mfp-arg-in-gregs
-mfull-fp-blocks -mhc-struct-return -min-line-mul
-mminimum-fp-blocks -mnohc-struct-return
)
;;
mips*)
args=(
'-mcpu=:CPU type:(r2000 r3000 r4000 r4400 r4600 r6000_'
-mabicalls -membedded-data
-membedded-pic -mfp32 -mfp64 -mgas -mgp32 -mgp64
-mgpopt -mhalf-pic -mhard-float -mint64 -mips1
-mips2 -mips3 -mlong64 -mlong-calls -mmemcpy
-mmips-as -mmips-tfile -mno-abicalls
-mno-embedded-data -mno-embedded-pic
-mno-gpopt -mno-long-calls
-mno-memcpy -mno-mips-tfile -mno-rnames -mno-stats
-mrnames -msoft-float
-m4650 -msingle-float -mmad
-mstats -EL -EB -nocpp
'-G:maximum size for small section objects:'
)
;;
i[3456]86|x86_64)
args=(
'-mtune=:CPU type:(i386 i486 i586 pentium pentium-mmx i686 pentiumpro pentium2 pentium3 pentium3m pentium-m pentium4 pentium4m prescott nocona k6 k6-2 k6-3 athlon athlon-tbird athlon-4 athlon-xp athlon-mp k8 opteron athlon64 athlon-fx winchip-c6 winchip2 c3 c3-2)'
'-march=:CPU type:(i386 i486 i586 pentium pentium-mmx i686 pentiumpro pentium2 pentium3 pentium3m pentium-m pentium4 pentium4m prescott nocona k6 k6-2 k6-3 athlon athlon-tbird athlon-4 athlon-xp athlon-mp k8 opteron athlon64 athlon-fx winchip-c6 winchip2 c3 c3-2)'
'-mfpmath=:FPU type:(387 sse sse,387)'
'-masm=:asm dialect:(att intel)'
-mieee-fp -mno-ieee-fp -msoft-float
-mno-fp-ret-in-387 -mno-fancy-math-387
-malign-double -mno-align-double
-m128bit-long-double -m96bit-long-double
-msvr3-shlib -mno-svr3-shlib
-mrtd
'-mregparm=:number of integer argument registers:'
'-mpreferred-stack-boundary=:size of boundary:'
-mmmx -msse -msse2 -msse3 -m3dnow
-mno-mmx -mno-sse -mno-sse2 -mno-sse3 -mno-3dnow
-mpush-args -mno-push-args -maccumulate-outgoing-args
-mthreads
-mno-align-stringops -minline-all-stringops
-momit-leaf-frame-pointer
-mtls-direct-seg-refs -mno-tls-direct-seg-refs
-m32 -m64
-mno-red-zone
'-mcmodel=:memory model:(small kernel medium large)'
-mno-wide-multiply
'-mreg-alloc=:default register allocation order:'
'-malign-jumps=: **2 base for jump goal alignment:'
'-malign-loops=: **2 base for loop alignment:'
'-malign-functions=: **2 base for function alignment:'
)
;;
hppa*)
args=(
-mdisable-fpregs -mdisable-indexing -mfast-indirect-calls
-mgas -mjump-in-delay -mlong-millicode-calls -mno-disable-fpregs
-mno-disable-indexing -mno-fast-indirect-calls -mno-gas
-mno-jump-in-delay -mno-millicode-long-calls
-mno-portable-runtime -mno-soft-float -msoft-float
-mpa-risc-1-0 -mpa-risc-1-1 -mportable-runtime
'-mschedule=:code scheduling constraints:(700 7100 7100LC)'
)
;;
i960)
args=(
-m{ka,kb,mc,ca,cf,sa,sb}
-masm-compat -mclean-linkage
-mcode-align -mcomplex-addr -mleaf-procedures
-mic-compat -mic2.0-compat -mic3.0-compat
-mintel-asm -mno-clean-linkage -mno-code-align
-mno-complex-addr -mno-leaf-procedures
-mno-old-align -mno-strict-align -mno-tail-call
-mnumerics -mold-align -msoft-float -mstrict-align
-mtail-call
)
;;
sparc)
args=(
-mapp-regs -mno-app-regs
-mfpu -mhard-float
-mno-fpu -msoft-float
-mhard-quad-float
-msoft-quad-float
-mno-unaligned-doubles
-munaligned-doubles
-mfaster-structs -mno-faster-structs
-mimpure-text
'-mcpu=:CPU type:(v7 cypress v8 supersparc sparclite f930 f934 hypersparc sparclite86x sparclet tsc701 v9 ultrasparc ultrasparc3)'
'-mtune=:CPU type:(cypress supersparc hypersparc f930 f934 sparclite86x tsc701 ultrasparc ultrasparc3)'
-mv8plus -mno-v8plus
-mvis -mno-vis
-mlittle-endian
-m32 -m64
'-mcmodel=:memory model:(medlow medmid medany embmedany)'
-mstack-bias -mno-stack-bias
-mv8
-mcypress -mepilogue -mflat
-mno-flat
-mno-epilogue
-msparclite -msupersparc
-mmedlow -mmedany
-mint32 -mint64 -mlong32 -mlong64
)
;;
alpha*)
args=(
-mfp-regs -mno-fp-regs -mno-soft-float
-msoft-float
)
;;
clipper)
args=(
-mc300 -mc400
)
;;
h8/300)
args=(
-mrelax -mh
)
;;
esac
_arguments -C -M 'L:|-{fW}no-=-{fW} r:|[_-]=* r:|=*' \
"$args[@]" \
-c -S -E -v -a -w -C -H -P -s '(-pg)-p' '(-p)-pg' \
'-o:output file:_files -g "^*.(c|h|cc|C|cxx)(-.)"' \
'-x:input file language:(c objective-c c++ c-header cpp-output c++-cpp-output assembler assembler-with-cpp none)' \
'+e-:virtual function definitions in classes:((0\:only\ interface 1\:generate\ code))' \
'-d-:dump:->dump' \
'-g-::debugging information type:(gdb coff stabs stabs+ dwarf dwarf+ xcoff xcoff+)' \
'-O-::optimization level:(0 1 2 3)' \
'*-M-::output dependencies:((M\:only\ user\ header\ files MD\:output\ to\ file G\:treat\ missing\ header\ files\ as\ generated))' \
'*-A-:define assertion:' \
'*-D-:define macro:' \
'*-U-:undefine macro:' \
'*-Wp,-:preprocessor option:' \
'*-Wl,-:linker option:' \
'*-Xlinker:linker option:' \
'*-u:pretend symbol to be undefined:' \
'*-Wa,-:assembler option:' \
'*-l:library:->library' \
'*-L-:library search path:_files -/' \
'*-I-:header file search path:_files -/' \
'-B-:executable prefix:_files -/' \
'-b:target machine:' \
'-V:gcc version:' \
'-print-file-name=:library:->library' \
'-print-prog-name=:program:' \
'*-include:include file:_files -g \*.h\(-.\)' \
'*-imacros:macro input file:_files -g \*.h\(-.\)' \
'*-idirafter:second include path directory:_files -/' \
'*-iprefix:prefix:_files' \
'*-iwithprefix:second include path directory:_files -/' \
'*-iwithprefixbefore:main include path directory:_files -/' \
'*-isystem:second include path directory (system):_files -/' \
-nostdinc -trigraphs -undef -pipe -ansi \
-fallow-single-precision -fcond-mismatch -fasm \
-fbuiltin -fsigned-bitfields -fsigned-char \
-funsigned-bitfields -funsigned-char -fwritable-strings \
-traditional -traditional-cpp -trigraphs \
-fall-virtual -fdollars-in-identifiers -felide-constructors \
-fenum-int-equiv -fexternal-templates -ffor-scope \
-fhandle-signatures -fmemoize-lookups -fdefault-inline -fgnu-keywords \
-fnonnull-objects -foperator-names -fstrict-prototype \
-fthis-is-variable -nostdinc++ -traditional \
-fsyntax-only -pedantic -pedantic-errors \
-Wall -Waggregate-return -Wbad-function-cast \
-Wcast-align -Wcast-qual -Wchar-subscript -Wcomment \
-Wconversion -Wenum-clash -Werror -Wformat \
'-Wid-clash--:minimum identifier difference length:' \
-Wimplicit -Wimport -Winline \
'-Wlarger-than--:maximum object length:' \
-Wmissing-declarations \
-Wmissing-prototypes -Wnested-externs \
-Wimport -Woverloaded-virtual -Wparentheses \
-Wpointer-arith -Wredundant-decls -Wreorder -Wreturn-type -Wshadow \
-Wstrict-prototypes -Wswitch -Wsynth -Wtemplate-debugging \
-Wtraditional -Wtrigraphs -Wuninitialized -Wunused \
-Wwrite-strings \
-fpretend-float \
-print-libgcc-file-name \
-print-search-dirs -save-temps \
-fcaller-saves -fcse-follow-jumps -fcse-skip-blocks \
-fdelayed-branch -fexpensive-optimizations \
-ffast-math -ffloat-store -fforce-addr -fforce-mem \
-finline-functions -fkeep-inline-functions \
-fdefault-inline -fdefer-pop -ffunction-cse \
-finline -fpeephole -fomit-frame-pointer \
-frerun-cse-after-loop -fschedule-insns \
-fschedule-insns2 -fstrength-reduce -fthread-jumps \
-funroll-all-loops -funroll-loops \
-nostartfiles -nodefaultlibs -nostdlib \
-static -shared -symbolic \
'*-fcall-saved--:register saved by function call:' \
'*-fcall-used--:register clobbered by function call:' \
'*-ffixed--:fixed register:' \
-finhibit-size-directive \
-fno-common -fno-ident -fno-gnu-linker \
-fpcc-struct-return -fpic -fPIC \
-freg-struct-return -fshared-data -fshort-enums \
-fshort-double -fvolatile -fvolatile-global \
-fverbose-asm -fpack-struct \
"$args2[@]" && ret=0
case "$state" in
dump)
_values -s '' 'dump information' \
'M[only macro definitions]' \
'N[macro names]' \
'D[macro definitions and normal output]' \
'y[debugging information during parsing]' \
'r[after RTL generation]' \
'x[only generate RTL]' \
'j[after jump optimization]' \
's[after CSE]' \
'L[after loop optimization]' \
't[after second CSE pass]' \
'f[after flow analysis]' \
'c[after instruction combination]' \
'S[after first instruction scheduling pass]' \
'l[after local register allocation]' \
'g[after global register allocation]' \
'R[after second instruction scheduling pass]' \
'J[after last jump optimization]' \
'd[after delayed branch scheduling]' \
'k[after conversion from registers to stack]' \
'a[all dumps]' \
'm[print memory usage statistics]' \
'p[annotate assembler output]' && ret=0
;;
library)
_wanted libraries expl library \
compadd - ${^=LD_LIBRARY_PATH:-/usr/lib /usr/local/lib}/lib*.(a|so*)(:t:fr:s/lib//) && ret=0
;;
rundir)
compset -P '*:'
compset -S ':*'
_files -/ -S/ -r '\n\t\- /:' "$@"
;;
esac
return ret
PK [] functions/_arpnu W+A #compdef arp
local state line expl curcontext="$curcontext"
local -a cmds
cmds=(-a --display -d --delete -s --set -f --file)
_arguments -C \
"($cmds 1 -D --use-device)"{-a,--display}'[show entries for all or specified hosts]:host:->hostintable' \
"($cmds 1 -n --numeric -D --use-device -H --hw-type)"{-d,--delete}'[delete entry from table]:host:->hostintable' \
"($cmds 1 -n --numeric)"{-s,--set}'[create an ARP entry]:host:_hosts:ethernet address::*:option:(temp trail pub)' \
"($cmds 1 -n --numeric)"{-f,--file}'[read multiple entries from file]:file:_files' \
'(-i --device)'{-i,--device}'[select an interface]:::_net_interfaces:' \
'(-D --use-device -a --display -d --delete)'{-D,--use-device}"[use the interface ifa's hardware address]" \
'(-H --hw-type -d --delete)'{-H,--hw-type}'[class of entries to check for]:class:(ether arcnet pronet ax25 netrom)' \
'(-n --numeric -d --delete -s --set -f --file)'{-n,--numeric}'[shows numerical addresses]' \
'(-v --verbose)'{-v,--verbose}'[be verbose]' \
'(-a)1:host:->hostintable'
[[ "$state" = hostintable ]] &&
_wanted hosts expl 'host' compadd ${${${(f)"$(${words[1]} -an)"}##[ ?(]#}%%[ )]*}
PK [-3 functions/_aliasnu W+A #compdef alias
local curcontext="$curcontext" state line expl type suf
typeset -A opt_args
_arguments -C -s -A "-*" -S \
'(-r +r -s +s)-+g[list or define global aliases]' \
'(-g +g -s +s)-+r[list or define regular aliases]' \
'(-r +r -g +g)-+s[list or define suffix aliases]' \
'-+m[print aliases matching specified pattern]' \
'-L[print each alias in the form of calls to alias]' \
'*::alias definition:->defn'
if [[ -n "$state" ]]; then
if compset -P 1 '*='; then
compset -q
_normal
else
compset -S '=*' || suf='='
type=( ${opt_args[(i)[-+][grs]]#?} )
(( $#type )) && type=( -s $type )
_wanted -x alias expl 'alias definition' _aliases -qS "$suf" "$type[@]"
fi
fi
PK [qM M functions/VCS_INFO_detect_darcsnu W+A ## vim:ft=zsh
## darcs support by: Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
[[ $1 == '--flavours' ]] && return 1
VCS_INFO_check_com ${vcs_comm[cmd]} || return 1
vcs_comm[detect_need_file]=format
VCS_INFO_bydir_detect '_darcs'
return $?
PK [8 _ _ functions/_wigglenu W+A #compdef wiggle
local fns='-m --merge -d --diff -x --extract'
_arguments \
"($fns -1 -2 -3)"{-m,--merge}'[select the merge function]' \
"($fns -3 3)"{-d,--diff}'[display differences between files]' \
"($fns 2 3)"{-x,--extract}'[extract one branch of a patch or merge file]' \
'(-w --words -l --lines)'{-w,--words}'[make operations and display word based]' \
'(-l --lines -w --words)'{-l,--lines}'[make operations and display line based]' \
'(-p --patch)'{-p,--patch}'[treat last named file as a patch]' \
'(-r --replace)'{-r,--replace}'[replace orginal file with merged output]' \
'(-R --reverse -x --extract)'{-R,--reverse}'[swap the files or revert changes]' \
'(-2 -3 -m --merge)-1[select branch]' \
'(-1 -3 -m --merge)-2[select branch]' \
'(-1 -2 -m --merge)-3[select branch]' \
'(1 2 3 -)'{-h,--help}'[display help information]' \
'(1 2 3 -)'{-V,--version}'[display version information]' \
'(-v --verbose -q --quiet)'{-v,--verbose}'[enable verbose output]' \
'(-q --quiet -v --verbose)'{-q,--quiet}'[enable quiet output]' \
'1:file:_files' \
'2:file:_files' \
'3:file:_files'
PK [ o; ; functions/_fusernu W+A #compdef fuser
local -a args arg1
typeset -A opt_args
if _pick_variant -c $words[1] psmisc=psmisc unix -V; then
(( $+functions[_fuser_services] )) ||
_fuser_services() {
local expl suf ret=1
[[ $opt_args[-n] = ??p || $EUID = 0 ]] || return
if compset -P '*/'; then
_wanted protocols expl protocol compadd tcp udp
elif compset -P '*,*,'; then
compset -S '/*' || [[ -n $opt_args[-n] ]] || suf=( -qS / )
_ports $suf && ret=0
elif compset -P '*,'; then
compset -S ',*' || suf=( -S , -r "/ \t\n\-" )
_hosts $suf && ret=0
else
compset -S ',*' || suf=( -S ${${opt_args[-n]/?*/,}:-/} -r "/, \t\n\-" )
_ports $suf && ret=0
fi
return ret
}
_arguments \
'(-s)-a[show all files specified on the command line]' \
{-c,-m}'[list all processes accessing files on the filesystem specified by name]' \
'-k[kill processes accessing the file]' \
'-i[ask for confirmation before killing]' \
'-l[list all known signal names]' \
'-n[select name space]:namespace:(file udp tcp)' \
'(-a)-s[silent operation]' \
'-signal[send alternate signal with -k]:signal:_signals' \
'-u[append the user name of the process owner to each PID]' \
'-v[verbose mode]' \
'-V[display version information]' \
'-4[search only for IPv4 sockets]' \
'-6[search only for IPv6 sockets]' \
'*:name: _alternative "files:file:_files" "services:service:_fuser_services"'
else
case $OSTYPE in
solaris2.9 )
args=(
'-n[list only processes with non-blocking mandatory locks]'
'-s[send alternate signal with -k]:signal:_signals'
)
;;
sysv4 )
(( $+words[(r)-k] )) && arg1=( ':name: _alternative signals\:signal\:_signals\ -p files:file:_files' )
;;
esac
_arguments \
'(-f)-c[list all processes accessing files on the filesystem specified by name]' \
'(-c)-f[list all processes accessing named files]' \
'-k[kill processes accessing the file]' \
'-u[append the user name of the process owner to each PID]' \
$args \
$arg1 \
'*:file:_files'
fi
PK [f functions/merenu W+A # read a man page
setopt localoptions extendedglob
local manual="$1" col=col terminal=man magic line
# /usr/bin/col on SunOS 4 doesn't support -x.
if [[ -x /usr/5bin/col ]]; then
col=/usr/5bin/col;
fi
# SunOS 5 has no `man' terminal.
if [[ -d /usr/share/lib/nterm &&
! -e /usr/share/lib/nterm/tab.$terminal ]]; then
terminal=lp;
fi
# HP-UX has no `man' terminal.
if [[ -d /usr/share/lib/term &&
! -e /usr/share/lib/term/tab$terminal ]]; then
terminal=lp;
fi
# IRIX has no `man' terminal.
if [[ -d /usr/lib/nterm &&
! -e /usr/lib/nterm/tab.$terminal ]]; then
terminal=lp;
fi
# Unixware has no `man' terminal.
if [[ -d /usr/ucblib/doctools/nterm &&
! -e /usr/ucblib/doctools/nterm/tab.$terminal ]]; then
terminal=lp;
fi
# Solaris has SGML manuals.
if [[ -f /usr/lib/sgml/sgml2roff ]] &&
[[ "$(read -er < $manual)" = "map' && ret=0
;;
ypmatch)
_arguments -C -s "$_yp_args[@]" '::key map:->keymap' ':map name:->map' &&
ret=0
;;
yppasswd)
_users
return
;;
ypwhich)
_arguments -C \
'(-x)-d[specify domain]:domain name' \
'(-x -V2 -m -t)-V1[identify version 1 servers]' \
'(-x -V1 -m -t)-V2[identify version 2 servers]' \
'(: -x -V1 -V2 -m)-t[specify map name]:map name:->maponly' \
'(: -x -V1 -V2 -t)-m[specify map or nick name]:map or nick name:->map' \
'(: -d -m -t -V1 -V2)-x[display nicknames]' \
':host:_hosts' && ret=0
;;
ypset)
_arguments -C \
'(-V2)-V1[bind version 1 servers]' \
'(-V1)-V2[bind version 2 servers]' \
'-d[specify domain]:domain name' \
'-h[set NIS binding on specified host]:host:_hosts' \
':server:_hosts' && ret=0
;;
ypserv)
_arguments -C \
'-a[specify database routines]:database routines:((b\:btree d\:dbm/ndbm h\:hash))' && ret=0
;;
ypbind)
_arguments -C \
'-s[allow secure mode for ypbind]' \
'-S[set domain and servers]:domain:->servers' \
'(-ypsetme)-ypset[accept all ypset requests]' \
'(-ypset)-ypsetme[accept only local ypset requests]' && ret=0
;;
yppush)
_arguments -C \
'-d[specify domain]:domain name' \
'-v[print messages]' \
':map name:->map' && ret=0
;;
yppoll)
_arguments -C \
'-d[specify domain]:domain name' \
'-h[ask specified yp server]:host:_hosts' \
':map name:->map' && ret=0
;;
ypxfr)
_arguments -C \
'-a[specify database routines]:database routines:((b\:btree d\:dbm/ndbm h\:hash))' \
'-f[force transfer]' \
"-c[don't clear current map]" \
'-d[specify domain]:domain name' \
'-h[get map from specified host instead of master]:host:_hosts' \
'-C[call back]:transaction ID: :program number: :IP address: :port number' \
':map name:->map' && ret=0
;;
domainname)
_message -e new-domains 'new domain name'
return 1
;;
esac
[[ "$state" = keymap ]] && _message -e keys 'key'
if [[ "$state" = map* ]]; then
if [[ $+opt_args[-t] -eq 0 && "$state" != maponly ]]; then
_tags maps nicknames
else
_tags maps
fi
while _tags; do
# The `-M ...' allows `pa.n' to complete to `passwd.byname'.
_requested maps expl 'map name' \
compadd -M 'l:.|by=by l:.|=by r:|.=* r:|=*' -a \
_yp_cache_maps && ret=0
_requested nicknames expl nicknames \
compadd -a _yp_cache_nicks && ret=0
(( ret )) || return 0
done
elif [[ "$state" = servers ]]; then
if compset -P '*,'; then
_wanted hosts expl server _hosts -qS, && ret=0
else
_message -e domains 'domain name'
fi
fi
return ret
PK [
g
g
functions/keymap+widgetnu W+A #autoload
##
# self-insert-by-keymap originally appeared in zsh-users/10559 (July 2006).
# Changes have been made to the widget naming scheme, based on feedback on
# the mailing list thread.
##
emulate -L zsh
zmodload -i zsh/zleparameter || return 1
# Rebind the most common widgets to override in multiple keymaps. Ideally
# complete-word would also be in this list, but so many other things
# already rebind complete-word that doing so here is a waste of effort.
local -a m
local w='' k=''
for w in self-insert accept-line forward-char backward-char \
up-{,line-or-}history down-{,line-or-}history \
magic-space backward-delete-char delete-char-or-list
do
# If this is run early enough that all the widgets are still builtins,
# no explicit remapping is needed. If they've already been rebound,
# it's not safe to assume we can do so again.
if [[ $widgets[$w] != (builtin|user:$w-by-keymap) ]]
then
m+="Cannot rebind $w: $widgets[$w]"
continue
fi
function $w-by-keymap {
if (( $+widgets[$KEYMAP+$WIDGET] == 1 ))
then zle $KEYMAP+$WIDGET "$@"
else zle .$WIDGET "$@"
fi
}
zle -N $w $w-by-keymap
done
[[ -n $m ]] && { zle && zle -M "${(F)m}" || print -l -u2 -R $m }
return 0
# With this in place, you should rarely need "zle -N self-insert frob"
# again. Instead you do this:
#
# bindkey -N frobber main
# zle -N frobber+self-insert frob
#
# Then, whenever you wish to replace self-insert with frob, change
# keymaps:
#
# zle recursive-edit -K frobber
# Here's a simple example, which improves upon the caps-lock example in
# the zsh manual entry for recursive-edit:
#
# ucase+self-insert() {
# LBUFFER+=${(U)KEYS[-1]}
# }
# zle -N ucase+self-insert
# caps-lock() {
# bindkey -N ucase $KEYMAP
# bindkey -M ucase "$KEYS" .accept-line
# zle recursive-edit -K ucase || zle send-break
# }
# zle -N caps-lock
#
# To turn this on, pick a key sequence (I've chosen ctrl-x shift-L) and
# bind the caps-lock widget to it:
#
# bindkey -M main '^XL' caps-lock
# Another example of using a continuation widget to propagate accept-line
# (or any other binding from the original keymap) through the caller:
#
# bindkey -N newkeymap $KEYMAP
# recursive-edit-and-accept() {
# local -a __accepted
# zle -N newkeymap+accept-line end-recursive-edit
# zle recursive-edit -K newkeymap || zle send-break
# if [[ ${__accepted[0]} != end-recursive-edit ]]
# then zle "${__accepted[@]}"; return
# else return 0
# fi
# }
# end-recursive-edit() {
# __accepted=($WIDGET ${=NUMERIC:+-n $NUMERIC} "$@")
# zle .accept-line
# return 0
# }
PK [ /8 functions/_mailboxesnu W+A #autoload
_mailboxes() {
#emulate -L zsh
local expl ret=1
local maildirectory pinedirectory
zstyle -s ":completion:${curcontext}:" mail-directory maildirectory || maildirectory="~/Mail"
zstyle -s ":completion:${curcontext}:" pine-directory pinedirectory
if (( ! $+_mailbox_cache )) then
_mailbox_cache "$@"
fi
case "${curcontext}:" in
(*:mail:*)
if [[ "$PREFIX" == +* ]]; then
_tags mailboxes
else
_tags mailboxes files
fi;;
(*:(mush|zmail|zmlite):*)
if [[ "$PREFIX" == [%+]* ]]; then
_tags mailboxes
else
_tags mailboxes files
fi;;
(*:mutt:*)
if [[ "$PREFIX" == (|-f)[+=]* ]]; then
_tags mailboxes
else
_tags mailboxes files
fi;;
(*:pine:*)
# Files for pine must be absolute paths.
if [[ "$PREFIX" == (|-f)[/\~]* ]]; then
pinedirectory=''
_tags mailboxes files
else
_tags mailboxes
fi;;
(*)
if [[ "$PREFIX" == (|-f)+* ]]; then
_tags mailboxes
else
_tags mailboxes files
fi;;
esac
while _tags; do
_requested mailboxes expl 'mailbox specification' _mua_mailboxes && ret=0
if _requested files expl 'mailbox file'; then
[[ "${curcontext}:" != *:(mail|mush|mutt|zmail|zmlite):* ]] &&
compset -P -f
_files "$expl[@]" && ret=0
fi
(( ret )) || return 0
done
return 1
}
_mailbox_cache () {
local i j _mc_tmp
local -aU dirboxes
local maildirectory pinedirectory muttrc
typeset -aU -g _mailbox_cache
typeset -aU -g _maildir_cache _mbox_cache _mh_cache _mutt_cache _pine_cache
zstyle -s ":completion:${curcontext}:" mail-directory maildirectory || maildirectory="~/Mail"
zstyle -s ":completion:${curcontext}:" pine-directory pinedirectory
zstyle -s ":completion:${curcontext}:" muttrc muttrc || muttrc="~/.muttrc"
[[ -f ${~muttrc:-.} ]] &&
_mc_tmp=${=${(M)${(f)"$(<${~muttrc})"}:#mailboxes *}#mailboxes *} &&
_mutt_cache=( ${=${(Xe)_mc_tmp}} )
_mbox_cache=( ${~maildirectory}/*(^/) )
if [[ -n $pinedirectory ]]; then
_pine_cache=( ${~pinedirectory}/**/*(.) )
else
_pine_cache=()
fi
dirboxes=( ${~maildirectory}/*(/) )
while (( $#dirboxes )); do
i=${dirboxes[1]}
shift dirboxes
if [[ -d "$i/cur" ]]; then
_maildir_cache=( "${_maildir_cache[@]}" "$i" )
elif j=( "$i"/<1-> ) && [[ -n "$j" ]]; then
_mh_cache=( "${_mh_cache[@]}" "$i" )
dirboxes=( $dirboxes "$i"/*(/) )
else
_mbox_cache=( "${_mbox_cache[@]}" "$i"/*(.) )
dirboxes=( $dirboxes "$i"/*(/) )
fi
done
[[ -n "$mailpath" ]] &&
_mailbox_cache=( "${_mailbox_cache[@]}" "${(@)mailpath%%\?*}" )
[[ -n "$MAIL" ]] && _mailbox_cache=( "${_mailbox_cache[@]}" $MAIL )
}
_mua_mailboxes() {
local -a mbox_short
local -aU mbox_names
local ret=1
local maildirectory pinedirectory
zstyle -s ":completion:${curcontext}:" mail-directory maildirectory || maildirectory="~/Mail"
zstyle -s ":completion:${curcontext}:" pine-directory pinedirectory
case "${curcontext}:" in
(*:elm:*) # I've probably got this wrong, or at least incomplete
mbox_names=( "${_mbox_cache[@]}" "${_mailbox_cache[@]}" )
mbox_short=( \! \< \> )
;;
(*:mail:*)
if compset -P +; then
mbox_names=( "${(@)_mbox_cache#$~maildirectory/}" )
else
mbox_names=( +"${(@)^_mbox_cache#$~maildirectory/}"
"${_mailbox_cache[@]}" )
fi
;;
(*:mh:*)
local lastmhbox=$(mhpath)
if compset -P +; then
mbox_names=( "${(@)_mh_cache#$~maildirectory/}" )
elif compset -P @; then
mbox_names=( "${(@)${(@M)_mh_cache:#$~lastmhbox/*}#$~lastmhbox/}" )
else
mbox_names=( +"${(@)^_mh_cache#$~maildirectory/}"
@"${(@)^${(@M)_mh_cache:#$~lastmhbox/*}#$~lastmhbox/}"
"${_mh_cache[@]}" )
fi
;;
(*:mush:*)
if compset -P %; then
mbox_short=( "${(@k)userdirs}" )
elif compset -P +; then
mbox_names=( "${(@)_mbox_cache#$~maildirectory/}" )
else
mbox_names=( +"${(@)^_mbox_cache#$~maildirectory/}"
"${_mailbox_cache[@]}" )
mbox_short=( \& % %"${(@k)^userdirs}" )
fi
;;
(*:mutt:*)
if compset -P '(|\\)='; then
mbox_names=( "${_mutt_cache[@]#[+=]}" "${(@)_mbox_cache#$~maildirectory/}" "${(@)_maildir_cache#$~maildirectory/}" "${(@)_mh_cache#$~maildirectory/}")
elif compset -P +; then
mbox_names=( "${_mutt_cache[@]#[+=]}" "${(@)_mbox_cache#$~maildirectory/}" "${(@)_maildir_cache#$~maildirectory/}" "${(@)_mh_cache#$~maildirectory/}")
else
mbox_names=( "${_mutt_cache[@]}" "${_mailbox_cache[@]}"
"${_maildir_cache[@]}" "${_mh_cache[@]}" )
mbox_short=( \! \< \> )
fi
;;
(*:pine:*)
mbox_names=( "${_mbox_cache[@]}"
"${_mailbox_cache[@]}" "${_mh_cache[@]}" )
# Pine is like mail but with no leading `+' to disambiguate;
# any files not in $pinedirectory must be absolute paths.
if [[ -n $pinedirectory ]]; then
mbox_names+=( "${(@)_pine_cache#$~pinedirectory/}" )
fi
;;
(*:tkrat:*) # Has a couple of custom formats I haven't programmed for.
mbox_names=( "${_mbox_cache[@]}"
"${_mailbox_cache[@]}" "${_mh_cache[@]}" )
;;
(*:(zmail|zmlite):*)
if compset -P %; then
mbox_short=( "${(@k)userdirs}" )
elif compset -P +; then
mbox_names=( "${(@)_mbox_cache#$~maildirectory/}" )
else
mbox_names=( +"${(@)^_mbox_cache#$~maildirectory/}"
"${_mailbox_cache[@]}" "${_mh_cache[@]}" )
mbox_short=( \& % %"${(@k)^userdirs}" )
fi
;;
(*) # Some other program wants mailbox names? Use them all?
mbox_names=( "${_mailbox_cache[@]}" "${_mbox_cache[@]}"
"${_mh_cache[@]}" "${_mutt_cache[@]}" "${_pine_cache[@]}" )
;;
esac
(( $#mbox_names )) && _multi_parts "$@" / mbox_names && ret=0
(( $#mbox_short )) && compadd "$@" -a mbox_short && ret=0
return ret
}
_mailboxes "$@"
PK []k{ { functions/_dpkg-crossnu W+A #compdef dpkg-cross
local _dpkgcross_arches
_dpkgcross_arches=(/etc/dpkg-cross/cross-config.*(N))
_dpkgcross_arches=(${${_dpkgcross_arches#*.}:-alpha amd64 common cygwin-i386 gnu hppa i386 linux m32r m68k mips powerpc sh sh3 sh3eb sh4 sh4eb w32})
_arguments \
'(-h --help)'{-h,--help}'[show summary of options]' \
'(-v --verbose)'{-v,--verbose}'[be more verbose]' \
'(-q --quiet)'{-q,--quiet}'[be more quiet]' \
'(-a --arch)'{-a,--arch}':architecture:('"$_dpkgcross_arches"')' \
'(-i --install)'{-i,--install}'[install packages]' \
'(-A --convert-anyway)'{-A,--convert-anyway}'[convert package even if not useful]' \
'(-b --build)'{-b,--build}'[just build but do not install]' \
'(-r --remove)'{-r,--remove}'[remove packages]' \
'(-s --status)'{-s,--status}'[print status of named packages]' \
'(-l --list)'{-l,--list}'[print short status of named packages or patterns]' \
'(-L --list-files)'{-L,--list-files}'[list files belonging to named packages]' \
'(-u --update)'{-u,--update}'[update current cross-inst]' \
'(-Q --query)'{-Q,--query}'[print available update packages]' \
'*:package or path or pattern:_files'
PK [] functions/prompt_oliver_setupnu W+A # oliver prompt theme
prompt_oliver_help() {
cat <<'ENDHELP'
With this prompt theme, the prompt contains the current directory,
history number, number of jobs (if non-zero) and the previous
command's exit code (if non-zero) and a final character which
depends on priviledges.
The colour of the prompt depends on two associative arrays -
$pcolour and $tcolour. Each array is indexed by the name of the
local host. Alternatively, the colour can be set with parameters
to prompt. To specify colours, use English words like 'yellow',
optionally preceded by 'bold'.
The hostname and username are also included unless they are in the
$normal_hosts or $normal_users array.
ENDHELP
}
prompt_oliver_setup() {
prompt_opts=( cr subst percent )
[[ "${(t)pcolour}" != assoc* ]] && typeset -Ag pcolour
[[ "${(t)tcolour}" != assoc* ]] && typeset -Ag tcolour
local pcol=${1:-${pcolour[${HOST:=`hostname`}]:-bold}}
local pcolr="%F{${${pcol#bold}:-default}}"
[[ $pcol = bold* ]] && pcolr=%B$pcolr
local tcol=${2:-${tcolour[$HOST]}}
local tcolr="fg=${${tcol#bold}:-default}"
[[ $tcol = bold* ]] && tcolr=bold,$tcolr
local a host="%m:" user="%n "
[[ $HOST == (${(j(|))~normal_hosts}) ]] && host=""
[[ $LOGNAME == (root|${(j(|))~normal_users}) ]] && user=""
PS1="$pcolr$user$host%~%"'$((COLUMNS-12))'"(l.$prompt_newline. )[%h%1(j.%%%j.)%0(?..:%?)]%# %b%f%k" RPS2='<%^'
PS2=''
zle_highlight[(r)default:*]=default:$tcolr
}
prompt_oliver_setup "$@"
PK [H functions/_user_at_hostnu W+A #autoload
# Complete user/host combinations. Normally this looks for the style
# `users-hosts' for the tag `accounts'. A different tag may be given
# with `-t tag'.
# A `-' or `--' as the first argument is ignored.
local expl suf tag=accounts
if [[ "$1" = -t?* ]]; then
tag="${1[3,-1]}"
shift
elif [[ "$1" = -t ]]; then
tag="$2"
shift 2
fi
[[ "$1" = -(|-) ]] && shift
if [[ -prefix 1 *@ ]]; then
local user=${PREFIX%%@*}
compset -P 1 '*@'
_wanted -C user-at hosts expl "host for $user" \
_combination -s '[:@]' "${tag}" users-hosts users="$user" hosts "$@" -
else
compset -S '@*' || suf="@"
_wanted users expl "user" \
_combination -s '[:@]' "${tag}" users-hosts users -S "$suf" -q "$@" -
fi
PK [=+ + functions/_options_setnu W+A #autoload
# Complete all set options. This relies on `_main_complete' to store the
# names of the options that were set when it was called in the array
# `_options_set'.
local expl
_wanted zsh-options expl 'set zsh option' \
compadd "$@" -M 'B:[nN][oO]= M:_= M:{A-Z}={a-z}' -a - _options_set
PK [˕N] ] functions/_dictnu W+A #compdef dict
local strategy database state line curcontext="$curcontext"
typeset -A opt_args
_arguments -C -S \
'(--host -h)'{--host=,-h+}'[specify hostname of dict server]:dict server:_hosts' \
'(--port -p)'{--port=,-p+}'[specify port for dict server]:service:_ports' \
'(--database -d)'{--database=,-d+}'[database]:db name:->database' \
'(--match -m)'{--match,-m}'[perform matching]' \
'(--strategy -s)'{--strategy=,-s+}'[specify matching strategy]:strategy:->strategy' \
'(--nocorrect -C)'{--nocorrect,-C}'[disable spelling correction]' \
'(--config -c)'{--config=,-c+}'[specify config file]:config file:_files' \
'(--dbs -D)'{--dbs,-D}'[list available databases]' \
'(--strats -S)'{--strats,-S}'[list available search strategies]' \
'(--serverhelp -H)'{--serverhelp,-H}'[query server for help info it provides]' \
'(--info -i)'{--info=,-i+}'[get info on specified database]:db name:->database' \
'(--serverinfo -I)'{--serverinfo,-I}'[display info about server]' \
'(--noauth -a)'{--noauth,-a}'[disable authentication]' \
'(--user -u)'{--user=,-u+}'[specify username for authentication]:user name:' \
'(--key -k)'{--key=,-k+}'[specify key for authentication]:shared secret:' \
'(-)'{--version,-V}'[display program version]' \
'(-)'{--license,-L}'[display program license]' \
'(-)--help[display usage info]' \
'(--verbose -v)'{--verbose,-v}'[verbose output]' \
'(--raw -r)'{--raw,-r}'[be very verbose]' \
'(--pager -P)'{--pager=,-P+}'[specify pager]:program:_command_names -e' \
'--pipesize=[specify buffer size for pipelining commands]:buffer size:' \
'--client=[specify additional text to send to server]:client text' \
'--debug=[set a debug flag]:debug flag:(verbose raw scan parse pipe serial time)' \
':word:_dict_words' && return
case "$state" in
strategy)
strategy=( ${${${(f)"$(_call_program strategy dict -S 2>/dev/null)"}[2,-1]#?}/ ##/:} )
_describe -t strategy strategy strategy && return
;;
database)
database=( ${${${(f)"$(_call_program database dict --dbs 2>/dev/null)"}[2,-1]#?}/ ##/:} )
_describe -t database database database && return
;;
esac
PK [a, ,
functions/cdrnu W+A # Description
# ===========
#
# Change to a recently used directory recorded in a file so that the
# recent file list persists across sessions.
#
# To use this system,
#
# autoload -Uz chpwd_recent_dirs cdr add-zsh-hook
# add-zsh-hook chpwd chpwd_recent_dirs
#
# (add-zsh-hook appeared in zsh version 4.3.4.) This ensures that all
# directories you change to interactively are registered. The
# chpwd_recent_dirs function does some guesswork to see if you are "really"
# changing directory permanently, see below.
#
# The argument to cdr is a number corresponding to the Nth most recently
# changed-to directory starting at 1 for the immediately preceeding
# directory (the current directory is remembered but is not offered as a
# destination). You can use directory arguments if you set the
# recent-dirs-default style, see below; however, it should be noted
# that if you do you gain nothing over using cd directly (the recent
# directory list is updated in either case).
#
# If the argument is omitted, 1 is assumed.
#
# Completion is available if compinit has been run; menu selection is
# recommended, using
#
# zstyle ':completion:*:*:cdr:*:*' menu selection
#
# and also the verbose style to ensure the directory is shown (this
# is on by default).
#
# Options
# =======
#
# "cdr -l" lists the numbers and the corresponding directories in
# abbreviated form (i.e. with "~" substitution reapplied), one per line.
# The directories here are not quoted (this would only be an issue if a
# directory name contained a newline). This is used by the completion
# system.
#
# "cdr -r" sets the parameter "reply" to the current set of directories.
#
# "cdr -e" allows you to edit the list of directories, one per line. The
# list can be edited to any extent you like; no sanity checking is
# performed. Completion is available. No quoting is necessary (except for
# newlines, where I have in any case no sympathy); directories are in
# unabbreviated from and contain an absolute path, i.e. they start with /
# (and only /). Usually the first entry should be left as the current
# directory.
#
# Details of directory handling
# =============================
#
# Recent directories are saved to a file immediately and hence are
# preserved across sessions. Note currently no file locking is applied:
# the list is updated immediately on interactive commands and nowhere else
# (unlike history), and it is assumed you are only going to change
# directory in one window at once. This is not safe on shared accounts,
# but in any case the system has limited utility when someone else is
# changing to a different set of directories behind your back.
#
# To make this a little safer, only directory changes instituted from the
# command line, either directly or indirectly through shell function calls
# (but not through subshells, evals, traps, completion functions and the
# like) are saved. This works best in versions of the shell from 4.3.11
# which has facilities to check the evaluation context. Shell functions
# should use cd -q or pushd -q to avoid side effects if the change to the
# directory is to be invisible at the command line. See the function
# chpwd_recent_dirs for more details.
#
# Styles
# ======
#
# Various styles are available. The context for setting styles should be
# ':chpwd:*' in case the meaning of the context is extended in future, for
# example:
#
# zstyle ':chpwd:*' recent-dirs-max 0
#
# although the style name is specific enough that a context of '*' should
# be fine in practice. The only exception is recent-dirs-insert, which is
# used exclusively by the completion system and so has the usual completion
# system context (':completion:*' if nothing more specific is needed,
# though again '*' should be fine in practice).
#
# recent-dirs-default
# If true, and the command is expecting a recent directory index, and
# either there is more than one argument or the argument is not an
# integer, then fall through to "cd". This allows the lazy to use only
# one command for directory changing. Completion recognises this, too;
# see recent-dirs-insert for how to control completion when this option
# is in use.
#
# recent-dirs-file
# The file where the list of directories is saved. The default
# is ${ZDOTDIR:-$HOME}/.chpwd-recent-dirs, i.e. this is in your
# home directory unless you have set ZDOTDIR to point somewhere else.
# Directory names are saved in $'...' quoted form, so each line
# in the file can be supplied directly to the shell as an argument.
#
# The value of this style may be an array. In this case, the first
# file in the list will always be used for saving directories while any
# other files are left untouched. When reading the recent directory
# list, if there are fewer than the maximum number of entries in the
# first file, the contents of later files in the array will be appended
# with duplicates removed from the list shown. The contents of the two
# files are not sorted together, i.e. all the entries in the first file
# are shown first. The special value "+" can appear in the list to
# indicate the default file should be read at that point. This allows
# effects like the following:
#
# zstyle recent-dirs-file ':chpwd:*' ~/.chpwd-recent-dirs-${TTY##*/} +
#
# Recent directories are read from a file numbered according to
# the terminal. If there are insufficient entries the list
# is supplemented from the default file.
#
# recent-dirs-insert
# Used by completion. If recent-dirs-default is true, then setting
# this to true causes the actual directory, rather than its index, to
# be inserted on the command line; this has the same effect as using
# the corresponding index, but makes the history clearer and the line
# easier to edit. With this setting, if part of an argument was
# already typed, normal directory completion rather than recent
# directory completion is done; this is because recent directory
# completion is expected to be done by cycling through entries menu
# fashion. However, if the value of the style is "always", then only
# recent directories will be completed; in that case, use the cd
# command when you want to complete other directories. If the value is
# "fallback", recent directories will be tried first, then normal
# directory completion is performed if recent directory completion
# failed to find a match. Finally, if the value is "both" then both
# sets of completions are presented; the usual tag mechanism can be
# used to distinguish results, with recent directories tagged as
# "recent-dirs". Note that the recent directories inserted are
# abbreviated with directory names where appropriate.
#
# recent-dirs-max
# The maximum number of directories to save to the file. If
# this is zero or negative there is no maximum. The default is 20.
# Note this includes the current directory, which isn't offered,
# so the highest number of directories you will be offered
# is one less than the maximum.
#
# recent-dirs-prune
# This style is an array determining what directories should (or should
# not) be added to the recent list. Elements of the array can include:
# parent
# Prune parents (more accurately, ancestors) from the recent list.
# If present, changing directly down by any number of directories
# causes the current directory to be overwritten. For example,
# changing from ~pws to ~pws/some/other/dir causes ~pws not to be
# left on the recent directory stack. This only applies to direct
# changes to descendant directories; earlier directories on the
# list are not pruned. For example, changing from ~pws/yet/another
# to ~pws/some/other/dir does not cause ~pws to be pruned.
# pattern:
# Gives a zsh pattern for directories that should not be
# added to the recent list (if not already there). This element
# can be repeated to add different patterns. For example,
# 'pattern:/tmp(|/*)' stops /tmp or its descendants from being
# added. The EXTENDED_GLOB option is always turned on for
# these patterns.
#
# recent-dirs-pushd
# If set to true, cdr will use pushd instead of cd to change the
# directory, so the directory is saved on the directory stack. As the
# directory stack is completely separate from the list of files saved
# by the mechanism used in this file there is no obvious reason to do
# this.
#
# Use with dynamic directory naming
# =================================
#
# It is possible to refer to recent directories using the dynamic directory
# name syntax that appeared in zsh version 4.3.7. If you create and
# autoload a function zsh_directory_name containing the following code,
# ~[1] will refer to the most recent directory other than $PWD, and so on.
# This also includes completion (version 4.3.11 is required for this to
# work; previous versions needed the file _dynamic_directory_name to
# be overloaded).
#
# if [[ $1 = n ]]; then
# if [[ $2 = <-> ]]; then
# # Recent directory
# typeset -ga reply
# autoload -Uz cdr
# cdr -r
# if [[ -n ${reply[$2]} ]]; then
# reply=(${reply[$2]})
# return 0
# else
# reply=()
# return 1
# fi
# fi
# elif [[ $1 = c ]]; then
# if [[ $PREFIX = <-> || -z $PREFIX ]]; then
# typeset -a keys values
#
# values=(${${(f)"$(cdr -l)"}/ ##/:})
# keys=(${values%%:*})
#
# _describe -t dir-index 'recent directory index' \
# values keys -V unsorted -S']'
# return
# fi
# fi
# return 1
emulate -L zsh
setopt extendedglob
autoload -Uz chpwd_recent_filehandler chpwd_recent_add
integer list set_reply i bad edit
local opt dir
local -aU dirs
while getopts "elr" opt; do
case $opt in
(e)
edit=1
;;
(l)
list=1
;;
(r)
set_reply=1
;;
(*)
return 1
;;
esac
done
shift $(( OPTIND - 1 ))
if (( set_reply )); then
typeset -ga reply
else
local -a reply
fi
if (( list || set_reply || edit )); then
(( $# )) && bad=1
else
if [[ $#1 -eq 0 ]]; then
1=1
elif [[ $# -ne 1 || $1 != <-> ]]; then
if zstyle -t ':chpwd:' recent-dirs-default; then
cd "$@"
return
else
bad=1
fi
fi
fi
if (( bad )); then
print "Usage: $0 [-l | -r | ]
Use $0 -l or completion to see possible directories."
return 1
fi
chpwd_recent_filehandler
if [[ $PWD != $reply[1] ]]; then
# When we first start we don't have the current directory.
# Add it now for consistency.
chpwd_recent_add $PWD && chpwd_recent_filehandler $reply
fi
if (( edit )); then
local compcontext='directories:directory:_path_files -/'
IFS='
' vared reply || return 1
chpwd_recent_filehandler $reply
fi
# Skip current directory if present (may have been pruned).
[[ $reply[1] = $PWD ]] && reply=($reply[2,-1])
if (( list )); then
dirs=($reply)
for (( i = 1; i <= ${#dirs}; i++ )); do
print -n ${(r.5.)i}
print -r ${(D)dirs[i]}
done
return
fi
(( set_reply || edit )) && return
if (( $1 > ${#reply} )); then
print "Not enough directories ($(( ${#dirs} - 1)) possibilities)" >&2
return 1
fi
dir=${reply[$1]}
if zstyle -t ':chpwd:' recent-dirs-pushd; then
pushd -- $dir
else
cd -- $dir
fi
PK [ld
functions/_lsnu W+A #compdef ls gls
# Ulrik Haugen 2001
local arguments is_gnu
_pick_variant -r is_gnu gnu=gnu unix --help
if [[ "$OSTYPE" = (netbsd*|freebsd*|openbsd*|darwin*) && "$is_gnu" != gnu ]]; then
arguments=(
'(-A)-a[list entries starting with .]'
'(-a)-A[list all except . and ..]'
'-d[list directory entries instead of contents]'
'-L[list referenced file for sym link]'
'-R[list subdirectories recursively]'
'(-k)-h[print sizes in human readable form]'
'(-h)-k[print sizes of 1k]'
'-i[print file inode numbers]'
'(-l -g -1 -C -m -x)-l[long listing]'
'(-l -1 -C -m -x)-g[long listing but without owner information]'
'(-l -g -C -m -x)-1[single column output]'
'(-l -g -1 -m -x)-C[list entries in columns sorted vertically]'
'(-l -g -1 -C -x)-m[comma separated]'
'(-l -g -1 -C -m)-x[sort horizontally]'
'-o[display file flags]'
'-s[display size of each file in blocks]'
'(-u)-c[status change time]'
'(-c)-u[access time]'
'-f[unsorted, all, short list]'
'-r[reverse sort order]'
'(-t)-S[sort by size]'
'(-S)-t[sort by modification time]'
'(-p)-F[append file type indicators]'
'(-F)-p[append file type indicators for directory]'
'-f[output is not sorted]'
'-n[numeric uid, gid]'
'-T[show complete time information]'
'(-B -b -w -q)-B[print octal escapes for control characters]'
'(-B -b -w -q)-b[as -B, but use C escape codes whenever possible]'
'(-B -b -w -q)-q[hide control chars]'
'(-B -b -w -q)-w[print raw characters]'
'*:files:_files'
)
if [[ "$OSTYPE" = (freebsd*|darwin*) ]]; then
arguments+=(
'-G[enable colorized output]'
'-H[follow symlinks on the command line]'
'-P[do not follow symlinks]'
)
fi
else
arguments=(
'(--all -a -A --almost-all)'{--all,-a}'[list entries starting with .]'
'(--almost-all -A -a --all)'{--almost-all,-A}'[list all except . and ..]'
'--author[print the author of each file]'
'(--ignore-backups -B)'{--ignore-backups,-B}"[don't list entries ending with ~]"
'(--directory -d)'{--directory,-d}'[list directory entries instead of contents]'
'(--dired -D)'{--dired,-D}"[generate output designed for Emacs' dired mode]"
'(--ignore,-I)'{--ignore,-I}"[don't list entire matching pattern]:pattern:"
'(--dereference -L --dereference-command-line --dereference-command-line-symlink-to-dir)'{--dereference,-L}'[list referenced file for sym link]'
'(--dereference -L --dereference-command-line --dereference-command-line-symlink-to-dir)'{--dereference-command-line,--dereference-command-line-symlink-to-dir}
'(--recursive -R)'{--recursive,-R}'[list subdirectories recursively]'
'(--no-group -G)'{--no-group,-G}'[inhibit display of group information]'
'(--human-readable -h -H --si)'{--human-readable,-h}'[print sizes in human readable form]'
'(--si -H -h --human-readable)'{--si,-H}'[sizes in human readable form; powers of 1000]'
'(--inode -i)'{--inode,-i}'[print file inode numbers]'
'(--format -l -g -o -1 -C -m -x)-l[long listing]'
'(--format -l -1 -C -m -x)-g[long listing but without owner information]'
'(--format -l --no-group -G -1 -C -m -x)-o[no group, long]'
'(--format -l -g -o -C -m -x)-1[single column output]'
'(--format -l -g -o -1 -m -x)-C[list entries in columns sorted vertically]'
'(--format -l -g -o -1 -C -x)-m[comma separated]'
'(--format -l -g -o -1 -C -m)-x[sort horizontally]'
'(-l -g -o -1 -C -m -x)--format=:format:(verbose long commas horizontal across vertical single-column)'
'(--size -s -f)'{--size,-s}'[display size of each file in blocks]'
'(--time -u)-c[status change time]'
'(--time -c)-u[access time]'
'(-c -u)--time=[specify time to show]:time:(ctime status use atime access)'
'--time-style=[show times using specified style]:time style:(full-iso long-iso iso locale)'
'(-a --all -U -l --format -s --size -t --sort --full-time)-f[unsorted, all, short list]'
'(--reverse)'{--reverse,-r}'[reverse sort order]'
'(--sort -t -U -v -X)-S[sort by size]'
'(--sort -S -U -v -X)-t[sort by modification time]'
'(--sort -S -t -v -X)-U[unsorted]'
'(--sort -S -t -U -X)-v[sort by version (filename treated numerically)]'
'(--sort -S -t -U -v)-X[sort by extension]'
'(-S -t -U -v -X)--sort=:sort:(size time none version extension)'
'--color=-[control use of color]:color:(never always auto)'
'(--classify -F --indicator-style -p --file-type)'{--classify,-F}'[append file type indicators]'
'(--file-type -p --indicator-style -F --classify)'{--file-type,-p}'[append file type indicators except *]'
'(-F --classify -p --file-type)--indicator-style=:indicator style:(none file-type classify)'
'(-f)--full-time[list both full date and full time]'
'(--kilobytes -k --block-size)'{--kilobytes,-k}'[use block size of 1k]'
'(-k --kilobytes)--block-size=[specify block size]:block size (bytes):(1024)'
'(--numeric-uid-gid -n)'{--numeric-uid-gid,-n}'[numeric uid, gid]'
'(--tabsize -T)'{--tabsize=,-T+}'[specify tab size]:tab size'
'(--width -w)'{--width=,-w+}'[specify screen width]:screen width'
'(--quoting-style -b --escape -N --literal -Q --quote-name)'{--escape,-b}'[print octal escapes for control characters]'
'(--quoting-style -b --escape -N --literal -Q --quote-name)'{--literal,-N}'[print raw characters]'
'(--quoting-style -b --escape -N --literal -Q --quote-name)'{--quote-name,-Q}'[quote names]'
'(-b --escape -N --literal -Q --quote-name)--quoting-style=:quoting style:(literal shell shell-always c escape clocale locale)'
'(--hide-control-chars -q --show-control-chars)'{--hide-control-chars,-q}'[hide control chars]'
'(-q --hide-control-chars)--show-control-chars'
'(- :)--help[display help information]'
'(- :)--version[display version information]'
'*:files:_files'
)
# remove long options?
if [[ $is_gnu != gnu ]]; then
arguments=( ${${${arguments:#(|*\))--*}//--[^ )]#/}/\( #\)/} )
fi
fi
_arguments -s $arguments
PK [X X functions/_x_argumentsnu W+A #compdef -P */X11(|R<4->)/*
local ret long xargs opts rawret nm="$compstate[nmatches]"
xargs=(
'-display:display:_x_display'
'-geometry:geometry:_x_geometry'
)
(( $# )) || xargs=( "$xargs[@]" '*:default: _default' )
long=$argv[(I)--]
if (( long )); then
argv[long]=( "$xargs[@]" -- )
else
set -- "$@" "$xargs[@]"
fi
opts=()
while [[ $1 = -(O*|[CRWsw]) ]]; do
opts=($opts $1)
[[ $1 = -R ]] && rawret=yes
shift
done
_arguments -R "$opts[@]" "$@"
ret=$?
if [[ "$ret" = 300 ]]; then
compstate[restore]=''
[[ -z $rawret ]] && ret=$(( nm == $compstate[nmatches] ))
fi
return ret
PK [0E functions/_x_modifiernu W+A #autoload
local expl
_wanted modifiers expl modifier \
compadd "$@" -M 'm:{a-z}={A-Z}' - \
Shift Lock Control Mod1 Mod2 Mod3 Mod4 Mod5
PK [ǹD] functions/_defaultnu W+A #compdef -default-
local ctl
if { zstyle -s ":completion:${curcontext}:" use-compctl ctl ||
zmodload -e zsh/compctl } && [[ "$ctl" != (no|false|0|off) ]]; then
local opt
opt=()
[[ "$ctl" = *first* ]] && opt=(-T)
[[ "$ctl" = *default* ]] && opt=("$opt[@]" -D)
compcall "$opt[@]" || return 0
fi
_files "$@" && return 0
# magicequalsubst allows arguments like =~/foo to do
# file name expansion after the =. In that case, it's natural to
# allow completion to handle file names after any equals sign.
if [[ -o magicequalsubst && "$PREFIX" = *\=* ]]; then
compstate[parameter]="${PREFIX%%\=*}"
compset -P 1 '*='
_value "$@"
else
return 1
fi
PK [բw; ; functions/_grep-excusesnu W+A #compdef grep-excuses
_arguments \
'(--no-conf --noconf)'{--no-conf,--noconf}'[do not read any config files]' \
'(--wipnity -w)'{--wipnity,-w}'[get information from release.debian.org]' \
'--version[display version information]' \
'--help[display help information]' \
':package:_deb_packages avail'
PK ["G functions/_x_windownu W+A #autoload
local list expl
_tags windows || return 1
list=( "${(@)${(M@)${(@f)$(_call_program windows xwininfo -root -tree)}:#[ ]#0x[0-9a-f]# \"*}##[ ]#}" )
if [[ "$1" = -n ]]; then
shift
_wanted windows expl 'window name' \
compadd "$@" -d list - "${(@)${(@)list#*\"}%%\"*}"
else
[[ "$1" = - ]] && shift
_wanted windows expl 'window ID' compadd "$@" -d list - "${(@)list%% *}"
fi
PK [}؆L L functions/_growisofsnu W+A #compdef mkisofs growisofs
local context state line
typeset -A opt_args
declare -a find_options
find_options=(
'( -L -P)-H[follow symbolic links encountered on the command line]'
'(-H -P)-L[follow all symbolic links]'
'(-H -L )-P[do not follow symbolic links (default)]'
'(- *)-help[print -find help]'
'(- *)-version[print -find version]')
local find_paths
find_paths='*: :_directories'
declare -a find_operators
find_operators=(
'*-a[logical and of options]'
'*-o[logical or of options]')
declare -a find_expressions
# TODO: Modes (see _chmod)
# TODO: Ranges
# TODO: The -type types should be documented correctly and only include D on
# Solaris systems (?)
# TODO: --sfm is only available on NT systems (i.e., cygwin?)
find_expressions=(
'*-acl[true if the file has additional ACLs defined]'
'*-atime[true if the last-access time is in the specified range]:range'
'*-chgrp[change group of file]:group:_group'
'*-chmod[change mode of file]:mode'
'*-chown[change user of file]:user:_user'
'*-ctime[true if the inode-change time is in the specified range]:range'
'*-depth[evaluate directory contents before directory itself]'
'*-dostat[do not do stat optimization]'
'*-exec[execute program on found file]:program: _command_names -e:*\;::program arguments: _normal'
'*-false[always false]'
'*-fstype[true if the file is on a file system of the given type]:file-system type:_file_systems'
'*-group[true if the file is owned by the given group]:group:_groups'
'*-inum[true if the inode of the file is in the specified range]:inode range'
'*-linkedto[true if the file is linked to the given file]:file:_files'
'*-links[true if the file has a number of links to it in the specified range]:number of links'
'*-lname[true if symbolic-link name matches the given glob]:glob'
'*-local[true if the file is on a local file-system]'
'*-lpat[true if symbolic-link name matches the given pattern]:pattern'
'*-ls[list found files]'
'*-maxdepth[descend at most the given number of directories deep]:maximum search depth:'
'*-mindepth[descend at least the given number of directories deep]:minimum search depth'
'*-mtime[true if the last-modification time is in the specified range]:range'
'*-name[true if file-name matches the given glob]:glob'
'*-newer[true if last-modification time is newer than that of the given file]:file:_files'
'*-neweraa[true if the last-access time is newer than that of the given file]:file:_files'
'*-newerac[true if the last-access time is newer than the inode-change time of the given file]:file:_files'
'*-neweram[true if the last-access time is newer than the last-modification time of the given file]:file:_files'
'*-newerca[true if the inode-change time is newer than the last-access time of the given file]:file:_files'
'*-newercc[true if the inode-change time is newer than that of the given file]:file:_files'
'*-newercm[true if the inode-change time is newer than the last-modification time of the given file]:file:_files'
'*-newerma[true if the last-modification time is newer than the last-access time of the given file]:file:_files'
'*-newermc[true if the last-modification time is newer than the inode-change time of the given file]:file:_files'
'*-newermm[true if the last-modification time is newer than that of the given file]:file:_files'
'*-nogroup[true if the group of the file is not in the group database]'
'*-nouser[true if the user of the file is not in the user database]'
'*-ok[execute program on found file, after confirmation]:program: _command_names -e:*\;::program arguments: _normal'
'*-pat[true if the file-name matches the given pattern]:pattern'
'*-path[true if the full path matches the given glob]:glob'
'*-perm[true if the given symbolic or octal permission matches that of the file]:mode'
'*-ppat[true if the full path matches the given pattern]:pattern'
'*-print[print filenames to stdout separated by newlines]'
'*-printnnl[print filenames to stdout separated by spaces]'
'*-prune[do not descend into found directory]'
'*-size[true if the size of the file is in the given range]:range'
'*-sparse[true if the file appears to be sparse]'
'*-true[always true]'
'*-type[true if the file is of the given type]:file type:((b\:"block (buffered) special" \
c\:"character (unbuffered) special" \
d\:directory \
p\:"named pipe (FIFO)" \
f\:"regular file" \
l\:"symbolic link" \
s\:socket \
D\:"door (Solaris)"
e\:unknown))'
'*-user[true if the file is owned by the given user]:user:_users'
'*-xattr[true if the file has extended attributes]'
'*'{-xdev,-mount}'[restrict the search to the current file-system]')
(( $+_cache_mkisofs_find_primaries_not_taking_an_argument )) ||
_cache_mkisofs_find_primaries_not_taking_an_argument=(\) ${${${find_expressions:#\*-*\[*\]:*}#\*}%%\[*})
(( $+_cache_mkisofs_find_primaries_taking_an_argument )) ||
_cache_mkisofs_find_primaries_taking_an_argument=(${${${(M)find_expressions:#\*-*\[*\]:*}#\*}%%\[*})
(( $+functions[_mkisofs_character_sets] )) ||
_mkisofs_character_sets () {
local expl character_sets
character_sets=${${(f)"$(_call_program character-sets mkisofs -input-charset help 2>&1)"}[3,-1]}
_wanted character-sets expl 'character set' compadd - $character_sets
}
(( $+functions[_mkisofs_sparc_boot_images] )) ||
_mkisofs_sparc_boot_images () {
compset -P '*,'
sep='-qS,'
[[ $words[CURRENT] == ?*,?*,?*,?*,?*,?*,* ]] && sep=
_alternative \
"boot-images:boot image:_files $sep" \
'boot-image-replications:boot-image replication:((...\:"use the previous boot-image for the rest of the partitions"))'
}
# TODO: Need to escape = in the result.
(( $+functions[_mkisofs_pathspec] )) ||
_mkisofs_pathspec () {
local sep
if (( $words[(I)-graft-points] )); then
if ! compset -P '*[^\\]\='; then
sep='-qS='
fi
fi
_files $sep
}
integer index_of_find
(( index_of_find = $words[(I)-find] ))
if (( index_of_find > 0 && index_of_find < CURRENT )); then
if (( $words[(I)-help] || $words[(I)-version] )); then
_message 'no more arguments'
elif (( index_of_find == CURRENT - 1 )); then
_arguments \
$find_options \
$find_paths \
$find_expressions
elif ((( index_of_find == CURRENT - 2 )) &&
[[ $words[CURRENT-1] == -([HLP]|-(help|version)) ]]) ||
[[ -d $words[CURRENT-1] ]]; then
# TODO: all $words[index_of_find,CURRENT-1] must be -d.
# But we can perhaps assume that the user hasn’t gone back and changed an
# argument without thinking about it carefully…otherwise, all previous
# words of interest will have passed the -d test.
_arguments \
$find_paths \
$find_expressions
else
integer i
(( i = index_of_find + 1 ))
while [[ $words[i] == -([HLP]|-(help|version)) ]]; do
(( i++ ))
done
while [[ -d $words[i] ]]; do
(( i++ ))
done
words=($words[1,index_of_find] $words[i,-1])
(( CURRENT -= i - index_of_find - 1 ))
echo one: $i - $CURRENT - $words > /dev/pts/8
integer old_words_length
(( old_words_length = $#words ))
words=(${words:#\\[()\!]})
(( CURRENT -= old_words_length - $#words ))
echo two: $i - $CURRENT - $words > /dev/pts/8
_arguments \
$find_operators \
$find_expressions
fi
# elif (( $_cache_mkisofs_find_primaries_not_taking_an_argument[(I)$words[CURRENT-1]] ||
# $_cache_mkisofs_find_primaries_taking_an_argument[(I)$words[CURRENT-2]] )); then
# _arguments \
# $find_operators \
# $find_expressions \
# '*:fuck: '
# echo 3 > /dev/pts/7
# else
# _arguments \
# $find_expressions \
# '*:fuck: '
# echo 4 > /dev/pts/7
# fi
else
declare -a growisofs_options
if [[ $service == growisofs ]]; then
growisofs_options=(
'-Z[burn an initial session to the selected device]:device:->devimg'
'-M[merge a session with an existing one on the selected device]:device:->devimg'
'-dvd-compat[provide maximum compatibility with DVD-ROM/Video]'
'-dry-run[do everything up to the actual burning process]'
'-overburn[allow overburning of the media]'
'-speed=-[set recording speed]:speed')
fi
# TODO: -M device and -dev device
_arguments \
'-abstract[specify the abstract file-name]:file:_files' \
'-A[specify application id]:application id' \
{-allow-leading-dots,-ldots}'[allow ISO9660 filenames to begin with a period]' \
'-allow-lowercase[allow lower-case characters in ISO9660 filenames]' \
'-allow-multidot[allow more than one dot in ISO9660 filen-names]' \
'-biblio[specify the bibliographic file-name]:file:_files' \
'(-no-cache-inodes )-cache-inodes[cache inode and device numbers to find hard links to files]' \
'( -cache-inodes)-no-cache-inodes[do not cache inode and device numbers]' \
'-b[specify path and file-name of a el torito boot-image]:boot image:_files' \
'-eltorito-alt-boot[start a new set of el torito boot parameters]' \
{-B,-sparc-boot}'[specify comma-separated list of boot images needed for sparc systems]:boot image:_mkisofs_sparc_boot_images' \
'-G[specify path and file-name of a generic boot-image]:boot image:_files' \
'-hard-disk-boot[specify that the el torito boot-image is a hard-disk image]' \
'-no-emul-boot[specify that the el torito boot-image is a "no emulation" image]' \
'-no-boot[specify that the el torito CD should be markes an non-bootable]' \
'-boot-load-seg[specify the load-segment address of the boot-image for a "no emulation" image]:segment address' \
'-boot-lead-size[specify the number of 512-byte sectors to load in "no emulation" mode]:load sectors' \
'-boot-info-table[specify that a 56-byte table of CD-ROM-layout information should be written]' \
'-C[specify last session start and next session start addresses for CDextra]' \
'-c[specify the path and file-name of a boot catalog to be used for an el torito bootable-CD]' \
'-check-oldnames[check all filenames imported from an old session against current rules]' \
'-check-session[check old session for compliance against current rules]' \
'-copyright[specify the path and file-name of the copyright file]' \
'-d[omit trailing period from files that do not have a period]' \
'-D[do not use deep directory-realocation]' \
'-dir-mode[specify the mode of directories]' \
'-dvd-video[generate a DVD-Video compliant UDF file-system]' \
'-f[follow symbolic links when generating the file system]' \
'-file-mode[specify the mode of regular files]' \
'-find[the rest of the command line is treated like a find expression]' \
'-gid[use the given group-id for files in the image]:group:_groups' \
'-gui[behave favorable towards a GUI]' \
'-graft-points[allow graft-points in filenames]' \
'*-hide[hide files and directories matching the given glob on the image]:glob' \
'-hide-list[hide files and directories found in the given file]:file-list file:_files' \
'-hide-joliet[hide files and directories matching the given glob in the Joliet tree of the image]:glob' \
'-hide-joliet-trans-tbl[hide the TRANS.TBL files from the Joliet tree]' \
'-hide-rr-moved[rename the RR_MOVED directory to .rr_moved in the Rock Ridge tree]' \
'-input-charset[specify the character set of source files]:character set:_mkisofs_character_sets' \
'-output-charset[specify the character set of files in the Rock Ridge tree]:_mkisofs_character_sets' \
'-iso-level[specify ISO9660 conformance level]:ISO9660 conformance level:(1 2 3 4)' \
'-J[generate a Joliet tree]' \
'-joliet-long[generate a Joliet tree allowing filenames up to 103 characters long]' \
'-jcharset[specify the character set of files in the Joliet tree]:_mkisofs_character_sets' \
'-l[allow full 31-character filenames]' \
'-log-file[write all output to the given file]:log file:_files' \
'-m[exclude files matching the given glob from the image]:glob' \
'-exclude-list[exclude files matching globs in the given file]:glob file:_files' \
'-max-iso9660-filenames[allow 37-character ISO9660-filenames]' \
'-M[specify path or device to existing ISO9660 image to merge with]:ISO9660 image:_files' \
'-dev[specify device of existing ISO9660 image to merge with]:ISO9660 device' \
'-N[omit version numbers from ISO9660 filenames]' \
'-new-dir-mode[mode to use when creating directories in the ISO9660 image]:mode' \
{-nobak,-no-bak}'[do not include backup files on the ISO9660 file-system]' \
'-force-rr[do not use the automatic Rock Ridge attribute-recognition for previous sessions]' \
'-no-rr[do not use use the Rock Ridge attributes from previous sessions]' \
'-no-split-symlink-components[do not split the symbolic-link compontents]' \
'-no-split-symlink-fields[do not split the symbolic-link fields]' \
'-o[output the ISO9660-file-system image to the given file]:ISO9660 image:_files' \
'-pad[pad the end of the image by 150 sectors]' \
'-no-pad[do not pad the end of the image by 150 sectors]' \
'-path-list[read directory and file-name pathspecs from the given file]' \
'-publisher[specify what should be written in the publisher volume-header]' \
'-p[specify what should be written in the preparer volume-header]' \
'-print-size[print estimated file-system-size in multiples of the sector size and exit]' \
'-quiet[output even less information than usual]' \
'-R[generate SUSP and RR records using the Rock-Ridge protocol]' \
'-r[same as -R, but with more useful UID and GID values]' \
'-relaxed-filenames[allow more characters in ISO9660 filenames]' \
'-root[move all files and directories into the given directory on the image]:root directory:_directories' \
'-rrip110[create ISO9660-file-system images that follow the Rrip v1.10 standard]' \
'-rrip112[create ISO9660-file-system images that follow the Rrip v1.12 standard]' \
'-old-root[specify the root directory used in a previous session]:old root-directory:_directories' \
'-sort[sort files on the image based on weights defined in the given file]:sort-weighting file:_files' \
'-sparc-label[set the sun disk-label-name used for the -sparc-boot option]:label' \
'-split-output[split the output image into several files ~1GiB in size]' \
'-stream-media-size[enable streaming operation and set media size to given number of sectors]:media size in sectors' \
'-stream-file-name[reserved for future use]:name' \
'-sunx86-boot[specify a comma-separated list of file-system images needed to make a bootable Solaris-x86-CD]:list' \
'-sunx86-label[specify the SVr4 disk-label-name for the SVr4 disk-label created with the -sunx86-boot option]:label' \
'-sysid[specify the system ID]' \
'-T[generate a TRANS.TBL file in each directory on the image]' \
'-table-name[alternative translation-table filename]:translation-table filename:_files' \
'-ucs-level[specify Unicode conformance-level in the Joliet directory]:Unicode conformance-level:(1 2 3)' \
'-udf[include UDF support in the generated file-system image]' \
'-uid[use the given user-id for files in the image]:user:_users' \
'-use-fileversions[use version numbers found on the file system for files included in the image]' \
'-U[allow basically any characters in filenames in the ISO9660 image]' \
"-no-iso-translate[do not translate invalid characters '#' and '~' for ISO9660 filenames]" \
'-V[specify the volume ID]:volume ID' \
'-volset[specify the volume-set ID]:volume-set ID' \
'-volset-size[specify the size of the volume-set]:volume-set size' \
'-volset-seqno[specify the volume-set sequence-number]:volume-set sequence-number' \
'*-v[enable verbose execution (given twice produces additional output)]' \
'*-x[exclude complete pathname from the image]:path:_directories' \
'-z[generate special RRIP records for transparently compressed files]' \
'-hfs[create a ISO9660/HFS-hybrid CD]' \
'-apple[create an ISO9660 CD with apple extensions]' \
'-map[use the given file to map CREATOR and TYPE information for a file based on extension]:mapping file:_files' \
'-magic[the CREATOR and TYPE information is set using the magic number of the file]:magic file:_files' \
'-hfs-creator[specify the default CREATOR for all files in the image]:creator' \
'-hfs-type[specify the default TYPE for all files in the image]:type' \
'-probe[search the contents of files for known Apple/Unix file-formats]' \
'-no-desktop[do not create (empty) Desktop files]' \
'-map-name[use the HFS filename as the starting point for the image filenames]' \
'-boot-hfs-file[use the given file as a boot driver]:boot-driver file:_files' \
'-part[generate an HFS partition table]' \
'-auto[make the HFS CD auto-start with the given file]:auto-start file:_files' \
'-cluster-size[set the size in bytes of allocation units of PC-Exchange files]:cluster size' \
'-hide-hfs[hide files matching the given glob from the HFS volume]:glob' \
'-hide-hfs-list[hide files matching any of the globs found in the given file]:glob file:_files' \
'-hfs-volid[volume name for the HFS partition]:HFS volume-name' \
'-icon-position[use the icon-position information from the Apple/Unix file]' \
'-root-info[set metadata for the root folder of the HFS volume]' \
'*-prep-boot[specify the PReP boot-image-file]:PReP boot-image-file:_files' \
'-input--hfs-charset[specify the character set used in HFS filenames]:character set:_mkisofs_character_sets' \
'-output-hfs-charset[specify the character set of files in the HFS volume]:_mkisofs_character_sets' \
'-hfs-unlock[do not lock the HFS volume]' \
'-hfs-bless["bless" the given directory/folder]' \
'-hfs-params[override certain parameters used to create the HFS file system]:parameters' \
'--cap[look for AUFS CAP Macintosh files]' \
'--netatalk[look for NETATALK Macintosh files]' \
'--double[look for AppleDouble Macintosh files]' \
'--ethershare[look for Helios EtherShare Macintosh files]' \
'--ushare[look for IPT UShare Macintosh files]' \
'--exchange[look for PC Exchange Macintosh files]' \
'--sgi[look for SGI Macintosh files]' \
'--xinet[look for XINET Macintosh files]' \
'--macbin[look for MacBinary Macintosh files]' \
'--single[look for AppleSingle Macintosh files]' \
'--dave[look for Thursby Software Systems DAVE Macintosh files]' \
"--sfm[look for Microsoft's Services for Macintosh files]" \
'--osx-double[look for MacOS X AppleDouble Macintosh files]' \
'--osx-hfs[look for MacOS X HFS Macintosh files]' \
'(- *)-help[display help message]' \
'(- *)-version[display version information]' \
$growisofs_options \
'*:pathspec:_mkisofs_pathspec' && return 0
case "$state" in
(devimg)
if compset -P \*=; then
_files
else
_files -g "*(%,@)"
fi
;;
esac
fi
PK [ @ @ functions/_other_accountsnu W+A #compdef talk ntalk ytalk
_user_at_host -t other-accounts "$@"
PK [ȴ\} } functions/_x_borderwidthnu W+A #autoload
local x="$argv[(I)-X]"
if (( x )); then
_message -r "$argv[x + 1]"
else
_message -e values 'border width'
fi
PK [@ Bm functions/_jobs_bgnu W+A #compdef bg
_jobs -s "$@"
PK [ functions/_terminalsnu W+A #compdef infocmp -value-,TERM,-default-
local desc expl
desc=( $TERMINFO ~/.terminfo $TERMINFO_DIRS /usr/{,share/}{,lib/}terminfo )
_wanted terminals expl 'terminal name' \
compadd "$@" - $desc/*/*(N:t)
PK [jv v functions/_x_titlenu W+A #autoload
local x="$argv[(I)-X]"
if (( x )); then
_message -r "$argv[x + 1]"
else
_message -e titles 'title'
fi
PK [^KM functions/_bogofilternu W+A #compdef bogoutil bogotune bogofilter
local expl ret bogotokens
_bogoutil_caching_policy () {
local -a oldp
# rebuild if cache is more than a week old
oldp=( "$1"(mw+1) )
(( $#oldp )) && return 0
return 1
}
_bogoutil() {
typeset -a _bogoutil_actions
_bogoutil_actions=(-h --help -V --version -d --dump -l --load -u
--upgrade -m -w -p -H --db-verify -r -R --db-prune --db-recover
--db-recover-harder --db-remove-environment -k --db-cachesize)
_arguments -s \
'*'{-v,--verbosity}'[verbose]' \
'-n[replace non-ASCII characters]' \
{-D,--debug-to-stdout}'[redirect debug output to stdout]' \
'-a[acceptable token age]:date or day count' \
'-c[acceptable count]:count threshold' \
'-s[acceptable size range]:min-max range' \
{-y,--timestamp-date=}'[date for when unknown]:date in YYYYMMDD format' \
'(--input-file -I)'{-I,--input-file=}'[input file]:input file:_files' \
{-x,--debug-flags=}'[debug flags]:debug flags:' \
"($_bogoutil_actions)"{-d,--dump=}'[print contents of db]:database file:_files -g "*.db"' \
"($_bogoutil_actions)"{-l,--load=}'[load file into db]:textfile:_files' \
"($_bogoutil_actions)"{-u,--upgrade=}'[upgrade wordlist version]:database file:_files -g "*.db"' \
"($_bogoutil_actions)"'-m[perform maintenance functions]:file:_files' \
"($_bogoutil_actions)"'-w[display token information]:database file or directory:_files' \
"($_bogoutil_actions)"'-p[display token probability information]:database file or directory:_files' \
"($_bogoutil_actions)"'-H[print histogram]:database file or directory:_files' \
"($_bogoutil_actions)"'-r[recalculate ROBX]:database:_files -/' \
"($_bogoutil_actions)"'-R[recalculate and save ROBX]:database:_files -/' \
"($_bogoutil_actions)"{-k,--db-cachesize=}'[set Berkeley DB cache size]:size in MB:' \
"($_bogoutil_actions)"'--db-verify[verify database]:database:_files -/' \
"($_bogoutil_actions)"'--db-recover[run regular recovery]:database:_files -/' \
"($_bogoutil_actions)"'--db-recover-harder[run catastrophic recovery]:database:_files -/' \
"($_bogoutil_actions)"'--db-prune[checkpoint database]:database:_files -/' \
"($_bogoutil_actions)"'--db-remove-environment:database:_files -/' \
'--db_lk_max_locks[set max lock count]' \
'--db_lk_max_objects[set max object count]' \
"($_bogoutil_actions)"'-h[help]' \
"($_bogoutil_actions)"'--help' \
"($_bogoutil_actions)"'-V[version]' \
"($_bogoutil_actions)"'--version' \
'*:tokens:->tokens' && ret=0
zstyle -s ":completion:${curcontext}:" cache-policy update_policy
if [[ -z "$update_policy" ]]; then
zstyle ":completion:${curcontext}:" cache-policy _bogoutil_caching_policy
fi
case $state in
(tokens)
if ( [[ -z "$bogotokens" ]] || _cache_invalid bogotokens ) &&
! _retrieve_cache bogotokens; then
bogotokens=(${${(f)"$(_call_program bogoutil bogoutil -d ~/.bogofilter/wordlist.db -c 50)"}%% *})
_store_cache bogotokens bogotokens
else
:
fi
_wanted tokens expl "token" \
compadd -a bogotokens
;;
esac
}
case $service in
(bogoutil)
_bogoutil "$@"
;;
(bogotune)
_arguments \
'-h[help]' \
'-C[do not read standard configs]' \
'-c[config file]:config file:_files' \
'-D[do not a wordlist file]' \
'-d[wordlist dir]:directory:_files -/' \
'-E[disable ESF tuning]' \
'-M[output input file in message count format]' \
'-r[specify robx value]:robx value:' \
'-T[specify fp target value]:fp target value:' \
'-s[spam files]:spam files:_files' \
'-n[non-spam files]:non-spam files:_files' \
'-v[verbose]' \
'-q[quiet]'
;;
(bogofilter)
_arguments -s -w \
'(--help)-h[help]' \
'(--version)-V[version]' \
'(--query)-Q[query]' \
'-QQ[display extended config info]' \
'(--passthrough)-p[passthrough]' \
'(--ham-true)-e[ham-true]' \
'(--update-as-scored)-u[update-as-scored]' \
'(--classify-mbox)-M[classify-mbox]' \
'(--classify-stdin)-b[classify-stdin]' \
'(--classify-files)-B[classify-files]:file list:_files' \
'(--dataframe)-R[print R dataframe]' \
'(--register-spam)-s[register as spam]' \
'(--register-ham)-n[register as non-spam]' \
'(--unregister-spam)-S[unregister as spam]' \
'(--unregister-ham)-N[unregister as non-spam]' \
'(--config-file)-c[config file]:config file:_files' \
'(--no-config-file)-C[do not read standard config files]' \
'(--bogofilter_dir)-d[wordlist directory]' \
'(--no-header-tags)-H[disable header line tagging]' \
'(--db_cachesize)-k[set Berkeley DB cache size]:megabytes:' \
'(--use-syslog)-l[log via syslog]' \
'(--syslog-tag)-L[specify tag value for log messages]:tag:' \
'(--input-file)-I[specify input file instead of stdin]:input file:_files' \
'(--output-file)-O[specify output file instead of stdout]:output file:_files' \
'(--min_dev --robs --robx)-m[user-defined min_dev, robs, and robx]:values:' \
'(--spam_cutoff --ham_cutoff)-o[user-defined spam and ham cutoffs]:values:' \
'(--terse)-t[terse output mode]' \
'(--fixed-terse-format)-T[invariant terse output mode]' \
'(--report-unsure)-U[print statistics if spamicity is unsure]' \
'(--verbosity)-v[set debug verbosity level]' \
'(--timestamp-date)-y[set date for token timestamps]' \
'(--debug-to-stdout)-D[direct debug output to stdout]' \
'(--debug-flags)-x[debug flags]:debug flags:'
;;
esac
PK [6;J J functions/_hostsnu W+A #compdef ftp rwho rup xping traceroute host aaaa zone mx ns soa txt
# avoid calling variable "hosts", it's an obvious candidate for use in
# zstyle -e '*' hosts 'reply=($hosts)'
local expl _hosts tmp useip
if ! zstyle -a ":completion:${curcontext}:hosts" hosts _hosts; then
if (( $+_cache_hosts == 0 )); then
# uniquify
typeset -gUa _cache_hosts
local ipstrip='[:blank:]#[^[:blank:]]#'
# This boolean style determines whether hosts completes IP addresses. The
# default is no (not using IP addresses).
zstyle -t ":completion:${curcontext}:hosts" use-ip && useip=yes
[[ -n $useip ]] && ipstrip=
if (( ${+commands[getent]} )); then
# pws: we were using the horrible ": ${(A)...:=}" syntax to assign
# to _cache_hosts, overriding the typeset as well as being unreadable
# and having obscure splitting behaviour. Why? We've just
# tested _cache_hosts doesn't exist.
_cache_hosts=(${(s: :)${(ps:\t:)${(f)~~"$(_call_program hosts getent hosts 2>/dev/null)"}##${~ipstrip}}})
else
_cache_hosts=(${(s: :)${(ps:\t:)${${(f)~~"$(/dev/null); then
_cache_hosts+=( ${=${(f)tmp}##${~ipstrip}} ) # If you use YP
fi
fi
local khostfile
typeset -Ua khostfiles
# This style specifies a list of files to look up for host names and IP
# addresses, if asked to. The files can contain comma separated host names
# and IP's, and any text on a line after the first whitespace,| or # is
# discarded. ssh's known_hosts files are thus supported. This style defaults
# to the list /etc/ssh/ssh_known_hosts, ~/.ssh/known_hosts
zstyle -a ":completion:${curcontext}:hosts" known-hosts-files khostfiles ||
khostfiles=(/etc/ssh/ssh_known_hosts ~/.ssh/known_hosts)
for khostfile in $khostfiles; do
if [[ -r $khostfile ]]; then
khosts=(${${(s:,:)${(j:,:)${(u)${(f)"$(<$khostfile)"}%%[ |#]*}}}:#*[\[\]]*})
if [[ -z $useip ]]; then
khosts=(${${${khosts:#(#s)[0-9]##.[0-9]##.[0-9]##.[0-9]##(#e)}:#(#s)[0-9a-f:]##(#e)}:#*[\[\]]*})
fi
_cache_hosts+=($khosts)
fi
done
fi
_hosts=( "$_cache_hosts[@]" )
fi
_wanted hosts expl host \
compadd -M 'm:{a-zA-Z}={A-Za-z} r:|.=* r:|=*' -a "$@" - _hosts
PK [
functions/narrow-to-regionnu W+A # Restrict the start of the editable line to the region between cursor
# and mark (including the character at the end). Can be bound used as
# a zle widget, or called as a function from another widget.
#
# Optionally accepts exactly two arguments, which are used instead of
# $CURSOR and $MARK as limits to the range.
#
# Other options:
# -p pretext show `pretext' instead of the buffer text before the region.
# -P posttext show `posttext' instead of the buffer text after the region.
# Either or both may be empty.
# -n Only replace the text before or after the region with
# the -p or -P options if the text was not empty.
# -S statevar
# -R statevar
# Save or restore the state in/from the parameter named statevar. In
# either case no recursive editing takes place; this will typically be
# done within the calling function between calls with -S and -R. The
# statevar may not begin with the prefix _ntr_ which is reserved for
# parameters within narrow-to-region.
emulate -L zsh
setopt extendedglob
local _ntr_lbuffer _ntr_rbuffer
local _ntr_predisplay=$PREDISPLAY _ntr_postdisplay=$POSTDISPLAY
integer _ntr_start _ntr_end _ntr_swap _ntr_cursor=$CURSOR _ntr_mark=$MARK
integer _ntr_stat
local _ntr_opt _ntr_pretext _ntr_posttext _ntr_usepretext _ntr_useposttext
local _ntr_nonempty _ntr_save _ntr_restore
while getopts "np:P:R:S:" _ntr_opt; do
case $_ntr_opt in
(n) _ntr_nonempty=1
;;
(p) _ntr_pretext=$OPTARG _ntr_usepretext=1
;;
(P) _ntr_posttext=$OPTARG _ntr_useposttext=1
;;
(R) _ntr_restore=$OPTARG
;;
(S) _ntr_save=$OPTARG
;;
(*) [[ $_ntr_opt != '?' ]] && print "$0: unhandled option: $_ntr_opt" >&2
return 1
;;
esac
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
if [[ $_ntr_restore = _ntr_* || $_ntr_save = _ntr_* ]]; then
zle -M "$0: _ntr_ prefix is reserved" >&2
return 1
fi
if [[ -n $_ntr_save || -z $_ntr_restore ]]; then
if (( $# )); then
if (( $# != 2 )); then
zle -M "$0: supply zero or two arguments"
return 1
fi
_ntr_start=$1
_ntr_end=$2
else
_ntr_start=$MARK
_ntr_end=$CURSOR
fi
if (( _ntr_start > _ntr_end )); then
_ntr_swap=_ntr_start
_ntr_start=_ntr_end
_ntr_end=_ntr_swap
fi
(( _ntr_end++, _ntr_cursor -= _ntr_start, _ntr_mark -= _ntr_start ))
_ntr_lbuffer=${BUFFER[1,_ntr_start]}
if [[ -z $_ntr_usepretext || ( -n $_ntr_nonempty && -z $_ntr_lbuffer ) ]]
then
_ntr_pretext=$_ntr_lbuffer
fi
_ntr_rbuffer=${BUFFER[_ntr_end,-1]}
if [[ -z $_ntr_useposttext || ( -n $_ntr_nonempty && -z $_ntr_rbuffer ) ]]
then
_ntr_posttext=$_ntr_rbuffer
fi
PREDISPLAY="$_ntr_predisplay$_ntr_pretext"
POSTDISPLAY="$_ntr_posttext$_ntr_postdisplay"
BUFFER=${BUFFER[_ntr_start+1,_ntr_end-1]}
CURSOR=$_ntr_cursor
MARK=$_ntr_mark
if [[ -n $_ntr_save ]]; then
eval "$_ntr_save=(${(qq)_ntr_predisplay} ${(qq)_ntr_postdisplay}
${(qq)_ntr_lbuffer} ${(qq)_ntr_rbuffer})" || return 1
fi
fi
if [[ -z $_ntr_save && -z $_ntr_restore ]]; then
zle recursive-edit
_ntr_stat=$?
fi
if [[ -n $_ntr_restore || -z $_ntr_save ]]; then
if [[ -n $_ntr_restore ]]; then
if ! eval "_ntr_predisplay=\${${_ntr_restore}[1]}
_ntr_postdisplay=\${${_ntr_restore}[2]}
_ntr_lbuffer=\${${_ntr_restore}[3]}
_ntr_rbuffer=\${${_ntr_restore}[4]}"; then
zle -M Failed.
return 1
fi
fi
PREDISPLAY=$_ntr_predisplay
POSTDISPLAY=$_ntr_postdisplay
LBUFFER="$_ntr_lbuffer$LBUFFER"
RBUFFER="$RBUFFER$_ntr_rbuffer"
fi
return $_ntr_stat
PK [jS_ _ functions/_firstnu W+A #compdef -first-
# This function is called at the very beginning before any other
# function for a specific context.
#
# This just gives some examples of things you might want to do here.
#
#
# Other things you can do here is to complete different things if the
# word on the line matches a certain pattern. This example allows
# completion of words from the history by adding two commas at the end
# and hitting TAB.
#
# if [[ "$PREFIX" = *,, ]]; then
# local max i=1 expl opt
#
# PREFIX="$PREFIX[1,-2]"
# # If a numeric prefix is given, we use it as the number of
# # lines (multiplied by ten below) in the history to search.
# if [[ ${NUMERIC:-1} -gt 1 ]]; then
# max=$NUMERIC
# unset NUMERIC
# else
# # The default is to search the last 100 lines.
# max=10
# fi
# # We first search in the last ten words, then in the last
# # twenty words, and so on...
# while [[ i -le max ]]; do
# if zstyle -t ":completion:${curcontext}:history-words" sort; then
# opt=-J
# else
# opt=-V
# fi
# if _wanted "$opt" history-words expl "history ($n)" \
# compadd -Q - \
# "${(@)${(@)historywords:#[\$'\"]*}[1,i*10]}"; then
# # We have found at least one matching word, so we switch
# # on menu-completion and make sure that no other
# # completion function is called by setting _compskip.
# compstate[insert]=menu
# _compskip=all
# return 0
# fi
# (( i++ ))
# done
# fi
PK [zW& & functions/_mysql_utilsnu W+A #compdef mysql mysqlshow mysqldump mysqlimport mysqladmin
_mysql_get_identity() {
local _mysql_pass _mysql_sock
_mysql_user=${(v)opt_args[(i)-u|--user]}
_mysql_port=${(v)opt_args[(i)-P|--port]}
_mysql_host=${(v)opt_args[(i)-h|--host]}
_mysql_pass=${(v)opt_args[(i)-p|--password]}
_mysql_sock=${(v)opt_args[(i)-S|--socket]}
_mysql_params=(
${_mysql_user:+"--user=$_mysql_user"}
${_mysql_host:+"--host=$_mysql_host"}
${_mysql_port:+"--port=$_mysql_port"}
${_mysql_pass:+"--password=$_mysql_pass"}
${_mysql_sock:+"--socket=$_mysql_sock"}
)
}
_mysql_hosts() {
local _mysql_user _mysql_port _mysql_host _mysql_params
_mysql_get_identity
_wanted hosts expl 'server host' \
_combination -s '[:@]' '' hosts-ports-users \
${_mysql_user:+users=${_mysql_user:q}} \
${_mysql_port:+ports=${_mysql_port:q}} \
hosts -
}
_mysql_ports() {
local _mysql_user _mysql_port _mysql_host _mysql_params
_mysql_get_identity
_wanted ports expl 'server port' \
_combination -s '[:@]' '' hosts-ports-users \
${_mysql_user:+users=${_mysql_user:q}} \
${_mysql_host:+hosts=${_mysql_host:q}} \
ports -
}
_mysql_users() {
local _mysql_user _mysql_port _mysql_host _mysql_params
_mysql_get_identity
_wanted users expl 'server username' \
_combination -s '[:@]' '' hosts-ports-users \
${_mysql_host:+hosts=${_mysql_host:q}} \
${_mysql_port:+ports=${_mysql_port:q}} \
users -
}
_mysql_databases() {
local _mysql_user _mysql_port _mysql_host _mysql_params
_mysql_get_identity
compadd "$@" - ${${(f)~~"$(_call_program databases \
mysql "$_mysql_params[@]" <<<'show databases' 2>/dev/null)"}[2,-1]}
}
_mysql_tables() {
local _mysql_user _mysql_port _mysql_host _mysql_params
_mysql_get_identity
compadd "$@" - ${${(f)~~"$(_call_program tables \
mysql "$_mysql_params[@]" $1 <<< 'show tables' 2>/dev/null)"}[2,-1]}
}
_mysql() {
_arguments -s \
"$_mysql_common_opts[@]" "$_mysql_variables_opts[@]" \
'(--disable-auto-rehash)--auto-rehash[enable automatic rehashing]' \
'(-t --table)'{-B,--batch}'[batch mode (no pretty ASCII)]' \
'--character-sets-dir=[specify directory containing character sets]:directory:_directories' \
'--default-character-set=[specify character set]:character set' \
{-T,--debug-info}'[print debug info on exit]' \
'(:)'{-D+,--database=}'[specify database to use]' \
{-e+,--exec=}':[execute specified command]:mysql command' \
{-f,--force}'[continue through errors]' \
'(--disable-named-commands)'{-G,--named-commands}'[enable named commands]' \
{-i,--ignore-spaces}'[ignore space after function names]' \
--local-infile \
{-b,--no-beep}'[turn off beep on error]' \
{-H,--html}'[produce HTML output]' \
{-x,--xml}'[produce XML output]' \
'(--skip-line-numbers)--line-numbers[write line numbers for errors]' \
"(--line-numbers)--skip-line-numbers[don't write line numbers for errors]" \
{-n,--unbuffered}'[flush the buffer after each query]' \
'--column-names[write column names in results]' \
"--skip-column-names[don't write column names in results]" \
{-o,--one-database}'[only update the default database]' \
'--pager=[specify pager to use for displaying results]::pager' \
'--prompt=[set the mysql prompt to specified value]:prompt' \
{-q,--quick}'[disable caching of the result]' \
{-r,--raw}'[write fields without conversion]' \
{-s,--silent}'[silent mode]' \
'(-B --batch)'{-t,--table}'[output in table format]' \
'(-B --batch)--tee=[append all output to file]:file:_files' \
{-U,--safe-updates}'[only allow UPDATE and DELETE that uses keys]' \
{-E,--vertical}'[print query output vertically]' \
{-w,--wait}'[wait and retry server connection if necessary]' \
'(--pager)--disable-pager[print directly to stdout]' \
'(--auto-rehash)--disable-auto-rehash[disable automatic hashing]' \
'(-G --named-commands)--disable-named-commands' \
':MySQL database:_mysql_databases'
}
_mysqlshow() {
_arguments -s \
"$_mysql_common_opts[@]" \
':MySQL database to show:_mysql_databases' \
':table to show:{ _mysql_tables "$line[1]" }' \
':field wildcard'
}
_mysqldump() {
_arguments -s \
"$_mysql_common_opts[@]" "$_mysql_variables_opts[@]" \
{-a,--all}'[include all create options]' \
{-c,--complete-insert}'[use complete insert statements]' \
{-e,--extended-insert}'[allow new INSERT syntax]' \
"--add-drop-table[add a 'drop table' before each create]" \
"--add-locks[add locks around insert statements]" \
"--allow-keywords[allow creation of column names that are keywords]" \
"--delayed[insert rows with INSERT DELAYED]" \
{-F,--flush-logs}'[flush logs file in server before dump]' \
{-l,--lock-tables}'[lock all tables for read]' \
{-t,--no-create-info}"[don't write table creation info]" \
{-d,--no-data}"[don't write row information]" \
'--opt[create fastest possible dump for reading]' \
{-q,--quick}"[don't buffer, dump directly to stdout]" \
{-T,--tab=}"[dump tab-separated text files for each table]:directory to store text files:_files -/" \
{-w+,--where=}'[dump only selected records]:WHERE clause to limit records to dump: ' \
'--fields-terminated-by=:(with --tab) fields in textfile terminated by ...:' \
'--fields-enclosed-by=:(with --tab) fields in import file enclosed by ...:' \
'--fields-optionally-enclosed-by=:(with --tab) fields in import file optionally enclosed by ...:' \
'--fields-escaped-by=:(with --tab) fields in import file escaped by ...:' \
'--lines-terminated-by=:(with --tab) lines in import file terminated by ...:' \
':MySQL database to dump:_mysql_databases' \
'*:tables to dump:{ _mysql_tables "$line[1]" }'
}
_mysqlimport() {
_arguments -s \
"$_mysql_common_opts[@]" "$_mysql_variables_opts[@]" \
'(-c --columns)'{-c,--columns=}'[use only specified columns to import the data to]:column list' \
'(-d --delete)'{-d,--delete}'[first delete all rows from table]' \
'--fields-terminated-by=:fields in textfile terminated by ...:' \
'--fields-enclosed-by=:fields in import file enclosed by ...:' \
'--fields-optionally-enclosed-by=:fields in import file optionally enclosed by ...:' \
'--fields-escaped-by=:fields in import file escaped by ...:' \
'(-f --force)'{-f,--force}'[continue through errors]' \
'(-r --replace -i --ignore)'{-i,--ignore}'[if duplicate key found, keep old row]' \
'--ignore-lines=[ignore specified number of lines from input file]:number of lines' \
'--lines-terminated-by=[specify line terminator in input file]:terminator' \
'(-L --local)'{-L,--local}'[read all files through the client]' \
'(-l --lock-tables)'{-l,--lock-tables}'[lock all tables for write]' \
'--low-priority[use LOW_PRIORITY when updating the table]' \
'(-i --ignore -r --replace)'{-r,--replace}'[if duplicate key found, replace old row]' \
':MySQL database:_mysql_databases'
}
_mysqladmin() {
local curcontext="$curcontext" state line expl ret=1
typeset -A opt_args
_arguments -C -s \
"$_mysql_common_opts[@]" \
'(-f --force)'{-f,--force}'[continue through errors]' \
'(-i --sleep)'{-i+,--sleep=}'[repeat commands periodically]:number of seconds between executions' \
'(-s --silent)'{-s,--silent}"[silently exit if can't connect to server]" \
'(-t --timeout)'{-t+,--timeout=}'[specify timeout for connection]:time (seconds)' \
'(-w --wait)'{-w+,--wait=}'[wait and retry server connection if necessary]:number of retries' \
'*::mysqladmin command:->mysqladmin-commands' && ret=0
if [[ -n "$state" ]]; then
if (( CURRENT == 1 )); then
_wanted commands expl 'mysqladmin command' compadd - \
create drop extended-status \
flush-{hosts,logs,status,tables,threads,privileges} \
kill password ping processlist \
reload refresh shutdown \
status start-slave stop-slave variables version && ret=0
else
case "${words[1]:t}" in
create|drop)
_wanted databases expl "MySQL database" _mysql_databases && ret=0
;;
kill)
_message -e ids 'thread ids'
;;
password)
_message -e passwords 'new password'
;;
esac
fi
fi
return ret
}
_mysql_utils() {
local _mysql_common_opts _mysql_variables_opts
_mysql_common_opts=(
'(- *)'{-\?,--help}'[display help]'
'(- *)'{-V,--version}'[display version information]' \
{-\#+,--debug=}'[specify debug log file]:log file:_files'
'--print-defaults[print the program argument list and exit]'
"--no-defaults[don't read default options from any options file]"
'--defaults-file=[read defaults from the given file]:file:_files'
'--defaults-extra-file=[read specified file after the global files]:defaults file:_files'
'(-S --socket)'{-S+,--socket=}'[specify socket file to use for connection]:server socket file:_files'
'(-h --host)'{-h+,--host=}'[specify server hostname]:hostname:_mysql_hosts'
'(-P,--port)'{-P+,--port=}'[specify port number for connection]:server port:_mysql_ports'
'(-u --user)'{-u+,--user=}'[specify username for login]:server username:_mysql_users'
'(-p --password)'{-p-,--password=}'[specify password to use for connection]:server password'
'(-C --compress)'{-C,--compress}'[use compression in server/client protocol]'
\*{-v,--verbose}'[more verbose output]'
)
_mysql_variables_opts=(
'--max_allowed_packet[maximum allowed packet size]:packet size in bytes'
'--net_buffer_length[network buffer length]:buffer length in bytes'
'--connect_timeout:timeout'
'--select_limit:limit'
'--max_join_size:size'
)
case "$service" in
mysql)
_mysql "$@"
;;
mysqlshow)
_mysqlshow "$@"
;;
mysqldump)
_mysqldump "$@"
;;
mysqlimport)
_mysqlimport "$@"
;;
mysqladmin)
_mysqladmin "$@"
;;
esac
}
_mysql_utils "$@"
PK [*d functions/_chmodnu W+A #compdef chmod
local curcontext="$curcontext" state line expl ret=1
local -a args privs
args=( '*:file:->files' )
(( $+words[(r)--reference*] )) || args+=( '1:mode:->mode' )
if _pick_variant gnu=Free\ Soft unix --version; then
args+=(
'(-v --verbose -c --changes)'{-c,--changes}'[report changes made]'
'(-v --verbose -c --changes)'{-v,--verbose}'[output a diagnostic for every file processed]'
'(-f --silent --quiet)'{-f,--silent,--quiet}'[suppress most error messages]'
'--reference=[copy permissions of specified file]:file:_files'
'(-R --recursive)'{-R,--recursive}'[change files and directories recursively]'
'(- : *)--help[display help information]'
'(- : *)--version[display version information]'
)
privs=(
'X[execute only if executable to another]'
"u[owner's current permissions]"
"g[group's current permissions]"
"o[other's current permissions]"
)
else
# based on $OSTYPE = solaris2.8
args+=(
'-f[suppress most error messages]'
'-R[change files and directories recursively]'
)
privs=( 'l[mandatory locking]' )
fi
_arguments -C -s "$args[@]" && ret=0
case "$state" in
mode)
compset -P \*,
compset -S ,\*
if [[ -prefix [0-7] ]]; then
_message -e number 'numeric mode'
elif compset -P '[a-z]#[+-=]'; then
_values -S '' privilege \
'r[read]' 'w[write]' 'x[execute]' \
's[set uid/gid]' 't[sticky]' \
"$privs[@]" && ret=0
else
suf=( -S '' )
compset -P '*'
_alternative -O suf \
'who:who:((u\:user g\:group a\:all o\:others))' \
'operators:operator:(+ - =)'
fi
;;
files)
if [[ -n $opt_args[--reference] ]]; then
zmodload -F zsh/stat b:zstat 2>/dev/null
typeset -i8 ref=$(zstat +mode $opt_args[--reference])
_wanted files expl file _files -g "*(-.^f${ref#??})" && ret=0
elif [[ $words[2] = [0-7]## ]]; then
_wanted files expl file _files -g "*(-.^f$words[2])" && ret=0
else
local spec who op priv
local -a specs
for spec in ${(s:,:)words[2]}; do
if [[ ${spec#*[+-=]} != [rwxst]## ]]; then
_files && ret=0
return ret
fi
specs+=( ${${(M)spec##[+-=]*}:+a}$spec )
done
_wanted files expl file _files -g "*(-.^f:${(j.,.)specs}:)" && ret=0
fi
;;
esac
return ret
PK [<e e functions/_functionsnu W+A #compdef unfunction
local expl
_wanted functions expl 'shell function' compadd -k "$@" - functions
PK [q
functions/_xvnu W+A #compdef xv
_x_arguments \
-{help,quick24,slow24,best24,noqcheck,pkludge,RM} \
-+{fixed,rw,perfect,owncmap,stdcmap,cecmap,ninstall,8,24,root,noresetroot,max,maxpect,quit,clear,cmap,imap,cemap,cmtmap,vsmap,nopos,dither,smooth,raw,acrop,4x3,hflip,vflip,norm,hist,mono,rv,wloop,random,loadclear,nofreecols,rgb,hsv,lbrowse,nostat,2xlimit,nolimits,close,iconic,viewonly,poll,vsperfect,vsdisable,nodecor} \
'-fg:foreground color:_x_color' \
'-bg:background color:_x_color' \
'-hi:top left shadow color:_x_color' \
'-lo:bottom right shadow color:_x_color' \
'-bw:border width' \
'-geometry:geometry:_x_geometry' \
'-expand:expansion factor' \
'-aspect:aspect ratio (e.g. 4:3)' \
'-ncols:maximum number of colors used' \
'-rmode:root display mode:((0\:tiling 1\:integer\ tiling 2\:mirrored\ tiling 3\:integer\ mirrored\ tiling 4\:centered\ tiling 5\:centered\ tiling\ on\ solid\ background 6\:centered\ tiling\ on\ '\\\''warp'\\\''\ background 7\:centered\ tiling\ on\ '\\\''brick'\\\''\ background 8\:symmetrical\ tiling 9\:symmetrical\ mirrored\ tiling))' \
'-rfg:root foreground color:_x_color' \
'-rbg:root background color:_x_color' \
'-cgeom:control window geometry:_x_geometry' \
'-igeom:info window geometry:_x_geometry' \
'-cegeom:color editor window geometry:_x_geometry' \
'-cmtgeometry:comments window geometry:_x_geometry' \
'-tgeometry:text view window geometry:_x_geometry' \
'-vsgeometry:visual schauzer geometry:_x_geometry' \
'-crop:left border: :top border: :width: :height' \
'-rotate:rotation angle:(0 90 -90 +90 180 -180 +180 270 -270 +270)' \
'-gamma:gamma value' \
'-cgamma:red gamma value: :green gamma value: :blue gamma value' \
'-preset:default preset (1-4):(1 2 3 4)' \
'-white:'"'"'white'"'"' color:_x_color' \
'-black:'"'"'black'"'"' color:_x_color' \
'-wait:seconds to wait' \
'-visual:visual:_x_visual' \
'-cursor:cursor character number' \
'-icgeometry:icon geometry:_x_geometry' \
'-dir:directory:_files -/' \
'-flist:file list file:_files' \
'-drift:x movement correction: :y movement correction' \
'-mfn:mono spaced font:_x_font' \
'-name:window name:_x_name' \
'-+grabdelay:grab delay (seconds)' \
'-gsdev:ghostscript device' \
'-gsres:ghostscript resolution' \
'-gsgeom:ghostscript page size' \
'-DEBUG:debug level' \
'*:picture file:_files -g \*.\(\#i\)\(png\|gif\|jpeg\|jpg\|tiff\|tif\|pbm\|pgm\|ppm\|xbm\|xpm\|ras\(\|t\)\|tga\|rle\|rgb\|bmp\|pcx\|fits\|pm\)\(-.\)'
PK [7_ functions/_renicenu W+A #compdef renice
if [[ $CURRENT = 2 ]]; then
_message -e priority
else
local opts ret=1
opts=(
'-g:interpret args as process group IDs'
'-u:interpret args as user names'
'-p:interpret args as process IDs'
)
_describe -o option opts && ret=0
case ${(v)words[(I)-?]} in
-g) _message -e pgids 'process group ID' && ret=0 ;;
-u) _users && ret=0 ;;
*) _pids && ret=0;;
esac
fi
return ret
PK [ M" " functions/_dchrootnu W+A #compdef dchroot
local expl context state line
typeset -A opt_args
_arguments -S \
'(-h --help)'{-h,--help}'[help]' \
'(-a --all)'{-a,--all}'[select all chroots]' \
'*'{-c,--chroot=}'[use specified chroot]:chroot:->chroot' \
'(-d --directory)'{-d,--directory=}'[directory to use]:dir:_files -W / -P /' \
'(-l --list)'{-l,--list}'[list available chroots]' \
'(-i --info)'{-i,--info}'[show information about selected chroots]' \
'(-p --path)'{-p,--path}'[print path to selected chroot]' \
'--config[dump configuration of selected chroots]' \
'(-d --preserve-environment)'{-d,--preserve-environment}'[preserve user environment]' \
'(-q --quiet)'{-q,--quiet}'[quiet]' \
'(-v --verbose)'{-v,--verbose}'[verbose]' \
'(-V --version)'{-V,--version}'[version]' \
'(-):command name: _command_names -e' \
'*::arguments: _normal' && return 0
case "$state" in
(chroot)
_wanted tag expl 'chroot' \
compadd ${(os:,:)${${${"$(dchroot -l )"#*: }// /}//[[\]]/,}}
;;
esac
PK [ h@ @ functions/_assignnu W+A #compdef -assign-parameter-
_parameters -g "^*readonly*" -S ''
PK [qh functions/_ranlibnu W+A #compdef ranlib
_arguments \
"(-a)-s[preferred type ToC (default)]" \
"(-s)-a[original type ToC]" \
"-c[include common symbols]" \
"(-T)-L[4.4bsd archive extended format #1 (default)]" \
"(-L)-T[truncate names to 16 chars, per pre-4.4.bsd format]" \
"-f[warn about fat archives]" \
"-t[do not rebuild ToC (ignored)]" \
"(-)-[no more options]" \
"1:archive: _files"
PK [tNy) ) functions/_lessnu W+A #compdef less -value-,LESS,-default- -value-,LESSCHARSET,-default-
local curcontext="$curcontext" state line expl ret=1
local -a files
case $service in
*LESSCHARSET*)
_wanted charsets expl 'character set' compadd ascii iso8859 latin1 latin9 \
dos ebcdic IBM-1047 koi8-r next utf-8
return
;;
*LESS*)
compset -q
words=( fake "$words[@]" )
(( CURRENT++ ))
;;
*)
files=( '*:file:_files' )
;;
esac
if compset -P '+[-0-9]#'; then
_describe 'less command' '(
g:goto\ line
F:scroll\ to\ end\ and\ keep\ reading\ file
G:go\ to\ end\ of\ file
%:go\ to\ position\ in\ file
p:go\ to\ position\ in\ file
)'
return
fi
_arguments -S -s -A "[-+]*" \
'(-? --help)'{-\?,--help}'[display summary of less commands]' \
'(-a --search-skip-screen)'{-a,--search-skip-screen}'[begin forward searches after last displayed line]' \
'(-b --buffers)'{-b+,--buffers=}'[specify amount of buffer space used for each file]:buffer space (kilobytes)' \
'(-B --auto-buffers)'{-B,--auto-buffers}"[don't automatically allocate buffers for pipes]" \
'(-C --CLEAR-SCREEN -c --clear-screen)'{-c,--clear-screen}'[repaint screen instead of scrolling]' \
'(-c --clear-screen -C --CLEAR-SCREEN)'{-C,--CLEAR-SCREEN}'[clear screen before repaints]' \
'(-d --dumb)'{-d,--dumb}'[suppress error message if terminal is dumb]' \
'(-e -E --quit-at-eof --QUIT-AT-EOF)'{-e,--quit-at-eof}'[exit the second time end-of-file is reached]' \
'(-e -E --quit-at-eof --QUIT-AT-EOF)'{-E,--QUIT-AT-EOF}'[exit when end-of-file is reached]' \
'(-f --force)'{-f,--force}'[force opening of non-reqular files]' \
'(-F --quit-if-one-screen)'{-F,--quit-if-one-screen}'[exit if entire file fits on first screen]' \
'(-G --HILITE-SEARCH -g --hilite-search)'{-g,--hilite-search}'[highlight only one match for searches]' \
'(-g --hilite-search -G --HILITE-SEARCH)'{-G,--HILITE-SEARCH}'[disable highlighting of search matches]' \
'(-h --max-back-scroll)'{-h+,--max-back-scroll=}'[specify backward scroll limit]:backward scroll limit (lines)' \
'(-I --IGNORE-CASE -i --ignore-case)'{-i,--ignore-case}'[ignore case in searches that lack uppercase]' \
'(-i --ignore-case -I --IGNORE-CASE)'{-I,--IGNORE-CASE}'[ignore case in all searches]' \
'(-j --jump-target)'{-j+,--jump-target}'[specify screen position of target lines]:position (line)' \
'(-J --status-column)'{-J,--status-column}'[display status column on the left]' \
\*{-k+,--lesskey-file=}'[use specified lesskey file]:lesskey file:_files' \
'(-L --no-lessopen)'{-L,--no-lessopen}'[ignore the LESSOPEN environment variable]' \
'(-M --LONG-PROMPT -m --long-prompt)'{-m,--long-prompt}'[prompt verbosely]' \
'(-m --long-prompt -M --LONG-PROMPT)'{-M,--LONG-PROMPT}'[prompt very verbosely]' \
'(-N --LINE-NUMBERS -n --line-numbers)'{-n,--line-numbers}"[don't keep track of line numbers]" \
'(-n --line-numbers -N --LINE-NUMBERS)'{-N,--LINE-NUMBERS}'[show line numbers]' \
'(* -O --LOG-FILE -o --log-file)'{-o+,--log-file=}'[copy input to file]:file:_files' \
'(* -o --log-file -O --LOG-FILE)'{-O+,--LOG-FILE=}'[copy input to file, overwriting if necessary]:file:_files' \
'(-p --pattern)'{-p+,--pattern=}'[start at specified pattern]:pattern' \
\*{-P+,--prompt=}'[specify prompt format]:prompt:->prompts' \
'(-Q --QUIET --SILENT -q --quiet --silent)'{-q,--quiet,--silent}'[never use bell]' \
'(-q --quiet --silent -Q --QUIET --SILENT)'{-Q,--QUIET,--SILENT}'[limit use of bell]' \
'(-r -R --raw-control-chars --RAW-CONTROL-CHARS)'{-r,--raw-control-chars}'[display raw control characters]' \
'(-r -R --raw-control-chars --RAW-CONTROL-CHARS)'{-R,--RAW-CONTROL-CHARS}'[display control chars; keep track of screen effects]' \
'(-s --squeeze-blank-lines)'{-s,--squeeze-blank-lines}'[squeeze consecutive blank lines down to one]' \
'(-S --chop-long-lines)'{-S,--chop-long-lines}'[truncate long lines instead of folding]' \
'(-t --tag)'{-t+,--tag=}'[edit file containing tag]:tag:->tags' \
'(-T --tag-file)'{-T+,--tag-file=}'[specify tags file]:tags file:_files' \
'(-u --underline-special)'{-u,--underline-special}'[send backspaces and carriage returns to the terminal]' \
'(-U --UNDERLINE-SPECIAL)'{-U,--UNDERLINE-SPECIAL}'[treat backspaces, tabs and carriage returns as control characters]' \
'(* -)'{-V,--version}'[display version information]' \
'(-W --HILITE-UNREAD -w --hilite-unread)'{-w,--hilite-unread}'[highlight first unread line after forward page]' \
'(-w --hilite-unread -W --HILITE-UNREAD)'{-W,--HILITE-UNREAD}'[highlight first unread line after forward movement]' \
'(-x --tabs)'{-x+,--tabs=}'[set tab stops]:tab stops' \
'(-X --no-init)'{-X,--no-init}'[disable use of terminal init string]' \
'--no-keypad[disable use of keypad terminal init string]' \
'(-y --max-forw-scroll)'{-y,--max-forw-scroll}'[specify forward scroll limit]' \
'(-z --window)'{-z+,--window=}'[specify scrolling window size]:lines' \
'(-\" --quotes)'{-\"+,--quotes=}'[change quoting character]:quoting characters' \
'(-~ --tilde)'{-~,--tilde}"[don't display tildes after end of file]" \
'(-\# --shift)'{-\#+,--shift=}"[specify amount to move when scrolling horizontally]:number" \
"$files[@]" && ret=0
if [[ -n "$state" ]]; then
case $state in
prompts)
if compset -P \?; then
_message -e prompt
else
_describe 'prompt' '(
s:short\ prompt
m:medium\ prompt
M:long\ prompt
h:help\ screen\ prompt
\=:\=\ command\ prompt
w:waiting\ prompt
)' && ret=0
fi
;;
tags)
if (( $+LESSGLOBALTAGS )); then
_global_tags
else
_ctags_tags
fi
;;
esac
fi
return ret
PK [o5J$ functions/_lindanu W+A #compdef linda
_arguments \
'(-c --config)'{-c,--config=}':config file:_files' \
'(-C --checks)'{-C,--checks=}':check regexes:' \
'(-d --debug)*'{-d,--debug}'[debug]' \
'(-D --disable-local)*'{-D,--disable-local}'[disable registration of local checks]' \
'(-f --format)'{-f,--format=}':output format:(branden long lintian figlet)' \
'(-h --help)'{-h,--help}'[help]' \
'(-i --info)'{-i,--info}'[info]' \
'(-l --lab)'{-l,--lab=}':lab root:_files -/' \
'(-L --list-checks)'{-L,--list-checks=}':list checks:' \
'(-m --more-overrides)'{-m,--more-overrides=}':more overrides:' \
'(-n --no-cull)'{-n,--no-cull}'[do not delete lab after completion]' \
'(-o --show-overridden)'{-o,--show-overridden}'[display errors that are overridden]' \
'(-p --print-overrides)'{-p,--print-overrides}'[print parsed overrides]' \
'(-P --profiling)'{-P,--profiling}'[print profiling stats]' \
'(-q --quiet)'{-q,--quiet}'[quiet]' \
'(-s --show-tag)'{-s,--show-tag}'[print tag along with errors]' \
'(-S --seteuid)'{-S,--seteuid}'[do not seteuid to nobody]' \
'(-t --types)'{-t,--types=}':types string:_values -s , "types" Error Warning eXperimental Informational' \
'(-T --traceback)'{-T,--traceback}'[show a traceback from any exception]' \
'(-U --unpack)'{-U,--unpack}':unpack level:' \
'(-v --verbose)'{-v,--verbose}'[verbose]' \
'(-V --version)'{-V,--version}'[version]' \
':package:_files -g "*.(changes|u#deb|dsc)"'
PK [&# functions/zfopennu W+A # function zfopen {
# Use zftp params to set parameters for open, rather than sending
# them straight to open. That way they are stored for a future open
# command.
#
# With option -1 (just this 1ce), don't do that.
emulate -L zsh
[[ $curcontext = :zf* ]] || local curcontext=:zfopen
local opt dir opt_1 setparams
while getopts :1 opt; do
[[ $opt = "?" ]] && print "zfopen: bad option: -$OPTARG" >&2 && return 1
eval "opt_$opt=1"
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
# This is where we should try and do same name-lookupage in
# both .netrc and .ncftp/bookmarks . We could even try saving
# the info in their for new hosts, like ncftp does.
if [[ $1 = */* ]]; then
1=${1##ftp://}
dir=${1#*/}
1=${1%%/*}
fi
if [[ $opt_1 = 1 ]]; then
zftp open $* || return 1
if [[ $# = 1 ]]; then
if ! zftp login; then
zftp close
return 1
fi
fi
else
# set parameters, but only if there was at least a host
(( $# > 0 )) && zfparams $* && setparams=1
# now call with no parameters
if ! zftp open; then
[[ -n $ZFTP_HOST ]] && zftp close
[[ -n $setparams ]] && zfparams -
return 1
fi
fi
if [[ -n $dir ]]; then
zfcd $dir
fi
# }
PK [L3 3 functions/_portauditnu W+A #compdef portaudit
_arguments -s \
'-a[vulnerability report for all installed packages]' \
'-C[vulnerability report for the port in the current working directory]' \
'-d[print creation date of the database]' \
'-F[fetch the current database]' \
'-q[quiet mode]' \
'-V[show portaudit version number]'\
'-v[verbose mode]' \
'-X[download a fresh database from least days old]:days:' \
'-f[check the packages listed in file]:file:_files' \
'-r[restrict listed vulnerabilities with eregex pattern]:eregex:' \
':pkg-name:'
PK [\D functions/_pumpnu W+A #compdef pump
_arguments \
'(-c --config-file=)'{-c,--config-file=}'[specify configuration file to use]:configuration file:_files' \
'(-h --hostname=)'{-h,--hostname=}'[specify hostname to request]:hostname:_hosts' \
'(-i --interface=)'{-i,--interface=}'[specify interface to configure]:interface:_net_interfaces' \
'(-k --kill)'{-k,--kill}'[kill daemon (and disable all interfaces)]' \
'(-l --lease=)'{-l,--lease=}'[specify lease time to request]:time (hours)' \
'(-L --leasesecs=)'{-L,--leasesecs=}'[specify seconds to request for]:time (seconds)]' \
'(-r --release)'{-r,--release}'[release interface]:interface:_net_interfaces' \
'(-R --renew)'{-R,--renew}'[force immediate lease renewal]:interface:_net_interfaces' \
'(-v --verbose)'{-v,--verbose}'[log verbose debug info]' \
'(-s --status)'{-s,--status}'[display interface status]:interface:_net_interfaces' \
'(-d --no-dns)'{-d,--no-dns}"[don't update resolv.conf]" \
'(- *)'{-?,--help}'[display help information]' \
"--no-gateway[don't set a gateway for this interface]" \
"--no-setup[don't set up anything]" \
"--no-resolvconf[don't set up resolvconf]" \
'--no-bootp[ignore non-DHCP BOOTP responses]' \
'--lookup-hostname[force lookup of hostname]' \
'--script=[specify script to use]:script:_files' \
"--win-client-ident[set the client identifier to match window's]" \
'--usage[display brief usage message]' \
':interface:_net_interfaces'
PK [¾oW W functions/_tracepathnu W+A #compdef tracepath tracepath6
_arguments \
':destination:_hosts' \
':port:_ports'
PK [ R functions/_zednu W+A #compdef zed fned
case $service in
(fned) _arguments ':shell function:_functions';;
(zed) _arguments '(-):file:_files' \
'(:)-f[edit function]:shell function:_functions';;
esac
PK [GBF F functions/_pspdfnu W+A #compdef gsbj gsdj gsdj500 gslj gslp gsnd ps2ascii ghostview mgv pstoedit pstotgif
local expl ext
# ghostscript:
# gs gsbj gsdj gsdj500 gslj gslp gsnd ps2ascii
if [[ "$1" == '-z' ]]; then
ext='(|.gz|.Z)'
shift
fi
_description files expl 'PostScript or PDF file'
_files "$@" "$expl[@]" -g "*.(#i)(pdf|ps|eps)$ext(-.)"
PK [TE^ functions/_showmountnu W+A #compdef showmount
_arguments \
'(-a --all)'{-a,--all}'[list both hostname and mounted dir in host:dir format]' \
'(-d --directories)'{-d,--directories}'[list only the directories mounted by some client]' \
'(-e --exports)'{-e,--exports}'[show server export list]' \
'(-h --help)'{-h,--help}'[help]' \
'(-v --version)'{-v,--version}'[version]' \
'--no-headers[suppress descriptive headers from output]' \
':host:_hosts'
PK [F& functions/keepernu W+A ##
# The "keeper" function suite originally appeared in several zsh-users
# posts in the fall of 2004. It was published in summary form in the
# Shell Corner column on UnixReview.com in January 2005 at the URL
#
#
# A few minor edits have been made to those functions for this file. Key
# bindings are commented out to avoid clashes with any existing bindings.
##
declare -a kept
# The "keep" function accepts a set of file patterns as the positional
# parameters or a series of lines (expected to represent file names) on
# standard input. It stores the expansion of those patterns, or the input
# lines, in the global variable $kept, and then displays the result
# formatted in columns, similar to an "ls" listing. Its alias, also named
# "keep", prevents the file patterns from being expanded when the command
# line is executed; they're expanded in the assignment to $kept instead,
# so that the local settings of nonomatch etc. are applied.
function keep {
setopt localoptions nomarkdirs nonomatch nocshnullglob nullglob
setopt noksharrays noshwordsplit
kept=($~*)
if [[ ! -t 0 ]]; then
local line
while read -r line; do
kept+=( $line )
done
fi
print -Rc - ${^kept%/}(T)
}
alias keep='noglob keep'
# The function "_insert_kept" copies the value of $kept to the cursor
# position. If a prefix of a name is immediately to the left of the
# cursor, then only the subset of $kept that matches that prefix is
# copied, as is usual for completion. The examples bind it to two
# different widgets, "insert-kept-result" and "expand-kept-result". If
# invoked via the "expand-kept-result" widget, it replaces a pattern on
# the command line with the matching words from the $kept array.
_insert_kept() {
(( $#kept )) || return 1
local action
zstyle -s :completion:$curcontext insert-kept action
if [[ -n $action ]]
then compstate[insert]=$action
elif [[ $WIDGET = *expand* ]]
then compstate[insert]=all
fi
if [[ $WIDGET = *expand* ]]
then compadd -U ${(M)kept:#${~words[CURRENT]}}
else compadd -a kept
fi
}
zle -C insert-kept-result complete-word _generic
zstyle ':completion:insert-kept-result:*' completer _insert_kept
# bindkey '^Xk' insert-kept-result
zle -C expand-kept-result complete-word _generic
zstyle ':completion:expand-kept-result:*' completer _insert_kept
# bindkey '^XK' expand-kept-result
# The "_expand_word_and_keep" function stores the expansions computed by
# the "_expand" completer in the global $kept for later retrieval by
# "_insert_kept".
_expand_word_and_keep() {
function compadd() {
local -A args
zparseopts -E -A args J:
if [[ $args[-J] == all-expansions ]]
then
builtin compadd -A kept "$@"
kept=( ${(Q)${(z)kept}} )
fi
builtin compadd "$@"
}
{ _expand_word } always { unfunction compadd }
}
zle -C _expand_word complete-word _expand_word_and_keep
# This style is required to segregate the all-expansions group for
# purposes of _expand_word_and_keep.
zstyle ':completion:expand-word:expand:::all-expansions' group-name ''
PK [Z functions/_inetadmnu W+A #compdef inetadm
_inetadm() {
_arguments -s \
'-?[help]' \
'-l[list service instance properties]:FMRI:_svcs_fmri -i' \
'-e[enable specified instance]:FMRI:_svcs_fmri -i' \
'-d[disable specified instance]:FMRI:_svcs_fmri -i' \
'-p[list inet service properties]' \
'-m[modify service instance properties]:FMRI:_svcs_fmri -i' \
'-M[modify inet service properties]'
}
_inetadm "$@"
# vi:tw=0
PK [Iw9 9 functions/_merenu W+A #compdef mere
_files -g '*.[1-9]([a-z]|)(-.) *.man(-.)'
PK [?u7
functions/_rubbernu W+A #compdef rubber rubber-pipe rubber-info
local _rubber_version _rubber_path _rubber_modules _rubber_args
eval $(rubber --version 2>/dev/null | sed 's/^.* \([^ ]*\): */_rubber_\1=/')
if [[ ${_rubber_version#0} != $_rubber_version ]]; then
_rubber_modules=(
$_rubber_path/rubber/modules/[^_]*.py(N:r:t)
)
else
_rubber_modules=(
$_rubber_path/modules/*.rub(N:r:t)
$_rubber_path/rubber/rules/latex/[^_]*.py(N:r:t)
)
fi
_rubber_args=(
\*{-c,--command}'=[run the directive CMD before parsing]:command'
\*{-e,--epilogue}'=[run the directive CMD after parsing]:command'
{-z,--gzip}'[compress the final document]'
'(- *)'{-h,--help}'[show help]'
'--into=[go to directory DIR before compiling]:directory:_files -/'
{-l,--landscape}'[change paper orientation (if relevant)]'
{-n,--maxerr}'=[display at most NUM errors]:num'
\*{-m,--module}'=[use module]:module:($_rubber_modules)'
'--only=[only include the specified SOURCES]:sources'
\*{-o,--post}'=[postprocess with module]:postprocessor:($_rubber_modules)'
{-d,--pdf}'[produce PDF output instead of DVI]'
{-p,--ps}'[produce a PostScript document]'
{-q,--quiet}'[suppress messages]'
\*{-r,--read}'[read additional directives from a file]:directives files:_files'
{-s,--short}'[display errors in a compact form]'
\*{-I,--texpath}'=[add DIR to the search path for LaTeX]:tex path:_files -/'
\*{-v,--verbose}'[increase verbosity]'
'--version[print version information and exit]'
)
case "$service" in
rubber)
_arguments -s \
"$_rubber_args[@]" \
'--clean[remove produced files instead of compiling]' \
{-f,--force}'[force at least one compilation]' \
'--inplace[compile the documents from their source directory]' \
\*{-W,--warn}'=[report warnings of the given TYPE]:warnings:(all boxes misc refs)' \
'*:LaTeX files:_files -g \*.\(tex\|dtx\|lhs\|w\)'
return 0
;;
rubber-pipe)
_arguments -s \
"$_rubber_args[@]" \
{-k,--keep}'[keep the temporary files after compiling]' \
\*{-W,--warn}'=[report warnings of the given TYPE]:warnings:(all boxes misc refs)'
return 0
;;
rubber-info)
_arguments -s \
"$_rubber_args[@]" \
'--boxes[report overfull and underfull boxes]' \
'--check[report errors or warnings default action]' \
'--deps[show the target file s dependencies]' \
'--errors[show all errors that occured during compilation]' \
'--refs[show the list of undefined references]' \
'--warnings[show all LaTeX warnings]' \
':LaTeX file:_files -g \*.\(tex\|dtx\|lhs\|w\)'
return 0
;;
esac
return 1
PK [q functions/_vuxnu W+A #compdef vux vuxctl
local expl
case "$service" in
(vux)
_arguments -s -C \
'-x:action:((play\:play\ music generate\:generate\ new\ scorelist
merge\:merge\ new\ songs
weed\:prune\ songs\ from\ scorelist
ratings\:show\ statistics force\:force-rate))' \
'-s:file:_files' \
'-a:file:_files' \
'-z:file:_files' \
'-y:file:_files' \
'-p:file:_files' \
'-w:ratings:(b t)' \
'-W:repeats:(a c)' \
'-G:age bypass method:(t s n)' \
'-e:pattern' \
'-O:device:_files' \
'-M:minimum age val' \
'-S[disable saving scorelist]' \
'-A[disable saving agelist]' \
'-Z[disable saving countlist]' \
'-Y[disable missing log]' \
'-c[disable rating check]' \
'-d[disable rating updates on play]' \
'-l[disable rating updates on skip]' \
'-j[disable repeat check]' \
'-b[disable repeat updates on play]' \
'-k[disable repeat updates on skip]' \
'-n[disable player]' \
'-t:percent' \
'-T:percent' \
'-C:factor' \
'-D:factor' \
'-I:factor' \
'-U:rating' \
'-X:score' \
'-N:count' \
'-f:rating' \
'-J[accelerate decreases]' \
'-K[accelerate increases]' \
'-u[check age before rating]' \
'-R[show ratings after processing]' \
'-V[verbose file manipulation]' \
'-v[show version and exit]' \
'-F[skip songs with -n and -xf]' \
'-q[minimize vux output]' \
'-P[always play new songs]' \
'-g[print stats in xgraph format]' \
'-h[show summary of options]'
;;
(vuxctl)
_wanted vuxcmd expl 'vux control command' \
compadd start clean double half up down next previous forward \
replay pause resume stop reload save history help
;;
esac
PK [
%鬧 functions/_dmidecodenu W+A #compdef dmidecode
_arguments \
'(-d --dev-mem)'{-d,--dev-mem}':memory device:_files' \
'(-q --quiet -u --dump)'{-q,--quiet}'[be less verbose]' \
'(-t --type -u --dump -s --string)'{-s,--string}':DMI string:(bios-vendor bios-version bios-release-date system-manufacturer system-product-name system-version system-serial-number system-uuid baseboard-manufacturer baseboard-product-name baseboard-version baseboard-serial-number baseboard-asset-tag chassis-manufacturer chassis-type chassis-version chassis-serial-number chassis-asset-tag processor-family processor-manufacturer processor-version processor-frequency)' \
'(-t --type)'{-t,--type}':types to display:(bios system baseboard chassis processor memory cache connector slot)' \
'(-q --quiet -u --dump -s --string)'{-u,--dump}'[do not decode]' \
'(-h --help)'{-h,--help}'[display usage information]' \
'(-V --version)'{-V,--version}'[display version information]'
PK [3Zz~ ~ functions/_debdiffnu W+A #compdef debdiff
_arguments \
'(-d --dirs)'{-d,--dirs}'[do not ignore directories]' \
'--nodirs[ignore directories]' \
'(-m --move)'{-m,--move}':movement:_files' \
'--move-regex:movement:_files' \
'--nocontrol[do not compare control files]' \
'--control[compare control files]' \
'--wp[pass -p to wdiff]' \
'--wl[pass -l to wdiff]' \
'--wt[pass -t to wdiff]' \
'--show-moved[show movements between packages]' \
'--noshow-moved[do not show movements between packages]' \
'--renamed:package:_deb_packages avail' \
'(--no-conf --noconf)'{--no-conf,--noconf}'[do not read any config files]' \
'(-h --help)'{-h,--help}'[show help]' \
'(-v --version)'{-v,--version}'[show version]' \
'(-q --quiet)'{-q,--quiet}'[be quiet if no differences]' \
'--from:debs:_files -g "*.deb"' \
'--to:debs:_files -g "*.deb"' \
'*:file to compare:_files -g "*.(deb|changes|dsc)"'
PK [p functions/_devtodonu W+A #compdef devtodo todo tda tde tdd tdr
## completion for devtodo 0.1.20
typeset -a arg_generic arg_add todo_opts \
priorities
typeset -A arg_pair arg_desc
typeset -i i
typeset expl
for ((i=2; i <= $#words; i++)) {
if [[ $words[$i] == '--database' ]] {
todo_opts+=(--database ${~words[$((++i))]})
}
}
priorities=(verylow low medium high veryhigh)
arg_add=(
'-p[priority]:priority:_todo_priority'
'-g[parent item]:parent:_todo_index'
)
arg_generic=(
'--remove[remove items]:index:_todo_index'
'--database[database file]:file:_files'
'--global-database[global database file]:file:_files'
'*--colour[item color]:color:_todo_color'
'--force-colour[force use of colors]'
'--mono[no colors]'
'--help[display help]'
'--version[display version]'
'--title[todo title]:string: '
'--date-format[strftime time formet]:time string: '
'*--format[define format]:format:_todo_format'
'*--use-format[output format]:format:_todo_format'
'--sort[sort database]:sort expression:_todo_sort'
'--paranoid[paranoid parmissions etc]'
'--database-loaders[loader order]:database loader: '
'--backup[backup database]:count: '
'--timeout[display timeout]:seconds: '
'--purge[purge completed items]:days: '
'*'{'--filter','-f'}'[show items matching filter]:filter:_todo_filter'
'*::item:_todo_index'
)
arg_pair=(
'verbose' 'v'
'add' 'a'
'graft' 'g'
'link' 'l'
'reparent' 'R'
'priority' 'p'
'edit' 'e'
'done' 'd'
'not-done' 'D'
'global' 'G'
'TODO' 'T'
'all' 'A'
)
arg_desc=(
'verbose' '[be verbose]'
'add' '[add item]:item'
'graft' '[parent item]:parent:_todo_index'
'link' '[link file into database]:database:_files'
'reparent' '[change item parent]:index:_todo_index'
'priority' '[item priority]:priority:_todo_priority'
'edit' '[edit item]:index:_todo_index'
'done' '[mark as done]:index:_todo_index'
'not-done' '[mark as undone]:index:_todo_index -u'
'global' '[use global database]'
'TODO' '[generate TODO file]'
'all' '[show all items]'
)
for arg in ${(k)arg_pair}; {
arg_generic+='(--'$arg')-'${arg_pair[$arg]}${arg_desc[$arg]}
arg_generic+='(-'${arg_pair[$arg]}')--'${arg}${arg_desc[$arg]}
}
function _todo_index () {
typeset number text i entry last_entry depth last_depth=0 IFS=$'\n'
typeset -a index desc
for i in $*; do
case $i in
-u) todo_opts+=(--filter done)
esac
done
for entry in $(todo $todo_opts -f +children --format display='%1>%i%n:%t\n'); do
number=${entry%%:*}
depth=$(( ${#number} - ${#${number// }} ))
((depth)) && entry=${(j:.:)${${(s:.:):-a.${last_entry%%:*}}[2,depth+1]}}.$entry
text=${entry#*:}
number=${${entry%%:*}// }
entry=$number:$text
index+=$entry
last_depth=$depth
last_entry=$entry
done
_describe -t items index index
}
function _todo_color () {
if compset -P '*='; then
_wanted color expl 'color' \
compadd black red green yellow blue magenta cyan white default
else
_wanted item expl 'item' \
compadd -S '=' $priorities title info
fi
}
function _todo_filter {
typeset prefix
if [[ ${#${words[$CURRENT]}} -gt 0 ]] {
prefix=${${words[$CURRENT]}[1]}
_wanted expression expl 'filter expression' \
compadd -p $prefix -- all children done $priorities
} else {
# XXX the '-' makes problems
_wanted expression expl 'filter expression' \
compadd -S '' -- - + = all children done $priorities
}
}
function _todo_format () {
typeset prefix
if [[ -prefix *= ]] {
_message 'format string'
} else {
_wanted expression expl 'format name' \
compadd -S '=' display generated verbose-display verbose-generated
}
}
function _todo_priority () {
_wanted priority expl 'priority' \
compadd default $priorities
}
function _todo_sort () {
typeset -a keys used_prefixes
typeset key prefix=''
keys=(created completed text priority duration none done)
for key in $keys; {
[[ $key != none ]] && keys+="-$key"
}
if [[ -prefix *, ]] {
prefix=${words[$CURRENT]%,*},
used_prefixes=(${(s:,:)prefix})
for key in $used_prefixes; {
[[ $key == -* ]] && used_prefixes+=$key[2,-1] || used_prefixes+=-$key
}
}
_wanted expression expl 'sort expression' \
compadd -F used_prefixes -qS , -P "$prefix" $keys
}
case $service in
tda)
_arguments -s $arg_add
;;
tde|tdd)
_arguments -s ':index:_todo_index'
;;
tdr)
zstyle ':completion:*:tdr:*' ignore-line yes
_arguments -s '*:index:_todo_index'
;;
*todo)
_arguments -s $arg_generic
;;
esac
PK [O3} functions/_x_colormapidnu W+A #autoload
local expl list desc
_tags colormapids || return 1
list=(${(f)"$(xprop -root -f RGB_COLOR_MAP 32xcccccccxx ': $0\n'|awk -F'[ ():]' '/^[a-zA-Z_]+\(RGB_COLOR_MAP\)/ {print $5, "--", $1}')"})
if zstyle -T ":completion:${curcontext}:colormap-id" verbose; then
desc=(-ld list)
else
desc=()
fi
_wanted colormapids expl 'colormap id' \
compadd "$@" "$desc[@]" - "${(@)list%% *}"
PK [7*^ functions/_call_programnu W+A #autoload +X
local tmp
if zstyle -s ":completion:${curcontext}:${1}" command tmp; then
if [[ "$tmp" = -* ]]; then
eval "$tmp[2,-1]" "$argv[2,-1]"
else
eval "$tmp"
fi
else
eval "$argv[2,-1]"
fi
PK [d\* * functions/run-help-svnnu W+A svn help ${${@:#-*}[1]} | ${=PAGER:-more}
PK [ functions/_x_colornu W+A #autoload
# This tries to automatically find the rgb.txt color database. If this
# in an unusual place on your system or you want a personal database,
# you can use the configuration key:
#
# colors_path
# Path to a file containing the names of colors you want to
# complete. In the form of a X11 rgb.txt file.
local expl
if (( ! $+_color_cache )); then
local file
# Cache of color names doesn't exist yet, create it.
zstyle -s ":completion:${curcontext}:colors" path file
if [[ -n "$file" ]]; then
_color_cache=( "${(@)${(@f)$(< $file)}[2,-1]##* }" )
else
file=( /usr/{lib,{{X11R6,openwin},local{,/X11{,R6}}}/lib}/X11/rgb.txt(N) )
(( $#file )) &&
_color_cache=( "${(@)${(@)${(@f)$(< $file[1])}[2,-1]##* }:#* *}" )
fi
# Stupid default value.
(( $#_color_cache )) || _color_cache=(white black gray red blue green)
fi
_wanted colors expl 'color specification' compadd "$@" -M \
'm:{a-z}={A-Z} m:-=\ r:[^ A-Z0-9]||[ A-Z0-9]=* r:|=*' -a - _color_cache
PK [: functions/_perl_basepodsnu W+A #autoload
#
# _perl_basepods - zsh completion function
#
# Adam Spiers
#
# Calculate all installed Perl base pods (perlfunc, perlfaq etc.).
# The result is cached for future use.
#
if (( ! $+_perl_basepods )); then
typeset -agU _perl_basepods
if (( ${+commands[basepods]} )); then
_perl_basepods=( ${$(basepods):t:r} )
else
local podpath
podpath=$(perl -MConfig -e 'print "$Config{installprivlib}/pod"')
if [[ ! -e $podpath/perl.pod ]]; then
_message "can't find perl.pod from Config.pm; giving up"
return 1
else
_perl_basepods=( ${podpath}/*.pod(:r:t) )
fi
fi
fi
local expl
_wanted pods expl 'perl base pod' compadd -a "$@" - _perl_basepods
PK [ functions/calendar_editnu W+A local line calendar
local -a lockfiles editor
integer cal_running
if (( $# )); then
editor=("$@")
else
editor=(${VISUAL:-${EDITOR:-vi}})
fi
sched | while read line; do
[[ $line = *" calendar -s "<->" "<-> ]] && (( cal_running = 1 ))
done
zstyle -s ':datetime:calendar:' calendar-file calendar || calendar=~/calendar
# start of subshell for OS file locking
(
# start of block for following always to clear up lockfiles.
# Not needed but harmless if OS file locking is used.
{
if zmodload -F zsh/system b:zsystem && zsystem supports flock &&
zsystem flock $calendar 2>/dev/null; then
# locked OK
:
else
calendar_lockfiles $calendar || exit 1
fi
eval $editor \$calendar
} always {
(( ${#lockfiles} )) && rm -f $lockfiles
}
)
(( cal_running )) && calendar -s
PK [is
functions/_user_expandnu W+A #autoload
# This completer function is an addition to the _expand completer that
# allows the user to define their own expansions. It does not replace
# the _expand completer.
#
# This function will allow other completer functions to be called if
# the expansions done produce no result or do not change the original
# word from the line.
setopt localoptions nonomatch
[[ _matcher_num -gt 1 ]] && return 1
local exp word sort expr expl subd suf=" " asp tmp spec
local -a specs reply
if [[ "$funcstack[2]" = _prefix ]]; then
word="$IPREFIX$PREFIX$SUFFIX"
else
word="$IPREFIX$PREFIX$SUFFIX$ISUFFIX"
fi
# In exp we will collect the expansions.
exp=("$word")
# Now look for user completions.
zstyle -a ":completion:${curcontext}" user-expand specs || return 1
for spec in $specs; do
case $spec in
('$'[[:IDENT:]]##)
# Spec is an associative array with explicit keys.
# Surely there's a better way of doing an associative array
# lookup from its name?
eval tmp='${'$spec[2,-1]'[$word]}'
if [[ -n $tmp ]]; then
exp=("$tmp")
break
fi
;;
('_'*)
reply=()
$spec $word
if (( ${#reply} )); then
exp=("${reply[@]}")
break
fi
;;
esac
done
[[ $#exp -eq 1 && "$exp[1]" = "$word" ]] && return 1
# Now add as matches whatever the user requested.
zstyle -s ":completion:${curcontext}:" sort sort
[[ "$sort" = (yes|true|1|on) ]] && exp=( "${(@o)exp}" )
if zstyle -s ":completion:${curcontext}:" add-space tmp; then
if [[ "$tmp" != *subst* || "$word" != *\$* || "$exp[1]" = *\$* ]]; then
[[ "$tmp" = *file* ]] && asp=file
[[ "$tmp" = *(yes|true|1|on|subst)* ]] && asp="yes$asp"
fi
else
asp=file
fi
# If there is only one expansion, add a suitable suffix
if (( $#exp == 1 )); then
if [[ -d ${exp[1]} && "$exp[1]" != */ ]]; then
suf=/
elif [[ "$asp" = yes* ||
( "$asp" = *file && -f "${exp[1]}" ) ]]; then
suf=' '
else
suf=
fi
fi
if [[ -z "$compstate[insert]" ]] ;then
if [[ "$sort" = menu ]]; then
_description expansions expl expansions "o:$word"
else
_description -V expansions expl expansions "o:$word"
fi
compadd "$expl[@]" -UQ -qS "$suf" -a exp
else
_tags all-expansions expansions original
if [[ $#exp -gt 1 ]] && _requested expansions; then
local i j normal space dir
if [[ "$sort" = menu ]]; then
_description expansions expl expansions "o:$word"
else
_description -V expansions expl expansions "o:$word"
fi
normal=()
space=()
dir=()
for i in "$exp[@]"; do
j="${i}"
if [[ -d "$j" && "$i" != */ ]]; then
dir=( "$dir[@]" "$i" )
elif [[ "$asp" = yes* || ( "$asp" = *file && -f "$j" ) ]]; then
space=( "$space[@]" "$i" )
else
normal=( "$normal[@]" "$i" )
fi
done
(( $#dir )) && compadd "$expl[@]" -UQ -qS/ -a dir
(( $#space )) && compadd "$expl[@]" -UQ -qS " " -a space
(( $#normal )) && compadd "$expl[@]" -UQ -qS "" -a normal
fi
if _requested all-expansions expl 'all expansions'; then
local disp dstr
if [[ "${#${exp}}" -ge COLUMNS ]]; then
disp=( -ld dstr )
dstr=( "${(r:COLUMNS-5:)exp} ..." )
else
disp=()
fi
[[ -o multios ]] && exp=($exp[1] $compstate[redirect]${^exp[2,-1]})
compadd "$disp[@]" "$expl[@]" -UQ -qS "$suf" - "$exp"
fi
_requested original expl original && compadd "$expl[@]" -UQ - "$word"
compstate[insert]=menu
fi
return 0
PK [' functions/_defaultsnu W+A #compdef defaults
_defaults_domains(){
if [[ "`eval echo $PREFIX`" != [/~]* ]]; then
local str="$(_call_program domains defaults domains 2>/dev/null)"
local expl
local -a list
list=( ${(s/, /)str} -g -globalDomain )
_wanted domains expl 'defaults database domain' \
compadd -M 'r:|.=* r:|=*' -a list
else
_files -g '*.plist(e:"reply=\${REPLY%.plist}":)'
fi
}
_defaults_keys(){
local ks
ks=(${${${${(M)${(f)"$(defaults read "$words[2]" 2>/dev/null)"}:# [^ ]*=*}# }%% = *}:Q})
local expl
_wanted keys expl 'key' compadd "$ks[@]"
}
_defaults(){
local -a _1st_arguments
_1st_arguments=( read read-type write rename delete domains find help )
local curcontext="$curcontext" state line expl
_arguments -A '-*' \
'(-currentHost)-host:host:_hosts' \
'(-host)-currentHost' \
'*::command:->subcmd' && return 0
if (( CURRENT == 1 )); then
_describe -t commands "command" _1st_arguments
return
fi
case $words[1] in
read|read-type|delete)
_arguments \
"(1)-app:application:_mac_applications" \
"(-app)1:domain:_defaults_domains" \
"2:keys:_defaults_keys"
;;
write)
_arguments \
"(1)-app:application:_mac_applications" \
"(-app)1:domain:_defaults_domains" \
"2:key:_defaults_keys" \
"*::value"
;;
rename)
_arguments \
"(1)-app:application:_mac_applications" \
"(-app)1:domain:_defaults_domains" \
"2:old key:_defaults_keys" \
"3:new key:_defaults_keys"
;;
domains|help)
;;
find)
_message word
;;
*)
_message "unknown defaults command: $words[1]"
;;
esac
}
_defaults "$@"
PK [HH- functions/_varsnu W+A #compdef getopts unset
# This will handle completion of keys of associative arrays, e.g. at
# `vared foo['.
local ret=1
if [[ $PREFIX = *\[* ]]; then
compstate[parameter]=${PREFIX%%(|\\)\[*}
IPREFIX=${PREFIX%%\[*}\[
PREFIX=${PREFIX#*\[}
_subscript -q
else
_parameters -g '^a*' "$@" && ret=0
if compset -S '\[*'; then
set - -S "" "$@"
else
set - -qS"${${QIPREFIX:+[}:-\[}" "$@"
fi
_parameters -g 'a*' "$@" && ret=0
return ret
fi
PK [GYm m functions/_killallnu W+A #compdef killall killall5
if [[ $service = killall && "$OSTYPE" = (linux*|*bsd*|darwin*) ]]; then
_alternative \
'signals:: _signals -p' \
'processes-names:process:{ compadd "$expl[@]" ${${${${(f)"$(_call_program processes-names ps ${${EUID/(#s)0(#e)/xa}//[0-9]#/}ho command 2> /dev/null)"//[][\(\)]/}:#(ps|COMMAND|-*)}%%\ *}:t} }'
else
_signals -p
fi
PK [No[ [ functions/_pidsnu W+A #compdef pflags pcred pmap pldd psig pstack pfiles pwdx pstop prun pwait ptree
# If given the `-m ' option, this tries to complete only pids
# of processes whose command line match the `'.
local out pids list expl match desc listargs all nm ret=1
_tags processes || return 1
if [[ "$1" = -m ]]; then
all=()
match="*[[:blank:]]${PREFIX}[0-9]#${SUFFIX}[[:blank:]]*[/[:blank:]]${2}*"
shift 2
elif [[ "$PREFIX$SUFFIX" = ([%-]*|[0-9]#) ]]; then
all=()
match="(*[[:blank:]]|)${PREFIX}[0-9]#${SUFFIX}[[:blank:]]*"
else
all=(-U)
match="*[[:blank:]]*[[/[:blank:]]$PREFIX*$SUFFIX*"
nm="$compstate[nmatches]"
fi
out=( "${(@f)$(_call_program processes ps 2>/dev/null)}" )
desc="$out[1]"
out=( "${(@M)out[2,-1]:#${~match}}" )
if [[ "$desc" = (#i)(|*[[:blank:]])pid(|[[:blank:]]*) ]]; then
pids=( "${(@)${(@M)out#${(l.${#desc[1,(r)(#i)[[:blank:]]pid]}..?.)~:-}[^[:blank:]]#}##*[[:blank:]]}" )
else
pids=( "${(@)${(@M)out##[^0-9]#[0-9]#}##*[[:blank:]]}" )
fi
if zstyle -T ":completion:${curcontext}:processes" verbose; then
list=( "${(@Mr:COLUMNS-1:)out}" )
desc=(-ld list)
else
desc=()
fi
_wanted processes expl 'process ID' \
compadd "$@" "$desc[@]" "$all[@]" -a - pids && ret=0
if [[ -n "$all" ]]; then
zstyle -s ":completion:${curcontext}:processes" insert-ids out || out=menu
case "$out" in
menu) compstate[insert]=menu ;;
single) [[ $compstate[nmatches] -ne nm+1 && $compstate[insert] != menu ]] &&
compstate[insert]= ;;
*) [[ ${#:-$PREFIX$SUFFIX} -gt ${#compstate[unambiguous]} ]] &&
compstate[insert]=menu ;;
esac
fi
return ret
PK [L
functions/_a2psnu W+A #compdef a2ps
# This is for the GNU version of a2ps.
if [[ "$words[1]" != "$_cache_a2ps_cmd" ]]; then
local descr
_cache_a2ps_cmd="$words[1]"
descr=( "${(@)${(f@)$(_call_program features LC_ALL=C $words[1] --list=features)//
/ }:#}" )
_cache_a2ps_values=(
"${descr[(r)Known [Ss]tyle [Ss]heets*]#* }"
"${descr[(r)Known [Ee]ncodings*]#* }"
"${descr[(r)Known [Mm]edia*]#* }"
"${descr[(r)Known [Pp]rologues*]#* }"
"${descr[(r)Known PostScript Printer Descriptions*]#* }"
"${descr[(r)Known [Oo]utputs*]#* }"
"${descr[(r)Known [Uu]ser [Oo]ptions*]#* }"
"${descr[(r)Known Variables*]#* }"
)
fi
integer ret=1
local context state line expl
typeset -A opt_args
_arguments \
'(-E --pretty-print=)'{-E-,--pretty-print=}"[enable pretty-printing]::language:(${_cache_a2ps_values[1]})" \
\*{-D+,--define=}"[set or unset variable]:variable:(${_cache_a2ps_values[8]})" \
'(-d -P --printer)'{-P,--printer=}"[send output to printer]:printer:->printers" \
'(-A --file-align)'{-A,--file-align=}'[specify alignment of separate files]:mode:(virtual rank page sheet)' \
'(-a --pages)'{-a-,--pages=}'[select pages to print]:page range' \
'(-q --quiet --silent -v --verbose)'{-q,--quiet,--silent}'[quiet output]' \
'(-q --quiet --silent -v --verbose)'{-v-,--verbose=}'[verbose output]:level' \
'(-b --header)'{-b-,--header=}'[set the page header]:text' \
'(-g)--highlight-level=:highlight:(none normal heavy)' \
'--list=:topic:(features delegations encodings media prologues printers style-sheets user-options variables)' \
"--user-option=:user option:(${_cache_a2ps_values[7]})" \
{-M,--medium=}":medium:(${_cache_a2ps_values[3]})" \
"--ppd=::printer description:(${_cache_a2ps_values[5]})" \
'--statusdict=:statusdict definition' \
'--setpagedevice=:page device definition' \
'--margin=:margin size (PostScript points)' \
'--toc=:format' \
--{{center,left,right}-title.underlay,{,left-,right-}footer}'=:text' \
'*:input file:_files' -- \
'*\*:toggle:(yes no)' \
'*=DIRECTION:direction:(rows columns)' \
'*=TYPE:type:((r\:CR mac\:CR unix\:LF n\:LF nr\:LFCR rn\:CRLF pc\:CRLF any auto))' \
'--version-control*:version control:(none off t numbered nil existing never simple)' \
'--strip-level*:strip level:((0\:everything\ is\ printed 1\:regular\ comments\ are\ not\ printed 2\:strong\ comments\ are\ not\ printed 3\:no\ comment\ is\ printed))' \
'--sides=*:mode:(simplex duplex tumble)' \
'--non-printable-format*:format:(caret space question-mark octal hexa emacs)' \
"--encoding*:encoding:(${_cache_a2ps_values[2]})" \
"--prologue*::prologue:(${_cache_a2ps_values[4]})" && ret=0
if [[ $state = printers ]]; then
_wanted printers expl printer compadd -- ${=_cache_a2ps_values[6]} && ret=0
_printers && ret=0
fi
return ret
PK [Qh functions/_dpkg-buildpackagenu W+A #compdef dpkg-buildpackage
_arguments \
'-b[binary-only build, no source]' \
'-B[binary-only build, no source or arch-indep binaries]' \
'-S[source-only build, no binaries]' \
'-s-:source generation:((i\:default a\:force\ inclusion\ of\ original\ source d\:force\ exclusion\ of\ original\ source))' \
'-a-:architecture:(alpha amd64 arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 sparc)' \
'-v-:version:' \
'-C-:changes description:_files' \
'-m-:maintainer address:_email_addresses' \
'-e-:maintainer address:_email_addresses' \
'(-d)-D[check build dependencies and conflicts]' \
'(-D)-d[do not check build dependencies and conflicts]' \
'-W[turn certain errors into warnings]' \
'-E[negates previously-set -W]' \
'-nc[do not clean source tree]' \
'-tc[clean the source tree after build]' \
'-r-:gain-root command: _command_names -e' \
'-p-:sign command: _command_names -e' \
'-k-:key ID:' \
'-us[do not sign source package]' \
'-uc[do not sign .changes file]' \
'*-i-:ignore regexp:' \
'*-I-:ignore filename:_files' \
'--admindir=:dpkg database dir:_files -/' \
'(-h --help)'{-h,--help}'[show usage message]' \
'--version[show version]'
PK [7F( ( functions/_xt_session_idnu W+A #autoload
_message -e ids 'session ID'
PK [ * functions/_sub_commandsnu W+A #autoload
local expl
if [[ CURRENT -eq 2 ]]; then
_wanted commands expl command compadd "$@"
else
_message 'no more arguments'
fi
PK [I,h h functions/_csupnu W+A #compdef csup
_arguments -s \
'-1[disable automatic retries]' \
'-4[force usage of IPv4 addresses]' \
'-6[force usage of IPv6 addresses]' \
'-A[local address to bind to when connecting to the server]:local address:_hosts' \
'-b[base directory]:base directory:_files -/' \
'-c[subdirectory of base for information about collections]:collections directory:_files -/' \
'-d[maximum number of deleted files]:maximum number of deleted files:' \
'-h[server host]:server host:_hosts' \
'-i[include only files and directories matching]:file pattern:' \
'-k[keep temporary copies of failed updates]' \
'-l[lock file]:lock file:_files' \
'-L[verbosity level]:verbosity level:(0 1 2)' \
'-L0[verbosity level 0]' \
'-L1[verbosity level 1]' \
'-L2[verbosity level 2]' \
'-p[server port]:port:_ports' \
'-r[maximum number of retries]:maximum number of retries:' \
'-s[suppress status checks]' \
'-v[print version information]' \
'(-Z)-z[enable compression]' \
'(-z)-Z[disable compression]' \
':csup file:_files' \
':destination directory:_files -/'
PK [Ce functions/prompt_pws_setupnu W+A # pws prompt theme
prompt_pws_help() {
cat <<'EOF'
Simple prompt which tries to display only the information you need.
- highlighted parenthesised status if last command had non-zero status
- bold + if shell is not at top level (may need tweaking if there
is another shell in the process history of your terminal)
- number of background jobs in square brackets if non-zero
- time in yellow on black, with Ding! on the hour.
I usually use this in a white on black terminal.
EOF
}
prompt_pws_setup() {
PS1='%K{white}%F{red}%(?..(%?%))'\
'%K{black}%F{white}%B%(2L.+.)%(1j.[%j].)'\
'%F{yellow}%(t.Ding!.%D{%L:%M})'\
'%f%k%b%# '
}
prompt_pws_setup "$@"
PK [b3 3 functions/_expand_wordnu W+A #compdef -K _expand_word complete-word \C-xe _list_expansions list-choices \C-xd
# Simple completion front-end implementing expansion.
local curcontext="$curcontext"
if [[ -z "$curcontext" ]]; then
curcontext="expand-word:::"
else
curcontext="expand-word:${curcontext#*:}"
fi
_main_complete _expand
PK [ׄ[: : functions/_mencalnu W+A #compdef mencal
local curcontext="$curcontext" state line ret=1
_arguments -C \
'(--monday -m)'{-m,--monday}'[monday as first day of work]' \
'-1[current month]' \
'-3[previous, current, and next month]' \
'-y[all-year calendar]::year:' \
'(--quiet -q)'{-q,--quiet}'[no top information]' \
'(--nocolor -n)'{-n,--nocolor}'[noncolored output]' \
'(--icolor -i)'{-i,--icolor}'[intersection color]:color:(red green blue yellow violet cyan shiny bold)' \
'(-)'{-h,--help}'[display help informaiton]' \
'(-)'{-V,--version}'[print version information]' \
\*{-c,--config}'[config]:options:->option' && ret=0
if [[ $state = option ]]; then
_values -s , 'config option' \
'(s start)'{s,start}'[start day]:day' \
'(l length)'{l,length}'[period length]:length' \
'(d duration)'{d,duration}'[menstruation duration]:duration' \
'(n name)'{n,name}'[name of subject]:name' \
'(f file)'{f,file}'[filename]:file:_files' \
'(c color)'{c,color}'[color for menstruation days]:color:(red green blue yellow violet cyan shiny bold)' && ret=0
fi
return ret
PK [.yB B functions/_waitnu W+A #compdef wait
_alternative 'processes:: _pids' 'jobs:: _jobs -t'
PK [0u functions/_correctnu W+A #autoload
# This is mainly a wrapper around the more general `_approximate'.
# By setting `compstate[pattern_match]' to something unequal to `*' and
# then calling `_approximate', we get only corrections, not all strings
# with the corrected prefix and something after it.
#
# Supported configuration keys are the same as for `_approximate', only
# starting with `correct'.
local ret=1 opm="$compstate[pattern_match]"
compstate[pattern_match]='-'
_approximate && ret=0
compstate[pattern_match]="$opm"
return ret
PK [t2 functions/_ld_debugnu W+A #compdef -value-,LD_DEBUG,-default-
local vals
vals=(
'libs[display library search paths]'
'files[show processing of files and libraries]'
'bindings[display symbol binding]'
'reloc[display relocation processing]'
'symbols[display symbol table processing]'
'unused[show unused files]'
'versions[show version processing]'
'help[display help message]'
)
case $OSTYPE in
solaris*)
vals+=(
'basic[provide basic trace information/warnings]'
'cap[display hardware/software capability processing]'
'detail[provide more info in conjunction with other options]'
'demangle[display C++ symbol names in their demangled form]'
'init[display init and fini processing]'
'long[display long object names without truncation]'
'move[display move section processing]'
'segments[display available output segments and address/offset processing]'
'strtab[display information about string table compression]'
'tls[display TLS processing info]'
)
;;
linux*)
vals+=(
'all[combine all options]'
'statistics[display relocation statistics]'
)
;;
esac
_values -s , capability $vals
PK [(`b
functions/_suffix_alias_filesnu W+A #autoload
# Complete files for which a suffix alias exists.
local expl pat
(( ${#saliases} )) || return 1
if (( ${#saliases} == 1 )); then
pat="*.${(kq)saliases}"
else
local -a tmpa
# This is so we can quote the alias names against expansion
# without quoting the `|' which needs to be active in the pattern
# --- remember that an alias name can be pretty much anything.
tmpa=(${(kq)saliases})
pat="*.(${(kj.|.)tmpa})"
fi
# _wanted is called for us by _command_names
_path_files "$@" -g $pat
PK [ڿ functions/VCS_INFO_get_data_cvsnu W+A ## vim:ft=zsh
## cvs support by: Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
local cvsbranch cvsbase
cvsbase="."
while [[ -d "${cvsbase}/../CVS" ]]; do
cvsbase="${cvsbase}/.."
done
cvsbase="$(VCS_INFO_realpath ${cvsbase})"
cvsbranch=$(< ./CVS/Repository)
rrn=${cvsbase:t}
cvsbranch=${cvsbranch##${rrn}/}
[[ -z ${cvsbranch} ]] && cvsbranch=${rrn}
VCS_INFO_formats '' "${cvsbranch}" "${cvsbase}" '' '' '' ''
return 0
PK [-
functions/_sortnu W+A #compdef sort
# zsh completions for GNU sort version 5.97
# limitation: --key does not work exactly right
local arguments
arguments=(
'(-b --ignore-leading-blanks)'{-b,--ignore-leading-blanks}'[ignore leading blanks]'
'(-d --dictionary-order)'{-d,--dictionary-order}'[consider only blanks and alphanumeric characters]'
'(-f --ignore-case)'{-f,--ignore-case}'[fold lower case to upper case characters]'
'(-g --general-numeric-sort)'{-g,--general-numeric-sort}'[compare according to general numeric value]'
'(-i --ignore-nonprinting)'{-i,--ignore-nonprinting}'[consider only printable characters]'
'(-M --month-sort)'{-M,--month-sort}"[compare (unknown) < 'JAN' < ... < 'DEC']"
'(-n --numeric-sort)'{-n,--numeric-sort}'[compare according to string numerical value]'
'(-r --reverse)'{-r,--reverse}'[reverse the result of comparisons]'
'(-c --check)'{-c,--check}'[check whether input is sorted; do not sort]'
'(-k --key)'{-k+,--key=}'[start a key at POS1, end it as POS2 (origin 1)]:key:'
'(-m --merge)'{-m,--merge}'[merge already sorted files; do not sort]'
'(-o --output)'{-o+,--output=}'[write result to FILE instead of standard output]:filename:_files'
'(-s --stable)'{-s+,--stable=}'[stabilize sort by disabling last-resort comparison]'
'(-S --buffer-size)'{-S+,--buffer-size=}'[use SIZE for main memory buffer]:size:'
'(-t --field-separator)'{-t+,--field-separator=}'[use SEP instead of non-blank to blank transition]:separator:'
'(-T --temporary-directory)'{-T+,--temporary-directory=}'[use DIR for temporaries, not $TMPDIR or /tmp; multiple options specify multiple directories]:directory'
'(-u --unique)'{-u,--unique}'[with -c, check for strict ordering; without -c, output only the first of an equal run]'
'(-z --zero-terminated)'{-z,--zero-terminated}'[end lines with 0 byte, not newline]'
--help'[display help and exit]'
--version'[output version information and exit]'
'*:filename:_files'
)
_arguments -s $arguments
PK [{"G G functions/_arpingnu W+A #compdef arping
if _pick_variant iputils=iputils unix -V; then
_arguments -s \
'-f[quit on first reply]' \
'-q[be quiet]' \
'-b[keep broadcasting, do not go unicast]' \
'-D[duplicate address detection mode]'\
'-U[unsolicited ARP mode, update your neighbours]' \
'-A[ARP answer mode, update your neighbours]' \
'-V[print version and exit]' \
'-c[how many packets to send]:count' \
'-w[how long to wait for a reply]:timeout' \
'-I[interface]:ethernet interface:_net_interfaces' \
'-s[source ip address]:source IP address:_hosts' \
':destination:_hosts'
else
_arguments -s \
'(-)-h[display help information]' \
'-q[only display error messages]' \
'-a[audible ping]' \
'*-v[verbose output]' \
'-r[raw output: only the MAC/IP address displayed]' \
'-R[like -r but shows "the other one"]' \
'-d[find duplicate replies]' \
'(:)-B[255.255.255.255]' \
'-0[source 0.0.0.0]' \
'-b[source 255.255.255.255]' \
'-S[set source IP]:source IP address:_hosts' \
'-T[target IP]:target IP address:_hosts' \
'-p[turn on promiscuous mode]' \
'-s[set source MAC address]:source MAC address' \
'-t[set target MAC address]:target MAC address' \
'-c[send this many requests]:count' \
'-i[interface]:interface:_net_interfaces' \
'-A[only count addresses matching requested address]' \
'(-B):address:_hosts'
fi
PK [,xt functions/_perldocnu W+A #compdef perldoc -value-,PERLDOC,-default-
local curcontext="$curcontext" state line expl args ret=1
typeset -A opt_args
args=( '*:Perl pod pages:->perl-pods' )
if [[ $service = *PERLDOC* ]]; then
compset -q
words=( fake "$words[@]" )
(( CURRENT++ ))
args=()
fi
_arguments -C -s -S -A "-*" \
'(- *)-h[print help information]' \
'(- *)-V[display version information]' \
'-v[verbose output]' \
'-t[use plain text output instead of nroff]' \
'-u[show raw Pod source]' \
'*-m[display entire module]:module:_perl_modules' \
'-l[display only filename of the module found]' \
'-F[consider arguments as filenames]' \
'(-q)-f+[view documentation for Perl built-in function]:perl builtin function:->perl-builtin-funcs' \
'(-f)-q+[search question headings in Perl FAQ]:regular expression' \
'(-d)-T[send output direct to stdout and not via pager]' \
'(-T)-d+[specify output file]:output file:_files' \
'-o+[specify output format]:output format:(man nroff pod rtf text tk xml latex)' \
'-M[specifies module to use for formatting]:module:_perl_modules' \
'-w[specify option to formatter]:option' \
'-X[use an index if present]' \
'-n+[specify replacement for nroff]:nroff replacement:_command_names -e' \
'-r[recursive search]' \
'-i[ignore case]' \
"$args[@]" && ret=0
case $state in
perl-builtin-funcs)
: ${(A)_perl_builtin_funcs:=${(u)${${(M)${(f)"$(_call_program functions \
perldoc -u perlfunc 2>/dev/null)"}:#\=item [a-z]*}#* }%%[^a-z]*}}
_wanted functions expl 'perl built-in function' compadd "$@" -a - \
_perl_builtin_funcs && ret=0
;;
perl-pods)
if (( $+opt_args[-F] )); then
_wanted files expl 'Perl modules and .pods' \
_files -g "*.(pod|pm)(-.)" && ret=0
else
_alternative \
'modules:module: _perl_modules -tP' \
'pods:base pod: _perl_basepods' \
'files:module or .pod file:_files -g "*.(pod|pm)(-.)"' && ret=0
fi
;;
esac
return ret
PK [y functions/_topgitnu W+A #compdef tg
local expl
if (( CURRENT == 2 )); then
_wanted subcmd expl 'topgit command' compadd create delete export import info patch remote summary update
else
_files
fi
PK [. functions/_read_compnu W+A #compdef -k complete-word \C-x\C-r
# This allows an on-the-fly choice of completions. On typing the key
# sequence given above, you will be prompted for a string of arguments. If
# this string begins with `_', it will be taken as the name of a function to
# evaluate to generate the completions; unambiguous strings in the function
# name are automatically completed.
#
# Else it is taken to be a set of arguments for compadd to generate a list
# of choices. The possibilities are the same as the flags for generating
# completions given in the zshcompwid manual page. Note the arguments are
# verbatim: include minus signs, spaces, quotes, etc.
#
# On subsequent calls, the same completion will be re-performed. To
# force a new type of completion to be read, supply a numeric argument.
#
# For example,
# % bindkey | grep rever
# Completion: -b
# % bindkey | grep reverse-menu-complete _
#
# Global variables used:
# _read_comp Last completion string read from user
# emulate -L zsh
setopt localoptions extendedglob nobadpattern unset # xtrace promptsubst
# local PS4='%N:%i:$((#key))> '
typeset -g _read_comp
if [[ ${+NUMERIC} = 0 && -n $_read_comp ]]; then
if [[ $_read_comp = _* ]]; then
eval $_read_comp
else
eval "compadd $_read_comp"
fi
return
fi
_read_comp=
local key search str str2 newch funcs funcs2 exact msg list
integer pos
msg="Completion: "
zle -R $msg
if ! read -k key; then
zle -cR ''
return 1
fi
while [[ '#key' -ne 10 && '#key' -ne 13 ]]; do
if [[ '#key' -eq 0 && '#key' -eq 3 || '#key' -eq 7 ]]; then
zle -cR ''
return 1
fi
if [[ ( '#key' -eq 8 || '#key' -eq 127 ) && -n $str ]]; then
# delete character
str="$str[1,-2]"
exact=
list=()
elif [[ '#key' -eq 21 ]]; then
# ^U: delete line
str=
exact=
list=()
elif [[ '#key' -eq 4 && $str = _[^\ ]# && $str != *' '* ]]; then
# ^D: list completions
list=(${$(whence -m "$str*" 2>/dev/null)%: function})
elif [[ ( -n $exact && $key != ' ' ) || '#key & 127' -lt 32 ]]; then
# If we've got an exact function, only allow a space after it.
# Don't try to insert non-printing characters.
if [[ -n $ZBEEP ]]; then
print -nb $ZBEEP
elif [[ -o beep ]]; then
print -n "\a"
fi
list=()
else
str="$str$key"
if [[ $str = _[^\ ]# ]]; then
# Rudimentary completion for function names.
# Allow arguments, i.e. don't do this after we've got a space.
funcs=(${$(whence -m "$str*" 2>/dev/null)%: function})
if [[ -o autolist && $#str -gt 1 ]]; then
list=($funcs)
else
list=()
fi
if (( $#funcs == 1 )); then
# Exact match; prompt the user for a newline to confirm
str=$funcs[1]
exact=" (Confirm)"
elif (( $#funcs == 0 )); then
# We can't call zle beep, because this isn't a zle widget.
if [[ -n $ZBEEP ]]; then
print -nb $ZBEEP
elif [[ -o beep ]]; then
print -n "\a"
fi
str="$str[1,-2]"
list=()
else
# Add characters to the string until a name doesn't
# match any more, then backtrack one character to get
# the longest unambiguous match.
str2=$str
pos=$#str2
while true; do
(( pos++ ))
newch=${funcs[1][pos]}
[[ -z $newch ]] && break
str2=$str2$newch
funcs2=(${funcs##$str2*})
(( $#funcs2 )) && break
str=$str2
done
fi
else
exact=
fi
fi
if (( $#list )); then
zle -R "$msg$str$exact" $list
else
zle -cR "$msg$str$exact"
fi
if ! read -k key; then
zle -cR ''
return 1
fi
done
if [[ -z $str ]]; then
# string must be non-zero
return 1
elif [[ $str = _* ]] && ! whence ${str%% *} >& /dev/null; then
# a function must be known to the shell
return 1
else
# remember the string for re-use
_read_comp=$str
fi
zle -cR ''
if [[ $str = _* ]]; then
eval $str
else
eval "compadd $str"
fi
PK [v functions/_rrdtoolnu W+A #compdef rrdtool
_arguments \
':rrdtool command:(create update updatev graph dump restore
last lastupdate first help info fetch tune
resize xport)' \
'*::subcmd:->subcmd' && return 0
case "$state" in
(subcmd)
case "$words[1]" in
(help)
_wanted -V 'subcommands' expl 'subcommand' compadd \
create update updatev graph dump restore last lastupdate \
first help info fetch tune resize xport
;;
(*)
_files
;;
esac
;;
esac
PK [S8 $ functions/_mac_files_for_applicationnu W+A #autoload
_mac_rsrc_check() {
[[ ! -s "$REPLY/..namedfork/rsrc" ]] && return 1
if [[ -x /Developer/Tools/GetFileInfo ]]; then
local ftype="$(command /Developer/Tools/GetFileInfo -t $REPLY)"
ftype="${ftype//\"/}"
[[ -n "$types[(r)$ftype]" ]]
else
grep --quiet "\(${(j/\|/)types}\)" "$REPLY/..namedfork/rsrc"
fi
}
_mac_parse_info_plist() {
# For now, awk is used because builtin function "read" was too slow.
# '<' is used for the delimiter because some Info.plist files use CR as
# newline but read doesn't treat them as so
local s='
BEGIN { RS="<" }
/^key>/ { sub(/key>/, ""); reading_key=$0 }
/^string>/ {
sub(/string>/, "")
if (reading_key == "CFBundleTypeExtensions") exts=exts " \"" $0 "\""
if (reading_key == "CFBundleTypeOSTypes") types=types " \"" $0 "\""
}
END {
print "exts=(" exts ")\ntypes=(" types ")"
}
'
command awk $s "$app_path/Contents/Info.plist" | while read; do
eval "$REPLY"
done
}
# Try to complete files for the specified application.
_mac_files_for_application() {
local -a opts
zparseopts -D -a opts q n 1 2 P: S: r: R: W: X+: M+: F: J+: V+:
local app_path
_retrieve_mac_apps
app_path="${_mac_apps[(r)*/$1(|.app)]:-$1}"
local -a glob_patterns
glob_patterns=()
# Try to get extentions from "Info.plist" XML file.
if [[ -f "$app_path/Contents/Info.plist" ]]; then
local -a exts types
_mac_parse_info_plist
if [[ -n "$exts[(r)\*]" ]]; then
glob_patterns=( "*" )
else
if (( #exts != 0 )); then
glob_patterns+=( "*.(${(j/|/)exts})(N)" )
fi
if (( #types != 0 )); then
glob_patterns+=( "^*.[[:alnum:]]##(.Ne:_mac_rsrc_check:)" )
fi
fi
else
glob_patterns=( "*" )
fi
case ${#glob_patterns} in
0) return 1 ;;
1) _files "$opts[@]" -g "$glob_patterns[1]" ;;
*) _files "$opts[@]" -g "{${(j/,/)glob_patterns}}" ;;
esac
}
_mac_files_for_application "$@"
PK [g5 functions/_lddnu W+A #compdef ldd
if _pick_variant gnu=GNU solaris --version; then
args=(
'(- *)--version[display version information]'
'(- *)--help[display help information]'
'(-v --verbose)'{-v,--verbose}'[include symbol versioning information]'
'(-d --data-relocs)'{-d,--data-relocs}'[perform data relocations and report missing objects]'
'(-f --function-relocs)'{-f,--function-relocs}'[perform data/function relocations and report missing objects]'
'(-u --unused)'{-u,--unused}'[display any unused objects]'
)
else
args=(
-s
'(-r)-d[check immediate references]'
'(-d)-r[check immediate and lazy references]'
'-u[display any unused objects]'
'-U[display any unreferenced, or unused dependencies]'
'-e[set specified environment variable]:environment variable:(LD_PRELOAD LD_LIBRARY_PATH LD_RUN_PATH LD_DEBUG LD_DEBUG_OUTPUT LD_NOCONFIG LD_NOAUXFLTR)'
'-f[check for insecure executable]'
'-i[display order of execution of initialization sections]'
'-L[enable lazy loading]'
'-l[force immediate processing of any filters]'
'-s[display search path used]'
'-v[displays all dependency relationships]'
)
fi
_arguments $args \
'*: : _alternative
"executables:executable:_files -g \^\*.so\(\*\)"
"shared-objects:shared object:_files -g \*.so"'
PK [* functions/_diffstatnu W+A #compdef diffstat
_arguments \
'-c[prefix each line with hash mark]' \
'-e:error file:_files' \
'-f:histogram format:((0\:concise 1\:normal 2\:dots 3\:dots+normal 4\:value 5\:value+normal 6\:value+dots 7\:value+dots+normal))' \
'-h[help]' \
'-k[suppress merging of filenames in report]' \
'-l[list only the filenames]' \
'-n:minimum width for filenames:' \
'-o:output file:_files' \
'-p:number of path components:' \
'-f:rounding code:((0\:none 1\:round 2\:round+adjustment))' \
'-t[overrides histogram, generates csv output]' \
'-u[suppress sorting of filenames in report]' \
'-v[show progress]' \
'-V[print version number]' \
'-w:maximum width of histogram:' \
'*:file specifications:_files'
PK [
U functions/zed-set-file-namenu W+A emulate -L zsh
autoload -Uz read-from-minibuffer
zle -K zed-normal-keymap
local REPLY
read-from-minibuffer "File name: "
zed_file_name=$REPLY
PK [OyJ J
functions/_ipnu W+A #compdef ip
# This is based on iproute2-ss061214.
# The manual and help text summaries are not consistent with the main
# manual text. I have based this on the main manual text, except where
# it's obviously deficient.
#
# Values encoding simple types
#
local -a subcmd_dev
subcmd_dev=(/$'[[:alpha:]]##[[:digit:]]##(\.[[:digit:]]##)#\0'/ ':interfaces:network interface:_net_interfaces')
local -a subcmd_onoff
subcmd_onoff=(/$'(on|off)\0'/ ':onoff:state (on or off):(on off)')
local -a subcmd_string
subcmd_string=(/$'[^\0]#\0'/ ':string:arbitrary string:( )')
local -a subcmd_number
subcmd_number=(/$'[0-9]##\0'/ ':number:decimal number:( )')
local xp='[[:xdigit:]][[:xdigit:]]'
local -a subcmd_lladdr
subcmd_lladdr=(/"${xp}:${xp}:${xp}:${xp}:${xp}:${xp}"$'\0'/
':lladdress:link layer (MAC) address:( )')
local -a subcmd_ipaddr
subcmd_ipaddr=(
/$'(<->(.<->(.<->(.<->|)|)|)|[:[:xdigit]]#:[:[:xdigit:]]#)(|/<->)\0'/
':ipaddress:IP address (v4 or v6) with optional /:( )'
)
local -a subcmd_ipaddrs
local PATH=$PATH
PATH=/sbin:$PATH
subcmd_ipaddrs=(
/$'(<->(.<->(.<->(.<->|)|)|)|[:[:xdigit]]#:[:[:xdigit:]]#)(|/<->)\0'/
":ipaddress:IP address (v4 or v6) currently set:( $(ip addr show | sed -n 's/^ *inet6* \([0-9a-f\.:/]*\) .*$/\1/p') )"
)
local -a subcmd_scope
_regex_words scope "IP address scope" \
'global:address globally valid' \
'site:address valid for site (IPv6)' \
'link:address valid for single link' \
'host:address valid for this host'
subcmd_scope=("$reply[@]")
local -a subcmd_nud
_regex_words nud "Neighbour Unreachability Detection state" \
'permanent:valid forever' \
'noarp:valid, not validated, removed if expired' \
'reachable:valid until reachability timeout' \
'stale:valid but suspicious'
subcmd_nud=("$reply[@]")
local -a subcmd_rttype
_regex_words route-type "Route type" \
'unicast:real point-to-point route' \
'unreachable:generate Host Unreachable messages' \
'blackhole:silently discard' \
'prohibit:generate Communication Administratively Prohibited messages' \
'local:Loopback route' \
'broadcast:destinations are broadcast addresses' \
'throw:used with policy rules, generate Net Unreachable if no route' \
'nat:Network Address Translation route' \
'anycast:anycast addresses, not implemented' \
'multicast:multicast routing, not present in normal tables'
subcmd_rttype=("$reply[@]")
local -a subcmd_route
# Route type is optional in route.
# There's an overall default but then the whole thing is missed
# out, and it's marked as optional anyway.
subcmd_route=("(" $subcmd_rttype "|" ")" $subcmd_ipaddr)
local -a subcmd_tos
_regex_words tos "type of service" \
'lowdelay:low latency' \
'throughput:high bulk throughput' \
'reliability:high reliability'
subcmd_tos=("(" "$reply[@]" "|"
/$'(|0x)[[:xdigit:]]##\0'/ ":hex-number:8-bit hex number:( )" ")")
local -a subcmd_lockmtu
subcmd_lockmtu=("(" /$'lock\0'/ ":lock:lock:(lock)" "|" ")" $subcmd_number )
local -a subcmd_nexthop
_regex_words nexthop 'nexthop route keyword' \
'via:specify nexthop router:$subcmd_ipaddr' \
'dev:sepcify output device:$subcmd_dev' \
'weight:specify relative quality of route:$subcmd_number'
subcmd_nexthop=("$reply[@]" "#")
local -a subcmd_rtproto
_regex_words rtprotocol 'route protocol' \
'redirect:installed from ICMP redirect' \
'kernel:installed automatically by kernel' \
'boot:installed during boot sequence' \
'static:installed by adminstrator' \
'ra:installed by Router Discovery protocol'
subcmd_rtprotocol=("$reply[@]")
local -a subcmd_rttable
_regex_words rttable 'routing table' \
'local:local routes' \
'main:main routing table' \
'default:default routing table' \
'unspec:unspecified routing table'
subcmd_rttable=("(" "$reply[@]" "|" $subcmd_number ")")
local -a subcmd_rtrealm subcmd_rtrealms
_regex_words -t / rtrealm 'routing realm' \
'cosmos:everywhere'
subcmd_rtrealms=("(" "$reply[@]" "|" /$'[0-9]##/'/
':number:decimal number:( )' ")")
_regex_words rtrealm 'routing realm' \
'cosmos:everywhere'
subcmd_rtrealm=("(" "$reply[@]" "|" $subcmd_number ")")
subcmd_rtrealms+=($subcmd_rtrealm)
local -a subcmd_rtselector
_regex_words rtselmod 'routing selector modifier' \
'root:select minimum route prefix length to match' \
'match:select maximum route prefix length to match' \
'exact:select exact prefix length to match'
subcmd_rtselector=("(" "$reply[@]" "|" ")" $subcmd_ipaddr)
local -a subcmd_family
_regex_words family 'protocol family' \
'inet:IPv4' \
'inet6:IPv6' \
'link:local, no networking protocol'
subcmd_family=("$reply[@]")
local -a subcmd_ruletypes
_regex_words ruletype 'rule type' \
'unicast:rule applies to a route' \
'blackhole:rule silently drops packet' \
'unreachable:rule generates Network Unreachable messages' \
'prohibit:rule generates Communication Administratively Prohibited messages' \
'nat:rule prescribes translation of source IP address'
subcmd_ruletypes=("$reply[@]")
local -a subcmd_tunnelmode
_regex_words tunnelmode 'tunnel mode' \
'ipip:IPv4 in IPv4 tunnel' \
'sit:Simple Internet Transition - IPv6 in IPv4 tunnel' \
'gre:Generic Route Encapsulation - IPv4/IPv6 in IPv4 tunnel'
subcmd_tunnelmode=("$reply[@]")
local -a subcmd_files
subcmd_files=(/$'[^\0]##\0'/ ':file:file name:_files')
#
# The ip top-level commands. First link
#
local -a link_set_cmds
_regex_words \
link-set-commands 'link set commands' \
'dev:specify device:$subcmd_dev' \
'u*p:change state to up' \
'do*wn:change state do down' \
'ar*p:change ARP flag on device:$subcmd_onoff' \
'mu*lticast:change MULTICAST flag on device:$subcmd_onoff' \
'pr*omisc:set promiscious mode:$subcmd_onoff' \
'dy*namic:change DYNAMIC flag on device:$subcmd_onoff' \
'n*ame:change name of device:$subcmd_string' \
'txq*ueuelen:specify length of transmit queue:$subcmd_number' \
'txql*en:specify length of transmit queue:$subcmd_number' \
'm*tu:specify maximum transmit unit:$subcmd_number' \
'ad*dress:specify unicast link layer (MAC) address:$subcmd_lladdr' \
'br*oadcast:specify broadcast link layer (MAC) address:$subcmd_lladdr' \
'brd:specify broadcast link layer (MAC) address:$subcmd_lladdr' \
'p*eer:specify peer link layer (MAC) address:$subcmd_lladdr'
# can complete interface with no dev, subcommands can repeat...
link_set_cmds=("(" $subcmd_dev "|" ")" "$reply[@]" "#" )
local -a link_show_cmds
_regex_words link-show-commands 'link show commands' \
'dev:specify device:$subcmd_dev' \
'up:limit display to running devices'
link_show_cmds=("(" $subcmd_dev "|" ")" "$reply[@]" "#" )
local -a link_cmds
_regex_words \
link-commands "link command" \
'h*elp:show help for command' \
'se*t:change device attributes:$link_set_cmds' \
'sh*ow:display device attributes:$link_show_cmds'
link_cmds=("$reply[@]")
#
# addr
#
local -a addr_add_cmds
# TODO: broadcast can take + or =
_regex_words addr-add-commands "addr add/remove/change/replace commands" \
'dev:specify device:$subcmd_dev' \
'lo*cal:specify local IP address:$subcmd_ipaddr' \
'p*eer:specify peer IP address (point-to-point):$subcmd_ipaddr' \
'b*roadcast:specify broadcast IP address:$subcmd_ipaddr' \
'la*bel:specify tag for device:$subcmd_string' \
's*cope:specify scope for address:$subcmd_scope'
# can complete IP address with no keyword
addr_add_cmds=("(" $subcmd_ipaddr "|" ")" "$reply[@]" "#" )
local -a addr_del_cmds
addr_del_cmds=("(" $subcmd_ipaddrs "|" "$reply[@]" ")" "#" )
local -a addr_show_cmds
# TODO: broadcast can take + or =
_regex_words addr-show-commands "addr show commands" \
'dev:specify device:$subcmd_dev' \
's*cope:specify scope for address:$subcmd_scope' \
't*o:limit to given IP address/prefix:$subcmd_ipaddr' \
'la*bel:list tags matching glob patter:$subcmd_string' \
'dynamic:list addresses from stateless configuration (IPv6)' \
'permanent:list non-dynamic addresses (IPv6)' \
'tentative:list addresses failing duplicate address detection (IPv6)' \
'deprecated:list deprecated addresses (IPv6)' \
'primary:list only primary addresses' \
'secondary:list only secondary addresses'
# can complete device with no keyword
addr_show_cmds=("(" $subcmd_dev "|" ")" "$reply[@]" "#" )
local -a addr_cmds
_regex_words \
addr-commands "addr command" \
'h*elp:show help for command' \
'a*dd:add new protocol address:$addr_add_cmds' \
'c*hange:change existing protocol address:$addr_add_cmds' \
'r*eplace:add or update protocol address:$addr_add_cmds' \
'd*elete:delete protocol address:$addr_del_cmds' \
's*how:show protocol address:$addr_show_cmds' \
'f*lush:flush protocol address:$addr_show_cmds'
addr_cmds=("$reply[@]")
#
# neigh
#
local -a neigh_add_cmds
_regex_words neigh-add-commands "neighbour add command" \
't*o:add new neighbour IP address:$subcmd_ipaddr' \
'dev:specify network device:$subcmd_dev' \
'l*ladr:specify link layer (MAC) address or null:$subcmd_lladdr' \
'n*ud:specify neighbour unreachability detection state:$subcmd_nud'
# to-address without keyword can appear first
neigh_add_cmds=( "(" $subcmd_ipaddr "|" ")" "$reply[@]" "#")
local -a neigh_del_cmds
_regex_words neigh-add-commands "neighbour delete command" \
't*o:remove neighbour IP address:$subcmd_ipaddr' \
'dev:specify network device:$subcmd_dev'
neigh_del_cmds=( "(" $subcmd_ipaddr "|" ")" "$reply[@]" "#")
local -a neigh_show_cmds
_regex_words neigh-show-commands "neighbour show command" \
't*o:select neighbours by prefix:$subcmd_ipaddr' \
'dev:select neighbours by device:$subcmd_dev' \
'u*nused:only list unused neighbours' \
'n*ud:only list neighbours in given state:$subcmd_nud'
neigh_show_cmds=( "(" $subcmd_ipaddr "|" ")" "$reply[@]" "#" )
local -a neigh_cmds
_regex_words \
neigh-commands "neigh command" \
'h*elp:show help for command' \
'a*dd:add new neighbour entry:$neigh_add_cmds' \
'c*hange:change existing neighbour entry:$neigh_add_cmds' \
'r*eplace:add or change neighbour entry:$neigh_add_cmds' \
'd*elete:delete neighbour entry:$neigh_del_cmds' \
's*how:list neighbour entries:$neigh_show_cmds' \
'f*lush:flush neighbour entries:$neigh_show_cmds'
neigh_cmds=("$reply[@]")
#
# route
#
local -a route_add_cmds
_regex_words route-add-commands "route add/change/replace command" \
'to:route destination prefix:$subcmd_route' \
'tos:type of service:$subcmd_tos' \
'ds*field:type of service:$subcmd_tos' \
'me*tric:preference value of route:$subcmd_number' \
'pre*ference:preference value of route:$subcmd_number' \
'ta*ble:select table by ID:$subcmd_rttable' \
'dev:select device:$subcmd_dev' \
'v*ia:select nexthop router:$subcmd_ipaddr' \
'sr*c:select preferred source address:$subcmd_ipaddr' \
're*alm:select routing realm:$subcmd_rtrealm' \
'mtu:select maximum transport unit:$subcmd_lockmtu' \
'w*indow:select maximal window in bytes:$subcmd_number' \
'rtt:select round trip time estimate:$subcmd_number' \
'rttv*ar:select initial round trip variance estimate:$subcmd_number' \
'ss*thresh:select initial slow start threshold estimate:$subcmd_number' \
'cw*nd:select clamp for congestion window (only if locked):$subcmd_number' \
'in*itcwnd:select max initial cwnd in MSS:$subcmd_number' \
'ad*vmss:select maximal segment size advertised:$subcmd_number' \
're*ordering:select maximal reordering for path:$subcmd_number' \
'ne*xthop:select nexthop of multipath route:$subcmd_nexthop' \
'sc*ope:select scope of destinations:$subcmd_scope' \
'pro*tocol:select routing protocol identifier:$subcmd_rtprotocol' \
'onl*ink:pretend nexthop is directly attached' \
'eq*ualize:allow packet by packet randomization'
# route can appear with no "to"
route_add_cmds=("(" $subcmd_route "|" ")" "$reply[@]" "#")
local -a route_show_cmds
_regex_words route-show-commands "route show command" \
'to:select route via prefix:$subcmd_rtselector' \
'tos:type of service:$subcmd_tos' \
'ta*ble:select table by ID:$subcmd_rttable' \
'cl*oned:list only dynamically forked routes' \
'ca*ched:list only dynamically forked routes' \
'f*rom:select route via source address prefix:$subcmd_rtselector' \
'p*rotocol:select routing protocol identifier:$subcmd_rtprotocol' \
'sc*ope:select scope of destinations:$subcmd_scope' \
'ty*pe:route type:$subcmd_rttype' \
'dev:select device:$subcmd_dev' \
'v*ia:select nexthop router:$subcmd_ipaddr' \
'sr*c:select route via source prefix:$subcmd_ipaddr' \
'realm:select routing realm:$subcmd_rtrealm' \
'realms:select from/to routing realms:$subcmd_rtrealms'
# route selector can appear with no "to"
route_show_cmds=("(" $subcmd_rtselector "|" ")" "$reply[@]" "#")
local -a route_get_cmds
_regex_words route-get-commands "route get commands" \
'to:route destination:$subcmd_ipaddr' \
'f*rom:route source:$subcmd_ipaddr' \
'tos:select type of service:$subcmd_tos' \
'ds*field:type of service:$subcmd_tos' \
'iif:select input interface (device):$subcmd_dev' \
'oif:select output interface (device):$subcmd_dev' \
'c*onnected:use preferred address as source'
route_get_cmds=("(" $subcmd_ipaddr "|" ")" "$reply[@]" "#")
local -a route_cmds
_regex_words \
route-commands "route command" \
'h*elp:show help for command' \
'a*dd:add new network route:$route_add_cmds' \
'c*hange:change existing network route:$route_add_cmds' \
'r*eplace:add or change network route:$route_add_cmds' \
'd*elete:delete network route:$route_add_cmds' \
's*how:list network routes:$route_show_cmds' \
'f*lush:flush network routes:$route_show_cmds' \
'g*et:get a single network route:$route_get_cmds'
route_cmds=("$reply[@]")
#
# rule
#
local -a rule_add_cmds
_regex_words rule-add-commands 'ip rule add/delete commands' \
'ty*xpe:type of rule:$subcmd_ruletypes' \
'fr*om:select source prefix:$subcmd_ipaddr' \
'to:select destination prefix:$subcmd_ipaddr' \
'iif:select input interface (device):$subcmd_dev' \
'tos:select type of service:$subcmd_tos' \
'ds*field:select type of service:$subcmd_tos' \
'fw*mark:select fwmark:$subcmd_string' \
'pr*iority:select unique priority for rule:$subcmd_number' \
'ta*ble:select routing table by ID:$subcmd_rttable' \
're*alms:select from/to routing realms:$subcmd_rtrealms' \
'nat:select base of IP block to translate:$subcmd_ipaddr'
rule_add_cmds=("(" $subcmd_ruletypes "|" ")" "$reply[@]" "#")
local -a rule_cmds
_regex_words \
rule-commands "rule command" \
'h*elp:show help for command' \
'a*dd:insert a new routing rule:$rule_add_cmds' \
'd*elete:delete a routing rule:$rule_add_cmds' \
'f*lush:flush rules and dump deleted rules' \
's*how:list routing rules'
rule_cmds=("$reply[@]")
#
# tunnel
#
local -a tunnel_add_cmds
_regex_words tunnel-add-commands 'tunnel add/change/delete commands' \
'na*me:select tunnel device name:$subcmd_dev' \
'm*ode:select tunnel mode:$subcmd_tunnelmode' \
'r*emote:select remote endpoint address:$subcmd_ipaddr' \
'l*ocal:select local address:$subcmd_ipaddr' \
'ttl:set fixed time to live, 1 to 255 or 0 (inherit):$subcmd_number' \
'tos:select type of service:$subcmd_tos' \
'ds*field:select type of service:$subcmd_tos' \
'dev:select device to bind tunnel to:$subcmd_dev' \
'no*pmtudisc:disable path maximum transport unit discovery' \
'ik*ey:set input key for GRE tunnel:$subcmd_ipaddr' \
'ok*ey:set output key for GRE tunnel:$subcmd_ipaddr' \
'k*ey:set bidirectional key for GRE tunnel:$subcmd_ipaddr' \
'ic*sum:enable input checksums for GRE tunnel' \
'oc*sum:enable output checksums for GRE tunnel' \
'c*sum:enable bidirectional checksums for GRE tunnel' \
'is*eq:serialize input packets on GRE tunnel' \
'os*eq:serialize output packets on GRE tunnel' \
's*eq:serialize packets bidirectionally on GRE tunnel'
# name is default... we always complete it as an interface,
# although that's not really right for "add".
tunnel_add_cmds=("$reply[@]" "#")
local -a tunnel_cmds
_regex_words \
tunnel-commands "tunnel command" \
'h*elp:show help for command' \
'a*dd:add a new IP tunnel:$tunnel_add_cmds' \
'c*hange:change an existing IP tunnel:$tunnel_add_cmds' \
'd*elete:destroy an IP tunnel:$tunnel_add_cmds' \
's*how:list IP tunnels'
tunnel_cmds=("$reply[@]")
#
# maddr
#
local -a maddr_add_cmds
_regex_words maddr-add-commands "maddr add/delete command" \
'a*ddress:select link layer (MAC) address:$subcmd_lladdr' \
'dev:select device to bind multicast address to:$subcmd_dev'
maddr_add_cmds=("(" $subcmd_ipaddr "|" ")" "$reply[@]" "#")
local -a maddr_show_cmds
_regex_words maddr-show-commands 'maddr show command' \
'dev:select device with multicast address(es):$subcmd_dev'
# device is default argument but if given the "dev" is useless
maddr_show_cmds=("(" $subcmd_dev "|" "$reply[@]" ")")
local -a maddr_cmds
_regex_words \
maddr-commands "maddr command" \
'h*elp:show help for command' \
'a*dd:add multicast address:$maddr_add_cmds' \
'd*elete:delete multicast address:$maddr_add_cmds' \
's*how:list multicast addresses:$maddr_show_cmds'
maddr_cmds=("$reply[@]")
#
# mroute
#
local -a mroute_show_cmds
_regex_words mroute-show-comnands "mroute show command" \
'to:select destination prefix:$subcmd_ipaddr' \
'iif:select input interface (device):$subcmd_dev' \
'from:select source prefix:$subcmd_ipaddr'
mroute_show_cmds=("(" $subcmd_ipaddr "|" ")" "$reply[@]")
local -a mroute_cmds
_regex_words \
mroute-commands "mroute command" \
'h*elp:show help for command' \
's*how:list multicast routing cache entries:$mroute_show_cmds'
mroute_cmds=("$reply[@]")
#
# monitor
#
local -a monitor_cmds
_regex_words \
monitor-commands "monitor command" \
'h*elp:show help for command' \
'all:monitor all changes' \
'link:monitor changes to links' \
'address:monitor changes to addresses' \
'route:monitor changes to routes' \
'file:read rtmon-generated log:$subcmd_files'
monitor_cmds=("$reply[@]")
#
# Global argument handling
#
# Arguments to _regex_arguments, built up in array $args.
local -a args reply
args=(
# Command word. Don't care what that is.
/$'[^\0]#\0'/
)
_regex_words options "ip options" \
'-s*tatistics:output statistics' \
'-f*amily:select protocol family:$subcmd_family' \
'-4:IPv4' \
'-6:IPv6' \
'-0:link protocol, no networking' \
'-o*neline:output one record per line' \
'-r*esolve:use system resolver for DNS names'
args+=("$reply[@]" "#")
_regex_words \
commands "ip command" \
'l*ink:configure network device:$link_cmds' \
'a*ddr:manage protocol address:$addr_cmds' \
'r*oute:manage routing table:$route_cmds' \
'ru*le:manage routing policy database:$rule_cmds' \
'n*eigh:manage neighbour/ARP tables:$neigh_cmds' \
't*unnel:configure tunnel:$tunnel_cmds' \
'm*addr:manage multicast addresses:$maddr_cmds' \
'mr*oute:manage multicast routing cache:$mroute_cmds' \
'mo*nitor:monitor state:$monitor_cmds'
args+=("$reply[@]")
_regex_arguments _ip "${args[@]}"
_ip "$@"
PK [l%3^ ^ functions/_echotinu W+A #compdef echoti
local expl
_wanted arguments expl 'terminal capability' compadd -k terminfo
PK [i8^ functions/_tilde_filesnu W+A #autoload
# Complete files and expand tilde expansions in it.
if [[ ( -o magicequalsubst && "$IPREFIX" = *\= ) || $argv[(I)-W*] -ne 0 ]]; then
_files "$@"
return
fi
case "$PREFIX" in
\~/*)
IPREFIX="${IPREFIX}${HOME}/"
PREFIX="${PREFIX[3,-1]}"
_files "$@" -W "${HOME}"
;;
\~*/*)
local user="${PREFIX[2,-1]%%/*}"
if (( $+userdirs[$user] )); then
user="$userdirs[$user]"
elif (( $+nameddirs[$user] )); then
user="$nameddirs[$user]"
else
_message "unknown user \`$user'"
return 1
fi
IPREFIX="${IPREFIX}${user%/}/"
PREFIX="${PREFIX#*/}"
_files "$@" -W "$user"
;;
\~*)
compset -P '?'
_users "$@"
;;
*)
_files "$@"
;;
esac
PK [lje~ ~ functions/_calendarnu W+A #compdef calendar
if [[ $+functions[calendar] -eq 1 && -z $precommands[(r)command] ]]; then
# The shell function is loaded, and we're not instructed to
# use an external command, so complete that.
_arguments \
'-a[show all calendar items]' \
'-b[brief, display first line only]' \
'-d[move events to done file]' \
'-D[never move events to done file]' \
'-r[show all remaining items from start or now]' \
'-s[use sched to schedule a warning]' \
'-v[verbose]' \
'-B[select number of lines to display]:lines: ' \
'-C[select calendar file]:calendar file:_path_files' \
'-n[select max number of events]:max number of events: ' \
'-S[select show programme]:show programme:_command_names' \
'1:date/time: ' \
'(-r)2:end date/time: '
else
# This is only one particular version of calendar.
# Some variant of BSD, I think.
_arguments \
'-a[process files of all users]' \
'-A[print today and the following num days]:number of days:' \
'-b[enforce special KOI8 date calculation mode]' \
'-B[print today and the previous num days]:number of days:' \
'-f[use file as the default calendar]:calendar file:_files' \
'-l[print today and the following num days]:number of days:' \
'-w[print today and the following num days only if today is Friday]:number of days:' \
'-t[act as though today is the date specified]:date:'
fi
PK [A$ functions/_dvinu W+A #compdef dvips dvibook dviconcat dvicopy dvidvi dviselect dvitodvi dvitype
local expl args
args=(
'-i[specify input file]:input DVI file:_files -g "*.(dvi|DVI)(-.)"' \
'-o[specify output file]:output DVI file:_files -g "*.(dvi|DVI)(-.)"' \
':input DVI file:_files -g "*.(dvi|DVI)(-.)"' \
':output DVI file:_files -g "*.(dvi|DVI)(-.)"'
)
case "$service" in
dvips)
_arguments \
'-a[make three passes]' \
'(-B)-A[print only odd numbered pages]' \
'(-A)-B[print only even numbered pages]' \
'(-c -C)-b[select number of copies (duplicating body)]:number of copies' \
'(-b -C)-c[select number of copies]:number of copies' \
'(-b -c)-C[select number of copies (collated)]:number of copies' \
'-d[set debug flags]:debug flags' \
'(-X -Y)-D[set resolution]:resolution in dots per inch' \
'-e[set maximum character offset]:maximum character offset' \
'-E[generate EPSF file]' \
'(-o)-f[write to stdout]' \
'-F[append control-D]' \
'-G[shift low chars to higher position]' \
'-h[specify additional header file]:postscript header file:_files -g "*.(#i)(ps|eps)(-.)"' \
'-i[one file per section]' \
'-j[download fonts partially]' \
'-k[print crop marks]' \
'-K[include postscript comments]' \
'(-pp)-l[specify last page to print]:number of last page' \
'-m[specify manual feed for printer]' \
'-M[no automatic font generation]' \
'(-pp)-n[specify maximum number of pages to print]:maximum number of pages' \
'-N[turn off structured comments]' \
'(-f)-o[specify output file name]:output file name:_files -g "*.(#i)(ps|eps)(-.)"' \
'-O[specify offset of origin]:offset of origin (,)' \
'(-p -l -n)-pp[specify which pages to print]:list of pages or ranges to print:' \
'(-pp)-p[specify first page to print]:number of first page' \
'-P+[specify printer]:printer name' \
'-q[quiet operation]' \
'-r[reverse order of pages]' \
'-R[run securely]' \
'-s[enclose output in save/restore pair]' \
'-S[set maximum number of pages per section]:maximum number of pages per section' \
'(-T)*-t[specify paper type]:paper type:(letter legal ledger a4 a3 landscape)' \
'(-t)-T[set paper size]:paper size (,)' \
'-u:PS mapfile:' \
'-U[disable string param trick]' \
'-v[print version number and quit]' \
'-V[send downloadable PS fonts as PK]' \
'-x[set magnification ratio]:magnification ratio (per mille)' \
'(-D)-X[set horizontal resolution]:horizontal resolution' \
'-y[multiply by dvi magnification]' \
'(-D)-Y[set vertical resolution]:vertical resolution' \
'-z[hyper PS]' \
'-Z[compress bitmapped fonts]' \
':input file:_files -g "*.(dvi|DVI)(-.)"'
;;
dvibook)
_arguments -s \
'-q[quiet operation]' \
'-s-[specify signature size]:signature size' \
"$args[@]"
;;
dviconcat)
_arguments \
'-m[specify magnification]:magnification factor' \
'-o[specify output file]:output DVI file:_files -g "*.(dvi|DVI)(-.)"' \
'*:input DVI file:_files -g "*.(dvi|DVI)(-.)"'
;;
dvidvi)
_arguments -s \
'-q[quiet operation]' \
'-r[reverse order of pages]' \
'(-i -x)-f[select first page]:number of first page:' \
'(-i -x)-l[select last page]:number of last page:' \
'(-i -x)-n[select number of pages]:maximum number of pages:' \
'(-f -l -n)-i[specify included pages]:list of included pages:' \
'(-f -l -n)-x[specify excluded pages]:list of excluded pages:' \
':input DVI file:_files -g "*.(dvi|DVI)(-.)"' \
':output DVI file:_files -g "*.(dvi|DVI)(-.)"'
;;
dviselect)
_arguments -s \
'-s[silent operation]' \
':list of pages:' \
"$args[@]"
;;
dvitodvi)
_arguments -s \
'-q[quiet operation]' \
'-w-[set w dimension specifier]:width for dimension specifier:' \
'-h-[set h dimension specifier]:height for dimension specifier:' \
':page specifications:' \
"$args[@]"
;;
*)
_description files expl 'DVI file'
_files "$expl[@]" -g '*.(dvi|DVI)(-.)'
;;
esac
PK [Xql $ functions/narrow-to-region-invisiblenu W+A # As narrow-to-region, but replaces the text outside the editable region
# with `...' if it was non-empty. Can be used directly as a widget.
autoload -Uz narrow-to-region
narrow-to-region -p '...' -P '...' -n
PK [nT functions/_global_tagsnu W+A #autoload
local expl tags
tags=( $(_call_program global-tags global --completion $PREFIX 2>/dev/null) )
_wanted global-tags expl 'tag' compadd -M 'm:{a-zA-Z}={A-Za-z}' -a "$@" - tags
PK [A functions/_sccsnu W+A #compdef sccs admin cdc comb delta get help prs prt rmdel sact sccsdiff unget val what
(( $+functions[_sccs_files] )) ||
_sccs_files() {
local dir expl ret=1 pref=$PREFIX ipref=$IPREFIX
dir="${(M)PREFIX##*/}$finalpath"
[[ $~dir = (.|..|)/* ]] || dir="${PROJECTDIR:-~+}/$dir"
compset -P "*/"
_wanted file expl file compadd "$@" - $~dir/s.*(N.:t:s/s.//) && ret=0
PREFIX="$pref"
IPREFIX="$ipref"
_wanted sccs-files expl 'sccs file' _files -W ${PROJECTDIR:-~+} \
-g 's.*(-.)' && ret=0
return ret
}
local curcontext="$curcontext" state line ret=1
typeset -A opt_args
local subcmds ropt copt sfiles finalpath
subcmds=(
'admin:modify the flags or checksum of an sccs history file'
'cdc:annotate the commentary of an sccs delta'
'check:check for files currently being edited'
'clean:remove files that can be retrieved from sccs history'
'comb:generate scripts to combine deltas'
'create:create (initialize) history files'
'deledit:check file in and straight out again'
'delget:check file in and maintain read-only copy'
'delta:check in changes'
'diffs:compare working copy with version in sccs history'
'edit:retrieve file for editing (check out)'
"enter:like create, but omits the final 'sccs get'"
'fix:revise a (leaf) delta'
'get:retrieve a version from the sccs history'
'help:get information on sccs commands and error messages'
{info,tell}':list files being edited'
'print:print history of specified files'
'prs:display delta table for an sccs file'
'prt:display the delta table, but omit the MR field'
'rmdel:remove specified delta from history file'
'sact:show editing activity status of an sccs file'
'sccsdiff:compare two versions from sccs history'
{unedit,unget}':undo check out'
'val:validate history file'
'what:display any ID keyword strings in a file'
)
ropt='-r+[specify sccs delta id]:sccs delta id'
copt='-c+[specify date]:date-stamp'
sfiles=':file:_files -g "s.*(-.)"'
if [[ $service = sccs ]]; then
_arguments -C -A "-*" \
'-r[run with real and not effective user ID]' \
'-d+[specify root prefix]:root prefix:_directories' \
'-p+[specify subdirectory of history file]:path to history file:_directories' \
'*::command:->subcmd' && ret=0
if (( CURRENT == 1 )); then
_describe -t commands 'sccs command' subcmds && ret=0
fi
(( ret )) || return 0
service="$words[1]"
sfiles=':file:_sccs_files'
curcontext="${curcontext%:*}-$service:"
fi
finalpath="${opt_args[-p]:-SCCS}"
case $service in
admin)
_arguments "$ropt" "$sfiles" \
'-b[force encoding of binary data]' \
'-h[check structure of s.file]' \
'-n[create a new history file]' \
'-z[recompute file checksum]' \
'-a+[add access for a user or group]:user or group:_users' \
'-e+[erase access for a user or group]:user or group:_users' \
'-d+[delete flag from file]:flag' \
'-f+[set specified flag]:flag' \
'-i+[initialise history from specified file]:file:_files' \
'-m+[insert specified MR numbers into commentary]' \
'-t+[insert descriptive text from specified file]:file:_files' \
'-y+[specify comment for initial delta]'
;;
cdc)
_arguments "$ropt" "$sfiles" \
'-m+[specify MR numbers to add/delete in delta comment]' \
'-y+[specify the comment]:comment' \
;;
check|info|tell)
_arguments "$sfiles" \
'-b[ignore branches]' \
'(-U)-u+[restrict to files being modified by specified user]::user:_users' \
'(-u)-U[restrict to files being modified by current user]'
;;
clean)
_arguments '-b[ignore branches]'
;;
comb)
_arguments "$sfiles" \
'-o[access reconstructed file at delta to be created]' \
'-s[generate script that will produce a report]' \
'-p+[specify SID of oldest delta to preserve]:sccs delta id'
'-c+[specify list of deltas to preserve]:sccs delta list'
;;
sact|print) _sccs_files;;
create|enter) _files;;
deledit|delget|delta)
_arguments '-s[silent]' '-y+[specify delta commentary]:comment'
;;
diffs)
_diff_options diff "$sfiles" "$ropt" "$copt" \
'-C[output a context diff]'
;;
edit|get)
_arguments "$sfiles" "$ropt" "$copt" \
'-e[retrieve for editing]' \
'-k[retrieve writable copy without checking out]' \
'-m[precede each line with the delta in which it was added]' \
'-p[produce retrieved version on standard output]' \
'-s[silent]'
;;
fix) _arguments "$ropt" "$sfiles";;
help)
[[ $PREFIX$SUFFIX = [0-9]# ]] &&
_message -e message-codes "sccs message code"
subcmds+=( "stuck:help on help" )
_describe -t commands 'sccs command' subcmds
;;
prs)
_arguments "$sfiles" "$ropt" "$copt" \
'-a[include all deltas including those marked removed]' \
'-e[display delta info for all deltas earlier than that specified]' \
'-l[display delta info for all deltas later than that specified]' \
'-d+[specify format of report]:data spec'
;;
prt)
_arguments "$sfiles" "$copt" \
'-a[include all deltas including those marked removed]' \
'-b[print the body of the s.file]' \
'-d[print delta table entries]' \
'(-d -i -u -f -t)-e[everything - imply other options]' \
'-i[print serial numbers of included, excluded and ignored deltas]' \
'-s[print first line only of delta table entries]' \
'-t[print descriptive text held in s.file]' \
'-u[print usernames of users allowed to make deltas]' \
'-r+[exclude delta entries newer than date]:date-time' \
'-y+[exclude delta entries prior to sid]'
;;
rmdel) _arguments "$ropt" "$sfiles";;
sccsdiff) _diff_options diff "$ropt" "$sfiles";;
unedit|unget)
_arguments "$sfiles" "$ropt" \
'-s[silent]' \
'-n[retain the retrieved version]'
;;
val)
_arguments "$sfiles" "$ropt" \
'-s[silent]' \
'-m+[compare specified name with the ID keyword in the s.file]:name' \
'-y+[compare specified type with the ID keyword]:type'
;;
what) _arguments '-s[stop after first occurrence]' '*:file:_files';;
*) _message "unknown sccs command: $service";;
esac
PK [+g functions/_fusermountnu W+A #compdef fusermount
local expl context state line
typeset -A opt_args
_arguments \
'-h[display help information]' \
'-V[display version information]' \
'-o[specify mount options]:mount options:_fuse_values "mount options"' \
'-u[unmount a fuse mount]' \
'-z[unmount lazily (work even when if the resource is still busy)]' \
'-q[suppress nonessential output]' \
':mount point:->mountpoint' && return 0
typeset -a mtpts
case "$state" in
(mountpoint)
if [[ $+opt_args[-u] -eq 0 ]]; then
_files -/
else
mtpts=(${${${"${(f)$(< /etc/mtab)}"}#* }%% *})
_canonical_paths mounted 'mounted filesystem' $mtpts
fi
;;
esac
PK [!7 functions/_wajignu W+A #compdef wajig
local curcontext="$curcontext" state line cmds argno ret=1
_arguments -C -s \
'(- 1 *)'{-h,--help}'[print usage message]' \
'(- 1 *)--version[display version information]' \
'(-q --quiet)'{-q,--quiet}'[do everything quietly]' \
'(-s --simulate)'{-s,--simulate}"[trace but don't execute]" \
'(-t --teaching)'{-t,--teaching}'[trace the sequence of commands performed]' \
'(-v --verbose)'{-v,--verbose}'[increase (or set) the level of verbosity]' \
'1: :->cmds' \
'*: :->args' && ret=0
case $state in
cmds)
cmds=( ${${(M)${(f)"$(wajig commands 2>/dev/null)"}:# [^-]*}/(#b) ([^ ]#) #(*)/$match[1]:$match[2]:l} )
_describe -t commands 'wajig command' cmds && ret=0
;;
args)
(( argno = $#line-1 ))
case ${line[1]:gs/-/} in
autoalts|autoalternatives|updatealts)
((argno==1)) && _wanted alternatives expl alternative \
_files -W /var/lib/dpkg/alternatives && ret=0
;;
listfiles|repackage|package)
((argno==1)) || break
;&
hold|large|readme|reconfigure|reinstall|remove|removedepend|showremove|size?|upgrade)
_wanted package expl 'package' _deb_packages installed && ret=0
;;
purgedepend)
((argno==1)) && _wanted package expl 'package' _deb_packages xinstalled && ret=0
;;
purge)
_wanted package expl 'package' _deb_packages xinstalled && ret=0
;;
autoinstall|force|showinstall|installr|recommended|installrs|installs|suggested|install/*)
_wanted package expl 'package' _deb_packages uninstalled && ret=0
;;
install)
_alternative \
'packages:package:_deb_packages uninstalled' \
'files:package file:_files -g "*.deb(-.)"' && ret=0
;;
bug|bugs|dependents|geturl)
((argno==1)) || break
;&
available|build|builddepend|changelog|describe|whatis|detail|details|show|news|policy|download|source|status|recdownload)
_wanted package expl 'package' _deb_packages available && ret=0
;;
unhold)
_wanted package expl 'package' _deb_packages held && ret=0
;;
filedownload|downloadfile|fileinstall|installfile|fileremove|removefile|indfile)
((argno==1)) && _files && ret=0
;;
whichpkg)
_files
;;
rpminstall|rpmtodeb|rpm2deb)
((argno==1)) && _files -g '*.rpm(-.)' && ret=0
;;
searchapt)
_wanted distributions expl distribution \
compadd stable testing unstable && ret=0
;;
reload|restart|start|stop)
((argno==1)) && _services && ret=0
;;
esac
;;
esac
return ret
PK [v functions/_tcpsysnu W+A #compdef tcp_open
local context line expl nm=$compstate[nmatches]
local -a state argargs sesslist
local -A opt_args
case $service in
(tcp_open)
argargs=(
'(-a -f -l)-s[open session(s)]'
'(-a -f -s)-l[open list of sessions]'
'(-f -s -l)-a[open session for accept on fd]:fd:->fd'
'(-a -s -l)-f[open session for accept on fd]:fd:->fd'
'-q[quiet mode]'
'-z[no zle handler]'
)
if [[ -n $words[(R)-(a|f)*] ]]; then
argargs+=(':session:->session')
elif [[ -n $words[(R)-(l|s)*] ]]; then
argargs+=('*:session:->session')
else
argargs+=(':host:->host' ':port:->port' '*:session:->session')
fi
_arguments -C $argargs
;;
esac
while (( $#state )); do
case "$state[1]" in
(host)
_hosts
;;
(port)
_ports
;;
(sessionlist)
compset -P '*,'
;&
(session)
sesslist=(${${${(f)"$(<~/.ztcp_sessions)"}:#[[:space:]]#\#*}/ /:})
_describe -t sessions 'TCP session' sesslist && return
;;
esac
shift state
done
PK [9Dާ functions/_path_commandsnu W+A #autoload
(( $+functions[_path_commands_caching_policy] )) ||
_path_commands_caching_policy() {
local file
local -a oldp dbfiles
# rebuild if cache is more than a week old
oldp=( "$1"(Nmw+1) )
(( $#oldp )) && return 0
dbfiles=(/usr/share/man/index.(bt|db|dir|pag)(N) \
/usr/man/index.(bt|db|dir|pag)(N) \
/var/cache/man/index.(bt|db|dir|pag)(N) \
/var/catman/index.(bt|db|dir|pag)(N) \
/usr/share/man/*/whatis(N))
for file in $dbfiles; do
[[ $file -nt $1 ]] && return 0
done
return 1
}
_call_whatis() {
case "$(whatis --version)" in
(whatis from *)
local -A args
zparseopts -D -A args s: r:
apropos "${args[-r]:-"$@"}" | fgrep "($args[-s]"
;;
(*) whatis "$@";;
esac
}
_path_commands() {
local need_desc expl ret=1
if zstyle -t ":completion:${curcontext}:" extra-verbose; then
local update_policy first
if [[ $+_command_descriptions -eq 0 ]]; then
first=yes
typeset -A -g _command_descriptions
fi
zstyle -s ":completion:${curcontext}:" cache-policy update_policy
[[ -z "$update_policy" ]] && zstyle ":completion:${curcontext}:" \
cache-policy _path_commands_caching_policy
if ( [[ -n $first ]] || _cache_invalid command-descriptions ) && \
! _retrieve_cache command-descriptions; then
local line
for line in "${(f)$(_call_program command-descriptions _call_whatis -s 1 -r .\\\*\; _call_whatis -s 6 -r .\\\* 2>/dev/null)}"; do
[[ -n ${line:#(#b)([^ ]#) #\([^ ]#\)( #\[[^ ]#\]|)[ -]#(*)} ]] && continue;
[[ -z $match[1] || -z $match[3] || -z ${${match[1]}:#*:*} ]] && continue;
_command_descriptions[$match[1]]=$match[3]
done
_store_cache command-descriptions _command_descriptions
fi
(( $#_command_descriptions )) && need_desc=yes
fi
if [[ -n $need_desc ]]; then
typeset -a dcmds descs cmds matches
local desc cmd sep
compadd "$@" -O matches -k commands
for cmd in $matches; do
desc=$_command_descriptions[$cmd]
if [[ -z $desc ]]; then
cmds+=$cmd
else
dcmds+=$cmd
descs+="$cmd:$desc"
fi
done
zstyle -s ":completion:${curcontext}:" list-separator sep || sep=--
zformat -a descs " $sep " $descs
descs=("${(@r:COLUMNS-1:)descs}")
_wanted commands expl 'external command' \
compadd "$@" -ld descs -a dcmds && ret=0
_wanted commands expl 'external command' compadd "$@" -a cmds && ret=0
else
_wanted commands expl 'external command' compadd "$@" -k commands && ret=0
fi
return $ret
}
_path_commands "$@"
PK [ functions/zstyle+nu W+A # This makes defining styles a bit simpler by using a single `+' as a
# special token that allows one to append a context name to the
# previously used context name. Like this:
#
# zstyle+ ':foo:bar' style1 value1 \
# + ':baz' style2 value2 \
# + ':frob' style3 value3
#
# This defines style1 with value1 for the context :foo:bar as usual.
# But it also defines styles2 with value2 for the context :foo:bar:baz
# and style3 with value3 for :foo:bar:frob.
# Of course, any of the sub-contexts after the plus signs may be
# empty strings to re-use the previous context unchanged.
#
# If you don't want to change all your calls to `zstyle' to use
# `zstyle+' you can use an alias `alias zstyle=zstyle+' and make sure
# the completion functions are autoloaded without alias expansion (the
# -U option to the autoload builtin). The completion system normally
# loads its functions with without alias expansion.
case "$1" in
-*) zstyle "$@";;
*) setopt localoptions noksharrays
integer i
local context="$1"
1=''
for ((i=2; $#; ++i)); do
if [[ $i -gt $# || "$argv[i]" == '+' ]]; then
zstyle "$context${(@)argv[1,i-1]}"
shift "i > $# ? $# : i" # Stupid shift error on i > $#
i=1
fi
done;;
esac
PK [c
functions/_zftpnu W+A #compdef -p zf*
# Completion for zftp builtin and zf* functions. The functions
# zfcd_match and zfget_match (also used for old-style completion)
# need to be installed for remote file and directory completion to work.
# emulate -L zsh
# Don't try any more completion after this.
_compskip=all
local subcom expl curcontext="${curcontext}"
if [[ $service = zftp ]]; then
if [[ $CURRENT -eq 2 ]]; then
_wanted commands expl sub-command \
compadd open params user login type ascii binary mode put \
putat get getat append appendat ls dir local remote mkdir rmdir \
session rmsession
return
fi
subcom=$words[2]
curcontext="${curcontext/:zftp:/:zftp-${words[2]}:}"
else
subcom=$service
fi
case $subcom in
*(cd|ls|dir))
# complete remote directories
[[ -z ${functions[zfcd_match]} ]] && autoload -Uz zfcd_match
_tags directories && zfcd_match $PREFIX $SUFFIX
;;
*(get(|at)|gcp|delete|remote))
# complete remote files
[[ -z ${functions[zfget_match]} ]] && autoload -Uz zfget_match
_tags files && zfget_match $PREFIX $SUFFIX
;;
*(put(|at)|pcp))
# complete local files
_files
;;
*(open|anon|params))
# complete hosts: should do cleverer stuff with user names
_hosts
;;
*(goto|mark))
# complete bookmarks. First decide if ncftp mode is go.
if [[ $words[2] = -*n* ]]; then
if [[ -f ~/.ncftp/bookmarks ]]; then
_wanted bookmarks expl bookmark \
compadd - $(awk -F, 'NR > 2 { print $1 }' ~/.ncftp/bookmarks)
fi
else
if [[ -f ${ZFTP_BMFILE:=${ZDOTDIR:-$HOME}/.zfbkmarks} ]]; then
_wanted bookmarks expl bookmark \
compadd - $(awk '{print $1}' $ZFTP_BMFILE)
fi
fi
;;
*session)
# complete sessions, excluding the current one.
_wanted sessions expl 'another FTP session' \
compadd - ${$(zftp session):#$ZFTP_SESSION}
;;
*transfer)
# complete arguments like sess1:file1 sess2:file2
if [[ $PREFIX = *:* ]]; then
# complete file in the given session
_tags files || return 1
local sess=${PREFIX%%:*} oldsess=$ZFTP_SESSION
compset -p $(( $#sess + 1 ))
[[ -n $sess ]] && zftp session $sess
zfget_match $PREFIX $SUFFIX
[[ -n $sess && -n $oldsess ]] && zftp session $oldsess
else
# note here we can complete the current session
_wanted sessions expl 'FTP session' compadd -S : - $(zftp session)
fi
;;
*)
# dunno... try ordinary completion after all.
_compskip=''
return 1
;;
esac
PK [ functions/VCS_INFO_adjustnu W+A ## vim:ft=zsh
## Written by Frank Terbeck
## Distributed under the same BSD-ish license as zsh itself.
setopt localoptions NO_shwordsplit
[[ -n ${vcs_comm[overwrite_name]} ]] && vcs=${vcs_comm[overwrite_name]}
return 0
PK [:E[ functions/vcs_infonu W+A ## vim:ft=zsh:foldmethod=marker
##
## vcs_info - provide version control information
##
## Written by Frank Terbeck
##
## This file and all corresponding files in Functions/VCS_Info/ are
## distributed under the same BSD-ish license as zsh itself.
##
setopt localoptions noksharrays extendedglob NO_shwordsplit
local file func sys
local -a static_functions
static_functions=(
VCS_INFO_adjust
VCS_INFO_bydir_detect
VCS_INFO_check_com
VCS_INFO_formats
VCS_INFO_get_cmd
VCS_INFO_hook
VCS_INFO_maxexports
VCS_INFO_nvcsformats
VCS_INFO_quilt
VCS_INFO_realpath
VCS_INFO_reposub
VCS_INFO_set
vcs_info_lastmsg
vcs_info_printsys
vcs_info_setsys
)
for func in ${static_functions} ; do
autoload -Uz ${func}
done
VCS_INFO_set --nvcs '-preinit-'
vcs_info_setsys
# and now, finally create the real vcs_info function
vcs_info () {
emulate -L zsh
setopt extendedglob NO_warn_create_global
[[ -r . ]] || return 0
local pat
local -i found retval
local -a enabled disabled dps
local -x usercontext vcs rrn quiltmode LC_MESSAGES
local -ix maxexports
local -ax msgs
local -Ax vcs_comm hook_com backend_misc user_data
LC_MESSAGES=C
if [[ -n ${LC_ALL} ]]; then
local -x LANG
LANG=${LC_ALL}
local -x LC_ALL
fi
vcs='-init-'; rrn='-all-'; quiltmode='addon'
usercontext=${1:-default}
VCS_INFO_hook "start-up"
retval=$?
if (( retval == 1 )); then
return 0
elif (( retval == 2 )); then
VCS_INFO_set --nvcs
return 0
fi
zstyle -a ":vcs_info:${vcs}:${usercontext}:${rrn}" "enable" enabled
(( ${#enabled} == 0 )) && enabled=( all )
if [[ -n ${(M)enabled:#(#i)none} ]] ; then
[[ -n ${vcs_info_msg_0_} ]] && VCS_INFO_set --clear
return 0
fi
if [[ -n ${(M)enabled:#(#i)all} ]] ; then
enabled=( ${VCS_INFO_backends} )
zstyle -a ":vcs_info:${vcs}:${usercontext}:${rrn}" "disable" disabled
fi
zstyle -a ":vcs_info:${vcs}:${usercontext}:${rrn}" "disable-patterns" dps
for pat in ${dps} ; do
if [[ ${PWD} == ${~pat} ]] ; then
[[ -n ${vcs_info_msg_0_} ]] && VCS_INFO_set --clear
return 0
fi
done
VCS_INFO_maxexports
(( found = 0 ))
for vcs in ${enabled} ; do
[[ -n ${(M)disabled:#${vcs}} ]] && continue
if (( ${+functions[VCS_INFO_detect_${vcs}]} == 0 )) ; then
printf 'vcs_info: configured unknown backend: '\''%s'\''\n' ${vcs}
printf 'vcs_info: use '\''vcs_info_printsys'\'' to find supported systems.\n'
continue
fi
vcs_comm=()
VCS_INFO_get_cmd
VCS_INFO_detect_${vcs} && (( found = 1 )) && break
done
(( found == 0 )) && {
vcs='-quilt-'; quiltmode='standalone'
VCS_INFO_quilt standalone || VCS_INFO_set --nvcs
return 0
}
VCS_INFO_hook "pre-get-data"
retval=$?
if (( retval == 1 )); then
return 0
elif (( retval == 2 )); then
VCS_INFO_set --nvcs
return 0
fi
VCS_INFO_get_data_${vcs} || {
VCS_INFO_set --nvcs
return 1
}
VCS_INFO_set
return 0
}
vcs_info "$@"
PK [n!@ functions/_signalsnu W+A #autoload
# Options (only in separate words):
#
# -a use all signals (even the pseudo-signals)
# -p needs a `-' prefix
# -s SIG prefix allowed
#
# A `-' or `--' as the first argument is ignored.
local expl last minus pre sigs
zparseopts -D -K -E 'p=minus' 'a=last' 's=pre'
if [[ -z "$last" ]]; then
last=-3
else
last=-1
fi
[[ -n "$minus" ]] && minus='-'
[[ "$1" = -(|-) ]] && shift
if [[ -z "$minus" ]] ||
! zstyle -T ":completion:${curcontext}:signals" prefix-needed ||
[[ -prefix -* ]]; then
local disp tmp
if zstyle -t ":completion:${curcontext}:signals" prefix-hidden; then
tmp=( "${(@)signals[1,last]}" )
disp=(-d tmp)
else
disp=()
fi
if [[ -n "$pre" && $PREFIX = ${minus}S* ]]; then
sigs=( "${minus}SIG${(@)^signals[1,last]}" )
(( $#disp )) && tmp=( "$tmp[@]" "${(@)signals[1,last]}" )
else
sigs=()
fi
_wanted signals expl signal \
compadd "$@" "$disp[@]" -M 'm:{a-z}={A-Z}' - \
"${minus}${(@)^signals[1,last]}" "$sigs[@]"
fi
PK [< functions/prompt_elite_setupnu W+A # Created by KrON from windowmaker on IRC
# Changed by Spidey 08/06
# Converted to zsh prompt theme by
prompt_elite_help () {
cat < []]
The default colors are red and blue respectively. This theme is
intended for use with a black background.
Recommended fonts for this theme: either UTF-8, or nexus or vga or similar.
If you don't have any of these, the 8-bit characters will probably look
stupid.
EOH
}
prompt_elite_setup () {
local text=${1:-'red'}
local punctuation=${2:-'blue'}
if [[ $1 == '8bit' ]]; then
shift
local -A schars
autoload -Uz prompt_special_chars
prompt_special_chars
fi
PS1="%F{$text}$schars[332]$schars[304]%F{$punctuation}(%F{$text}%n%F{$punctuation}@%F{$text}%m%F{$punctuation})%F{$text}-%F{$punctuation}(%F{$text}%D{%I:%M%P}%F{$punctuation}-:-%F{$text}%D{%m}%F{$punctuation}%F{$text}/%D{%d}%F{$punctuation})%F{$text}$schars[304]-%F{$punctuation}$schars[371]%F{$text}-$schars[371]$schars[371]%F{$punctuation}$schars[372]$prompt_newline%F{$text}$schars[300]$schars[304]%F{$punctuation}(%F{$text}%1~%F{$punctuation})%F{$text}$schars[304]$schars[371]%F{$punctuation}$schars[372]%f"
PS2="> "
prompt_opts=(cr subst percent)
}
prompt_elite_preview () {
if (( ! $#* )); then
prompt_preview_theme elite
print
prompt_preview_theme elite green yellow
else
prompt_preview_theme elite "$@"
fi
}
prompt_elite_setup "$@"
PK [pÛЎ functions/_elinksnu W+A #compdef elinks
# ELinks 0.12pre5
local curcontext="$curcontext" state line ret=1
typeset -A opt_args
_arguments -C -A '-*' \
'*-anonymous[restrict to anonymous mode]::boolean:(0 1)' \
'*-auto-submit[autosubmit first form]::boolean:(0 1)' \
'*-base-session[clone internal session with given ID]:ID number:' \
'*-config-dir[name of directory with configuration file]:configuration directory:_files -/' \
'(- 1)-config-dump[print default configuration file to stdout]' \
'*-config-file[name of configuration file]:configuration file:_files' \
'*-default-mime-type[MIME type assumed for unknown document types]:MIME type:_mime_types' \
'*-default-keys[ignore user-defined keybindings]::boolean:(0 1)' \
'*-dump[print formatted versions of given URLs to stdout]::boolean:(0 1)' \
'*-dump-charset[codepage to use with -dump]:codepage:' \
'-dump-color-mode[color mode used with -dump]:color mode:((-1\:standard\ dump\ mode 0\:mono\ mode 1\:16\ color\ mode 2\:88\ color\ mode 3\:256\ color\ mode 4\:true\ color\ mode))' \
'*-dump-width[width of document formatted with -dump]:width:' \
'*-eval[evaluate configuration file directive]:configuration option:' \
'*-force-html[interpret documents of unknown types as HTML]' \
'(- 1)-'{\?,h,help}'[print usage help and exit]' \
'*-localhost[only permit local connections]::boolean:(0 1)' \
'(- 1)-long-help[print detailed usage help and exit]' \
'(- 1)-config-help[print help for configuration options]' \
'(- 1)-lookup[look up specified host]:host:_hosts' \
'*-no-connect[run as separate instance]::boolean:(0 1)' \
"*-no-home[don't use files in ~/.elinks]::boolean:(0 1)" \
'*-no-numbering[disable link numbering in dump output]::boolean:(0 1)' \
'*-no-references[disable printing of link references in dump output]::boolean:(0 1)' \
'*-remote[control an already running ELinks]:*:command:->remote' \
'*-session-ring[connect to session ring with given ID]:ID number:' \
'*-source[print the source of given URLs to stdout]::boolean:(0 1)' \
'(1)*-stdin[read document from stdin]::boolean:(0 1)' \
'*-touch-files[touch files in ~/.elinks when running with -no-connect/-session-ring]::boolean:(0 1)' \
'*-verbose[verbose level]:verbosity level:((0\:serious\ errors 1\:serious\ errors\ and\ warnings 2\:all\ messages ))' \
'(- 1)-version[print version information and exit]' \
'1:URL:->url' && ret=0
if [[ "$state" = url ]]; then
local -a bookmarks
local file=${opt_args[-config-dir]:-${ELINKS_CONFDIR:-~/.elinks}}/bookmarks
if [[ -s $file ]]; then
bookmarks=( ${${${(f)"$(< $file)"}#* }%% *} )
fi
_alternative \
'files:file:_files' \
'bookmarks:bookmark:compadd -a bookmarks' \
'urls:URL:_urls' && ret=0
elif [[ "$state" = remote ]]; then
local -a commands
commands=( ping openURL addBookmark infoBox xfeDoCommand )
_alternative \
'commands:command:compadd -a commands' \
'urls:URL:_urls' && ret=0
fi
return ret
PK [ < ! functions/modify-current-argumentnu W+A # Take an expression suitable for interpolation in double quotes that
# performs a replacement on the parameter "ARG". Replaces the
# shell argument (which may be a quoted string) under or before the
# cursor with that. Ensure the expression is suitable quoted.
#
# For example, to uppercase the entire shell argument:
# modify-current-argument '${(U)ARG}'
# To strip the current quoting from the word (whether backslashes or
# single, double or dollar quotes) and use single quotes instead:
# modify-current-argument '${(qq)${(Q)ARG}}'
# Retain most options from the calling function for the eval.
# Reset some that might confuse things.
setopt localoptions noksharrays multibyte
local -a reply
integer REPLY REPLY2
autoload -Uz split-shell-arguments
split-shell-arguments
# Can't do this unless there's some text under or left of us.
(( REPLY < 2 )) && return 1
# Get the index of the word we want.
if (( REPLY & 1 )); then
# Odd position; need previous word.
(( REPLY-- ))
# Pretend position was just after the end of it.
(( REPLY2 = ${#reply[REPLY]} + 1 ))
fi
# Length of all characters before current.
# Force use of character (not index) counting and join without IFS.
integer wordoff="${(cj..)#reply[1,REPLY-1]}"
# Replacement for current word. This could do anything to ${reply[REPLY]}.
local ARG="${reply[REPLY]}" repl
eval repl=\"$1\"
# New line: all words before and after current word, with
# no additional spaces since we've already got the whitespace
# and the replacement word in the middle.
BUFFER="${(j..)reply[1,REPLY-1]}${repl}${(j..)reply[REPLY+1,-1]}"
# Keep cursor at same position in replaced word.
# Redundant here, but useful if $repl changes the length.
# Limit to the next position after the end of the word.
integer repmax=$(( ${#repl} + 1 ))
# Remember CURSOR starts from offset 0 for some reason, so
# subtract 1 from positions.
(( CURSOR = wordoff + (REPLY2 > repmax ? repmax : REPLY2) - 1 ))
PK [Q*5~% ~% functions/_main_completenu W+A #autoload
# The main loop of the completion code. This is what is called when
# completion is attempted from the command line.
# In case non-standard separators are in use.
local IFS=$' \t\n\0'
# If you want to complete only set or unset options for the unsetopt
# and setopt builtin, un-comment these lines:
#
# local _options_set _options_unset
#
# _options_set=(${(k)options[(R)on]})
# _options_unset=(${(k)options[(R)off]})
#
# This is needed because completion functions may set options locally
# which makes the output of setopt and unsetopt reflect a different
# state than the global one for which you are completing.
eval "$_comp_setup"
local func funcs ret=1 tmp _compskip format nm call match min max i num\
_completers _completer _completer_num curtag _comp_force_list \
_matchers _matcher _c_matcher _matcher_num _comp_tags _comp_mesg \
mesg str context state line opt_args val_args curcontext="$curcontext" \
_last_nmatches=-1 _last_menu_style _def_menu_style _menu_style sel \
_tags_level=0 \
_saved_exact="${compstate[exact]}" \
_saved_lastprompt="${compstate[last_prompt]}" \
_saved_list="${compstate[list]}" \
_saved_insert="${compstate[insert]}" \
_saved_colors="$ZLS_COLORS" \
_saved_colors_set=${+ZLS_COLORS}
# _precommand sets this to indicate we are following a precommand modifier
local -a precommands
typeset -U _lastdescr _comp_ignore _comp_colors
[[ -z "$curcontext" ]] && curcontext=:::
zstyle -s ":completion:${curcontext}:" insert-tab tmp || tmp=yes
if [[ ( "$tmp" = *pending(|[[:blank:]]*) && PENDING -gt 0 ) ||
( "$tmp" = *pending=(#b)([0-9]##)(|[[:blank:]]*) &&
PENDING -ge $match[1] ) ]]; then
compstate[insert]=tab
return 0
fi
if [[ "$compstate[insert]" = tab* ]]; then
{ [[ "$tmp" = (|[[:blank:]]*)(yes|true|on|1)(|[[:blank:]]*) ]] &&
{ [[ "$curcontext" != :* || -z "$compstate[vared]" ]] ||
zstyle -t ":completion:vared${curcontext}:" insert-tab } } && return 0
compstate[insert]="${compstate[insert]//tab /}"
fi
# Special completion contexts after `~' and `='.
if [[ -z "$compstate[quote]" ]]; then
if [[ -o equals ]] && compset -P 1 '='; then
compstate[context]=equal
elif [[ "$PREFIX" != */* && "$PREFIX[1]" = '~' ]]; then
compset -p 1
compstate[context]=tilde
fi
fi
# Initial setup.
_setup default
_def_menu_style=( "$_last_menu_style[@]"
# We can't really do that because the current value of $MENUSELECT
# may be the one set by this function.
# There is a similar problem with $ZLS_COLORS in _setup.
# ${MENUSELECT+select${MENUSELECT:+\=$MENUSELECT}}
)
_last_menu_style=()
if zstyle -s ":completion:${curcontext}:default" list-prompt tmp; then
LISTPROMPT="$tmp"
zmodload -i zsh/complist
fi
if zstyle -s ":completion:${curcontext}:default" select-prompt tmp; then
MENUPROMPT="$tmp"
zmodload -i zsh/complist
fi
if zstyle -s ":completion:${curcontext}:default" select-scroll tmp; then
MENUSCROLL="$tmp"
zmodload -i zsh/complist
fi
# Get the names of the completers to use in the positional parameters.
if (( $# )); then
if [[ "$1" = - ]]; then
if [[ $# -lt 3 ]]; then
_completers=()
else
_completers=( "$2" )
call=yes
fi
else
_completers=( "$@" )
fi
else
zstyle -a ":completion:${curcontext}:" completer _completers ||
_completers=( _complete _ignored )
fi
# And now just call the completer functions defined.
_completer_num=1
# Call the pre-functions.
funcs=( "$compprefuncs[@]" )
compprefuncs=()
for func in "$funcs[@]"; do
"$func"
done
for tmp in "$_completers[@]"; do
if [[ -n "$call" ]]; then
_completer="${tmp}"
elif [[ "$tmp" = *:-* ]]; then
_completer="${${tmp%:*}[2,-1]//_/-}${tmp#*:}"
tmp="${tmp%:*}"
elif [[ $tmp = *:* ]]; then
_completer="${tmp#*:}"
tmp="${tmp%:*}"
else
_completer="${tmp[2,-1]//_/-}"
fi
curcontext="${curcontext/:[^:]#:/:${_completer}:}"
zstyle -t ":completion:${curcontext}:" show-completer &&
zle -R "Trying completion for :completion:${curcontext}"
zstyle -a ":completion:${curcontext}:" matcher-list _matchers ||
_matchers=( '' )
_matcher_num=1
_matcher=''
for _c_matcher in "$_matchers[@]"; do
if [[ "$_c_matcher" == +* ]]; then
_matcher="$_matcher $_c_matcher[2,-1]"
else
_matcher="$_c_matcher"
fi
_comp_mesg=
if [[ -n "$call" ]]; then
if "${(@)argv[3,-1]}"; then
ret=0
break 2
fi
elif "$tmp"; then
ret=0
break 2
fi
(( _matcher_num++ ))
done
[[ -n "$_comp_mesg" ]] && break
(( _completer_num++ ))
done
curcontext="${curcontext/:[^:]#:/::}"
if [[ $compstate[old_list] = keep ]]; then
# We are keeping the old list of matches, so keep the
# number of matches we found last time rather than the
# number just generated.
nm=$_lastcomp[nmatches]
else
nm=$compstate[nmatches]
fi
if [[ $compstate[old_list] = keep || nm -gt 1 ]]; then
[[ _last_nmatches -ge 0 && _last_nmatches -ne nm ]] &&
_menu_style=( "$_last_menu_style[@]" "$_menu_style[@]" )
tmp=$(( compstate[list_lines] + BUFFERLINES + 1 ))
_menu_style=( "$_menu_style[@]" "$_def_menu_style[@]" )
if [[ "$compstate[list]" = *list && tmp -gt LINES &&
( -n "$_menu_style[(r)select=long-list]" ||
-n "$_menu_style[(r)(yes|true|on|1)=long-list]" ) ]]; then
compstate[insert]=menu
elif [[ "$compstate[insert]" = "$_saved_insert" ]]; then
if [[ -n "$compstate[insert]" &&
-n "$_menu_style[(r)(yes|true|1|on)=long]" && tmp -gt LINES ]]; then
compstate[insert]=menu
else
sel=( "${(@M)_menu_style:#(yes|true|1|on)*}" )
if (( $#sel )); then
min=9999999
for i in "$sel[@]"; do
if [[ "$i" = *\=[0-9]* ]]; then
num="${i#*\=}"
[[ num -lt 0 ]] && num=0
elif [[ "$i" != *\=* ]]; then
num=0
else
num=9999999
fi
[[ num -lt min ]] && min="$num"
(( min )) || break
done
fi
sel=( "${(@M)_menu_style:#(no|false|0|off)*}" )
if (( $#sel )); then
max=9999999
for i in "$sel[@]"; do
if [[ "$i" = *\=[0-9]* ]]; then
num="${i#*\=}"
[[ num -lt 0 ]] && num=0
elif [[ "$i" != *\=* ]]; then
num=0
else
num=9999999
fi
[[ num -lt max ]] && max="$num"
(( max )) || break
done
fi
if [[ ( -n "$min" && nm -ge min && ( -z "$max" || nm -lt max ) ) ||
( -n "$_menu_style[(r)auto*]" &&
"$compstate[insert]" = automenu ) ]]; then
compstate[insert]=menu
elif [[ -n "$max" && nm -ge max ]]; then
compstate[insert]=unambiguous
elif [[ -n "$_menu_style[(r)auto*]" &&
"$compstate[insert]" != automenu ]]; then
compstate[insert]=automenu-unambiguous
fi
fi
fi
if [[ "$compstate[insert]" = *menu* ]]; then
[[ "$MENUSELECT" = 00 ]] && MENUSELECT=0
if [[ -n "$_menu_style[(r)no-select*]" ]]; then
unset MENUSELECT
elif [[ -n "$_menu_style[(r)select=long*]" ]]; then
if [[ tmp -gt LINES ]]; then
zmodload -i zsh/complist
MENUSELECT=00
fi
fi
if [[ "$MENUSELECT" != 00 ]]; then
sel=( "${(@M)_menu_style:#select*}" )
if (( $#sel )); then
min=9999999
for i in "$sel[@]"; do
if [[ "$i" = *\=[0-9]* ]]; then
num="${i#*\=}"
[[ num -lt 0 ]] && num=0
elif [[ "$i" != *\=* ]]; then
num=0
else
num=9999999
fi
[[ num -lt min ]] && min="$num"
(( min )) || break
done
zmodload -i zsh/complist
MENUSELECT="$min"
else
unset MENUSELECT
fi
fi
if [[ -n "$MENUSELECT" ]]; then
if [[ -n "$_menu_style[(r)interactive*]" ]]; then
MENUMODE=interactive
elif [[ -n "$_menu_style[(r)search*]" ]]; then
if [[ -n "$_menu_style[(r)*backward*]" ]]; then
MENUMODE=search-backward
else
MENUMODE=search-forward
fi
else
unset MENUMODE
fi
fi
fi
elif [[ nm -lt 1 && -n "$_comp_mesg" ]]; then
compstate[insert]=''
compstate[list]='list force'
elif [[ nm -eq 0 && -z "$_comp_mesg" &&
$#_lastdescr -ne 0 && $compstate[old_list] != keep ]] &&
zstyle -s ":completion:${curcontext}:warnings" format format; then
compstate[list]='list force'
compstate[insert]=''
tmp=( "\`${(@)^_lastdescr:#}'" )
case $#tmp in
1) str="$tmp[1]";;
2) str="$tmp[1] or $tmp[2]";;
*) str="${(j:, :)tmp[1,-2]}, or $tmp[-1]";;
esac
_setup warnings
zformat -f mesg "$format" "d:$str" "D:${(F)${(@)_lastdescr:#}}"
compadd -x "$mesg"
fi
[[ "$_comp_force_list" = always ||
( "$_comp_force_list" = ?* && nm -ge _comp_force_list ) ]] &&
compstate[list]="${compstate[list]//messages} force"
if [[ "$compstate[old_list]" = keep ]]; then
if [[ $_saved_colors_set = 1 ]]; then
ZLS_COLORS="$_saved_colors"
else
unset ZLS_COLORS
fi
elif (( $#_comp_colors )); then
ZLS_COLORS="${(j.:.)_comp_colors}"
else
unset ZLS_COLORS
fi
# Now call the post-functions.
funcs=( "$comppostfuncs[@]" )
comppostfuncs=()
for func in "$funcs[@]"; do
"$func"
done
_lastcomp=( "${(@kv)compstate}" )
_lastcomp[nmatches]=$nm
_lastcomp[completer]="$_completer"
_lastcomp[prefix]="$PREFIX"
_lastcomp[suffix]="$SUFFIX"
_lastcomp[iprefix]="$IPREFIX"
_lastcomp[isuffix]="$ISUFFIX"
_lastcomp[qiprefix]="$QIPREFIX"
_lastcomp[qisuffix]="$QISUFFIX"
_lastcomp[tags]="$_comp_tags"
return ret
PK [D8 functions/_postfixnu W+A #compdef postsuper
_postfix_queue_id() {
compadd ${${(M)${(f)"$(postqueue -p)"}:#(#s)([0-9A-F]##)*}/(#s)(#b)([0-9A-F]##)*/$match[1]}
}
case $service in
(postsuper)
_arguments -C \
'-p[purge old tempfiles]' \
'-s[structure check and repair]' \
'-v[verbose]' \
'-c[configdir]:config dir:_files -/' \
'-d[delete]:queue id:_postfix_queue_id' \
'-h[hold]:queue id:_postfix_queue_id' \
'-H[release]:queue id:_postfix_queue_id' \
'-r[requeue]:queue id:_postfix_queue_id' \
'1:queue:(hold incoming active deferred)'
;;
esac
PK [cH
9 9 functions/_globalnu W+A #compdef global
local cmds="(-c --completion -f --file -g --grep -I --idutils -p --print-dbpath -P --path -u --update --version --help)"
_arguments \
"$cmds"{-c,--completion}'[completion on prefix]:prefix:' \
"$cmds"{-f,--file}'[print function definitions in file]' \
"$cmds"{-g,--grep}'[print all lines which match pattern using grep]:pattern' \
"$cmds"{-I,--idutils}'[print all lines which match pattern using id-utils]:pattern' \
"$cmds"{-p,--print-dbpath}'[print location of GTAGS]' \
"$cmds"{-P,--path}'[print paths matching pattern]:pattern:' \
"$cmds"{-u,--update}'[locate tag files and update incrementally]' \
'(-a --absolute)'{-a,--absolute}'[print absolute path names]' \
'(-e --regexp :)'{-e,--regexp}'[specify pattern]:pattern:_global_tags' \
'(-G --basic-regexp :)'{-G,--basic-regexp}'[specify basic regexp to use]:word:_global_tags' \
'(-i --ignore-case)'{-i,--ignore-case}'[ignore case in patterns]' \
'(-l --local)'{-l,--local}'[print just objects which exist under the current directory]' \
'(-n --nofilter)'{-n,--nofilter}'[suppress sort filter and path conversion filter]' \
'(-o --other)'{-o,--other}'[search in other files, not just source files (with -g)]' \
'(-q --quiet)'{-q,--quiet}'[quiet mode]' \
'(-r --reference --rootdir)'{-r,--reference,--rootdir}'[find object references instead of definitions]' \
'(-s --symbol)'{-s,--symbol}'[find symbols instead of function names]:pattern' \
'(-t --tags)'{-t,--tags}'[output in standard ctags format]' \
'(-T --through -s -r -l)'{-T,--through}'[search through all tag files in GTAGSLIBPATH]' \
'(-v --verbose)'{-v,--verbose}'[verbose mode]' \
'(-x --cxref)'{-x,--cxref}'[additionally list line number and contents]' \
'(- :)--version[display version information]' \
'(- :)--help[display help information]' \
':word:_global_tags'
PK [N functions/_ulimitnu W+A #compdef ulimit
[[ $PREFIX = u* ]] && compadd unlimited && return 0
_arguments -s \
'-H[set hard limits]' \
'-S[set soft and hard limits (with -H)]' \
'(-H -S -c -d -f -l -m -n -s -t *)-a[list all current resource limits]' \
'-c[core dump size limit]:max core dump size (512-byte blocks)' \
'-d[maximum size of data segment]:maximum size of data segment (K-bytes)' \
'-f[size of largest file allowed]:size of largest file allowed (512-byte blocks)' \
'-l[maximum size of locked in memory]:maximum size of locked in memory (K-bytes)' \
'-m[maximum size of physical memory]:maximum size of physical memory (K-bytes)' \
'-n[maximum no. of open file descriptors]:maximum no. of open file descriptors' \
'-s[stack size limit]:stack size limit (K-bytes)' \
'-t[maximum cpu time per process]:maximum cpu time per process (seconds)' \
'-u[processes available to the user]:processes' \
'-v[maximum size of virtual memory]:maximum size of virtual memory (K-bytes)' \
'*:size of largest file allowed'
PK [, functions/_lintiannu W+A #compdef lintian lintian-info
local line cmds ret=1
case "$service" in
(lintian)
_arguments -s \
'(-c -r -u -C -R -S -X --check --check-part --dont-check-part --remove --remove-lab --setup-lab --unpack)'{-S,--setup-lab}'[setup or update the laboratory]' \
'(-c -r -u -C -R -S -X --check --check-part --dont-check-part --remove --remove-lab --setup-lab --unpack)'{-R,--remove-lab}'[remove the laboratory directory]' \
'(-c -r -u -C -R -S -X --check --check-part --dont-check-part --remove --remove-lab --setup-lab --unpack)'{-c,--check}'[run all checks over the specified packages]' \
'(-c -r -u -C -R -S -X --check --check-part --dont-check-part --remove --remove-lab --setup-lab --unpack)'{-C,--check-part}'[run only the specified checks]:checks:_values -s , "lintian checks" binaries bin changelog-file chg conffiles cnf control-file dctrl control-files ctl copyright-file cpy cruft deb deb-format dfmt debconf dc debdiff dif debian-readme drm debhelper dh description des etcfiles etc fields fld files fil huge-usr-share hus infofiles info init.d ini manpages man md5sums md5 menus men menu-format mnf perl prl po-debconf pd scripts scr shared-libs shl spelling splr standards-version std' \
'(-c -r -u -C -R -S -X --check --check-part --dont-check-part --remove --remove-lab --setup-lab --unpack)'{-X,--dont-check-part}'[run only the specified checks]:checks:_values -s , "lintian checks" binaries bin changelog-file chg conffiles cnf control-file dctrl control-files ctl copyright-file cpy cruft deb deb-format dfmt debconf dc debdiff dif debian-readme drm debhelper dh description des etcfiles etc fields fld files fil huge-usr-share hus infofiles info init.d ini manpages man md5sums md5 menus men menu-format mnf perl prl po-debconf pd scripts scr shared-libs shl spelling splr standards-version std' \
'(-c -r -u -C -R -S -X --check --check-part --dont-check-part --remove --remove-lab --setup-lab --unpack)'{-u,--unpack}'[unpack up to unpack level]' \
'(-c -r -u -C -R -S -X --check --check-part --dont-check-part --remove --remove-lab --setup-lab --unpack)'{-r,--remove}'[clean packages up to current unpack level]' \
'(-h --help)'{-h,--help}'[help]' \
'(-v --verbose)'{-v,--verbose}'[verbose]' \
'(-V --version)'{-V,--version}'[version]' \
'(-d --debug)'{-d,--debug}'[debug]' \
'--print-version[print unadorned version number]' \
'(-i --info)'{-i,--info}'[print info about violations]' \
'(-I --display-info)'{-I,--display-info}'[also display informational tags]' \
'(-l --unpack-level)'{-l,--unpack-level}'[unpack level]:default unpack level:(0 1 2 none basic contents)' \
'(-o --no-override)'{-o,--no-override}'[do not use the overrides file]' \
'--show-overrides[output tags that have been overridden]' \
'--color:when:(never always auto)' \
'(-U --unpack-info)'{-U,--unpack-info}'[collect informations]:infos:_values -s , "collectibles" changelog-file copyright-file debfiles debian-readme diffstat doc-base-files file-info init.d md5sums menu-files objdump-info override-file scripts source-control-file' \
'(-m --md5sums)'{-m,--md5sums}'[check md5sums when processing a .changes file]' \
'--allow-root[override warning when run with superuser privileges]' \
'--cfg:config file:_files' \
'--lab:laboratory dir:_files -/' \
'--archivedir:archive directory:_files -/' \
'--dist:distribution:(woody sarge sid)' \
'--section:release:(main contrib non-free)' \
'--arch:architecture:(alpha arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 sparc)' \
'--root:root directory:_files -/' \
'(-a --all)'{-a,--all}'[check all packages in the distribution]' \
'(-b --binary)'{-b,--binary}'[the following packages are binary]' \
'(-s --source)'{-s,--source}'[the following packages are source]' \
'--udeb[the following packages are udebs]' \
'(-p --packages-file)'{-p,--packages-file}'[process packages listed in file]:list:_files' \
'*:package:_files -g "*.(changes|deb|dsc)"' && return 0
;;
(lintian-info)
_arguments -C '1: :->cmds' '*: :->args' && ret=0
case $state in
(cmds)
cmds=(
{-t,--tags}':print long description of arguments'
{-a,--annotate}':annotate override entries from stdin'
)
_describe -t commands 'lintian-info command' cmds && ret=0
;;
(args)
case $line[1] in
-t|--tags)
_wanted tag expl 'tag' compadd $(command awk '/^Tag:/ { print $2 }' /usr/share/lintian/checks/*.desc) && ret=0
;;
esac
;;
esac
;;
esac
return ret
PK [@NPO
functions/_printnu W+A #compdef print
local state expl line eflag pflag
# -e flag available only after -R
eflag="${words[1,CURRENT-1][(r)-*R*]:+-e[enable escapes]}"
# -p flag only relevant if we have a coprocess
(:>&p) 2>/dev/null &&
pflag='(-s -u -z)-p[print arguments to input of coprocess]'
_arguments -C -s -A "-*" -S \
'(-f)-r[ignore escape conventions of echo]' \
'(-r -b -f -m -s -l -N -o -O -i -c -u -p -z -D -P)-R[emulate BSD echo (no escapes, -n & -e flags only)]' \
'-b[recognise bindkey escape sequences]' \
'-m[remove arguments matching specified pattern]' \
'(-r -n -R -l -N -c)-f+[print arguments as for the printf builtin]:format' \
'(-u -p -z)-s[place results in the history list]' \
'(-c -f)-n[do not add a newline to the result]' \
'(-N -c -f)-l[print arguments separated by newlines]' \
'(-n -l -c -f)-N[print arguments separated and terminated by nulls]' \
'(-O)-o[sort arguments in ascending order]' \
'(-o)-O[sort arguments in descending order]' \
'-i[case-insensitive sorting]' \
'(-n -l -N -f -s -z)-a[with -c/-C, print arguments across before down]' \
'(-n -l -N -f -C -s -z)-c[print arguments in columns]' \
'(-n -l -N -f -c -s -z)-C+[print arguments in specified number of columns]:columns' \
'(-s -p -z)-u+[specify file descriptor to print arguments to]:file descriptor:_file_descriptors' \
'(-s -p -u)-z[push arguments onto editing buffer stack]' \
'-D[substitute any arguments which are named directories using ~ notation]' \
'-P[perform prompt expansion]' \
$pflag $eflag '*:default:_default'
PK [ 9_ _ functions/_completenu W+A #autoload
# Generate all possible completions. Note that this is not intended as
# a normal completion function, but as one possible value for the
# completer style.
local comp name oldcontext ret=1 service
typeset -T curcontext="$curcontext" ccarray
oldcontext="$curcontext"
# If we have a user-supplied context name, use only that.
if [[ -n "$compcontext" ]]; then
if [[ "${(t)compcontext}" = *array* ]]; then
local expl
_wanted values expl value compadd -a - compcontext
elif [[ "${(t)compcontext}" = *assoc* ]]; then
local expl tmp i
tmp=()
for i in "${(@k)compcontext[(R)*[^[:blank:]]]}"; do
tmp=( "$tmp[@]" "${i}:${compcontext[$i]}" )
done
tmp=( "$tmp[@]" "${(k@)compcontext[(R)[[:blank:]]#]}" )
_describe -t values value tmp
elif [[ "$compcontext" = *:*:* ]]; then
local tag="${${compcontext%%:*}:-values}"
local descr="${${${compcontext#${tag}:}%%:*}:-value}"
local action="${compcontext#${tag}:${descr}:}" expl ws ret=1
case "$action" in
\ #)
_message -e "$tag" "$descr";;
\(\(*\)\))
eval ws\=\( "${action[3,-3]}" \)
_describe -t "$tag" "$descr" ws;;
\(*\))
eval ws\=\( "${action[2,-2]}" \)
_wanted "$tag" expl "$descr" compadd -a - ws;;
\{*\})
_tags "$tag"
while _tags; do
while _next_label "$tag" expl "$descr"; do
eval "$action[2,-2]" && ret=0
done
(( ret )) || break
done;;
\ *)
eval ws\=\( "$action" \)
_tags "$tag"
while _tags; do
while _next_label "$tag" expl "$descr"; do
"$ws[@]"
done
(( ret )) || break
done;;
*)
eval ws\=\( "$action" \)
_tags "$tag"
while _tags; do
while _next_label "$tag" expl "$descr"; do
"$ws[1]" "$expl[@]" "${(@)ws[2,-1]}"
done
(( ret )) || break
done;;
esac
else
ccarray[3]="$compcontext"
comp="$_comps[$compcontext]"
[[ -n "$comp" ]] && eval "$comp"
fi
return
fi
# An entry for `-first-' is the replacement for `compctl -T'
comp="$_comps[-first-]"
if [[ -n "$comp" ]]; then
service="${_services[-first-]:--first-}"
ccarray[3]=-first-
eval "$comp" && ret=0
if [[ "$_compskip" = all ]]; then
_compskip=
return ret
fi
fi
# If we are inside `vared' and we don't have a $compcontext, we treat
# this like a parameter assignment. Which it is.
[[ -n $compstate[vared] ]] && compstate[context]=vared
# For arguments and command names we use the `_normal' function.
ret=1
if [[ "$compstate[context]" = command ]]; then
curcontext="$oldcontext"
_normal -s && ret=0
else
# Let's see if we have a special completion definition for the other
# possible contexts.
local cname="-${compstate[context]:s/_/-/}-"
ccarray[3]="$cname"
comp="$_comps[$cname]"
service="${_services[$cname]:-$cname}"
# If not, we use default completion, if any.
if [[ -z "$comp" ]]; then
if [[ "$_compskip" = *default* ]]; then
_compskip=
return 1
fi
comp="$_comps[-default-]"
service="${_services[-default-]:--default-}"
fi
[[ -n "$comp" ]] && eval "$comp" && ret=0
fi
_compskip=
return ret
PK [ǥS functions/_multi_partsnu W+A #autoload
# This gets two arguments, a separator (which should be only one
# character) and an array. As usual, the array may be given by it's
# name or literal as in `(foo bar baz)' (words separated by spaces in
# parentheses).
# The parts of words from the array that are separated by the
# separator character are then completed independently.
local sep pref npref i tmp2 group expl menu pre suf opre osuf orig cpre
local opts sopts matcher imm
typeset -U tmp1 matches
# Get the options.
zparseopts -D -a sopts \
'J+:=group' 'V+:=group' 'X+:=expl' 'P:=opts' 'F:=opts' \
S: r: R: q 1 2 n f 'M+:=matcher' 'i=imm'
sopts=( "$sopts[@]" "$opts[@]" )
if (( $#matcher )); then
matcher="${matcher[2]}"
else
matcher=
fi
# Get the arguments, first the separator, then the array. The array is
# stored in `tmp1'. Further on the array `matches' will always contain
# those words from the original array that still match everything we have
# tried to match while we walk through the string from the line.
sep="$1"
if [[ "${2[1]}" = '(' ]]; then
tmp1=( ${=2[2,-2]} )
else
tmp1=( "${(@P)2}" )
fi
# In `pre' and `suf' we will hold the prefix and the suffix from the
# line while we walk through them. The original string are used
# temporarily for matching.
pre="$PREFIX"
suf="$SUFFIX"
opre="$PREFIX"
osuf="$SUFFIX"
orig="$PREFIX$SUFFIX"
# Special handling for menu completion?
[[ $compstate[insert] = (*menu|[0-9]*) || -n "$_comp_correct" ||
( $#compstate[pattern_match] -ne 0 &&
"$orig" != "${orig:q}" ) ]] && menu=yes
# In `pref' we collect the unambiguous prefix path.
pref=''
# If the string from the line matches at least one of the strings,
# we use only the matching strings.
compadd -O matches -M "r:|${sep}=* r:|=* $matcher" -a tmp1
(( $#matches )) || matches=( "$tmp1[@]" )
while true; do
# Get the prefix and suffix for matching.
if [[ "$pre" = *${sep}* ]]; then
PREFIX="${pre%%${sep}*}"
SUFFIX=""
else
PREFIX="${pre}"
SUFFIX="${suf%%${sep}*}"
fi
# Check if the component for some of the possible matches is equal
# to the string from the line. If there are such strings, we directly
# use the stuff from the line. This avoids having `foo' complete to
# both `foo' and `foobar'.
if [[ -n "$PREFIX$SUFFIX" || "$pre" = ${sep}* ]]; then
tmp1=( "${(@M)matches:#${PREFIX}${SUFFIX}${sep}*}" )
else
tmp1=()
fi
if (( $#tmp1 )); then
npref="${PREFIX}${SUFFIX}${sep}"
else
# No exact match, see how many strings match what's on the line.
builtin compadd -O tmp1 -M "r:|${sep}=* r:|=* $matcher" - "${(@)${(@)matches%%${sep}*}:#}"
[[ $#tmp1 -eq 0 && -n "$_comp_correct" ]] &&
compadd -O tmp1 -M "r:|${sep}=* r:|=* $matcher" - "${(@)${(@)matches%%${sep}*}:#}"
if [[ $#tmp1 -eq 1 ]]; then
# Only one match. If there are still separators from the line
# we just accept this component. Otherwise we insert what we
# have collected, probably giving it a separator character
# as a suffix.
if [[ "$pre$suf" = *${sep}* ]]; then
npref="${tmp1[1]}${sep}"
else
matches=( "${(@M)matches:#${tmp1[1]}*}" )
PREFIX="${cpre}${pre}"
SUFFIX="$suf"
if [[ $#imm -ne 0 && $#matches -eq 1 ]] ||
zstyle -t ":completion:${curcontext}:" expand suffix; then
compadd "$group[@]" "$expl[@]" "$sopts[@]" \
-M "r:|${sep}=* r:|=* $matcher" - $pref$matches
else
if (( $matches[(I)${tmp1[1]}${sep}*] )); then
compadd "$group[@]" "$expl[@]" -p "$pref" -r "$sep" -S "$sep" "$opts[@]" \
-M "r:|${sep}=* r:|=* $matcher" - "$tmp1[1]"
else
compadd "$group[@]" "$expl[@]" -p "$pref" "$sopts[@]" \
-M "r:|${sep}=* r:|=* $matcher" - "$tmp1[1]"
fi
fi
return
fi
elif (( $#tmp1 )); then
local ret=1 tt
local -a mm
# More than one match. First we get all strings that match the
# rest from the line.
PREFIX="$pre"
SUFFIX="$suf"
compadd -O matches -M "r:|${sep}=* r:|=* $matcher" -a matches
if [[ "$pre" = *${sep}* ]]; then
PREFIX="${cpre}${pre%%${sep}*}"
SUFFIX="${sep}${pre#*${sep}}${suf}"
else
PREFIX="${cpre}${pre}"
SUFFIX="$suf"
fi
for tt in $tmp1
do
mm+=( "${(@M)matches:#$tt*}" )
done
matches=( $mm )
if ! zstyle -t ":completion:${curcontext}:" expand suffix ||
[[ -n "$menu" || -z "$compstate[insert]" ]]; then
# With menu completion we add only the ambiguous component with
# the prefix collected and a separator for the matches that
# have more components.
tmp2="$pre$suf"
if [[ "$tmp2" = *${sep}* ]]; then
tmp2=(-s "${sep}${tmp2#*${sep}}")
else
tmp2=()
fi
compadd "$group[@]" "$expl[@]" -r "$sep" -S "$sep" "$opts[@]" \
-p "$pref" "$tmp2[@]" -M "r:|${sep}=* r:|=* $matcher" - \
"${(@)${(@)${(@M)matches:#*${sep}}%%${sep}*}:#}" && ret=0
(( $matches[(I)${sep}*] )) &&
compadd "$group[@]" "$expl[@]" -S '' "$opts[@]" \
-p "$pref" \
-M "r:|${sep}=* r:|=* $matcher" - "$sep" && ret=0
compadd "$group[@]" "$expl[@]" -r "$sep" -S "$sep" "$opts[@]" \
-p "$pref" "$tmp2[@]" -M "r:|${sep}=* r:|=* $matcher" - \
"${(@)${(@)${(@M)matches:#*?${sep}?*}%%${sep}*}:#}" && ret=0
compadd "$group[@]" "$expl[@]" -S '' "$opts[@]" -p "$pref" "$tmp2[@]" \
-M "r:|${sep}=* r:|=* $matcher" - \
"${(@)matches:#*${sep}*}" && ret=0
else
# With normal completion we add all matches one-by-one with
# the unmatched part as a suffix. This will insert the longest
# unambiguous string for all matching strings.
compadd "$group[@]" "$expl[@]" "$opts[@]" \
-p "$pref" -s "${i#*${sep}}" \
-M "r:|${sep}=* r:|=* $matcher" - \
"${(@)${(@)${(@M)matches:#*${sep}*}%%${sep}*}:#}" && ret=0
compadd "$group[@]" "$expl[@]" -S '' "$opts[@]" -p "$pref" \
-M "r:|${sep}=* r:|=* $matcher" - \
"${(@)matches:#*${sep}*}" && ret=0
fi
return ret
else
# We are here if no string matched what's on the line. In this
# case we insert the expanded prefix we collected if it differs
# from the original string from the line.
{ ! zstyle -t ":completion:${curcontext}:" expand prefix ||
[[ "$orig" = "$pref$pre$suf" ]] } && return 1
PREFIX="${cpre}${pre}"
SUFFIX="$suf"
if [[ -n "$suf" ]]; then
compadd "$group[@]" "$expl[@]" -s "$suf" "$sopts[@]" \
-M "r:|${sep}=* r:|=* $matcher" - "$pref$pre"
else
compadd "$group[@]" "$expl[@]" -S '' "$opts[@]" \
-M "r:|${sep}=* r:|=* $matcher" - "$pref$pre"
fi
return
fi
fi
# We just accepted and/or expanded a component from the line. We
# remove it from the matches (using only those that have a least
# the skipped string) and ad it the `pref'.
matches=( "${(@)${(@)${(@M)matches:#${npref}*}#*${sep}}:#}" )
pref="$pref$npref"
# Now we set `pre' and `suf' to their new values.
if [[ "$pre" = *${sep}* ]]; then
cpre="${cpre}${pre%%${sep}*}${sep}"
pre="${pre#*${sep}}"
elif [[ "$suf" = *${sep}* ]]; then
cpre="${cpre}${pre}${suf%%${sep}*}${sep}"
pre="${suf#*${sep}}"
suf=""
else
# The string from the line is fully handled. If we collected an
# unambiguous prefix and that differs from the original string,
# we insert it.
PREFIX="${opre}${osuf}"
SUFFIX=""
if [[ -n "$pref" && "$orig" != "$pref" ]]; then
if [[ "$pref" = *${sep}*${sep} ]]; then
compadd "$group[@]" "$expl[@]" "$opts[@]" \
-p "${pref%${sep}*${sep}}${sep}" -S "$sep" \
-M "r:|${sep}=* r:|=* $matcher" - "${${pref%${sep}}##*${sep}}"
elif [[ "$pref" = *${sep}* ]]; then
compadd "$group[@]" "$expl[@]" -S '' "$opts[@]" \
-p "${pref%${sep}*}${sep}" \
-M "r:|${sep}=* r:|=* $matcher" - "${pref##*${sep}}"
else
compadd "$group[@]" "$expl[@]" -S '' "$opts[@]" \
-M "r:|${sep}=* r:|=* $matcher" - "$pref"
fi
fi
return
fi
done
PK [{^2 2 functions/_oscnu W+A #compdef osc
#
# Copyright (C) 2009,2010 Holger Macht
#
# This file is released under the GPLv2.
#
# Based on the the zsh guide from http://zsh.dotsrc.org/Guide/zshguide06.html
#
# Toggle verbose completions: zstyle ':completion:*:osc:*' verbose no
# zstyle ':completion:*:osc-subcommand:*' verbose no
#
# Use the variables $ZSH_OSC_BUILD_TARGETS_EXTRA and $ZSH_OSC_PROJECTS_EXTRA to
# extend the list of possible completions in your ~/.zshrc like that:
# export OSC_PROJECTS_EXTRA="Base:System Base:shells"
#
# version 0.2
#
OSC_BUILD_TARGETS="openSUSE_10.2 openSUSE_10.3 openSUSE_11.0 openSUSE_11.1 openSUSE_11.2 openSUSE_11.3 openSUSE_Factory"
OSC_PROJECTS="openSUSE:Factory openSUSE:11.2 openSUSE:11.3 openSUSE:11.1 openSUSE:11.0 openSUSE:10.3"
# user defined variables $OSC_BUILD_TARGETS_EXTRA and
# $OSC_PROJECTS_EXTRA can add to the project/build target list
OSC_BUILD_TARGETS="$OSC_BUILD_TARGETS $ZSH_OSC_BUILD_TARGETS_EXTRA"
OSC_PROJECTS="$OSC_PROJECTS $ZSH_OSC_PROJECTS_EXTRA"
# Main dispatcher
_osc() {
if (( CURRENT > 2 )) && [[ ${words[2]} != "help" ]]; then
# Remember the subcommand name
local cmd=${words[2]}
# Set the context for the subcommand.
curcontext="${curcontext%:*:*}:osc-subcommand"
# Narrow the range of words we are looking at to exclude `osc'
(( CURRENT-- ))
shift words
# Run the completion for the subcommand
if [ "$cmd" = "submitreq" -o "$cmd" = "sr" ]; then
_osc_cmd_submitreq
elif [ "$cmd" = "getbinaries" ]; then
_osc_cmd_getbinaries
elif [ "$cmd" = "checkout" -o "$cmd" = "co" -o "$cmd" = "branch" ]; then
_osc_cmd_checkout
elif [ "$cmd" = "buildlog" -o "$cmd" = "buildinfo" -o "$cmd" = "bl" ]; then
_osc_cmd_buildlog
else
_osc_cmd_do $cmd
fi
else
local hline
local -a cmdlist
local tag=0
_call_program help-commands osc help | while read -A hline; do
# start parsing with "commands:"
[[ $hline[1] = "commands:" ]] && tag=1
# stop parsing at the line starting with "For"
[[ $hline[1] = "For" ]] && tag=0
[[ $tag = 0 ]] && continue
# all commands have to start with lower case letters
[[ $hline[1] =~ ^[A-Z] ]] && continue
(( ${#hline} < 2 )) && continue
# ${hline[1]%,} truncates the last ','
cmdlist=($cmdlist "${hline[1]%,}:${hline[2,-1]}")
done
_describe -t osc-commands 'osc command' cmdlist
fi
}
_osc_cmd_getbinaries() {
_arguments \
'1:PROJECT:( `echo $OSC_PROJECTS` )' \
'2:PACKAGE:(PACKAGE)' \
'3:REPOSITORY:( `echo $OSC_BUILD_TARGETS` )' \
'4:ARCHITECTURE:(i586 x86_64)'
}
_osc_cmd_checkout() {
_arguments \
'1:PROJECT:( `echo $OSC_PROJECTS` )' \
'2:PACKAGE:(PACKAGE)'
}
_osc_cmd_buildlog() {
_arguments \
'1:REPOSITORY:( `echo $OSC_BUILD_TARGETS` )' \
'2:ARCHITECTURE:(i586 x86_64)'
}
_osc_cmd_submitreq() {
local hline
local -a cmdlist
local tag=0
_call_program help-commands osc help $cmd | while read -A hline; do
# start parsing from "usage:"
[[ $hline[1] = "usage:" ]] && tag=1
[[ $tag = 0 ]] && continue
if [[ $hline[1] =~ ^osc ]]; then
shift hline; shift hline
elif ! [[ $hline[1] =~ ^- ]]; then
# Option has to start with a '-' or 'osc submitrequest'
continue
fi
(( ${#hline} < 2 )) && continue
cmdlist=($cmdlist "${hline[1]%,}:${hline[2,-1]}")
done
_describe -t osc-commands 'osc command' cmdlist
}
_osc_cmd_do() {
local hline
local -a cmdlist
local tag=0
# only start completion if theres some '-' on the line
if ! [ "$words[2]" = "-" ]; then
_complete
return
fi
_call_program help-commands osc help $cmd | while read -A hline; do
# start parsing from "Options:"
[[ $hline[1] = "Options:" ]] && tag=1
[[ $tag = 0 ]] && continue
# Option has to start with a '-'
[[ $hline[1] =~ ^- ]] || continue
(( ${#hline} < 2 )) && continue
cmdlist=($cmdlist "${hline[1]%,}:${hline[2,-1]}")
done
if [ -n "$cmdlist" ]; then
_describe -t osc-commands 'osc command' cmdlist
else
_complete
fi
}
# Code to make sure _osc is run when we load it
_osc "$@"
PK [+P P
functions/_gsnu W+A #compdef gs ghostscript
if compset -N --; then
if [[ CURRENT -eq 1 ]]; then
_pspdf
else
_message -e arguments 'userdict ARGUMENTS'
return 1
fi
else
local curcontext="$curcontext" state line expl ret=1
typeset -A opt_args
_x_arguments -C \
'-q[quiet startup]' \
'-g-[set device size]:device size (x):' \
'-r-[set resolution]:resolution ( or x):' \
'-I[add to library file search path]:directory:_dir_list' \
\*-{d,D}'-[define name with definition]:def:->dname' \
\*-{s,S}'-[define name with value]:def:->sname' \
'*:PostScript or PDF file:_pspdf' && ret=0
case "$state" in
dname)
if [[ "$PREFIX" = *\=* ]]; then
_message -e definition-values 'systemdict definition value'
else
_wanted names expl 'systemdict definition name' \
compadd -M 'm:{a-z}={A-Z}' - \
DISKFONTS NOCACHE NOBIND NODISPLAY NOPAUSE PLATFONTS SAFER \
WRITESYSTEMDICT && ret=0
fi
;;
sname)
if compset -P '*='; then
case "$IPREFIX" in
*DEVICE\=)
_wanted devices expl 'ghostscript device' \
compadd - "${(@)${=${$(_call_program devices gs -h)##* devices:}%%Search path:*}:#}" && ret=0
;;
*OutputFile\=)
_description files expl 'output file'
_files "$expl[@]" && ret=0
;;
*)
_message -e values 'systemdict value'
return 1
esac
else
_wanted names expl 'systemdict name' \
compadd -S\= -M 'm:{a-z}={A-Z}' - DEVICE OutputFile && ret=0
fi
;;
esac
return ret
fi
PK [@\<
<
functions/_rpmbuildnu W+A #compdef rpmbuild
local -a cmds b_cmds t_cmds options b_options
cmds=(--rebuild --recompile)
b_cmds=(-ba -bb -bp -bc -bi -bl -bs)
t_cmds=(-ta -tb -tp -tc -ti -tl -ts)
options=(--quiet -v -vv --verbose --rcfile --pipe --dbpath -r --root --buildroot --clean --nobuild --nodeps --nodigest --nosignature --macros
--rmsource --rmspec --short-circuit --sign --target -D --define -E --eval --with --without --debug --bcond --install-build-tree)
b_options=(--clean --nobuild --nodeps --nodigest --nosignature --rmsource --rmspec --short-circuit --sign --target --debug --with --without)
_arguments \
"($cmds $b_cmds $t_cmds)"{-ba,-ta}'[build binary and source packages]' \
"($cmds $b_cmds $t_cmds)"{-bb,-tb}'[build a binary package]' \
"($cmds $b_cmds $t_cmds)"{-bp,-tp}'[execute the "%prep" stage]' \
"($cmds $b_cmds $t_cmds)"{-bc,-tc}'[do the "%build" stage]' \
"($cmds $b_cmds $t_cmds)"{-bi,-ti}'[do the "%install" stage]' \
"($cmds $b_cmds $t_cmds)"{-bl,-tl}'[do a "list check"]' \
"($cmds $b_cmds $t_cmds)"{-bs,-ts}'[build just the source package]' \
"($cmds $b_cmds $t_cmds * $b_options $options)"{-\?,--help}'[show help message]' \
"($cmds $b_cmds $t_cmds * $b_options $options)"--querytags'[display known query tags]' \
"($cmds $b_cmds $t_cmds * $b_options)"--showrc'[display final rpmrc and macro configuration]' \
"($cmds $b_cmds $t_cmds * $b_options $options)"--usage'[display brief usage message]' \
"($cmds $b_cmds $t_cmds * $b_options $options)"--version'[print the version of rpm being used]' \
"(-v --verbose -vv)"--quiet'[print as little as possible]' \
"(-v --verbose --quiet)"{-v,--verbose}'[print verbose information]' \
"(-v --verbose --quiet)"-vv'[print lots of ugly debugging information]' \
--rcfile'[RC files]:RC files:_files -S\:' \
--macros'[macros files]:macros files:_files -S\:' \
--pipe'[command to pipe the output of rpm to]:command' \
--dbpath'[set database directory]:database directory:_files -/' \
"(-r --root)"{-r,--root}'[root file system tree]:chroot directory:_files -/' \
--buildroot'[override the BuildRoot]:BuildRoot directory:_files -/' \
--clean'[remove the build tree after the packages are made]' \
--nobuild'[do not execute any build stages (for spec testing purposes]' \
--nodeps'[do not verify build dependencies]' \
--nodigest"[don't verify package digest(s)]" \
--nosignature"[don't verify package signature(s)]" \
--rmsource'[remove the sources after the build]' \
--rmspec'[remove the spec file after the build]' \
--short-circuit'[skip straight to specified stage (-bc, -bi or -bb in PLD Linux]' \
--sign'[embed a GPG signature]' \
--target='[set target platform]:arch-vendor-os:' \
{'*-D','*--define='}'[define MACRO with value EXPR]:MACRO EXPR' \
{'*-E','*--eval='}'[print macro expansion of EXPR]:EXPR' \
'*--with[enable configure option for build]:option' \
'*--without[disable configure option for build]:option' \
"($cmds $b_cmds $t_cmds * $b_options)"--bcond'[find all --with/--without values]' \
--debug'[build packages with debug information]' \
"($cmds $b_cmds $t_cmds * $b_options)"--install-build-tree'[make all needed dirs for building binary rpms]' \
"(--clean $b_cmds $t_cmds --rebuild)"--recompile'[recompile source package]' \
"(--clean $b_cmds $t_cmds --recompile)"--rebuild'[rebuild source package]' \
"*:file:_files -g '(#i)*.(spec|srpm|tgz|tar|tar.gz|tar.bz2)(-.)'" && ret=0
PK [ԍ) functions/zfparamsnu W+A # function zfparams {
emulate -L zsh
[[ $curcontext = :zf* ]] || local curcontext=:zfparams
if [[ $# -eq 1 && $1 = - ]]; then
# Delete existing parameter set.
local sess=$ZFTP_SESSION key
key=${zfconfig[fcache_$sess]}
[[ -n $key ]] && unset $key
for key in fcache lastloc lastdir curdir otherdir otherargs lastuser; do
unset "zfconfig[${key}_${sess}]"
done
elif (( $# > 0 )); then
# Set to prompt for any user or password if not given.
# Don't worry about accounts here.
(( $# < 2 )) && 2='?'
if (( $# < 3 )); then
if [[ $2 = '?'* ]]; then
3="?Password on ${1}: "
else
3="?Password for ${2##\\?} on ${1}: "
fi
fi
fi
zftp params $*
# }
PK [i functions/_iconvnu W+A #compdef iconv
local expl curcontext="$curcontext" state line ret=1
local LOCPATH="${LOCPATH:-/usr/lib/nls/loc}"
local -U codeset
if _pick_variant gnu=GNU unix --version; then
local exargs="--list -? --help --usage --version -V"
_arguments -C -S -s \
"(-f --from-code $exargs)"{-f+,--from-code=}'[specify code set of input file]:code set:->codeset' \
"(-t --to-code $exargs)"{-t+,--to-code=}'[specify code set for output]:code set:->codeset' \
'(- 1)--list[list all character code sets]' \
"($exargs)-c[omit invalid characters from output]" \
"(-o --output $exargs)"{-o+,--output=}'[specify output file]:output file:_files' \
"(-s --silent --verbose $exargs)"{-s,--silent}'[suppress warnings]' \
"(-s --silent $exargs)--verbose[print progress information]" \
'(-)'{-\?,--help}'[display help information]' \
'(-)--usage[display a short usage message]' \
'(-)'{-V,--version}'[print program version]' \
'1:input file:_files' && return 0
if [[ $state = codeset ]]; then
if compset -P '*/'; then
_wanted option expl option compadd "$@" /TRANSLIT && ret=0
else
_wanted codesets expl 'code set' compadd "$@" \
-M 'm:{a-zA-Z}={A-Za-z} r:|-=* r:|=*' \
${${${(f)"$(_call_program codesets iconv --list)"}## #}%//} && ret=0
fi
fi
return ret
else
_arguments -C \
'-f[specify code set of input file]:code set:->codeset' \
'-t[specify code set for output]:code set:->codeset' \
'1:file:_files' && return 0
if [[ $state = codeset ]]; then
if [[ -f /usr/lib/iconv/iconv_data ]]; then # IRIX & Solaris
codeset=( ${${(f)"$( 1 )); then
print "Usage: zfmark [bookmark]" >&2
return 1
fi
if [[ -n $ZFTP_HOST ]]; then
bkmarks[$1]="${ZFTP_USER}@${ZFTP_HOST}:${ZFTP_PWD}"
elif [[ -n $zfconfig[lastloc_$ZFTP_SESSION] ]]; then
bkmarks[$1]="${zfconig[lastuser_$ZFTP_SESSION]}@\
${zfconfig[lastloc_$ZFTP_SESSION]}"
else
print "No current or recent ZFTP session to bookmark." >&2
return 1
fi
for line in ${(ko)bkmarks}; do
print -r- "$line ${bkmarks[$line]}"
done >$ZFTP_BMFILE
PK [St functions/define-composed-charsnu W+A # This is not a widget function, it is only a helper for insert-composed-char
# to cut down on resident memory use.
emulate -L zsh
setopt cbases
# The associative array zsh_accent_chars is indexed by the
# accent. The values are sets of character / Unicode pairs for
# the character with the given accent. The Unicode value is
# a hex index with no base discriminator; essentially a UCS-4 index
# with the leading zeroes suppressed.
typeset -gA zsh_accented_chars
# Save quite a lot of space by using short names internally.
local -A z
local a b
# grave
a=\!
z[$a]="\
A C0 E C8 I CC O D2 U D9 a E0 e E8 i EC o F2 u F9 N 1F8 n 1F9 \
"
# acute
a=\'
z[$a]="\
A C1 E C9 I CD O D3 U DA Y DD a E1 e E9 i ED o F3 u FA y FD C 106 c 107 \
L 139 l 13A N 143 n 144 R 154 r 155 S 15A s 15B Z 179 z 17A \
"
# circumflex
a=\>
z[$a]="\
A C2 E CA I CE O D4 U DB a E2 e EA i EE o F4 u FB C 108 c 109 G 11C g 11d \
H 124 h 125 J 134 j 135 S 15C s 15D W 174 w 175 Y 176 y 177 \
"
# tilde
a=\?
z[$a]="\
A C3 E 1EBC N D1 O D5 a E3 e 1EBD n F1 o F5 I 128 i 129 U 168 u 169 \
"
# macron (d-, D- give eth)
a=-
z[$a]="\
A 100 a 101 d F0 D D0 E 112 e 113 I 12a i 12b O 14C o 14D U 16A u 16B \
"
# breve
a=\(
z[$a]="\
A 102 a 103 E 114 e 115 G 11E g 11F I 12C i 12D O 14E o 14F U 16C u 16D "
# dot above, small i with no dot, or l with middle dot
a=.
z[$a]="\
\
C 10A c 10b E 116 e 117 G 120 g 121 I 130 i 131 L 13F l 140 Z 17B z 17C \
"
# diaeresis / Umlaut
a=:
z[$a]="\
A C4 E CB I CF O D6 U DC a E4 e EB i EF o F6 u FC y FF Y 178 \
"
# cedilla
a=,
z[$a]="\
C C7 c E7 G 122 g 123 K 136 k 137 L 13B l 13C N 145 n 146 R 156 r 157 \
S 15E s 15F T 162 t 163 \
"
# underline (_) would go here
# stroke through
a=/
z[$a]="\
O D8 o F8 D 110 d 111 H 126 h 127 L 141 l 142 T 166 t 167 b 180 \
"
# double acute
a=\"
z[$a]="\
O 150 o 151 U 170 u 171\
"
# ogonek
a=\;
z[$a]="\
A 104 a 105 E 118 e 119 I 12E i 12F U 172 u 173 \
"
# caron
a=\<
z[$a]="\
C 10C c 10D D 10E d 10F E 11A e 11B L 13D l 13E N 147 n 148 R 158 r 159 \
S 160 s 161 T 164 t 165 Z 17D z 17E \
"
# ring above
a=0
z[$a]="\
A C5 a E5 U 16E u 16F \
"
# hook above
a=2
z[$a]="\
A 1EA2 a 1EA3 E 1EBA e 1EBA \
"
# horn, also right quotation marks
a=9
z[$a]="\
O 1A0 o 1A1 U 1Af u 1b0 ' 2019 . 201A \" 201D : 201E \
"
# left quotation marks
a=6
z[$a]="\
' 2018 \" 201C \
"
# reversed quotation marks for convenience
a=\'
z[$a]+=" \
9 201B \
"
a=\"
z[$a]+=" \
9 201F \
"
# ligature with E
a=E
z[$a]="\
A C6 O 152 \
"
# ligature with e
a=e
z[$a]="\
a E6 o 153 \
"
# ligature with J
a=J
z[$a]="\
I 132 \
"
# ligature with j
a=j
z[$a]="\
i 133 \
"
# eszett
a=s
z[$a]="\
s DF \
"
# upper case thorn
a=H
z[$a]="\
T DE \
"
# lower case thorn
a=h
z[$a]="\
t FE \
"
# Arabic characters
a=\+
z[$a]+=" \
, 60C ; 61B ? 61F a 627 b 628 t 62A g 62C x 62E d 62F r 631 z 632 s 633 \
c 635 e 639 i 63A + 640 f 641 q 642 k 643 l 644 m 645 n 646 h 647 w 648 \
j 649 y 64A : 64B \" 64C = 64D / 64E ' 64F 1 650 3 651 0 652 p 67E v 6A4 \
"
a=\'
z[$a]+=" H 621"
z[a]+=" \
0 6F0 1 6F1 2 6F2 3 6F3 4 6F4 5 6F5 6 6F6 7 6F7 8 6F8 9 6F9 \
"
z[d]+=" d 636"
z[f]+=" g 6AF"
z[H]+=" a 623 w 624 y 626 z 638"
z[h]+=" a 625"
z[j]+=" t 637"
z[k]+=" t 62B h 62D d 630"
z[M]+=" a 622"
z[m]+=" t 629"
z[n]+=" s 634"
z[S]+=" a 670"
# Cyrillic characters
a=\=
z[$a]+=" \
A 410 B 411 V 412 G 413 D 414 E 415 Z 417 I 418 J 419 K 41A L 41B \
M 41C N 41D O 41E P 41F R 420 S 421 T 422 U 423 F 424 H 425 C 426 \
Y 42B \
a 430 b 431 v 432 g 433 d 434 e 435 z 437 i 438 j 439 k 43A l 43B \
m 43C n 43D o 43E p 43F r 440 s 441 t 442 u 443 f 444 h 445 c 446 \
y 44B \
"
z[%]+=" \
D 402 G 403 J 408 V 40E Z 416 C 427 S 428 z 436 c 447 s 448 \
d 452 g 453 j 458 v 45E \
"
z[A]+=" J 42F"
z[a]+=" j 44F"
z[c]+=" S 429 s 449"
z[E]+=" I 404 J 42D"
z[e]+=" j 44D i 454"
z[I]+=" I 406 Y 407"
z[i]+=" i 456 y 457"
z[J]+=" L 409 N 40A K 40C"
z[j]+=" l 459 n 45A k 45C"
z[O]+=" I 401"
z[o]+=" i 451"
z[S]+=" D 405"
z[s]+=" T 40B d 455 t 45B"
z[U]+=" J 42E"
z[u]+=" j 44E"
z[Z]+=" D 40F"
z[z]+=" d 45F"
a=\"
z[$a]+=" = 42A % 42C"
a=\'
z[$a]+=" = 44A % 44C"
z[3]+=" \
Y 462 y 463 O 46A o 46B F 472 f 473 V 474 v 475 C 480 c 481 \
G 490 g 491 \
"
# Greek characters
a=%
z[$a]+=" \
A 386 E 388 Y 389 I 38A O 38C U 38E W 38F \
a 3Ac e 3Ad y 3Ae i 3AF \
o 3CC u 3CD w 3CE ' 3F4 \
"
a=\*
z[$a]+=" \
A 391 B 392 G 393 D 394 E 395 Z 396 Y 397 H 398 I 399 K 39A L 39B \
M 39C N 39D C 39E O 39F P 3A0 R 3A1 S 3A3 T 3A4 U 3A5 F 3A6 X 3A7 \
Q 3A8 W 3A9 J 3AA V 3Ab \
a 3B1 b 3B2 g 3B3 d 3B4 e 3B5 z 3B6 y 3b7 h 3B8 i 3B9 k 3Ba l 3BB \
m 3BC n 3BD c 3BE o 3BF p 3C0 r 3C1 s 3C3 t 3C4 u 3C5 f 3C6 x 3C7 \
q 3C8 w 3C9 j 3CA v 3CB \
"
a=3
z[$a]+=" \
i 390 u 3B0 T 3DA t 3DB M 3DC m 3DD K 3DE k 3DF P 3E0 p 3E1 j 3F5 \
"
z[s]+=" * 3C2"
z[G]+=" ' 3D8 , 3D9"
# Hebrew characters
a=+
z[$a]+=" \
A 5D0 B 5D1 G 5D2 D 5D3 H 5D4 W 5D5 Z 5D6 X 5D7 J 5D9 K 5DB L 5Dc M 5dE \
N 5E0 S 5E1 E 5E2 P 5E4 Q 5E7 R 5E8 T 5EA \
"
a=j
z[$a]+=" T 5D8 Z 5E5"
a=%
z[$a]+=" K 5DA M 5DD N 5DF P 5E3 "
a=J
z[$a]+=" Z 5e6"
a=h
z[$a]+=" S 5e9"
typeset -i 16 -Z 4 ia
typeset -i 16 -Z 6 iuni
# Extended width characters ^A, ^B, ... (not RFC1345)
for (( ia = 0x21; ia < 0x7f; ia++ )); do
(( iuni = ia + 0xff00 - 0x20 ))
eval a="\$'\\x${ia##0x}'"
z[$a]+=" ^ ${iuni##0x}"
done
# Card suits: here first character is the interesting one
for a b in S 2660 H 2661 D 2662 C 2663; do
z[$a]+=" c $b"
done
# Music: ditto
for a b in d 2669 8 266a 2 266b b 266d x 266e X 266f; do
z[$a]+=" M $b"
done
# Remaining characters are handled as separate pairs.
# We need to remember that the assoc array is keyed by the second character.
# Left square bracket
a=\(
z[$a]+=" < 5B"
# Reverse solidus (backslash to you and me).
a=/
z[$a]+=" / 5C"
# Right square bracket, circumflex
a=\>
z[$a]+=" ) 5D ' 5E"
# Grave a
a=\!
z[$a]+=" ' 60"
# diglyphys for (usually) standard characters {, |, }, ~
a=\!
z[$a]+=" ( 7B"
z[$a]+=" ! 7C"
a=\)
z[$a]+=" ! 7D"
a=\?
z[$a]+=" ' 7E"
# non-breaking space
z[S]+=" N A0"
# inverted exclamation mark
z[I]+=" ! A1"
# cent
z[t]+=" C A2"
# pound sterling
z[d]+=" P A3"
# currency
z[u]+=" C A4"
# yen
z[e]+=" Y A5"
# broken bar
z[B]+=" B A6"
# section
z[E]+=" S A7"
# lonely diaeresis
z[:]+=" ' A8"
# copyright
z[o]+=" C A9"
# spanish feminine ordinal
z[a]+=" - AA"
# left guillemet
a=\<
z[$a]+=" < AB"
z[O]+=" N AC"
# soft hyphen
z[-]+=" - AD"
# registered
z[g]+=" R AE"
# lonely macron
z[m]+=" ' AF"
# degree
z[G]+=" D B0"
# +/-
z[-]+=" + B1"
# superscripts
z[S]+=" 2 B2 3 B3"
# lonely acute
a=\'
z[$a]+=" ' B4"
# micro
z[y]+=" M B5"
# pilcrow (paragraph)
z[I]+=" P B6"
# Middle dot
z[M]+=" . B7"
# Lonely cedilla
z[,]+=" ' B8"
# Superscript one
z[S]+=" 1 B9"
# spanish masculine ordinal
z[o]+=" - BA"
# right guillemet
a=\>
z[$a]+=" > BB"
# fractions
z[4]+=" 1 BC 3 BE"
z[2]+=" 1 BD"
# inverted question mark
z[I]+=" ? BF"
# multiplication
z[X]+=" * D7"
# division
z[:]+=" - F7"
# kra
z[k]+=" k 138"
# apostrophe n
z[n]+=" ' 149"
# Lappish ng
z[G]+=" N 14A"
z[g]+=" n 14B"
# OI
z[I]+=" O 1A2"
z[i]+=" o 1A3"
# yr
z[r]+=" y 1A6"
# ezh
z[D]+=" E 1B7"
# euro (I invented this but it's logical)
z[u]+=" E 20AC"
# hyphen
z[1]+=" - 2010"
# en dash
z[N]+=" - 2013"
# em dash
z[M]+=" - 2014"
# horizontal bar, vertical and horizontal ellipsis
z[3]+=" - 2015 : 22EE . 22EF"
# double vertical line, double low line
z[2]+=" ! 2016 = 2017"
# dagger and double dagger
z[-]+=" / 2020"
z[=]+=" / 2021"
# per mille
z[0]+=" % 2030"
# For all, partial derivative, there exists, empty set
z[A]+=" F 2200"
z[P]+=" d 2202"
z[E]+=" T 2203"
z[0]+=" / 2205"
# Increment, del (nabla), element of, contains, product, sum
z[E]+=" D 2206"
z[B]+=" N 2207"
z[-]+=" ( 2208"
a=\)
z[$a]+=" - 220b"
z[P]+=" * 220F"
z[Z]+=" + 2211"
# Minus, minus or plus, asterisk, ring, bullet
z[2]+=" - 2212"
z[+]+=" - 2213"
z[-]+=" * 2217"
z[b]+=" O 2218 S 2219"
# square root, proportional to, infinity
z[T]+=" R 221A"
a=\(
z[$a]+=" 0 221D"
z[0]+=" 0 221E"
# Female and male
z[m]+=" F 2640"
z[l]+=" M 2642"
zsh_accented_chars=("${(kv)z[@]}")
PK [= functions/zflsnu W+A # function zfls {
emulate -L zsh
[[ $curcontext = :zf* ]] || local curcontext=:zfls
# directory hack, see zfcd
if [[ $1 = $HOME || $1 = $HOME/* ]]; then
1="~${1#$HOME}"
fi
zfautocheck -d
zftp ls $*
# }
PK [\gN functions/_x_selection_timeoutnu W+A #autoload
local x="$argv[(I)-X]"
if (( x )); then
_message -r "$argv[x + 1]"
else
_message -e values 'selection timeout'
fi
PK [J J functions/_ztodonu W+A #compdef ztodo
_ztodo_entries() {
local -a entries
entries=(${${${${(f)"$(_call_program ztodo-entry ztodo list)"}#[[:space:]]##}/:[[:space:]]##/:}%:[[:space:]]#})
_describe -t ztodo-entry 'todo entry' entries "$@"
}
local -a args reply
args=(
/$'[^\0]#\0'/
)
local -a todo_entry
todo_entry=(
/$'[^\0]#\0'/ ':ztodo-entry:todo entry:_ztodo_entries'
)
_regex_words \
commands "ztodo command" \
'add:add entry' \
'del:delete entry:$todo_entry' \
'clear:clear todo list' \
'list:show todo list'
args+=("$reply[@]")
_regex_arguments _ztodo "${args[@]}"
_ztodo "$@"
PK [Q; functions/_typesetnu W+A #compdef autoload declare export functions integer float local readonly typeset
local expl state line func i use curcontext="$curcontext"
local fopts="-f -k -z"
local popts="-A -E -F -L -R -T -Z -a -g -h -H -i -l -r -x"
local -A allargs opt_args
local -a args
allargs=(
A "($fopts -E -F -L -R -T -U -Z -a -i -m)-A[specify that arguments refer to associative arrays]"
E "($fopts -A -F -L -R -T -U -Z -a -i -m)-E[floating point, use engineering notation on output]"
F "($fopts -A -E -L -R -T -U -Z -a -i -m)-F[floating point, use fixed point decimal on output]"
L "($fopts -A -E -F -i)-L+[left justify and remove leading blanks from value]:width"
R "($fopts -A -E -F -i)-R+[right justify and fill with leading blanks]:width"
T "($fopts -A -E -F -a -g -h -i -l -m -t)-T[tie scalar to array]"
U '(-A -E -F -i)-U[keep array values unique and suppress alias expansion for functions]'
Uf '-U[suppress alias expansion for functions]'
Up '(-E -F -i)-+U[keep array values unique]'
X '+X[immediately autoload function]'
Z "($fopts -A -E -F -i)-Z+[right justify and fill with leading zeros]:width"
a "($fopts -A -E -F -T -i)-a[specify that arguments refer to arrays]"
f "($popts)-f[specify that arguments refer to functions]"
g "($fopts -T)-+g[do not restrict parameter to local scope]"
h "($fopts -T)-+h[hide specialness of parameter]"
H "($fopts -T)-+H[hide value of parameter in listings]"
i "($fopts -A -E -F -T)-+i[represent internally as an integer]"
k "($popts -w -z)-+k[mark function for ksh-style autoloading]"
l "($popts -T)-l[convert the value to lowercase]"
m '(-A -E -F -T -i)-m[treat arguments as patterns]'
p '-p[output parameters in form of calls to typeset]'
r '(-f)-+r[mark parameters as readonly]'
t '(-T)-+t[tag parameters and turn on execution tracing for functions]'
tf '(-T)-+t[turn on execution tracing for functions]'
tp '(-T)-+t[tag parameters]'
u '-u[convert the value to uppercase or mark function for autoloading]'
uf '-u[mark function for autoloadling]'
up '-u[convert the value to uppercase]'
w '(-k -z)-w[specify that arguments refer to files compiled with zcompile]'
x "($fopts)-+x[export parameter]"
z "($popts -k -w)-+z[mark function for zsh-style autoloading]"
)
use="AEFHLRTUZafghiklmprtuxz"
case ${service} in
autoload)
use="UXktwz"
func=f
;;
float) use="EFHghlprtux";;
functions)
use="Ukmtuz"
func=f
;;
integer)
use="Hghilprtux"
allargs[i]='-i[specify arithmetic base for output]' \
;;
readonly) use="${use/r/}" ;;
local) use="${use/[fkz]/}" ;&
export) use="${${use//[gkz]/}/x/}" ;;
esac
[[ -z "${words[(r)-*[aA]*]}" ]] || func=p
[[ -z "${words[(r)-*f*]}" ]] || func=f
for ((i=1;i<=$#use;++i)); do
args+=( ${allargs[${use[$i]}${${(s::)use[$i]}[(r)[Uut]]:+$func}]} )
done
_arguments -C -s -A "-*" -S "${args[@]}" '*::vars:= ->vars_eq'
if [[ "$state" = vars_eq ]]; then
if [[ $func = f ]]; then
if (( $+opt_args[-w] ));then
_wanted files expl 'zwc file' _files -g '*.zwc(-.)'
elif [[ $service = autoload || -n $opt_args[(i)-[uU]] ]]; then
args=(${^fpath}/*(:t))
# Filter out functions already loaded or marked for autoload.
args=(${args:#(${(kj.|.)~functions})})
_wanted functions expl 'shell function' compadd -a args
else
_functions
fi
elif [[ "$PREFIX" = *\=* ]]; then
compstate[parameter]="${PREFIX%%\=*}"
compset -P 1 '*='
_value
elif (( $+opt_args[-a] || $+opt_args[-A] )); then
_parameters -q
elif (( $+opt_args[-T] )); then
_arguments \
':scalar parameter:_parameters -g "*scalar*" -q -S "="' \
':array parameter:_parameters -g "*array*"' \
':separator character'
else
_parameters -q -S '='
fi
fi
PK [JC
functions/_gzipnu W+A #compdef gzip gunzip gzcat=gunzip -redirect-,<,gunzip=gunzip -redirect-,>,gzip=gunzip -redirect-,<,gzip=gzip -value-,GZIP,-default-
local decompress files expl curcontext="$curcontext" state line ret=1
typeset -A opt_args
files=( '*:files:->files' )
case "$service" in
*GZIP*)
compset -q
words=( fake "$words[@]" )
(( CURRENT++ ))
files=()
;&
gunzip|zcat)
decompress=yes
;&
gzip)
_arguments -C -s -S \
'(--to-stdout --stdout)-c[write on standard output]' \
'(-c --stdout)--to-stdout[write on standard output]' \
'(-c --to-stdout)--stdout[write on standard output]' \
'(--decompress --uncompress)-d[decompress]' \
'(-d --uncompress)--decompress[decompress]' \
'(-d --decompress)--uncompress[decompress]' \
'(--force)-f[force overwrite]' \
'(-f)--force[force overwrite]' \
'(--help)-h[display help message]' \
'(-h)--help[display help message]' \
'(--list)-l[list compressed file contents]' \
'(-l)--list[list compressed file contents]' \
'(--license)-L[display software license]' \
'(-L)--license[display software license]' \
'(--no-name)-n[do not save or restore the original name and time stamp]' \
'(-n)--no-name[do not save or restore the original name and time stamp]' \
'(--name)-N[save or restore the original name and time stamp]' \
'(-N)--name[save or restore the original name and time stamp]' \
'(--quiet --silent)-q[suppress all warnings]' \
'(-q --silent)--quiet[suppress all warnings]' \
'(-q --quiet)--silent[suppress all warnings]' \
'(--recursive)-r[operate recursively on directories]' \
'(-r)--recursive[operate recursively on directories]' \
'(--suffix)-S+[specify suffix for compressed files]:suffix:' \
'(-S)--suffix=[specify suffix for compressed files]:suffix:' \
'(--test)-t[test compressed file integrity]' \
'(-t)--test[test compressed file integrity]' \
'(--verbose)-v[verbose mode]' \
'(-v)--verbose[verbose mode]' \
'(--version)-V[display version number]' \
'(-V)--version[display version number]' \
'( -1 -2 -3 -4 -5 -6 -7 -8 -9 --best)--fast' \
'(--fast -2 -3 -4 -5 -6 -7 -8 -9 --best)-1' \
'(--fast -1 -3 -4 -5 -6 -7 -8 -9 --best)-2' \
'(--fast -1 -2 -4 -5 -6 -7 -8 -9 --best)-3' \
'(--fast -1 -2 -3 -5 -6 -7 -8 -9 --best)-4' \
'(--fast -1 -2 -3 -4 -6 -7 -8 -9 --best)-5' \
'(--fast -1 -2 -3 -4 -5 -7 -8 -9 --best)-6' \
'(--fast -1 -2 -3 -4 -5 -6 -8 -9 --best)-7' \
'(--fast -1 -2 -3 -4 -5 -6 -7 -9 --best)-8' \
'(--fast -1 -2 -3 -4 -5 -6 -7 -8 --best)-9' \
'(--fast -1 -2 -3 -4 -5 -6 -7 -8 -9 )--best' \
"$files[@]" && ret=0
;;
esac
case "$state" in
files)
(( $+opt_args[-d] || $+opt_args[--decompress] || $+opt_args[--uncompress] ||
$+opt_args[-l] || $+opt_args[--list] ||
$+opt_args[-t] || $+opt_args[--test] )) &&
decompress=yes
if (( $+opt_args[-r] || $+opt_args[--recursive] )); then
if [[ -z "$decompress" ]]; then
_description directories expl 'directory to compress'
_files "$expl[@]" -/ && return
else
_description directories expl 'compressed directory'
_files "$expl[@]" -/ && return
fi
else
if [[ -z "$decompress" ]]; then
_description files expl 'file to compress'
_files "$expl[@]" -g '^*.(([tT]|)[gG]|)[zZ](-.)' && return
else
_description files expl 'compressed file'
_files "$expl[@]" -g '*.(([tT]|)[gG]|)[zZ](-.)' && return
fi
fi
;;
esac
return ret
PK [w!@ functions/_history_modifiersnu W+A #autoload
# Complete history-style modifiers; the first : will have
# been matched and compset -p 1'd.
# The single argument is the type of context:
# h history
# q glob qualifier
# p parameter
local -a list
local type=$1 delim expl
integer global
while true; do
if [[ -n $PREFIX ]]; then
local char=$PREFIX[1]
global=0
compset -p 1
case $char in
([hretpqQxlu\&])
# single character modifiers
;;
(s)
# match delimiter string delimiter string delimiter
if [[ -z $PREFIX ]]; then
_delimiters modifier-s
return
fi
delim=$PREFIX[1]
compset -p 1
if ! compset -P "[^${delim}]#${delim}[^${delim}]#${delim}"; then
if compset -P "[^${delim}]#${delim}"; then
_message "replacement string"
else
_message "original string"
fi
return
fi
;;
(g)
global=1
continue
;;
esac
# modifier completely matched, see what's next.
compset -P : && continue
# if there's something other than colon next, bummer
[[ -n $PREFIX ]] && return 1
list=("\::modifier")
[[ $type = q ]] && list+=("):end of qualifiers")
# strictly we want a normal suffix if end of qualifiers
_describe -t delimiters "delimiter" list -Q -S ''
return
else
list=(
"s:substitute string"
"&:repeat substitution"
)
if (( ! global )); then
list+=(
"a:absolute path"
"A:absolute path resolving symbolic links"
"g:globally apply s or &"
"h:head - strip trailing path element"
"t:tail - strip directories"
"r:root - strip suffix"
"e:leave only extension"
"Q:strip quotes"
"l:lower case all words"
"u:upper case all words"
)
[[ $type = h ]] && list+=(
"p:print without executing"
"x:quote words, breaking on whitespace"
)
[[ $type = [hp] ]] && list+=("q:quote to escape further substitutions")
fi
_describe -t modifiers "modifier" list -Q -S ''
return
fi
done
PK [? ? functions/_perl_modulesnu W+A #compdef pmpath pmvers pmdesc pmload pmexp pmeth pmls pmcat pman pmfunc podgrep podtoc podpath
#
# _perl_modules - zsh completion function
#
# Adam Spiers
#
# Calculate all installed Perl modules. The result is cached
# for future use.
#
# Options:
#
# -t[types]: indicate file types; currently the only one is -tP,
# to include .pod files as well as modules.
#
# --perl-hierarchy=...: restrict results to modules under this hierarchy.
# Note that this does not affect the filesystem searching or caching,
# which always collect all results on the premise that anyone using
# completion of Perl modules will use the results in various contexts,
# so this only affects the results compadd'd.
#
# --strip-prefix: when using --perl-hierarchy, strip off that prefix when
# passing to compadd.
#
# All other options passed onto compadd.
#
# Available styles:
#
# * try-to-use-pminst
#
# Set this if you have pminst and want to use it. The zsh code
# actually produces better results because pminst misses modules of
# the form Foo/bar/Baz.pm through its clumsy -d && /^[A-Z]/ && prune
# algorithm (the zsh code does almost the same, but only misses
# modules which don't begin with an uppercase letter).
_perl_modules () {
# Set a sensible default caching policy. This has to be done inside
# this function otherwise we wouldn't know the context for the style.
local update_policy sufpat=".pm" with_pod
local restrict_hierarchy=''
local -i strip_perl_prefix
zstyle -s ":completion:${curcontext}:" cache-policy update_policy
if [[ -z "$update_policy" ]]; then
zstyle ":completion:${curcontext}:" cache-policy \
_perl_modules_caching_policy
fi
if [[ -n $argv[(r)--perl-hierarchy=*] ]]; then
restrict_hierarchy="${argv[(r)--perl-hierarchy=*]#--perl-hierarchy=}"
restrict_hierarchy="${restrict_hierarchy%::}::"
argv[(r)--perl-hierarchy=*]=()
fi
if [[ -n $argv[(r)--strip-prefix] ]]; then
strip_perl_prefix=1
argv[(r)--strip-prefix]=()
fi
if [[ -n $argv[(r)-tP] ]]; then
argv[(r)-tP]=()
sufpat="(.pm|.pod)"
with_pod=_with_pod
fi
local perl=${words[1]%doc} perl_modules
if whence $perl >/dev/null; then
perl_modules=_${${perl//[^[:alnum:]]/_}#_}_modules$with_pod
elif (( ${+commands[perl]} )); then
perl=perl
perl_modules=_perl_modules$with_pod
else
perl=
perl_modules=_unknown_perl_modules$with_pod
fi
if ( [[ ${(P)+perl_modules} -eq 0 ]] || _cache_invalid $perl_modules ) &&
! _retrieve_cache ${perl_modules#_};
then
if zstyle -t ":completion:${curcontext}:modules" try-to-use-pminst &&
(( ${+commands[pminst]} ));
then
set -A $perl_modules $(pminst)
else
local inc libdir new_pms
if [[ ${+perl} -eq 1 ]]; then
inc=( $( $perl -e 'print "@INC"' ) )
else
# If perl isn't there, one wonders why the user's trying to
# complete Perl modules. Maybe her $path is wrong?
_message "didn't find perl on \$PATH; guessing @INC ..."
inc=( /usr/lib/perl5{,/{site_perl/,}<5->.([0-9]##)}(N)
${(s.:.)PERL5LIB} )
fi
typeset -agU $perl_modules # $perl_modules is global, no duplicates
set -A $perl_modules
for libdir in $inc; do
# Ignore cwd - could be too expensive e.g. if we're near /
if [[ $libdir == '.' ]]; then continue; fi
# Find all modules
if [[ -d $libdir && -x $libdir ]]; then
new_pms=( $libdir/{[A-Z]*/***/,}*${~sufpat}~*blib* )
new_pms=( "${(@)new_pms##$libdir/##}" )
fi
# Convert to Perl nomenclature
new_pms=( ${new_pms:r:fs#/#::#} )
set -A $perl_modules $new_pms ${(P)perl_modules}
done
fi
_store_cache ${perl_modules#_} $perl_modules
fi
# Nothing above here should have filtered the results per-caller, so that
# the cache is always complete. From here on, it's safe to filter.
local -a perl_subset
if [[ -n $restrict_hierarchy ]]; then
perl_subset=( ${(PM)perl_modules:#${restrict_hierarchy}*} )
if (( strip_perl_prefix )); then
perl_subset=( ${perl_subset#$restrict_hierarchy} )
fi
perl_modules=perl_subset
fi
local expl
_wanted modules expl 'Perl module' compadd "$@" -a - $perl_modules
}
_perl_modules_caching_policy () {
local _perllocals
local -a oldp
# rebuild if cache is more than a week old
oldp=( "$1"(mw+1) )
(( $#oldp )) && return 0
_perllocals=( /usr/lib/perl5/**/perllocal.pod )
if (( $#_perllocals )); then
for pod in $_perllocals; do
[[ "$pod" -nt "$1" ]] && return 0
done
fi
return 1
}
_perl_modules "$@"
PK [Fׇ functions/_xwitnu W+A #compdef xwit
local word=$'[^\0]#\0'
local nul=$'\0'
local guard='-_xwit_guard ${match[1]%?}'
_xwit_guard () {
local opt="$1" o
(( no[$opt]-- ))
for o in ${=eo[$opt]}; do
no[$o]=0
done
:
}
_xwit_compopts () {
local expl
local opt tmp
tmp=()
for opt in ${(k)no[(R)*~0]}
do
if (( $+desc[$opt] )); then
tmp=("$tmp[@]" "$opt:$desc[$opt]")
else
tmp=("$tmp[@]" "$opt")
fi
done
_describe -o options tmp -- ||
_describe -o options allopts --
# compadd "$expl[@]" - ${(k)no[(R)*~0]} ||
# compadd "$expl[@]" - ${(k)no}
}
_regex_arguments _xwit_parse \
"/$word/" \
\( "/-display$nul/" "$guard" "/$word/" ':option-display:display:_x_display' \
\| "/-(sync|pop|open|iconify|unmap|root|current|select|(no|)(save|backingstore|saveunder))$nul/" "$guard" \
\| "/-resize$nul/" "$guard" \
"/$word/" ':option-resize-width:width:' \
"/$word/" ':option-resize-height:height:' \
\| "/-rows$nul/" "$guard" "/$word/" ':option-rows:rows:' \
\| "/-columns$nul/" "$guard" "/$word/" ':option-columns:columns:' \
\| "/-move$nul/" "$guard" \
"/$word/" ':option-move-x:x:' \
"/$word/" ':option-move-y:y:' \
\| "/-rmove$nul/" "$guard" \
"/$word/" ':option-rmove-x:x:' \
"/$word/" ':option-rmove-y:y:' \
\| "/-warp$nul/" "$guard" \
"/$word/" ':option-warp-x:x:' \
"/$word/" ':option-warp-y:y:' \
\| "/-rwarp$nul/" "$guard" \
"/$word/" ':option-rwarp-x:x:' \
"/$word/" ':option-rwarp-y:y:' \
\| "/-colormap$nul/" "$guard" \
"/$word/" ':option-colormap:colormapid:_x_colormapid' \
\| "/-(name|label)$nul/" "$guard" \
"/$word/" ':option-name:name:_x_name' \
\| "/-iconname$nul/" "$guard" \
"/$word/" ':option-name:iconname:_x_name' \
\| "/-bitmap$nul/" "$guard" \
"/$word/" ':option-bitmap:bitmap file:_files -g *.xbm\(-.\)' \
\| "/-mask$nul/" "$guard" \
"/$word/" ':option-mask:mask file:_files -g *.xbm\(-.\)' \
\| "/-iconmove$nul/" "$guard" \
"/$word/" ':option-iconmove-x:x:' \
"/$word/" ':option-iconmove-y:y:' \
\| "/-id$nul/" "$guard" "/$word/" ':option-id:window id:_x_window' \
\| "/-(no|)keyrepeat$nul/" "$guard" \
\( "/[0-9]##$nul/" ':option-keyrepeat-keycode:keycode:{[[ -prefix [0-9]# ]] && _message -e keycodes keycode}' \
\( "/-$nul/" "/[0-9]##$nul/" \
':option-keyrepeat-last-keycode:last keycode:{[[ -prefix [0-9]# ]] && _message -e keycodes "last keycode"}' \| \) \) \# \
\| "/-names$nul/" "$guard" \
"/$word/" ':option-names:window name:_x_window -n' \# \
\| "/[]/" ':options:option:_xwit_compopts' \
\) \#
_xwit () {
local expl allopts
typeset -A desc no eo
desc=(
-display 'specify display'
-sync 'synchronous mode'
-pop 'pop up window'
-open 'pop up window'
-iconify 'iconify window'
-unmap 'iconify window by unmapping'
-root 'select the root window'
-current 'select the window under current pointer'
-select 'select the window interactively'
-save 'activate screen saver'
-backingstore 'enable backingstore'
-saveunder 'enable saveunder'
-nosave 'reset screen saver'
-nobackingstore 'disable backingstore'
-nosaveunder 'disable saveunder'
-resize 'resize window'
-rows 'resize window rows'
-columns 'resize window columns'
-move 'move window'
-rmove 'move window relatively'
-warp 'warp pointer'
-rwarp 'warp pointer relatively'
-colormap 'install colormap'
-name 'specify window name'
-label 'specify window name'
-iconname 'specify icon name'
-bitmap 'specify icon bitmap'
-mask 'specify icon mask'
-iconmove 'move icon'
-id 'select the window by window-ID'
-keyrepeat 'enable keyrepeat'
-nokeyrepeat 'disable keyrepeat'
-names 'select the window by name'
)
no=(
-display 1
-sync 1
-pop 1 -open 0
-iconify 1
-unmap 1
-root 1
-current 1
-select 1
-save 1
-backingstore 1
-saveunder 1
-nosave 1
-nobackingstore 1
-nosaveunder 1
-resize 1
-rows 1
-columns 1
-move 1
-rmove 1
-warp 1
-rwarp 1
-colormap 1
-name 1 -label 0
-iconname 1
-bitmap 1
-mask 1
-iconmove 1
-id 1
-keyrepeat 1
-nokeyrepeat 1
-names 1
)
allopts=()
for opt in ${(k)no}
do
if (( $+desc[$opt] )); then
allopts=("$allopts[@]" "$opt:$desc[$opt]")
else
allopts=("$allopts[@]" "$opt")
fi
done
eo=(
-root '-root -current -select -id -names'
-current '-root -current -select -id -names'
-select '-root -current -select -id -names'
-id '-root -current -select -id -names'
-names '-root -current -select -id -names'
)
_xwit_parse
}
_xwit "$@"
PK [3U U functions/VCS_INFO_get_data_p4nu W+A ## vim:ft=zsh
## perforce support by: Phil Pennock
## Distributed under the same BSD-ish license as zsh itself.
# XXX: This soooo needs to be cached
setopt localoptions extendedglob
local p4base a b
local -A p4info
local -xA hook_com
${vcs_comm[cmd]} info | while IFS=: read a b; do p4info[${a// /_}]="${b## #}"; done
p4base=${vcs_comm[basedir]}
# We'll use the client name as the branch; close enough.
local p4branch change
# We'll use the latest change number to which the hierarchy from
# here down is synced as the revision.
# I suppose the following might be slow on a tortuous client view.
change="${${$(${vcs_comm[cmd]} changes -m 1 ...\#have)##Change }%% *}"
zstyle -s ":vcs_info:${vcs}:${usercontext}:${rrn}" branchformat p4branch || p4branch="%b:%r"
hook_com=( branch "${p4info[Client_name]}" revision "${change}" )
if VCS_INFO_hook 'set-branch-format' "${p4branch}"; then
zformat -f p4branch "${p4branch}" "b:${hook_com[branch]}" "r:${hook_com[revision]}"
else
p4branch=${hook_com[branch-replace]}
fi
hook_com=()
VCS_INFO_formats '' "${p4branch}" "${p4base}" '' '' "$change" ''
return 0
PK ['p p functions/_graphicsmagicknu W+A #compdef gm
local state line expl formats curcontext="$curcontext"
typeset -A opt_args
formats=jpg:jpeg:tiff:miff:ras:bmp:cgm:dcx:ps:eps:fig:fits:fpx:gif:mpeg:pbm:pgm:ppm:pcd:pcl:pdf:pcx:png:rad:rgb:rgba:rle:sgi:html:shtml:tga:ttf:uil:xwd:xbm:xpm:yuv
if (( $# )); then
_files "$@" -g "*.(#i)(${~formats//:/|})(-.)"
return
fi
if (( CURRENT == 2 )); then
compadd animate benchmark compare composite conjure convert display help identify import mogrify montage version
else
case "$words[2]" in
(display)
_arguments -M 'm:{a-z}={A-Z}' \
'*-backdrop[use full screen]' \
'*-background:color:_x_color' \
'*-border:border size (x)' \
'*-bordercolor:color:_x_color' \
'*-borderwidth:geometry' \
'*-cache[specify memory available to the pixel cache]:memory (MB)' \
'*-colormap:colormap type:(shared private)' \
'*-colors:preferred number of colors' \
'*-colorspace:colorspace type:(GRAY OHTA RGB Transparent XYZ YCbCr YIQ YPbPr YUV CMYK)' \
'*-comment:comment string' \
'*-compress:image compression type:(None BZip Fax Group4 JPEG LZW RunlengthEncoded Zip)' \
'*-contrast[enhance contrast]' \
'*+contrast[reduce contrast]' \
'*-crop:crop image (x{+-}{+-}{%%})' \
'*-debug' \
'*-delay:delay for next image (1/100ths of a second)' \
'*-density:image resolution (x in pixels)' \
'*-despeckle[reduce speckles in image]' \
'*-display:display:_x_display' \
'*-dispose:GIF disposal method:((0:no\ disposal 1\:don'\''t\ dispose\ between\ frames 2\:overwrite\ frame\ with\ background\ color 3\:overwrite\ with\ previous\ frame))' \
'*-dither[apply dithering]' \
'*-edge:edge detection factor (0.0 - 99.9%%)' \
'*-endian:image endianess:(MSB LSB)' \
'*+endian' \
'*-enhance[enhance noisy image]' \
'*-filter:filter type for resizing:(Point Box Triangle Hermite Hanning Hamming Blackman Gaussian Quadratic Cubic Catrom Mitchell Lanczos Bessel Sinc)' \
'*-flip[vertical mirror image]' \
'*-flop[horizontal mirror image]' \
'*-font:font:_x_font' \
'*-foreground:color:_x_color' \
'*-frame:border dimensions (x++)' \
'*-gamma[gamma correction level]:gamma correction level ( or //)' \
'*+gamma[gamma correction level (don'\''t change pixels)]:gamma correction level ( or //)' \
'*-geometry:window geometry (x{+-}{+-}{%%}{!}{<}{>})' \
'(- *)-help[display help information]' \
'*-iconGeometry:geometry:_x_geometry' \
'*-iconic' \
'*-immutable[disallow image modifications]' \
'*-interlace:interlacing scheme:(None Line Plane Partition)' \
'*-label:label string' \
'*-magnify:factor' \
'*-map:colormap type for display:(best default gray red green blue)' \
'*-matte[store matte channel]' \
'*-mattecolor:color:_x_color' \
'*-monochrome[transform to black and white]' \
'*-name:image name' \
'*-negate[invert image]' \
'*+negate[invert only grayscale]' \
'*-noop' \
'*-page:geometry of image canvas (x{+-}{+-}{%%}{!}{<}{>}):(11x17 Ledger Legal Letter LetterSmall ArchE ArchD ArchC ArchB ArchA A0 A1 A2 A3 A4 A4Small A5 A6 A7 A8 A9 A10 B0 B1 B2 B3 B4 B5 C0 C1 C2 C3 C4 C5 C6 Flsa Flse HalfLetter)' \
'*-quality:JPEG/MIFF/PNG compression level' \
'*-raise:3-D edges (raised)' \
'*+raise:3-D edges (lowered)' \
'*-remote:remote command (file name):_imagemagick' \
'*-roll:image roll offset ({+-}{+-})' \
'*-rotate:rotation (degrees{<}{>})' \
'*-sample:scale factors (x)' \
'*-sampling_factor:sampling factor (x)' \
'*-scenes:image scene number' \
'*-segment:cluster pixel number' \
'*-shared_memory' \
'*-sharpen:sharpening factor (0.0 - 99.9%%)' \
'*-size:image size (x+)' \
'*-text_font:font:_x_font' \
'*-texture:background texture image:_imagemagick' \
'*-title:image title' \
'*-treedepth:color reduction tree depth' \
'*-trim' \
'*-update:redisplay test time (seconds)' \
'*-use_pixmap' \
'*-verbose' \
'*-visual:visual to use for display:(StaticGray GrayScale StaticColor PseudoColor TrueColor DirectColor default)' \
'*-window:window ID to display image in:_x_window' \
'*-window_group' \
'*-write:output filename:_files' \
'*:picture file:_imagemagick' && return
;;
(animate)
_arguments -M 'm:{a-z}={A-Z}' \
'*-backdrop[use full screen]' \
'*-background:color:_x_color' \
'*-bordercolor:color:_x_color' \
'*-borderwidth:geometry' \
'*-cache[specify memory available to the pixel cache]:memory (MB)' \
'*-chop:x{+-}{+-}' \
'*-colormap:colormap type:(Shared Private)' \
'*-colors:preferred number of colors' \
'*-colorspace:colorspace type:(GRAY OHTA RGB Transparent XYZ YCbCr YIQ YPbPr YUV CMYK)' \
'*-crop:crop image (x{+-}{+-})' \
'*-debug' \
'*-delay:delay for next image (1/100ths of a second)' \
'*-density:image resolution (x in pixels)' \
'*-depth:image depth:(8 16)' \
'*-display:display:_x_display' \
'*-dither[apply dithering]' \
'*-font:font:_x_font' \
'*-foreground:color:_x_color' \
'*-gamma[gamma correction level]:gamma correction level ( or //)' \
'*+gamma[gamma correction level (don'\''t change pixels)]:gamma correction level ( or //)' \
'*-geometry:window geometry (x{+-}{+-}{%%}{!}{<}{>})' \
'(- *)-help[display help information]' \
'*-iconGeometry:geometry:_x_geometry' \
'*-iconic' \
'*-interlace:interlacing scheme:(None Line Plane Partition)' \
'*-map:colormap type for display:(best default gray red green blue)' \
'*-matte[store matte channel]' \
'*-mattecolor:color:_x_color' \
'*-monochrome[transform to black and white]' \
'*-name:image name' \
'*-noop' \
'*-pause:delay (seconds)' \
'*-remote:remote command (file name):_imagemagick' \
'*-rotate:rotation (degrees{<}{>})' \
'*-scenes:image scene number' \
'*-shared_memory' \
'*-size:image size (x+)' \
'*-text_font:font:_x_font' \
'*-title:image title' \
'*-treedepth:color reduction tree depth' \
'*-trim' \
'*-verbose[print image information]' \
'*-visual:visual to use for display:(StaticGray GrayScale StaticColor PseudoColor TrueColor DirectColor default)' \
'*-window:window ID to display image in:_x_window' \
'*:picture file:_imagemagick' && return
;;
(import)
_x_arguments -M 'm:{a-z}={A-Z}' \
'-adjoin[join images]' \
'-border:border size (x):' \
'-bordercolor:color:_x_color' \
'-cache[specify memory available to the pixel cache]:memory (MB)' \
'-colors:preferred number of colors' \
'-colorspace:colorspace type:(GRAY OHTA RGB Transparent XYZ YCbCr YIQ YPbPr YUV CMYK)' \
'-comment:comment string' \
'-crop:crop image (x{+-}{+-}{%%})' \
'-debug' \
'-delay:delay for next image (1/100ths of a second)' \
'-density:resolution in pixels of image (x)' \
'-depth:image depth:(8 16)' \
'-descend[descend window hierarchy]' \
'-dispose:GIF disposal method:((0:no\ disposal 1\:don'\''t\ dispose\ between\ frames 2\:overwrite\ frame\ with\ background\ color 3\:overwrite\ with\ previous\ frame))' \
'-dither[apply dithering]' \
'(+endian)-endian:image endianess:(MSB LSB)' \
'(-endian)+endian' \
'-frame[include window manager frame]' \
'(- *)-help[display help information]' \
'-interlace:interlacing scheme:(None Line Plane Partition)' \
'-label:label string' \
'-monochrome[transform to black and white]' \
'-negate[invert image]' \
'+negate[invert only grayscale]' \
'-page:geometry of image canvas (x{+-}{+-}{%%}{!}{<}{>}):(11x17 Ledger Legal Letter LetterSmall ArchE ArchD ArchC ArchB ArchA A0 A1 A2 A3 A4 A4Small A5 A6 A7 A8 A9 A10 B0 B1 B2 B3 B4 B5 C0 C1 C2 C3 C4 C5 C6 Flsa Flse HalfLetter)' \
'-pause:delay (seconds)' \
'-ping' \
'-pointsize:Postscript font size' \
'-quality:JPEG/MIFF/PNG compression level' \
'-resize:size (x{%%}{@}{!}{<}{>})' \
'-rotate:rotation (degrees{<}{>})' \
'-sampling_factor:sampling factor (x)' \
'-scene:number of screen snapshots' \
'-screen[get root window]' \
'-silent[be quiet]' \
'-snaps:number' \
'-transparent:transparent color:_x_color' \
'-treedepth:color reduction tree depth' \
'-trim' \
'-type:image type:(Bilevel Grayscale Palette PaletteMatte TrueColor TrueColorMatte ColorSeparation ColorSeparationMatte Optimize)' \
'-verbose[print image information]' \
'-window:window ID to get:_x_window' \
':output file:_files' && return
;;
(montage)
_arguments -M 'm:{a-z}={A-Z}' \
'*-adjoin[join images]' \
'*-background:color:_x_color' \
'*-blur:blur factor (0.0 - 99.9%%)' \
'*-bordercolor:color:_x_color' \
'*-borderwidth:geometry' \
'*-cache[specify memory available to the pixel cache]:memory (MB)' \
'*-colors:preferred number of colors' \
'*-colorspace:colorspace type:(GRAY OHTA RGB Transparent XYZ YCbCr YIQ YPbPr YUV CMYK)' \
'*-comment:comment string' \
'*-compose:image composition type:(Over In Out Atop Xor Plus Minus Add Subtract Difference Bumpmap Replace ReplaceRed ReplaceGreen ReplaceBlue ReplaceMatte)' \
'*-compress:image compression type:(None BZip Fax Group4 JPEG LZW RunlengthEncoded Zip)' \
'*-crop:crop image (x{+-}{+-}{%%})' \
'*-debug' \
'*-density:resolution in pixels of image (x)' \
'*-depth:image depth:(8 16)' \
'*-display:display:_x_display' \
'*-dispose:GIF disposal method:((0:no\ disposal 1\:don'\''t\ dispose\ between\ frames 2\:overwrite\ frame\ with\ background\ color 3\:overwrite\ with\ previous\ frame))' \
'*-dither[apply dithering]' \
'*+dither[render Postscript without aliasing]' \
'*-draw:drawing primitive:compadd -S "\\ " - rectangle circle ellipse polygon color matte text image' \
'*-endian:image endianess:(MSB LSB)' \
'*+endian' \
'*-filter:filter type for resizing:(Point Box Triangle Hermite Hanning Hamming Blackman Gaussian Quadratic Cubic Catrom Mitchell Lanczos Bessel Sinc)' \
'*-frame[draw frame around image]' \
'*-font:annotation font:_x_font' \
'*-gamma[gamma correction level]:gamma correction level ( or //)' \
'*+gamma[gamma correction level (don'\''t change pixels)]:gamma correction level ( or //)' \
'*-geometry:window geometry (x{+-}{+-}{%%}{!}{<}{>})' \
'*-gravity:image gravity:(Center North NorthEast East SouthEast South SouthWest West NorthWest)' \
'(- *)-help[display help information]' \
'*-interlace:interlacing scheme:(None Line Plane Partition)' \
'*-label:label string' \
'*-matte[store matte channel]' \
'*-mattecolor:color:_x_color' \
'*-mode:montage type:(Frame Unframe Concatenate)' \
'*-monochrome[transform to black and white]' \
'*-noop' \
'*-page:geometry of image canvas (x{+-}{+-}{%%}{!}{<}{>}):(11x17 Ledger Legal Letter LetterSmall ArchE ArchD ArchC ArchB ArchA A0 A1 A2 A3 A4 A4Small A5 A6 A7 A8 A9 A10 B0 B1 B2 B3 B4 B5 C0 C1 C2 C3 C4 C5 C6 Flsa Flse HalfLetter)' \
'*-pen:font color:_x_color' \
'*-pointsize:Postscript font size' \
'*-quality:JPEG/MIFF/PNG compression level' \
'*-resize:size (x{%%}{@}{!}{<}{>})' \
'*-rotate:rotation (degrees{<}{>})' \
'*-sampling_factor:sampling factor (x)' \
'*-scenes:image scene number' \
'*-shadow[add shadow]' \
'*-sharpen:sharpening factor (0.0 - 99.9%%)' \
'*-size:image size (x+)' \
'*-stroke:color:_x_color' \
'*-texture:background texture image:_imagemagick' \
'*-tile:number of tiles (x)' \
'*-title:image title' \
'*-transparent:transparent color:_x_color' \
'*-treedepth:color reduction tree depth' \
'*-trim' \
'*-type:image type:(Bilevel Grayscale Palette PaletteMatte TrueColor TrueColorMatte ColorSeparation ColorSeparationMatte Optimize)' \
'*-verbose[print image information]' \
'*:picture file:_imagemagick' && return
;;
(convert)
_arguments -C -M 'm:{a-z}={A-Z}' \
'-adjoin[join images]' \
'-affine[drawing transform matrix]:matrix' \
'-antialias[remove pixel aliasing]' \
'-append[append image sequence]' \
'-average[average image sequence]' \
'-background[specify background color]:color:_x_color' \
'-blur:blur factor (0.0 - 99.9%%)' \
'-border:border size (x)' \
'-bordercolor:border color:_x_color' \
'-box:annotation bounding box color:_x_color' \
'-cache[specify memory available to the pixel cache]:memory (MB)' \
'-channel:channel:(Red Green Blue Opacity Cyan Magenta Yellow Black)' \
'-charcoal:charcoal drawing factor' \
'-chop:x{+-}{+-}' \
'-clip' \
'-coalesce[merge image sequence]' \
'-colorize:colorization amount ( or //)' \
'-colors:preferred number of colors' \
'-colorspace:colorspace type:(GRAY OHTA RGB Transparent XYZ YCbCr YIQ YPbPr YUV CMYK)' \
'-comment:comment string' \
'-compress:image compression type:(None BZip Fax Group4 JPEG LZW RunlengthEncoded Zip)' \
'-contrast[enhance contrast]' \
'+contrast[reduce contrast]' \
'-crop:crop image (x{+-}{+-}{%%})' \
'-cycle:image colormap shift' \
'-debug' \
'-deconstruct[break down image sequence into parts]' \
'-delay:delay for next image (1/100ths of a second)' \
'-density:resolution in pixels of image (x)' \
'-depth:image depth:(8 16)' \
'-despeckle[reduce speckles in image]' \
'-display:display:_x_display' \
'-dispose:GIF disposal method:((0:no\ disposal 1\:don'\''t\ dispose\ between\ frames 2\:overwrite\ frame\ with\ background\ color 3\:overwrite\ with\ previous\ frame))' \
'-dither[apply dithering]' \
'-draw:drawing primitive:compadd -S "\\ " - rectangle circle ellipse polygon color matte text image' \
'-edge:edge detection factor (0.0 - 99.9%%)' \
'-emboss[emboss image]' \
'(+endian)-endian:image endianess:(MSB LSB)' \
'(-endian)+endian' \
'-enhance[enhance image]' \
'-equalize[histogram equalization]' \
'-fill[specify color to use when filling a graphic primitive]:color:_x_color' \
'-filter:filter type for resizing:(Point Box Triangle Hermite Hanning Hamming Blackman Gaussian Quadratic Cubic Catrom Mitchell Lanczos Bessel Sinc)' \
'-flatten[flatten a sequence of images]' \
'-flip[vertical mirror image]' \
'-flop[horizontal mirror image]' \
'-font:annotation font:_x_font' \
'-frame:border dimensions (x++)' \
'-fuzz:maximum distance for equal colors' \
'-gamma[gamma correction level]:gamma correction level ( or //)' \
'+gamma[gamma correction level (don'\''t change pixels)]:gamma correction level ( or //)' \
'-geometry:window geometry (x{+-}{+-}{%%}{!}{<}{>})' \
'-gravity:image gravity:(Center North NorthEast East SouthEast South SouthWest West NorthWest)' \
'-implode:implosion factor (0.0 - 99.9%%)' \
'-interlace:interlacing scheme:(None Line Plane Partition)' \
'-label:label string' \
'-layer:layer type:(Red Green Blue Matte)' \
'-linewidth:line width' \
'-loop:number of iterations (GIF animation)' \
'-map[single image colormap file]:picture file for colors:_imagemagick' \
'+map[all images colormap file]:picture file for colors:_imagemagick' \
'-matte[store matte channel]' \
'-modulate:,