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
|
#compdef mattrib mcopy mdel mdu mcd mdeltree mdir mformat mlabel mmd mmount mmove mrd mread mren mtoolstest mtype
(( $+functions[_mtools_drives] )) ||
_mtools_drives() {
local expl
_wanted drives expl drive compadd "$@" -M "m:{a-z}={A-Z}" \
${${(M)${(f)"$(mtoolstest)"}:#drive*}##drive }
}
(( $+functions[_mtools_dosfiles] )) ||
_mtools_dosfiles() {
local expl files dirs disp dirsonly suf='/' ret=1
zparseopts -D -E '/=dirsonly'
if compset -P '[A-Za-z]:'; then
_tags files
else
_tags files drives
fi
compset -P '*/'
if compset -S '/*'; then
suf=''
dirsonly=(1)
fi
while _tags; do
_requested drives expl drive _mtools_drives -S '' && ret=0
if _requested files; then
files=( ${(f)"$(mdir -aX $IPREFIX 2>/dev/null)"} )
dirs=( ${${${(M)files:#*/}%/}##*/} )
disp=( $dirs/ )
while _next_label files expl 'file'; do
(( ! $#dirsonly )) && compadd "$@" "$expl[@]" -M 'm:{a-zA-Z}={A-Za-z}' \
${files##*/} && ret=0
compadd "$@" "$expl[@]" -M 'm:{a-zA-Z}={A-Za-z}' -S "$suf" -q \
-d disp -a dirs && ret=0
done
fi
(( ret )) || return 0
done
return ret
}
(( $+functions[_mtools_files] )) ||
_mtools_files() {
local dos
if [[ -prefix [a-zA-Z]: ]]; then
dos='files:file:_mtools_dosfiles'
else
dos='drives:drive:_mtools_drives -S ""'
fi
_alternative $dos 'files:file:_files'
}
_mtools() {
local args Dopt oopt sopt topt vopt
Dopt='(-V)-D[specify name clash handling]:clash option:
_values "name clash handling"
"o[overwrite primary names]"
"O[overwrite secondary names]"
"r[rename primary name]"
"R[rename secondary name]"
"a[autorename primary name]"
"A[autorename secondary name]"
"s[skip primary name]"
"S[skip secondary name]"
"m[ask user what to do with primary name]"
"M[ask user what to do with secondary name]"'
oopt='(-V)-o[no confirmation on overwrite of DOS files]'
sopt=( '(-V -s -/)'-{s,/}'[recurse subdirectories]' )
topt='(-V)-t[perform text file translation]'
vopt='(-V)-v[verbose]'
case $service in
mattrib)
args=( $mdfiles
'(-V)-+a[archive]'
'(-V)-+h[hidden]'
'(-V)-+r[readonly]'
'(-V)-+s[system]'
'(-V)-/[recurse subdirectories]'
'(-V)-X[concise output]'
'(-V)-p[replay mode]'
'(-V)*:file:_mtools_dosfiles'
)
;;
mcopy|mread)
args=( $Dopt $oopt $sopt $topt $vopt
'(-V)-b[batch mode]'
'(-V)-p[preserve file attributes]'
'(-V)-Q[quit on failure]'
'(-V)-a[text mode transfer]'
'(-V)-n[no confirmation on overwrite of Unix files]'
'(-V)-m[preserve modification time]'
'(-V)*:source file:_mtools_files'
)
;;
mdeltree|mrd)
args=( $vopt '(-V)*:directory:_mtools_dosfiles -/' )
;;
mdel)
args=( $vopt '(-V)*:file:_mtools_dosfiles' )
;;
mdir)
args=( $Dopt $sopt
'(-V)-w[wide output]'
'(-V)-a[also list hidden files]'
'(-V)-f[fast - do not find free space]'
'(-V -b -X)'-{b,X}'[concise output]'
'(-V)*:file:_mtools_dosfiles'
)
;;
mdu)
args=(
'(-V)-a[output for all files]'
'(-V)-s[summarize - output only for each argument]'
'(-V)*:file:_mtools_dosfiles'
)
;;
mlabel)
args=(
'(-V -s)-c[clear existing label]'
'(-V -c)-s[show existing label]'
'(-V -N)-n[assign new random serial number]'
'(-V -n)-N[specify new serial number]:serial number'
'1:drive:_mtools_drives -S ""'
)
;;
mmd)
args=( $Dopt '(-V)*:directory:_mtools_dosfiles -/' )
;;
mmove|mren)
# target file should be completed relative to source here
args=( $Dopt $oopt $vopt '(-V)*:file:_mtools_dosfiles' )
;;
mtype)
args=( $topt
'(-V)-s[strip the high bit]'
'(-V)*:file:_mtools_files'
)
;;
mbadblocks|mmount|mformat|mtoolstest|mdrive)
args=( '(-V)1:drive:_mtools_drives' )
;;
mcd) args=( '(-V)*:directory:_mtools_dosfiles -/' ) ;;
esac
_arguments -s -S "$args[@]" \
'(-D -o -s -t -v -w -a -h -r -s -/ -X -p -f -b * 1)-V[display version information]'
}
_mtools "$@"
|
