From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <zsh-workers-return-42943-mason-zsh=primenet.com.au@zsh.org>
Received: (qmail 29493 invoked by alias); 7 Jun 2018 15:22:14 -0000
Mailing-List: contact zsh-workers-help@zsh.org; run by ezmlm
Precedence: bulk
X-No-Archive: yes
List-Id: Zsh Workers List <zsh-workers.zsh.org>
List-Post: <mailto:zsh-workers@zsh.org>
List-Help: <mailto:zsh-workers-help@zsh.org>
List-Unsubscribe: <mailto:zsh-workers-unsubscribe@zsh.org>
X-Seq: 42943
Received: (qmail 11914 invoked by uid 1010); 7 Jun 2018 15:22:13 -0000
X-Qmail-Scanner-Diagnostics: from park01.gkg.net by f.primenet.com.au (envelope-from <SRS0=H1tn=IZ=yahoo.co.uk=okiddle@bounces.park01.gkg.net>, uid 7791) with qmail-scanner-2.11 
 (clamdscan: 0.99.2/21882. spamassassin: 3.4.1.  
 Clear:RC:0(205.235.26.22):SA:0(-1.4/5.0):. 
 Processed in 1.440507 secs); 07 Jun 2018 15:22:13 -0000
X-Spam-Checker-Version: SpamAssassin 3.4.1 (2015-04-28) on f.primenet.com.au
X-Spam-Level: 
X-Spam-Status: No, score=-1.4 required=5.0 tests=BAYES_00,
	FREEMAIL_FORGED_FROMDOMAIN,FREEMAIL_FROM,HEADER_FROM_DIFFERENT_DOMAINS,
	RCVD_IN_DNSWL_NONE,SPF_PASS,T_DKIM_INVALID autolearn=no autolearn_force=no
	version=3.4.1
X-Envelope-From: SRS0=H1tn=IZ=yahoo.co.uk=okiddle@bounces.park01.gkg.net
X-Qmail-Scanner-Mime-Attachments: |
X-Qmail-Scanner-Zip-Files: |
X-Virus-Scanned: by amavisd-new at gkg.net
Authentication-Results: amavisd4.gkg.net (amavisd-new);
	dkim=pass (2048-bit key) header.d=yahoo.co.uk
X-Greylist: domain auto-whitelisted by SQLgrey-1.8.0
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.co.uk; s=s2048; t=1528384922; bh=PO7tacyRZdMvY7tBWhEIGHiIB25rR+5p9I6r2blHpSE=; h=From:To:Subject:Date:From:Subject; b=Q/b0Uxs1uMjNhmx3BQRaiuzwSP90EjWBx0HYshsJST5VkXWKKI+7O0i+DxI3w41TyzX8KTq8TNZtJrVTZOX7JXgddGJx34u2B9N0+iv1nIz2Q2PFS44le8CPaC4x4aXfqQrkiHQWzn1q0tY/j4i+NnPAzRkvp6stbYBv9rgvIxNyJR3DdAyN55hqo2oGW2cjL3UdlB6HGlzPKWDJgB1ZeP7uM5xfSaX9aJhEGoR5/0BgAEzzuOGQTBG5FKamSpr4l78U7u2/8RldBkt0iaPQFlqnB9fAdpE/vc6s0p7x7hUDLXVSr0StFqShrkwG/9DrF+seTdNidMhRTAfbmwV1Dw==
X-YMail-OSG: exRlc2EVM1mzmYP.uICCVuaTXGpHf_fyKQ7xu3UwwaZaby7FB7X0v0n7nyEULQx
 7SKsUmaVuZ0crevxSMA5lbW56kiTEosX4YuLKIlUibIf2ZzKpQEUiO3XL4woZUr62Y9pVy4BNLkk
 aR2N_3Fi9FohSs115jTSiFXqCrn7OmUipmVIf676Hl3aqsMRAiHclNAjx6QU_9chdRcljkIcRyYB
 UrFXzI11qYvQh83itxxWFhZrQgq1MIN8gaaTBUtWL._LVDOuiyYtUcCpSjiXP.c3MGACBNedcitO
 aMDJmXCQXtWWOUn_ZoujVwWzNmYBamSLw8sWf582ryyFQ5diia_.Yhc_fAA2y9XSmI0zVb6q4A01
 _QGhW4siJopfzMU6SXvmaCxRfeSVfn7E_2joMjBQG1zih4HgDIhYwClf5xtvJkBCWZnfCzbp8rgI
 eBCH4.GzGlBc4euw4k3C.L3uRyMISeskCWW3T6KF_zSpPTNy18gasnFqZVrBUKVZBfEMnqvC7HDo
 F4NNl7ch5asMtNwkXwrikbN5EJvjpOA5HRiBOFFZ5B8K1DAe3gfrsLhR38Y8K59QoVgIt7r.VPJE
 HoI59asPfTqj0tmQjd4AABvdE9VNbf02dISiZvF7triT4iFmbr2kJd456_m.8Gj.qYfdapQfX0G8
 jcVV8WBrVXnNCtgVW47qZ6bEy_xo4K5BNULL8pgq_z0tw4xWnFwkkaOGLebFHDrNyaKTiFf9wWMT
 Yvbw.aG6XiD4jJxrLjIjrzPqmqZ_MnVpoDR6T7gwqB57RWt70GjPDaGsBNnr7XmKGPpHDdq6gbxQ
 eeFYuL9WaevoVy3g6EBVkRgZtvBu8QxBsthQIujv3e12_4ACj9DZBB7dUYNBxhUI_GChXUip1WQ.
 ROtVP7QgjRJBjNZKT.aNay23PVhYsD.MnpFs20pwJqCW1N2nM
