summary refs log tree commit diff
path: root/Completion/Unix/Command/_units
blob: e4708dbe74a8923a3039100f130f55b85e7d18b2 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
#compdef units

local curcontext="$curcontext" state line
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 like 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
  /usr/local/share/units.dat
  /usr/share/lib/unittab	# Solaris
)

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 'unit prefixes:unitprefix:compadd -S "" -a pfxs' \
    'units:unit:compadd -a units' && return 0
  # attempt to skip a prefix
  if compset -P "(${(j.|.)pfxs})"; then
    _wanted units expl unit compadd -a units
  fi
else
  _message "No unit definitions found."
fi