blob: 30c76e791360b9d7529957a7bb936e32b9df509a (
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
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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
|
#compdef prcs
# lookup project names in the repository
# (this does not handle subprojects)
(( $+functions[_prcs_projects] )) ||
_prcs_projects() {
compadd $@ - ${opt_args[-R]:-${opt_args[--repository]:-${PRCS_REPOSITORY:-$HOME/PRCS}}}/*(/:t)
}
# standard options for all subcommands
(( $+functions[_prcs_arguments] )) ||
_prcs_arguments() {
_arguments -s \
'(-f)--force[resolve interactive queries in some fixed way]' \
'(--force)-f[resolve interactive queries in some fixed way]' \
'(-h -H)--help[print out help]' \
'(--help -H)-h[print out help]' \
'(--help -h)-H[print out help]' \
'(-j)--jobs=[spawn many child processes at once]:number:' \
'(--jobs)-j[spawn many child processes at once]:number:' \
'(-l)--long-format[long format]' \
'(--long-format)-l[long format]' \
'(-L)--long-long-format[long format]' \
'(--long-long-format)-L[longer format]' \
'(-n)--no-action[no action]' \
'(--no-action)-n[no action]' \
'(-q)--quiet[suppress normal informational messages]' \
'(--quiet)-q[suppress normal informational messages]' \
"--plain-format[don't break lines at screen width]" \
'(-R)--repository=[set the repository directory]:directory:_files -/' \
'(--repository)-R[set the repository directory]:directory:_files -/' \
'(-v)--version[print PRCS version and exits]' \
'(--version)-v[print PRCS version and exits]' \
$@
}
if (( CURRENT == 2 )); then
_arguments \
':prcs command:((
admin\:"admin subcommand"
checkin\:"checkin project revision"
checkout\:"checkout project revision"
config\:"verify configuration"
delete\:"delete named revision of project"
depopulate\:"remove named files from project descriptor"
diff\:"show differences between two revisions"
execute\:"execute a command for each file in a project"
info\:"print information about versions of project"
merge\:"reconcile differences between working files and another revision"
package\:"package the project and all its revisions into packagefile"
populate\:"add named files to project descriptor"
rekey\:"set keywords in selected files"
unpackage\:"unpackage project in packagefile"))'
else
shift words
(( --CURRENT ))
case "$words[1]" in
admin)
if (( CURRENT == 2 )); then
_arguments \
':admin subcommand:((
access\:"set the access permissions on the repository"
compress\:"instruct PRCS to save disk space for project"
init\:"create a repository entry"
pdelete\:"delete a repository entry"
prename\:"rename a repository entry"
rebuild\:"reconstruct PRCS data files in the repository"
uncompress\:"instruct PRCS to save time in processing project"))'
else
shift words
(( --CURRENT ))
case "$words[1]" in
access|compress|init|pdelete|prename|rebuild)
_prcs_arguments ':project name:_prcs_projects'
;;
uncompress)
_prcs_arguments \
'-i[expand the entire project immediately]' \
':project name:_prcs_projects'
;;
esac
fi
;;
checkin)
_prcs_arguments \
'(-r)--revison=[version of the project]:revision:' \
'(--revison)-r[version of the project]:revision:' \
'(-s)--skilled-merge[turn off most of the safety features of merge]' \
'(--skilled-merge)-s[turn off most of the safety features of merge]' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
checkout)
_prcs_arguments \
'(-r)--revison=[version of the project]:revision:' \
'(--revison)-r[version of the project]:revision:' \
'(-p)--preserve[preserve permissions on files that are checked out]' \
'(--preserve)-p[preserve permissions on files that are checked out]' \
"(-u)--unlink[don't overwrite symbolic link references]" \
"(--unlink)-u[don't overwrite symbolic link references]" \
"(-P)--exclude-project-file[don't checkout the project file]" \
"(--exclude-project-file)-P[don't checkout the project file]" \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
config)
_prcs_arguments
;;
delete)
_prcs_arguments \
'(-r)--revison=[version of the project]:reversion:' \
'(--revison)-r[version of the project]:reversion:' \
':project name:_prcs_projects'
;;
depopulate)
_prcs_arguments \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
diff)
#
# FIXME: when there will be a _diff completion function,
# we should complete with diff options after `--' :
# prcs diff [OPTION ...] [PROJECT [FILE-OR-DIR ...]] [-- [DIFF-OPTION ...]]
#
_prcs_arguments \
'*--revison=[version of the project]:revision:' \
'*-r[version of the project]:revision:' \
'(-k)--keywords[compare keywords too]' \
'(--keywords)-k[compare keywords too]' \
'(-N)--new[compare new files against empty files]' \
'(--new)-N[compare new files against empty files]' \
"(-P)--exclude-project-file[don't diff the project file]" \
"(--exclude-project-file)-P[don't diff the project file]" \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
execute)
_prcs_arguments \
'(-r)--revison=[version of the project]:reversion:' \
'(--revison)-r[version of the project]:reversion:' \
'--pre[list directories first]' \
'(--pipe)--all[execute command once, with all files as arguments]' \
'(--all)--pipe[supply file contents as the standard input]' \
'--match[execute command on files matching a pattern]:pattern:' \
'--not[execute command on files not matching a pattern]:pattern:' \
'--:command: _command_names -e:*::arguments: _normal' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
info)
_prcs_arguments \
'(-r)--revison=[version of the project]:revision:' \
'(--revison)-r[version of the project]:revision:' \
'--sort=[set sorting type]:sorting type:(version date)' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
merge)
_prcs_arguments \
'(-r)--revison=[version of the project]:revision:' \
'(--revison)-r[version of the project]:revision:' \
'(-s)--skilled-merge[turn off most of the safety features of merge]' \
'(--skilled-merge)-s[turn off most of the safety features of merge]' \
"(-u)--unlink[don't overwrite symbolic link references]" \
"(--unlink)-u[don't overwrite symbolic link references]" \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
package)
_prcs_arguments \
'(-r)--revison=[version of the project]:revision:' \
'(--revison)-r[version of the project]:revision:' \
'(-z)--compress=[compress the output]' \
'(--compress)-z[compress the output]' \
':project name:_prcs_projects' \
':file:_files'
;;
populate)
_prcs_arguments \
'(-d)--delete=[perform optional deletions]' \
'(--delete)-d[perform optional deletions]' \
':project name:_prcs_projects' \
'*:file or directory:_files'
;;
rekey)
_prcs_arguments \
"(-u)--unlink[don't overwrite symbolic link references]" \
"(--unlink)-u[don't overwrite symbolic link references]" \
':project name:_prcs_projects'
;;
unpackage)
_prcs_arguments \
':file:_files' \
':project name:_prcs_projects'
;;
*)
_message "unknown prcs command: $words[2]"
;;
esac
fi
|