From: Oliver Kiddle <okiddle@yahoo.co.uk>
To: Zsh workers <zsh-workers@zsh.org>
Subject: PATCH: update samba completion
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-ID: <16832.1528384918.1@thecus>
Date: Thu, 07 Jun 2018 17:21:58 +0200
Message-ID: <16833.1528384918@thecus>

This patch updates another fairly old completion function that had got
out-of-date, in this case _samba. Most of the patch is adding the long
forms of various options.

smb.conf options could be fairly effectively completed for --option if
we were to run testparm --show-all-parameters and do some basic
conversion on the output.

Oliver

diff --git a/Completion/Unix/Command/_samba b/Completion/Unix/Command/_samba
index faad69ba4..9a2fea9d6 100644
--- a/Completion/Unix/Command/_samba
+++ b/Completion/Unix/Command/_samba
@@ -1,93 +1,112 @@
 #compdef smbcontrol smbclient nmblookup smbstatus
 
-local expl msgs args
+local curcontext="$curcontext" ret=1
+local -a state line expl msgs args ign
+
+(( CURRENT == 2 )) || ign='!'
+args=(
+  '(-d --debuglevel)'{-d+,--debuglevel=}'[set debug level]:debug level (1..10) [1]'
+  '(-s --configfile)'{-s+,--configfile=}'[specify alternate smb.conf file]:config file:_files'
+  '(-l --log-basename)'{-l+,--log-basename=}'[specify base name for log files]:base name:_files'
+  '*--option=[set smb.conf option from command line]:option=value'
+  "${ign}(1 2 3 -)"{-\?,--help}'[display usage information]'
+  "${ign}(1 2 3 -)--usage[display brief usage information]"
+  "${ign}(1 2 3 - *)"{-V,--version}'[display version information]'
+)
 
 case $service in
   smbcontrol)
-    case $CURRENT in
-      3)
-	msgs=( debug ping profile debuglevel profilelevel )
-	case $words[CURRENT-1] in
-	  nmbd) msgs=( $msgs force-election ) ;;
-	  smbd) msgs=( $msgs printer-notify ) ;;
-	  -i) return 1 ;;
-	esac
-        _wanted message-type expl 'message types' compadd -a msgs
+    _arguments -C -S $args \
+      '(-t --timeout)'{-t+,--timeout=}'[set timeout]:timeout (seconds)' \
+      ':destination:(all nmbd smbd winbindd)' \
+      ':message type:->message-types' \
+      ':parameter:->parameters' && ret=0
+
+    case $state in
+      message-types)
+        msgs=( ${${${${${(f)"$(_call_program message-types smbcontrol -\? 2>&1)"}[(r)<message-type*,-1]}[2,-1]#?}/ ##(#b)(?)/:$match:l}%:( |\(null\))} )
+        _describe -t message-types 'message type' msgs -M 'r:|-=* r:|=*' && ret=0
       ;;
-      4)
-        case $words[CURRENT-1] in
-	  profile)
-	    _wanted parameter expl 'parameter' compadd on off flush count
-	  ;;
-	  debug) _message -e levels 'debug level' ;;
-	  ping) _message -e numbers 'number of ping messages' ;;
-	esac
-      ;;
-      *)
-        _arguments \
-          '-i[run interactively]' \
-          ':destination:(nmbd smbd)'
+      parameters)
+        case $line[2] in
+          profile)
+            _wanted parameter expl 'parameter' compadd on off flush count && ret=0
+          ;;
+          debug) _message -e levels 'debug level' ;;
+          ping) _message -e numbers 'number of ping messages' ;;
+        esac
       ;;
     esac
