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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
# (C) 2010 magicant
# Completion script for the "pr" command.
# Supports POSIX 2008, GNU coreutils 8.4, FreeBSD 8.1, OpenBSD 4.8, NetBSD 5.0,
# Mac OS X 10.6.4, SunOS 5.10, HP-UX 11i v3.
function completion/pr {
case $("${WORDS[1]}" --version 2>/dev/null) in
(*'coreutils'*) typeset type=GNU ;;
(*) typeset type="$(uname 2>/dev/null)" ;;
esac
case $type in
(GNU) typeset long=true ;;
(*) typeset long= ;;
esac
typeset OPTIONS POSIXOPTIONS ADDOPTIONS ARGOPT PREFIX
POSIXOPTIONS=( #>#
"a ${long:+--across}; arrange lines across columns"
"d ${long:+--double-space}; double space"
"e:: ${long:+--expand-tabs::}; expand tabs into spaces"
"F f ${long:+--form-feed}; use form feeds to separate pages"
"h: ${long:+--header:}; specify the header string"
"i:: ${long:+--output-tabs::}; replace adjacent spaces with tabs"
"l: ${long:+--length:}; specify the number of lines per page"
"m ${long:+--merge}; print all files in parallel, each in one column"
"n:: ${long:+--number-lines::}; print line numbers"
"o: ${long:+--indent:}; specify the width of offset preceding each line"
"p; pause before printing each page to the terminal"
"r ${long:+--no-file-warnings}; don't warn about missing/unreadable files"
"s:: ${long:+--separator::}; specify the column separator"
"t ${long:+--omit-header}; omit page headers and footers"
"w: ${long:+--width:}; specify the line width for multi-column layout"
) #<#
ADDOPTIONS=()
case $type in
(GNU)
ADDOPTIONS=("$ADDOPTIONS" #>#
"c --show-control-chars; make unprintable characters visible by caret notation and backslashed octal notation"
"D: --date-format:; specify the date format in the header"
"J --join-lines; merge full lines"
"N: --first-line-number:; specify the number to start counting line numbers from"
"S:: --sep-string::; specify a string to separate columns"
"T --omit-pagination; like -t, and eliminate form feeds in the input"
"v --show-nonprinting; make unprintable characters visible by backslashed octal notation"
"W: --page-width:; specify the line width"
"--help"
"--version"
) #<#
;;
(FreeBSD|Darwin)
ADDOPTIONS=("$ADDOPTIONS" #>#
"L:; specify the locale"
) #<#
;;
(NetBSD)
ADDOPTIONS=("$ADDOPTIONS" #>#
"T:; specify the date format in the header"
) #<#
;;
(HP-UX)
ADDOPTIONS=("$ADDOPTIONS" #>#
"c:; specify the number of columns"
) #<#
;;
esac
OPTIONS=("$POSIXOPTIONS" "$ADDOPTIONS")
unset POSIXOPTIONS ADDOPTIONS
WORDS=("${WORDS/#+/-}")
command -f completion//parseoptions ${long:+-es}
case $ARGOPT in
(-)
command -f completion//completeoptions
;;
([DT]|--date-format)
if command -vf completion//completestrftime >/dev/null 2>&1 ||
. -AL completion/date; then
command -f completion//completestrftime
fi
;;
(L)
IFS="
"
complete -P "$PREFIX" -- $(locale -a 2>/dev/null)
;;
([ceilNnosWw]|--expand-tabs|--output-tabs|--first-line-number|--length|--number-lines|--indent|--separator|--width|--page-width)
;;
(*)
complete -P "$PREFIX" -f
;;
esac
}
# vim: set ft=sh ts=8 sts=8 sw=8 et:
|
