Initial revision

3 files changed, 435 insertions, 0 deletions

diff --git a/Completion/Commands/_verbose_list b/Completion/Commands/_verbose_list
new file mode 100644
index 000000000..b3d762ecc
--- /dev/null
+++ b/Completion/Commands/_verbose_list
@@ -0,0 +1,75 @@
+#compdef -k delete-char-or-list \C-xv
+
+# You probably want to bind this to Control-D.
+
+local odf="$compconfig[description_format]"
+local omf="$compconfig[message_format]"
+local ogm="$compconfig[group_matches]"
+local oop="$compconfig[option_prefix]"
+local odo="$compconfig[describe_options]"
+local odv="$compconfig[describe_values]"
+local what nm
+
+(( $# )) || set -- ${(s.:.)compconfig[verboselist_stages]}
+
+if [[ "$BUFFER" != "$_vl_buffer" || "$*" != "$_vl_config" ]]; then
+  _vl_buffer="$BUFFER"
+  _vl_config="$*"
+  _vl_array=( "$@" )
+  _vl_index=1
+  if (( ! $#_vl_array )); then
+    [[ -n "$compconfig[option_prefix]" ]] && _vl_array=(options)
+    [[ -z "$compconfig[describe_options]" ||
+       -z "$compconfig[describe_options]" ]] &&
+        _vl_array=( "$_vl_array[@]" options-describe )
+
+    _vl_array=( "$_vl_array[@]" normal )
+  fi
+  if [[ -z "$compstate[old_list]" ]]; then
+    if (( $_vl_array[(I)normal] )); then
+      _vl_index="$_vl_array[(I)normal]"
+    else
+      _vl_array=( normal "$_vl_array[@]" )
+    fi
+  fi
+fi
+
+# If we had a possibility to say `ignore all matches added up to now',
+# we could de-comment these thigs and wouldn't have the problem that
+# if the options were already the stage `options' is a somewhat
+# irritating no-op.
+# Or maybe we make the completion functions report if they added
+# options/description one day.
+
+# while true; do
+  what="$_vl_array[_vl_index++]"
+  [[ _vl_index -gt $#_vl_array ]] && _vl_index=1
+
+  if [[ "$what" != normal ]]; then
+    [[ -z "$odf" ]] && compconfig[description_format]='---- %d'
+    [[ -z "$omf" ]] && compconfig[message_format]='---- %d'
+    [[ -z "$ogm" ]] && compconfig[group_matches]=yes
+    [[ "$what" = *options* ]] && compconfig[option_prefix]=''
+    if [[ "$what" = *describe* ]]; then
+      compconfig[describe_options]=yes
+      compconfig[describe_values]=yes
+    fi
+  fi
+
+  if [[ -n "$compstate[old_list]" ]]; then
+    nm="$_lastcomp[nmatches]"
+  else
+    nm=-1
+  fi
+
+  _main_complete
+
+#   [[ "$what" != options || compstate[nmatches] -ne nm ]] && break
+# done
+
+compconfig[description_format]="$odf"
+compconfig[message_format]="$omf"
+compconfig[group_matches]="$ogm"
+compconfig[option_prefix]="$oop"
+compconfig[describe_options]="$odo"
+compconfig[describe_values]="$odv"
diff --git a/Completion/User/_ispell b/Completion/User/_ispell
new file mode 100644
index 000000000..2d2671e25
--- /dev/null
+++ b/Completion/User/_ispell
@@ -0,0 +1,95 @@
+#compdef ispell buildhash munchlist findaffix tryaffix icombine ijoin
+
+case "$words[1]" in
+ispell)
+  _arguments -s \
+    '(-n)-t[input file is in TeX/LaTeX format]' \
+    '(-t)-n[input file is in nroff/troff format]' \
+    '(-x)-b[create backup file]' \
+    '(-b)-x[don'"'"'t create backup file]' \
+    '(-C)-B[report run-together words as errors]' \
+    '(-B)-C[take run-together words as compounds]' \
+    '-P[don'"'"'t generate extra root/affix combinations]' \
+    '-m[make possible root/affix combinations]' \
+    '-S[sort guesses by probable correctness]' \
+    '-d[specify alternate dictionary file]:dictionary file:_files' \
+    '-p[specify alternate personal dictionary file]:personal dictionary file:_files' \
+    '-w[specify additional word characters]:word characters:' \
+    '-W[specify length of legal words]:length of legal words:' \
+    '-T[specify formatter type]:formatter type:(nroff mm ms me man NeXT tex bib)' \
+    '(-N)-M[show menu]' \
+    '(-M)-N[don'"'"'t show menu]' \
+    '-L-[specify number of context lines to show]:number of context lines:' \
+    '-V[show non-7-bit characters escaped]' \
+    '-l[produce list of misspelled words on stdout]' \
+    '-s[stop after each line of input (SIGTSTP)]' \
+    '-f[specify output file name]:output file:_files' \
+    '(-A)-a[single line input/output mode]' \
+    '(-a)-A[single line input/output mode (with include-files)]' \
+    '(-e)-c[produce list of possible root words and affixes]' \
+    '(-c)-e-[expand affix flags]::expansion level:((1\:normal 2\:append\ prepend\ original\ root/affix\ combination 3\:output\ multiple\ lines 4\:append\ root\ length\ ratios))' \
+    '-D[dump affix tables]' \
+    '*-v[show version]' \
+    ':file to spell-check:_files'
+  ;;
+buildhash)
+  _arguments \
+    '(-c)-s[silent operation]' \
+    '(: -s)-c[count mode]:count: :affix file:_files -g \*.\(\#i\)aff' \
+    ':raw dictionary file:_files:' \
+    ':affix file:_files -g \*.\(\#i\)aff' \
+    ':hashed output file:_files \*.\(\#i\)hash'
+  ;;
+munchlist)
+  _arguments -s \
+    '-l[specify affix file]:affix file:_files -g \*.\(\#i\)aff' \
+    '-c[specify converted output file name]:converted file name:_files' \
+    '-T[specify string character type]:string character type:' \
+    '-s[specify strip hash file]:hash file:_files \*.\(\#i\)hash' \
+    '-D[debug mode]' \
+    '-v[verbose mode]' \
+    '-w[specify additional word characters]:word characters:' \
+    '*:dictionary file:_files'
+  ;;
+findaffix)
+  _arguments -s \
+    '(-s)-p[search possible prefixes]' \
+    '(-p)-s[search possible suffixes]' \
+    '-f[sort affixes by frequency]' \
+    '-c[clean output]' \
+    '-m[specify minimum affix length]:minimum affix length:' \
+    '-M[specify maximum affix length]:maximum affix length:' \
+    '-e[specify header/trailer length of suppressed affixes]:header/trailer length of suppressed affixes:' \
+    '-t[specify field separator character]:field separator character:' \
+    '-l[specify minimum occurrence count]:minimum occurrence count:' \
+    '*:dictionary file:_files'
+  ;;
+tryaffix)
+  _arguments -s \
+    '(-s)-p[estimate effectiveness of prefix]' \
+    '(-p)-s[estimate effectiveness of suffix]' \
+    '-c[write only summary of the results]' \
+    ':expanded dictionary file:_files:' \
+    '*:affix and optional addition:'
+  ;;
+icombine)
+  _arguments \
+    '-T[specify string character type]:string character type:' \
+    ':affix file:_files -g \*.\(\#i\)aff'
+  ;;
+ijoin)
+  _arguments -s \
+    '(-u)-s[use signed comparison]' \
+    '(-s)-u[use unsigned comparison]' \
+    '-a[print lines for unpairable lines and normal output]:file number:(1 2)' \
+    '-v[print lines for unpairable lines instead of normal output]:file number:(1 2)' \
+    '-e[specify replacement string]:replacement string:' \
+    '-o[specify output field list]:output field list:' \
+    '-t[specify field separator character]:field separator character:' \
+    '(-1 -2)-j-[specify join file and field]:file number:(1 2):field number:' \
+    '(-j)-1[specify join field]:field number:' \
+    '(-j)-2[specify join field]:field number:' \
+    ':first input file:_files' \
+    ':second input file:_files'
+  ;;
+esac
diff --git a/Completion/User/_mount b/Completion/User/_mount
new file mode 100644
index 000000000..e92f56339
--- /dev/null
+++ b/Completion/User/_mount
@@ -0,0 +1,265 @@
+#compdef mount umount
+
+# This is table-driven: the tables for the values for the different
+# file system types are directly below. The tables describing the
+# arguments for the `mount' command for different operating systems
+# are below these table.
+
+local state line ret=1 args fss deffs=iso9660 descr tmp
+typeset -A options
+
+if (( ! $+_fs_any )); then
+
+  # These are tables describing the possible values and their
+  # arguments for the `-o' option. There is one array per 
+  # file system type (only for those that accept more values
+  # than those in the `_fs_any' array). The elements of the
+  # array are used as arguments to `_values'.
+
+  _fs_any=(
+    '(sync)async[do all I/O asynchronously]'
+    '(noatime)atime[update access time]'
+    '(noauto)auto[can be mounted with -a]'
+    '(rw suid dev exec auto nouser async)defaults[use default options]'
+    '(nodev)dev[interpret devices]'
+    '(noexec)exec[permit execution of binaries]'
+    '(atime)noatime[don'"'"'t update access time]'
+    '(auto)noauto[can only be mounted explicitly]'
+    '(dev)nodev[don'"'"'t interpret devices]'
+    '(exec)noexec[don'"'"'t allow execution of binaries]'
+    '(suid)nosuid[ignore suid and sgid bits]'
+    '(user)nouser[can only be mounted by root]'
+    'remount[mount already mounted file system]'
+    '(rw)ro[mount file system read-only]'
+    '(ro)rw[mount file system read-write]'
+    '(nosuid)suid[use suid and sgib bits]'
+    '(async)sync[do I/O synchronously]'
+    '(nouser noexec nosuid nodev)user[allow normal users to mount]'
+  )
+  _fs_affs=(
+    'uid[set owner of root]:user ID:'
+    'gid[set group of root]:group ID:'
+    'setuid[set owner of all files]:user ID:'
+    'setgid[set group of all files]:group ID:'
+    'mode[set file permissions]:file permission bits:'
+    'protect[don'"'"'t allow changes to permissions]'
+    'usemp[set owner of root to owner of mount point]'
+    'verbose[print message per mount]'
+    'prefix[prefix before volume name (link)]:prefix string:'
+    'volume[prefix before '"'"'/'"'"' (symlink)]:prefix string:'
+    'reserved[set number of unused blocks at start of device]:number of unused blocks:'
+    'root[specify location of the root block]:root block location:'
+    'bs[specify block size]:block size:(512 1024 2048 4192)'
+  )
+  _fs_ext2=(
+    '(minixdf)bsddf[select bsddf behavior]'
+    '(bsddf)minixdf[select bsddf behavior]'
+    '(nocheck)check[set checking level]::checking level:((normal\:check\ inode\ and\ block\ bitmaps\ on\ mount strict\:check\ on block\ deallocation none\:no\ checking))'
+    'errors[specify behavior on error]:error behavior:((continue\:ignore\ errors remount-ro\:remount\ file\ system\ read-only panic\:panic\ and\ halt\ system))'
+    '(nogrpid bsdgroups sysvgroups)grpid[new file gets group ID of directory]'
+    '(grpid nogrpid sysvgroups)bsdgroups[new file gets group ID of directory]'
+    '(grpid bsdgroups sysvgroups)nogrpid[new file gets fsgid of current process]'
+    '(grpid bsdgroups nogrpid)sysvgroups[new file gets fsgid of current process]'
+    'resgid[specify access to reserved space (group ID)]:group ID:'
+    'resuid[specify access to reserved space (user ID)]:user ID:'
+    'sb[specify super block number]:super block number:'
+  )
+  _fs_fat=(
+    'blocksize[specify block size]:block size:(512 1024)'
+    'uid[specify user ID of all files]:user ID:'
+    'gid[specify group ID of all files]:group ID:'
+    'umask[specify umask]:umask value (octal):'
+    'check[specify checking level]:checking level:((relaxed\:accept\ upper\ and\ lower\ case,\ truncate\ long\ name normal\:like\ '"'\`'"'relaxed'"\\'"',\ but\ reject\ special\ characters strict\:like\ '"'\`'"'normal'"\\'"',\ but\ no\ long\ parts))'
+    'conf[specify CR/NL conversion]:CR/NL conversion mode:((binary\:no\ translation text\:conversion\ on\ all\ files auto\:perform\ translation\ on\ file\ without\ binary\ extension))'
+    'debug[debug mode]'
+    'fat[specify fat type]:fat type (bit):(12 16)'
+    'quiet[quiet mode]'
+  )
+  _fs_msdos=( "$_fs_fat[@]" )
+  _fs_umsdos=( "$_fs_fat[@]" )
+  _fs_vfat=( "$_fs_fat[@]"
+    'uni_xlate[translate unicode to escaped sequences]'
+    'posix[allow file names only differing in case]'
+    'nonumtail[try short name before number extension]'
+  )
+  _fs_hpfs=(
+    'uid[specify user ID of all files]:user ID:'
+    'gid[specify group ID of all files]:group ID:'
+    'umask[specify umask]:umask value (octal):'
+    'case[specify file name conversion]:file name conversion:((lower\:convert\ to\ lower\ case asis\:no\ conversion))'
+    'conv[specify CR elimination]:CR elimination:((binary\:no\ elimination test\:delete\ CRs\ \(e.g.\ before\ NL\) auto\:sometimes\ yes,\ sometimes\ not))'
+    'nocheck[don'"'"'t abort mount on consistency check failure]'
+  )
+  _fs_iso9660=(
+    'norock[disable Rock Ridge extensions]'
+    'check[specify file name conversion]:file name conversion:((relaxed\:convert\ to\ lower\ case\ before\ lookup strict\:no\ conversion))'
+    'uid[specify user ID of all files]:user ID:'
+    'gid[specify group ID of all files]:group ID:'
+    'map[specify non-Rock Ridge name conversion]:file name conversion:((normal\:map\ upper\ to\ lower,\ ignore\ \;1,\ map\ \;\ to\ . off\:no\ conversion))'
+    'mode[specify permissions]:file access permissions:'
+    'unhide[show hidden and associated files]'
+    'block[specify block size]:block size:(512 1024 2048)'
+    'cruft[ignore high bits of file length]'
+  )
+
+  # I fear that we have to make these system specific, too.
+
+  _fs_nfs=(
+    'rsize[specify read buffer size]:read buffer size:(8192)'
+    'wsize[specify write buffer size]:write buffer size:(8192)'
+    '(soft)hard[hang process on server crash (so to say)]'
+    '(hard)soft[allow time out on server crash]'
+    '(nolock)lock[use locking]'
+    '(lock)nolock[don'"'"'t use locking]'
+    'timeo[specify initial timeout for UDP]:initial timeout for UDP:'
+    'retrans[set number of NFS retransmissions]:number of NFS retransmissions:'
+    'retry[specify number of mount failure retries]:mount failure retries:'
+    '(nobg)bg[retry in the background]'
+    '(nofg)fg[retry in the foreground]'
+    '(nointr)intr[allow operations to be interrupted]'
+    '(bg)nobg[don'"'"'t retry in the background]'
+    '(fg)nofg[don'"'"'t retry in the foreground]'
+    '(intr)nintr[prevent operations from being interrupted]'
+    '(nfsv3)nfsv2[use NFS version 2]'
+    '(nfsv2)nfsv3[use NFS version 3]'
+    'proto[specify protocol]:protocol:(udp tcp)'
+    'port[specify server port number]:server port number:' \
+    'proplist[allow property lists]'
+    'acregmin[specify cached file attributes minimum hold time]:cached file attributes minimum hold time:'
+    'acregmax[specify cached file attributes maximum hold time]:cached file attributes maximum hold time:'
+    'acdirmin[specify cached directory attributes minimum hold time]:cached directory attributes minimum hold time:'
+    'acdirmax[specify cached directory attributes maximum hold time]:cached directory attributes maximum hold time:'
+    'actimeo[set all attributes'"'"' cache timeout]:set all attributes'"'"' cache timeout:'
+    'nocto[don'"'"'t get fresh attributes on open]'
+    'noac[don'"'"'t set attribute caching]'
+  )
+  _fs_advfs=(
+    '(ro rw)rq[mount file system read-write]'
+    'dual[allow mount even if same domain ID as already mounted domain]'
+  )
+  _fs_ufs=(
+    'dirty[allow mount even if not cleanly unmounted]'
+    "$_fs_nfs[@]"
+  )
+  _fs_cdfs=(
+    '(nodefperm)defperm[ignore permission bits]'
+    '(defperm)defperm[use permission bits]'
+    'noversion[strip off version extension]'
+    'rrip[use RRIP extensions]'
+  )
+fi
+
+if [[ "$words[1]" = mount ]]; then
+
+  # Here are the tests and tables for the arguments and options for
+  # the `mount' program. The `fss' array has to be set to the names
+  # of the file system types understood on this system.
+  # This should also set the `deffs' parameter if the default file
+  # system type is not `iso9660' (it should be set to the name of
+  # the default file system type).
+
+  case "$OSTYPE" in
+  linux*)
+    args=( -s
+      '-h[show help]' \
+      '-V[show version]' \
+      '-v[verbose mode]' \
+      '(-o)-a[mount all filesystems in fstab]' \
+      '-F[fork off one child per device]' \
+      '-f[fake mount]' \
+      '-n[don'"'"'t write /etc/mtab]' \
+      '-s[tolerate sloppy mount options]' \
+      '-r[mount read-only]' \
+      '-w[mount read/write]' \
+      '-t[specify file system type]:file system type:->fstype' \
+      '-o[specify file system options]:file system option:->fsopt' \
+      ':dev or dir:->devordir' \
+      ':mount point:_files -/'
+    )
+    fss=( minix ext ext2 xiafs hpfs msdos umsdos vfat proc nfs iso9660
+          smbfs ncpfs affs ufs romfs sysv )
+    ;;
+  osf*)
+    args=( -s
+      '(-o)-a[mount all filesystems in fstab]' \
+      '-d[mount even if not unmounted]' \
+      '-e[list all mount points]' \
+      '-f[fake mount]' \
+      '-l[display values of all file system options]' \
+      '-t[specify file system type]:file system type:->fstype' \
+      '-o[specify file system options]:file system option:->fsopt' \
+      '-u[remount file system]' \
+      ':dev or dir:->devordir' \
+      ':mount point:_files -/'
+
+    fss=( advfs ufs nfs mfs cdfs )
+    ;;
+  *)
+    # Default for all other systems. Dunno.
+
+    args=( -s
+      '(-o)-a[mount all filesystems in fstab]' \
+      '-t[specify file system type]:file system type:->fstype' \
+      '-o[specify file system options]:file system option:->fsopt' \
+      '-f[fake mount]' \
+      ':dev or dir:->devordir' \
+      ':mount point:_files -/'
+    fss=( ufs )
+  esac
+
+  _arguments "$args[@]" && ret=0
+
+else
+
+  # Completion for umount.
+
+  _arguments -s \
+    '-h[show help]' \
+    '-V[show version]' \
+    '-v[verbose mode]' \
+    '-n[don'"'"'t write /etc/mtab]' \
+    '-r[remount read-only on failure]' \
+    '-a[unmount all file systems from /etc/mtab]' \
+    '-t[specify file system type]:file system type:->fstype' \
+    '*:dev or dir:->udevordir' && ret=0
+fi
+
+case "$state" in
+fstype)
+  compset -P '*,'
+  _description expl 'file system type'
+  compadd "$expl[@]" -qS, -M 'L:no=' - "$fss[@]" && ret=0
+  ;;
+fsopt)
+  eval 'tmp=(' '"$_fs_'${(s:,:)^${options[-t]:-${deffs}}}'[@]"' ')'
+  tmp=( "$_fs_any[@]" "${(@)tmp:#}" )
+  _values -s , 'file system options' "$tmp[@]" && ret=0
+  ;;
+devordir)
+  if (( $+options[-a] )); then
+    _message "no device or directory with option \`-a'"
+  else
+    _description expl device
+    compadd "$expl[@]" /dev/* && ret=0
+    if (( ! $+options[-t] )); then
+      _description expl 'mount point'
+      _files "$expl[@]" -/ && ret=0
+    fi
+  fi
+  ;;
+udevordir)
+  if (( $+options[-a] )); then
+    _message "no device or directory with option \`-a'"
+  else
+    tmp=( "${(@f)$(< /etc/mtab)}" )
+    _description expl device
+    compadd "$expl[@]" - "${(@)${(@)tmp%% *}:#none}" && ret=0
+    if (( ! $+options[-t] )); then
+      _description expl 'mount point'
+      compadd "$expl[@]" - "${(@)${(@)tmp#* }%% *}"
+    fi
+  fi
+  ;;
+esac
+
+return ret