+    return ret
   ;;
   smbclient)
-    args=(
-      '(-N -A)2:password'
-      '(2)-s+[specify location of smb.conf]:smb.conf location:_files'
-      '(2)-O+[specify socket options]:socket options'
-      '(2)-R+[specify name resolution order]:name resolution order:_values -s " " "name resolution order" lmhosts host wins bcast'
-      '(2 -L -D -T)-M+[send message]:host:_hosts'
-      '(2)-i+[specify NetBIOS scope]:scope'
-      '(2)-N[suppress password prompt]'
-      '(2)-n+[specify local NetBIOS name]:local machine name'
-      '(2)-d+[specify debug level]:debug level:(0 1 2 3 4 5 6 7 8 9 10)'
-      '(2)-p+[specify tcp port]:tcp port'
-      '(2)-l+[specify base log filename]:base log filename'
-      '(2)-I+[specify IP address of server]:IP address'
-      '(2)-E[output messages to stderr]'
-      '(2)-U+[specify username]:username:_users'
-      '(2)-A+[specify file containing username/password]:file:_files'
-      '(2 -M -D -T)-L+[list services on server]:host:_hosts'
-      '(2)-t+[specify terminal code]:terminal code'
-      '(2)-b+[specify buffersize]:transmit/send buffer size (bytes)'
-      '(2)-W+[specify workgroup]:workgroup'
-      '(2 -M -L)-T+[specify tar options]:tar options'
-      '(2 -M -L)-D+[initial directory]:initial directory'
-      '(2)-c[specify commands]:command string'
+    args+=(
+      '(-N -A)2: :_guard "^-*" password'
+      '(2 -R --name-resolve)'{-R+,--name-resolve=}'[specify name resolution order]:name resolution order:_values -s " " "name resolution order" lmhosts host wins bcast'
+      '(2 -M --message -L --list -D --directory -T --tar)'{-M+,--message=}'[send message]:host:_hosts'
+      '(2 -I --ip-address)'{-I+,--ip-address=}'[specify IP address of server]:IP address'
+      '(2 -E --stderr)'{-E,--stderr}'[output messages to stderr]'
+      '(2 -M --message -D --directory -T --tar)'{-L+,--list=}'[list services on server]:host:_hosts'
+      '(-m --max-protocol)'{-m+,--max-protocol=}'[set the max protocol level]:level'
+      '(2 -T --tar -M --message -L --list)'{-T+,--tar=}'[specify tar options]:tar options'
+      '(2 -D --directory -M --message -L --list)'{-D+,--directory=}'[specify initial directory]:initial directory'
+      '(2 -c --command)'{-c,--command=}'[specify commands]:command string'
+      '(2 -b --send-buffer)'{-b+,--send-buffer=}'[change transmit/send buffer]:buffer size (bytes) [65520]'
+      '(-t --timeout)'{-t+,--timeout=}'[change the per-operation timeout]:timeout (seconds)'
+      '(2 -p --port)'{-p+,--port=}'[specify tcp port]:tcp port'
+      '(-g --grepable)'{-g,--grepable}'[produce grepable output]'
+      '(-B --browse)'{-B,--browse}'[browse SMB servers using DNS]'
+      '(2 -d --debuglevel)'{-d+,--debuglevel=}'[specify debug level]:debug level:(0 1 2 3 4 5 6 7 8 9 10)'
+      '(2 -O --socket-options)'{-O+,--socket-options=}'[specify socket options]:socket options'
+      '(2 -n --netbiosname)'{-n+,--netbiosname=}'[specify local NetBIOS name]:local machine name'
+      '(2 -W --workgroup)'{-W+,--workgroup=}'[specify workgroup]:workgroup'
+      '(2 -i --scope)'{-i+,--scope=}'[specify NetBIOS scope]:scope'
+      '(2 -U --user)'{-U+,--user=}'[specify username]:username:_users'
+      '(2 -N --no-pass)'{-N,--no-pass}'[suppress password prompt]'
+      '(-k --kerberos)'{-k,--kerberos}'[use kerberos (active directory) authentication]'
+      '(2 -A --authentication-file)'{-A+,--authentication-file=}'[specify file containing username/password]:file:_files'
+      '(-S --signing)'{-S+,--signing=}'[set the client signing state]:state:(on off required)'
+      '(-P --machine-pass)'{-P,--machine-pass}'[use stored machine account password]'
+      '(-e --encrypt)'{-e,--encrypt}'[encrypt SMB transport]'
+      '(-C --use-ccache)'{-C,--use-ccache}'[use the winbind ccache for authentication]'
+      '--pw-nt-hash[the supplied password is the NT hash]'
     )
-    if (( CURRENT == 2 )); then
-      args=( $args 
-        '1:service name:_hosts -P // -S /'
-        '(-s -O -R -M -i -N -n -d -p -l -I -E -U -A -L -t -b -W -T -D -c)-h[display usage information]'
-      )
-    fi
-    _arguments -s "$args[@]"
+    (( CURRENT == 2 )) && args+=( '1:service name:_hosts -P // -S /' )
+    _arguments -s -S $args
   ;;
   nmblookup)
