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
76
77
78
79
80
81
82
83
|
#compdef od god
local curcontext="$curcontext" state state_descr line args ret=1
local -A opt_args
args=(
'(-A --address-radix)'{-A+,--address-radix=}'[file offset base]:base:((d\:decimal o\:octal x\:hexadecimal n\:none))'
'(-j --skip-bytes)'{-j+,--skip-bytes=}'[skip specified bytes]:bytes'
'(-N --read-bytes)'{-N+,--read-bytes=}'[dump at most specified bytes]:bytes'
'*'{-t+,--format=}'[specify output format]:format string:->format'
'(-v --output-duplicates)'{-v,--output-duplicates}'[do not use * to mark line suppression]'
'-a[output named characters (-t a)]'
'-b[output octal bytes (-t o1)]'
'-c[output characters with C-style escape (-t c)]'
'-d[output unsigned decimal shorts (-t u2)]'
'-f[output single-precision floats (-t fF)]'
{-h,-x}'[output hexadecimal shorts (-t x2)]'
'-i[output decimal integers (-t dI)]'
{-l,-I,-L}'[output decimal longs (-t dL)]'
{-o,-B}'[output octal shorts (-t o2)]'
'-s[output decimal shorts (-t d2)]'
)
if _pick_variant gnu=GNU unix --version; then
# -h -B -I and -L are obsolescent and undocumented
args=( ${(R)args:#(|\*)(|\(*\))-[hBIL]*} )
args+=(
'--traditional'
'--endian=[swap input bytes]:endianess:(big little)'
{-S+,--strings=-}'[output strings of at least specfied bytes long]:length'
{-w-,--width=-}'[output specified bytes per line]:bytes'
'(- : *)--help[display help and exit]'
'(- : *)--version[output version information and exit]'
)
else
args=( ${(R)args:#(|\*)(|\(*\))--*} ) # remove long options
case "$OSTYPE" in
darwin*|freebsd*|dragonfly*|openbsd*)
args+=(
'-D[output unsigned decimal integers (-t u4)]'
{-e,-F}'[output double-precision floats (-t fD)]'
{-H,-X}'[output hexadecimal ints (-t x4)]'
'-O[output octal ints (-t o4)]'
)
;;
solaris*)
args=(
${(M)args:#(|\*)(|\(*\))-[AjNtvbcdfosx]*}
'-C[output all printable characters and use C-style escapes]'
'-D[output unsigned decimal long words (-t u4)]'
'-F[output double-precision floats (-t f8)]'
'-O[output octal ints (-t o4)]'
'-S[output decimal ints (-t d4)]'
'-X[output hexadecimal ints (-t x4)]'
)
;;
(*)
# POSIX options only
args=( ${(M)args:#(|\*)(|\(*\))-[AjNtvbcdosx]*} )
;;
esac
fi
_arguments -C -s -S : "$args[@]" '*:files:_files' && return 0
case "$state" in
(format)
compset -P '*[acCSIL1248FDL]'
if compset -P '*[doux]'; then
args=( 'C:char' 'S:short' 'I:int' 'L:long' 1 2 4 8 )
_describe -t integer-size 'size of integer' args && ret=0
elif compset -P '*f'; then
args=( 'F:float' 'D:double' 'L:long double' )
_describe -t float-size 'size of float' args && ret=0
fi
args=( 'a:named character' 'c:character (C-style escape)'
'd:decimal' 'o:octal' 'u:unsigned decimal'
'x:hexadecimal' 'f:floating-point number' )
_describe -t type-specifier 'type specifier' args && ret=0
;;
esac
return ret
|