-    _arguments -s -A "-*" \
-      '(-h)-R[set recursion desired in packet]' \
-      '(-h)-M[search for a master browser]' \
-      '(-h)-S[lookup node status as well]' \
-      '(-h)-T[perform reverse DNS on IP addresses]' \
-      '(-h)-r[use root port 137]' \
-      '(-h)-A[query node status on IP address]' \
-      '(-R -M -S -T -r -A -B -U -d -s -i *)-h[print help message]' \
-      '(-h)-B+[specify broadcast address]:broadcast address' \
-      '(-h)-U+[specify unicast address]:unicast address' \
-      '(-h)-d+[specify debug level]:debug level:(0 1 2 3 4 5 6 7 8 9 10)' \
-      '(-h)-s+[specify location of smb.conf]:smb.conf location:_files' \
-      '(-h)-i+[specify NetBIOS scope]:scope' \
-      '(-h)*:NetBIOS name:_hosts'
+    _arguments -s -S $args \
+      '(-B --broadcast)'{-B+,--broadcast=}'[specify broadcast address]:broadcast address' \
+      '(-f --flags)'{-f,--flags}'[list NMB flags returned]' \
+      '(-U --unicast)'{-U+,--unicast=}'[specify unicast address]:unicast address' \
+      '(-M --master-browser)'{-M,--master-browser}'[search for a master browser]' \
+      '(-R --recursion)'{-R,--recursion}'[set recursion desired in packet]' \
+      '(-S --status)'{-S,--status}'[lookup node status as well]' \
+      '(-T --translate)'{-T,--translate}'[perform reverse DNS on IP addresses]' \
+      '(-r --root-port)'{-r,--root-port}'[use root port 137]' \
+      '(-A --lookup-by-ip)'{-A,--lookup-by-ip}'[query node status on IP address]' \
+      '(-d --debuglevel)'{-d+,--debuglevel=}'[specify debug level]:debug level:(0 1 2 3 4 5 6 7 8 9 10)' \
+      '(-O --socket-options)'{-O+,--socket-options=}'[specify socket options to use]:socket option' \
+      '(-n --netbiosname)'{-n+,--netbiosname=}'[specify primary netbios name]:netbios name' \
+      '(-W --workgroup)'{-W+,--workgroup=}'[specify workgroup name]:workgroup name' \
+      '(-i --scope)'{-i+,--scope=}'[specify NetBIOS scope]:scope' \
+      '(h)*:NetBIOS name:_hosts'
   ;;
   smbstatus)
-    args='(-b -d -L -p -S)'
-    _arguments -s \
-      "$args-b[brief output]" \
-      "$args-d[detailed output]" \
-      "$args-L[list only locks]" \
-      "$args-p[list smbd(8) processes]" \
-      "$args-S[list only shares]" \
-      '-s+[specify location of smb.conf]:smb.conf location:_files' \
-      '-u+[specify user to restrict information to]:user:_users'
-   ;;
+    _arguments -s -S $args \
+      {-b,--brief}'[brief output]' \
+      '(-v --verbose)'(-v,--verbose)'[be verbose]' \
+      '(-d --debuglevel)'{-d+,--debuglevel=}'[specify debug level]:debug level:(0 1 2 3 4 5 6 7 8 9 10)' \
+      '(-u --user)'{-u+,--user=}'[specify user to restrict information to]:user:_users' \
+      '(-B --byterange)'{-B,--byterange}'[include byte range locks]' \
+      '(-n --numeric)'{-n,--numeric}'[numeric uid/gid]' \
+      '(-f --fast)'{-f,--fast}'[skip checks if processes still exist]' \
+      + '(output)' \
+      {-P,--profile}'[do profiling]' \
+      {-R,--profile-rates}'[show call rates]' \
+      {-L,--locks}'[list only locks]' \
+      {-p,--processes}'[list smbd(8) processes]' \
+      {-S,--shares}'[list only shares]' \
+      {-N,--notify}'[list only notifies]'
+  ;;
 esac