;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:37 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/tramp-smb.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'tramp)
#@45 Method to connect SAMBA and M$ SMB servers.
(defconst tramp-smb-method "smb" (#$ . 573))
(byte-code "\303>\204
\304\305	\306B\"\210\304\307\310\n	E\"\210\304\311\312	\313Q\314B\"\210\315\316\317\"\210\320\321\322\323\324\316\325\326&\210\320\327\330\331\324\316\325\332&\207" [system-type tramp-smb-method tramp-prefix-domain-regexp (cygwin windows-nt) add-to-list tramp-methods ((tramp-remote-shell "") (tramp-tmpdir "/C$/Temp")) tramp-default-method-alist nil tramp-default-user-alist "\\`" "\\'" (nil nil) eval-after-load tramp (tramp-set-completion-function tramp-smb-method '((tramp-parse-netrc "~/.netrc"))) custom-declare-variable tramp-smb-program "smbclient" "Name of SMB client to run." :group :type string tramp-smb-conf "/dev/null" "Path of the smb.conf file.\nIf it is nil, no smb.conf will be added to the `tramp-smb-program'\ncall, letting the SMB client use the default one." (choice (const nil) (file :must-match t))] 8)
#@35 Version string of the SMB client.
(defvar tramp-smb-version nil (#$ . 1521))
#@38 Regexp of SMB server identification.
(defconst tramp-smb-server-version "Domain=\\[[^]]*\\] OS=\\[[^]]*\\] Server=\\[[^]]*\\]" (#$ . 1604))
#@51 Regexp used as prompt in smbclient or powershell.
(defconst tramp-smb-prompt "^\\(smb:\\|PS\\) .+> \\|^\\s-+Server\\s-+Comment$" (#$ . 1750))
#@48 Regexp for login error strings of SMB servers.
(defconst tramp-smb-wrong-passwd-regexp "\\(?:NT_STATUS_\\(?:LOGON_FAILURE\\|WRONG_PASSWORD\\)\\)" (#$ . 1898))
#@102 Regexp for possible error strings of SMB servers.
Used instead of analyzing error codes of commands.
(defconst tramp-smb-errors (byte-code "\300\301\302\303\304\305\306\307\257\310#\207" [mapconcat identity "Connection\\( to \\S-+\\)? failed" "Read from server failed, maybe it closed the connection" "Call timed out: server did not respond" "\\S-+: command not found" "Server doesn't support UNIX CIFS calls" "\\(?:ERR\\(?:DOS\\|HRD\\|SRV\\|bad\\(?:file\\|pw\\)\\|filexists\\|no\\(?:access\\|mem\\|suchshare\\)\\)\\|NT_STATUS_\\(?:ACC\\(?:ESS_DENIED\\|OUNT_LOCKED_OUT\\)\\|BAD_NETWORK_NAME\\|C\\(?:ANNOT_DELETE\\|ONNECTION_REFUSED\\)\\|D\\(?:IRECTORY_NOT_EMPTY\\|UPLICATE_NAME\\)\\|FILE_IS_A_DIRECTORY\\|I\\(?:MAGE_ALREADY_LOADED\\|O_TIMEOUT\\)\\|LOGON_FAILURE\\|N\\(?:ETWORK_ACCESS_DENIED\\|O\\(?:T_IMPLEMENTED\\|_SUCH_\\(?:FILE\\|USER\\)\\)\\)\\|OBJECT_NAME_\\(?:COLLISION\\|\\(?:INVALI\\|NOT_FOUN\\)D\\)\\|SHARING_VIOLATION\\|TRUSTED_RELATIONSHIP_FAILURE\\|UNSUCCESSFUL\\|WRONG_PASSWORD\\)\\)" "\\|"] 8) (#$ . 2064))
#@124 List of pattern/action pairs.
This list is used for login to SMB servers.

See `tramp-actions-before-shell' for more info.
(defconst tramp-smb-actions-with-share '((tramp-smb-prompt tramp-action-succeed) (tramp-password-prompt-regexp tramp-action-password) (tramp-wrong-passwd-regexp tramp-action-permission-denied) (tramp-smb-errors tramp-action-permission-denied) (tramp-process-alive-regexp tramp-action-process-alive)) (#$ . 3093))
#@124 List of pattern/action pairs.
This list is used for login to SMB servers.

See `tramp-actions-before-shell' for more info.
(defconst tramp-smb-actions-without-share '((tramp-password-prompt-regexp tramp-action-password) (tramp-wrong-passwd-regexp tramp-action-permission-denied) (tramp-smb-errors tramp-action-permission-denied) (tramp-process-alive-regexp tramp-action-out-of-band)) (#$ . 3536))
#@132 List of pattern/action pairs.
This list is used for tar-like copy of directories.

See `tramp-actions-before-shell' for more info.
(defconst tramp-smb-actions-with-tar '((tramp-password-prompt-regexp tramp-action-password) (tramp-wrong-passwd-regexp tramp-action-permission-denied) (tramp-smb-errors tramp-action-permission-denied) (tramp-process-alive-regexp tramp-smb-action-with-tar)) (#$ . 3940))
#@129 Alist of handler functions for Tramp SMB method.
Operations not mentioned here will be handled by the default Emacs primitives.
(defconst tramp-smb-file-name-handler-alist '((add-name-to-file . tramp-smb-handle-add-name-to-file) (copy-directory . tramp-smb-handle-copy-directory) (copy-file . tramp-smb-handle-copy-file) (delete-directory . tramp-smb-handle-delete-directory) (delete-file . tramp-smb-handle-delete-file) (directory-file-name . tramp-handle-directory-file-name) (directory-files . tramp-smb-handle-directory-files) (directory-files-and-attributes . tramp-handle-directory-files-and-attributes) (dired-call-process . ignore) (dired-compress-file . ignore) (dired-uncache . tramp-handle-dired-uncache) (expand-file-name . tramp-smb-handle-expand-file-name) (file-accessible-directory-p . tramp-smb-handle-file-directory-p) (file-attributes . tramp-smb-handle-file-attributes) (file-directory-p . tramp-smb-handle-file-directory-p) (file-executable-p . tramp-handle-file-exists-p) (file-exists-p . tramp-handle-file-exists-p) (file-local-copy . tramp-smb-handle-file-local-copy) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-smb-handle-file-name-all-completions) (file-name-as-directory . tramp-handle-file-name-as-directory) (file-name-completion . tramp-handle-file-name-completion) (file-name-directory . tramp-handle-file-name-directory) (file-name-nondirectory . tramp-handle-file-name-nondirectory) (file-newer-than-file-p . tramp-handle-file-newer-than-file-p) (file-ownership-preserved-p . ignore) (file-readable-p . tramp-handle-file-exists-p) (file-regular-p . tramp-handle-file-regular-p) (file-remote-p . tramp-handle-file-remote-p) (file-symlink-p . tramp-handle-file-symlink-p) (file-writable-p . tramp-smb-handle-file-writable-p) (find-backup-file-name . tramp-handle-find-backup-file-name) (insert-directory . tramp-smb-handle-insert-directory) (insert-file-contents . tramp-handle-insert-file-contents) (load . tramp-handle-load) (make-directory . tramp-smb-handle-make-directory) (make-directory-internal . tramp-smb-handle-make-directory-internal) (make-symbolic-link . tramp-smb-handle-make-symbolic-link) (process-file . tramp-smb-handle-process-file) (rename-file . tramp-smb-handle-rename-file) (set-file-modes . tramp-smb-handle-set-file-modes) (set-file-times . ignore) (set-visited-file-modtime . ignore) (shell-command . tramp-handle-shell-command) (start-file-process . tramp-smb-handle-start-file-process) (substitute-in-file-name . tramp-smb-handle-substitute-in-file-name) (unhandled-file-name-directory . tramp-handle-unhandled-file-name-directory) (vc-registered . ignore) (verify-visited-file-modtime . ignore) (write-region . tramp-smb-handle-write-region)) (#$ . 4348))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\305\306\307\310\311&	\210\300\315\316\317\304\305\306\307\310\311&	\207" [custom-declare-variable tramp-smb-winexe-program "winexe" "Name of winexe client to run.\nIf it isn't found in the local $PATH, the absolute path of winexe\nshall be given.  This is needed for remote processes." :group tramp :type string :version "24.3" tramp-smb-winexe-shell-command "powershell.exe" "Shell to be used for processes on remote machines.\nThis must be Powershell V2 compatible." tramp-smb-winexe-shell-command-switch "-file -" "Command switch used together with `tramp-smb-winexe-shell-command'.\nThis can be used to disable echo etc."] 10)
#@43 Check if it's a filename for SMB servers.
(defalias 'tramp-smb-file-name-p #[(filename) "\302\303!!	\230\207" [filename tramp-smb-method tramp-file-name-method tramp-dissect-file-name] 3 (#$ . 7811)])
(put 'tramp-smb-file-name-p 'byte-optimizer 'byte-compile-inline-expand)
#@130 Invoke the SMB related OPERATION.
First arg specifies the OPERATION, second arg is a list of arguments to
pass to the OPERATION.
(defalias 'tramp-smb-file-name-handler #[(operation &rest args) "\305	\"\211\203\306 \307\216\310\nA\f\"*\202\311\f\")\207" [operation tramp-smb-file-name-handler-alist fn save-match-data-internal args assoc match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) apply tramp-run-real-handler] 4 (#$ . 8093)])
(byte-code "\301>\204
\302\303\304\305B\"\210\302\207" [system-type (cygwin windows-nt) add-to-list tramp-foreign-file-name-handler-alist tramp-smb-file-name-p tramp-smb-file-name-handler] 4)
#@42 Like `add-name-to-file' for Tramp files.
(defalias 'tramp-smb-handle-add-name-to-file #[(filename newname &optional ok-if-already-exists) "\306	\"\204l\307\310!\203\202	!\311\n!\312\n!\313\n!\314\n!1\315\n!2\n\316\317\320C345\32165\322\323\324\211\325N\326\32743#E!C3475\321\330\331\217\210,\332\326\32743#C\"\210.\307!8\3118!9\3128!:\3138!;\3148!<\3158!=\307	!>\311>!?\312>!@\313>!A\314>!B\315>!C\333!\203\371>\316\334C345\32165\322\323\324\211\325N\326\32743#E!C3475\321\335\336\217\210,\332\326\32743#C\"\210-D\204T
\337	!\203T
D\247\204T
\340\327\341	\"!\203T
>\316\342	C345\32165\322\323\324\211\325N\326\32743#E!C3475\321\343\344\217\210,\332\326\32743#C\"\210-\345>\346B!\"\210\345>B\"\210\3478\327\350\3518!\203t
\352\202u
\353\3548!\354>!$\"?\205\304
>\316\355\356 C345\32165\322\323\324\211\325N\326\32743#E!C3475\321\357\360\217\210,\332\326\32743#C\"-.\f\207" [filename newname v method user host tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-error "add-name-to-file: %s" "only implemented for same method, same user, same host" nil 1 "%s" error-message-string error-message apply format (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) signal file-directory-p "add-name-to-file: %s must not be a directory" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) file-exists-p y-or-n-p "File %s already exists; make it a new name anyway? " "add-name-to-file: file %s already exists" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-flush-file-property file-name-directory tramp-smb-send-command "%s \"%s\" \"%s\"" tramp-smb-get-cifs-capabilities "link" "hardlink" tramp-smb-get-localname "error with add-name-to-file, see buffer `%s' for details" buffer-name (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) localname hop args fmt-string vec-or-proc tramp-message-show-message level v1 v1-method v1-user v1-host v1-localname v1-hop v2 v2-method v2-user v2-host v2-localname v2-hop ok-if-already-exists] 10 (#$ . 8781)])
#@31 Untar from connection buffer.
(defalias 'tramp-smb-action-with-tar #[(proc vec) "\306!\307>\204
\310\311\312\"\207r\313	!q\210eb\210\314\n\315\316#\205<~\210\315y\210	\317e`{\315\315\320\321\217\210,e`|\210\310\311\322\")\207" [proc vec tramp-smb-server-version args fmt-string level process-status (run open) throw tramp-action process-died tramp-get-connection-buffer search-forward-regexp nil t 6 (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) ok vec-or-proc] 4 (#$ . 13384)])
#@40 Like `copy-directory' for Tramp files.
(defalias 'tramp-smb-handle-copy-directory #[(dirname newname &optional keep-date parents copy-contents) "\306!\306	!\307!\307	!\310\203\202	!\311\f!\312\f!@\313\f!A\314\f!B\315\f!C\316\211DE\f\317\320\321\322	#CFGHI\316\323\324\217\210,J\203iK\203i\317L\325^X\203i\316\326\327\217\210\330\216J\205sD?J\203&
\n\203&
\331\306M\316N\332\333!\203\223\334\333\335N@!\206
\336\337!\203\252\340\337!\204\245\341\337!\205
\337 \202
\342\343!\211O\205\267\344O!)\203\303\345\342\343!!\202
\342\346!\211O\205\320\344O!)\203\334\345\342\346!!\202
\342\347!\211O\205\351\344O!)\203\365\345\342\347!!\202
\350\351!\203

\345\351!\202
\352\353!\210\345\354!)\"!P\355\216\356PQR$\210\356P	QR$*\202*\204.
\n\203\344	!\203M
\357!\357	!\230\204M
\306\357!	\"\n\203M
\310	!\344	!\204Y
\360	R\"\210\311\f!S\312\f!T\361\f!U\362\f!V\361\f!W\363\f!X\364\f!Y\365\f!Z\345\366\367\370\371\f!#!B\331\306M\316N\332\333!\203\242
\334\333\335N@!\206\336\337!\203\271
\340\337!\204\264
\341\337!\205\337 \202\342\343!\211O\205\306
\344O!)\203\322
\345\342\343!!\202\342\346!\211O\205\337
\344O!)\203\353
\345\342\346!!\202\342\347!\211O\205\370
\344O!)\203\345\342\347!!\202\350\351!\203\345\351!\202\352\353!\210\345\354!)\"!P[\372W\370ZR\373EF\374VG!\204>\375F\376VD\"F\202F\375F\377C\"FX\203W\375F\201aXD\"FY\203h\375F\201bYD\"F\\\203y\375F\201c\\D\"F\203\253\375F\201d\201eB!\201f\201e\201g!\201h\201i\201j\201k\201eP!\257	\"\202\331\375\201i\201l\201k\201e!\201m\201h\257F\201d\201eB!\201f\201e\201n!F#F\201o\216\201p\201q!]r]q\210\201r\216\201s\f\201t\201up!#\210\201s\f\201vp#\210\203,\360\306\201wPBP\"\201R\"\210\201x	\201yPBP!\"\210P^\201z\201{\f!\201|\f!\201}\201~F\201##_\f\201\200\201\201\201}\201~\201\202_!\201#CFGHI\316\201\203\201\204\217\210,\201\205_\316\"\210\201\206_\f\316`$\210\201\207_!\201\210>\203\241\201\211\201\212!\210\202\211\f\201\200\201\213\201\214 CFGHI\316\201\215\201\216\217\210.Q\203\324\201\217	\201\220\201\221!8\"\210Q\204\344\201\222	\201\223!\"\210\n\205*\310	!\311\f!\312\f!@\313\f!A\314\f!B\315\f!C\201\224\f\201\225B!\"\210\201\224\fB\".\202*\201\226\201\227	QRF\".\f\207" [dirname newname t2 t1 v method expand-file-name tramp-tramp-file-p tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop nil 0 "%s..." format #1="Copying %s to %s" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2="" 1 2 #3="Warning: " #4="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5="(%d) # " vec-or-proc default-directory] 6) ((error)) 3 (byte-code "\304\305!\204\f\306\305!\205\305\307\310	#!\211\205\311\312\313\314\n$\304\207" [dirname newname pr tm subrp make-progress-reporter functionp format #1# run-at-time 3 0.1 tramp-progress-reporter-update] 6) ((error)) ((byte-code "\203\306\307!\204\310\307!\203\307!\210	\311\312\313\314\n#C\315\316\317\217\210,\315\207" [tm v dirname newname args fmt-string subrp cancel-timer functionp 0 "%s...done" format #1# nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) level vec-or-proc] 7)) make-temp-name boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" ((byte-code "\301\302\"\207" [tmpdir tramp-compat-delete-directory recursive] 3)) tramp-compat-copy-directory file-name-nondirectory make-directory tramp-file-name-real-host tramp-file-name-real-user tramp-file-name-domain tramp-file-name-port tramp-smb-get-share replace-regexp-in-string "\\\\" "/" tramp-smb-get-localname "//" "-E" zerop append "-U" "-N" user host localname hop tm pr args fmt-string level vec-or-proc tramp-message-show-progress-reporter-message tramp-message-show-message tramp-verbose tramp-temp-name-prefix file-name-handler-alist d tmpdir keep-date parents tramp-current-method tramp-current-user tramp-current-host real-user real-host domain port share tramp-smb-program tramp-smb-conf #6=#:temp-buffer default-directory p tramp-smb-actions-with-tar "-W" "-p" "-s" "-D" shell-quote-argument "-c" "tar qc - *" "|" "tar" "xfC" "-" "cfC" "." "tar qx -" ((byte-code "\303\304\305#\210\303\306\305#\210	\203\307\n\310\"\210\305\207" [v t1 tmpdir tramp-set-connection-property "process-name" nil "process-buffer" delete-directory recurse] 4)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#6# buffer-name kill-buffer] 2)) tramp-set-connection-property "process-name" buffer-name "process-buffer" ".." make-symbolic-link directory-file-name start-process-shell-command tramp-get-connection-name tramp-get-connection-buffer mapconcat identity " " 6 "%s" process-command (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) tramp-compat-set-process-query-on-exit-flag tramp-process-actions process-status (run open) sit-for 0.1 "\n%s" buffer-string (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) set-file-times 5 file-attributes set-file-modes tramp-default-file-modes tramp-flush-file-property file-name-directory tramp-run-real-handler copy-directory] 12 (#$ . 14492)])
#@171 Like `copy-file' for Tramp files.
KEEP-DATE has no effect in case NEWNAME resides on an SMB server.
PRESERVE-UID-GID and PRESERVE-SELINUX-CONTEXT are completely ignored.
(defalias 'tramp-smb-handle-copy-file #[(filename newname &optional ok-if-already-exists keep-date preserve-uid-gid preserve-selinux-context) "\306!\306	!\307\211\310\311!\203\202	!\312\313\314\315	#C;<\307\316\317\217\210,=\203E>\203E\312?\320^X\203E\307\321\322\217\210\323\216=\205N\n?=\324!\203b\325	@\326\211%\210\202\201
\327!\211A\203s\330\331\332\217\210\202\200
\324	!\203\200\306\333!	\"\310	!B\334B!C\335B!D\336B!E\337B!F\340B!GH\204\346\341	!\203\346B\342	\307*<\307><\343\344\345*\211\346N\347\314
\f#E!C;<\307\350\351\217\210,\352*\347\314
\f#C\"\210-\353B\354F!\"\210\353BF\"\210\355B!\2046
B\356\357	C*<\307><\343\344\345*\211\346N\347\314
\f#E!C;<\307\360\361\217\210,\352*\347\314
\f#C\"\210-\362B\314\363\364B!#\"\204~
B\356\365C*<\307><\343\344\345*\211\346N\347\314
\f#E!C;<\307\366\367\217\210,\352*\347\314
\f#C\"\210-.)@\205\216
\370	\371\372!8\",\207" [filename newname tm pr args fmt-string expand-file-name nil tramp-dissect-file-name file-remote-p 0 "%s..." format #1="Copying %s to %s" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2="" 1 2 #3="Warning: " #4="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5="(%d) # " vec-or-proc default-directory] 6) ((error)) 3 (byte-code "\304\305!\204\f\306\305!\205\305\307\310	#!\211\205\311\312\313\314\n$\304\207" [filename newname pr tm subrp make-progress-reporter functionp format #1# run-at-time 3 0.1 tramp-progress-reporter-update] 6) ((error)) ((byte-code "\203\306\307!\204\310\307!\203\307!\210\311\312	!\203	\202 \n!\313\314\315\316	\n#C\317\320\321\217\210,\317\207" [tm filename newname args fmt-string level subrp cancel-timer functionp tramp-dissect-file-name file-remote-p 0 "%s...done" format #1# nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) vec-or-proc] 7)) file-directory-p tramp-compat-copy-directory t file-local-copy err (rename-file tmpfile newname ok-if-already-exists) (((error quit) (byte-code "\302!\210\303	@	A\"\207" [tmpfile err delete-file signal] 3))) file-name-nondirectory tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-exists-p file-already-exists 1 "%s" error-message-string error-message apply (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) signal tramp-flush-file-property file-name-directory tramp-smb-get-share file-error "Target `%s' must contain a share name" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) tramp-smb-send-command "put \"%s\" \"%s\"" tramp-smb-get-localname "Cannot copy `%s'" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #2# 1 2 #3# #4# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #5# vec-or-proc default-directory] 6) ((error)) set-file-times 5 file-attributes level vec-or-proc tramp-message-show-progress-reporter-message tramp-message-show-message tramp-verbose keep-date tmpfile v method user host localname hop ok-if-already-exists] 11 (#$ . 22244)])
#@42 Like `delete-directory' for Tramp files.
(defalias 'tramp-smb-handle-delete-directory #[(directory &optional recursive) "\306\307!!\310!\205\256	\203\311\312\313\314\315#\"\210\316!\317\n!\320\n!\321\n!\322\n!.\323\n!/\324\n\325.!\"\210\326\n.\"\210\327\n\330\331\332\n!\203O\333\202P\334\335\n!#\"?\205\254r\336\n!q\210eb\210\3370\340\341#\210\n\342\343\344\345!D12-3\34043\346\347\350-\211\351N\352\33021#E!C1253\340\353\354\217\210,\355-\352\33021#C\"..\207" [directory recursive v method user host directory-file-name expand-file-name file-exists-p mapc #[(file) "\302!\203\303	\"\207\304!\207" [file recursive file-directory-p tramp-compat-delete-directory delete-file] 3] directory-files full "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*" tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-file-property file-name-directory tramp-flush-directory-property tramp-smb-send-command format "%s \"%s\"" tramp-smb-get-cifs-capabilities "posix_rmdir" "rmdir" tramp-smb-get-localname tramp-get-connection-buffer search-forward-regexp nil t file-error "%s `%s'" match-string 0 1 "%s" error-message-string error-message apply (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) signal localname hop tramp-smb-errors args fmt-string vec-or-proc tramp-message-show-message level] 10 (#$ . 28177)])
#@37 Like `delete-file' for Tramp files.
(defalias 'tramp-smb-handle-delete-file #[(filename &optional trash) "\306!\307!\205\234\310!\311	!\312	!\313	!\314	!\315	!'\316	\317
!\"\210\316	
\"\210\320	\321\322\323	!\203=\324\202>\325\326	!#\"?\205\232r\327	!q\210eb\210\330(\331\332#\210	\333\334\335\336!D)*&+\331,+\337\340\341&\211\342N\343\321*)#E!C)*-+\331\344\345\217\210,\346&\343\321*)#C\"..\207" [filename v method user host localname expand-file-name file-exists-p tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-file-property file-name-directory tramp-smb-send-command format "%s \"%s\"" tramp-smb-get-cifs-capabilities "posix_unlink" "rm" tramp-smb-get-localname tramp-get-connection-buffer search-forward-regexp nil t file-error "%s `%s'" match-string 0 1 "%s" error-message-string error-message apply (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) signal hop tramp-smb-errors args fmt-string vec-or-proc tramp-message-show-message level] 10 (#$ . 30216)])
#@41 Like `directory-files' for Tramp files.
(defalias 'tramp-smb-handle-directory-files #[(directory &optional full match nosort) "\305\306\307\310\"\"\n\203\311\312\305\313	\"\"\203\305\314	\"\f\204&\315	\316\"	)\207" [directory result match full nosort mapcar directory-file-name file-name-all-completions "" delete nil #[(x) "\302	\"\205	\207" [match x string-match] 3] #[(x) "\302	\"\207" [x directory expand-file-name] 3] sort string-lessp] 5 (#$ . 31931)])
#@42 Like `expand-file-name' for Tramp files.
(defalias 'tramp-smb-handle-expand-file-name #[(name &optional dir) "\206		\206	\306\307\n!\204\310!\nP\311\n!\204#\312\313\n\314D\"\207\315\n!\316!\317!\320!\321!\322!\323\324\"\203d\325\326\327\330\"G!\203X\331!\202]\327\330\"\314\211$\312\307C\"\204s\306P\332\f
\312\313C\"$.\207" [dir default-directory name v method user "/" file-name-absolute-p file-name-as-directory tramp-tramp-file-p tramp-run-real-handler expand-file-name nil tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop string-match "\\`/?~\\([^/]*\\)" replace-match zerop match-string 1 tramp-file-name-real-user tramp-make-tramp-file-name host localname hop] 7 (#$ . 32411)])
#@41 Like `file-attributes' for Tramp files.
(defalias 'tramp-smb-handle-file-attributes #[(filename &optional id-format) "\204\301\302\303\304\217\207" [id-format integer nil (byte-code "\306!\307	!\310	!\311	!\312	!\313	!'\314
!\203\273\315	
\316\317(\"\320$\211)\320=\203\265\321	!\203E\322	!\203E\323	(\"\202\247\324\325!!*\326\327!*\"+(\330\232\203`\331\202a\332,(\330\232\203n\333\202o\332-\334	!.\335	!/+\205\245\336\337+A@\"\205\213\340\332,-\341\342+8\343\344+8+A@\345./\257\f.)\346	
\316\317(\")$\210))\2021
\321	!\203\317\322	!\203\317\323	(\"\2021
\324\325!!*\326\327!*\"+(\330\232\203\352\331\202\353\332,(\330\232\203\370\333\202\371\332-\334	!.\335	!/+\205/
\336\337+A@\"\205
\340\332,-\341\342+8\343\344+8+A@\345./\257\f..\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-name-absolute-p tramp-get-file-property format "file-attributes-%s" undef tramp-smb-get-share tramp-smb-get-stat-capability tramp-smb-do-file-attributes-with-stat tramp-smb-get-file-entries file-name-directory assoc file-name-nondirectory string "nobody" -1 "nogroup" tramp-get-inode tramp-get-device string-match "d" t (0 0) 3 (0 0) 2 nil tramp-set-file-property hop id-format value entries entry uid gid inode device] 13) ((error))] 3 (#$ . 33237)])
#@65 Implement `file-attributes' for Tramp files using stat command.
(defalias 'tramp-smb-do-file-attributes-with-stat #[(vec &optional id-format) "\306\307\310!C\311\312\313\217\210,r\314!q\210\311\211'\311\211()\311\211*+\311\211,-\311\211./\315\316\317\320!\"\"\205d
eb\210\3210\311\322#?\205d
m\204K
\323\324!\203w\325\326\327!!\326\330!\331\230\203i\322\202r\326\330!\332\230\205r\333'\202E
\323\334!\203\216\325\326\327!!/\325\326\330!!(\202E
\323\335!\203\304\326\327!.1\336\232\203\246\326\330!\202\253\325\326\330!!)1\336\232\203\272\326\337!\202\277\325\326\337!!*\202E
\323\340!\203\360\341\325\326\342!!\325\326\306!!\325\326\343!!\325\326\337!!\325\326\330!!\325\326\327!!&+\202E
\323\344!\203
\341\325\326\342!!\325\326\306!!\325\326\343!!\325\326\337!!\325\326\330!!\325\326\327!!&,\202E
\323\345!\203E
\341\325\326\342!!\325\326\306!!\325\326\343!!\325\326\337!!\325\326\330!!\325\326\327!!&-\311y\210\202M'()*+,-
.\311/\346!\257\f.\207" [vec args fmt-string level vec-or-proc size 5 "file attributes with stat: %s" tramp-file-name-localname nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) tramp-get-connection-buffer tramp-smb-send-command format "stat \"%s\"" tramp-smb-get-localname re-search-forward t looking-at "Size:\\s-+\\([0-9]+\\)\\s-+Blocks:\\s-+[0-9]+\\s-+\\(\\w+\\)" string-to-number match-string 1 2 "directory" "symbolic" #1# "Inode:\\s-+\\([0-9]+\\)\\s-+Links:\\s-+\\([0-9]+\\)" "Access:\\s-+([0-9]+/\\(\\S-+\\))\\s-+Uid:\\s-+\\([0-9]+\\)\\s-+Gid:\\s-+\\([0-9]+\\)" string 3 "Access:\\s-+\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)\\s-+\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" encode-time 6 4 "Modify:\\s-+\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)\\s-+\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" "Change:\\s-+\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)\\s-+\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" tramp-get-device id link uid gid atime mtime ctime mode inode tramp-smb-errors id-format] 14 (#$ . 34693)])
#@42 Like `file-directory-p' for Tramp files.
(defalias 'tramp-smb-handle-file-directory-p #[(filename) "\301!\205\302\303!8\304H\305=\207" [filename file-exists-p 8 file-attributes 0 100] 3 (#$ . 37292)])
#@41 Like `file-local-copy' for Tramp files.
(defalias 'tramp-smb-handle-file-local-copy #[(filename) "\306!\307	!\310	!\311	!\312	!\313	!@\314!\204_	\315\316CABC\317DC\320\321\322\211\323N\324\325BA#E!CABEC\317\326\327\217\210,\330\324\325BA#C\"\210-\317F\317G\331\332J\317G\333\334!\203|\335\334\336N@!\206\361\337\340!\203\223\341\340!\204\216\342\340!\205\361\340 \202\361\343\344!\211H\205\240\345H!)\203\254\346\343\344!!\202\361\343\347!\211H\205\271\345H!)\203\305\346\343\347!!\202\361\343\350!\211H\205\322\345H!)\203\336\346\343\350!!\202\361\314\351!\203\352\346\351!\202\361\352\353!\210\346\354!)\"I\355\356\"J\317\211K\357\360\217\210K.L\317\211MN	\361\362\325\363L#CABEC\317\364\365\217\210,O\203?
D\203?
\361P\361^X\203?
\317\366\367\217\210\370\216O\205I
M?O\371	\325\372\373	!L#\"\204\236
\374L!\210	\315\375CABC\317DC\320\321\322\211\323N\324\325BA#E!CABEC\317\376\377\217\210,\330\324\325BA#C\"\210-,L.\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-exists-p file-error "Cannot make local copy of non-existing file `%s'" nil 1 "%s" error-message-string error-message apply format (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) signal expand-file-name tramp-temp-name-prefix boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension t (byte-code "\304\305!\204\f\306\305!\205\305	\n#\304\207" [prefix dir-flag extension result subrp make-temp-file functionp] 4) ((error (byte-code "\300\301\302\217\204\300\207" [nil (byte-code "\304!	P\203\305\n!\210\202\306\307\310\n\310\311%\210\310\207" [prefix extension result dir-flag make-temp-name make-directory write-region #1# nil silent] 6) ((file-already-exists t))] 3))) 3 "%s..." #5="Fetching %s to tmp file %s" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) (byte-code "\304\305!\204\f\306\305!\205\305\307\310	#!\211\205\311\312\313\314\n$\304\207" [filename tmpfile pr tm subrp make-progress-reporter functionp format #5# run-at-time 3 0.1 tramp-progress-reporter-update] 6) ((error)) ((byte-code "\203\306\307!\204\310\307!\203\307!\210	\311\312\313\314\n#C\315\316\317\217\210,\315\207" [tm v filename tmpfile args fmt-string subrp cancel-timer functionp 3 "%s...done" format #5# nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) level vec-or-proc] 7)) tramp-smb-send-command "get \"%s\" \"%s\"" tramp-smb-get-localname delete-file "Cannot make local copy of file `%s'" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) hop args fmt-string vec-or-proc tramp-message-show-message level dir-flag file-name-handler-alist d prefix extension result tmpfile tm pr tramp-message-show-progress-reporter-message tramp-verbose] 10 (#$ . 37503)])
#@51 Like `file-name-all-completions' for Tramp files.
(defalias 'tramp-smb-handle-file-name-all-completions #[(filename directory) "\306\307	!\310\n!\311\n!\312\n!\313\n!\314\n!\315!\203T\316\n\317\320$\211\320=\203N\321 \322\216\323	!\324\325\"+\326\n\317$\210)\202e\321 \327\216\323	!\324\330\"+.\"\207" [filename directory v method user host all-completions tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-name-absolute-p tramp-get-file-property "file-name-all-completions" undef match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) tramp-smb-get-file-entries mapcar #[#1=(x) "\301\302A@\"\203\303@!\202@C\207" [x string-match #2="d" file-name-as-directory] 3] tramp-set-file-property ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) #[#1# "\301\302A@\"\203\303@!\202@C\207" [x string-match #2# file-name-as-directory] 3] localname hop value save-match-data-internal entries] 8 (#$ . 43031)])
#@41 Like `file-writable-p' for Tramp files.
(defalias 'tramp-smb-handle-file-writable-p #[(filename) "\302!\203\303\304\305\306!8\206\307\"\207\310!\302	!\205 \311	!)\207" [filename dir file-exists-p string-match "w" 8 file-attributes "" file-name-directory file-writable-p] 5 (#$ . 44155)])
#@42 Like `insert-directory' for Tramp files.
(defalias 'tramp-smb-handle-insert-directory #[(filename switches &optional wildcard full-directory-p) "\306!	\203\307!\202\310!\311!\312\n!\313\n!\314\n!\315\n!)\316\n!*\317 +\320\216\321!\322\323\324!!!,-.\203s\325\326-\"\210\327\330\331\211-$-\325\332-\"\210\327\333\331\211-$-\325\334-\"\210\327\335\331\211-$-\336\331.\204\202\337-G!\203\212\340\341,\"\202\221\342-,\"C\",\343,\344\",\325\345/\"\203\251\346\347,\"\210\346\350,\".\n\207" [filename full-directory-p v method user host expand-file-name file-name-as-directory directory-file-name tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-name-nondirectory copy-sequence tramp-smb-get-file-entries file-name-directory string-match "\\." replace-match "\\\\." nil "\\*" ".*" "\\?" ".?" delq zerop mapcar #[(x) "\302\303\304\"	@\"\205\f	\207" [base x string-match format "^%s"] 4] assoc sort #[(x y) "\303\304\"\203\305\306	8\306\n8\"\207\n@	@\231\207" [switches y x string-match "t" tramp-time-less-p 3] 4] "F" mapc #[(x) "\301@G!?\205,\302\303\304A@!\"\203\211@\305P\240\207\302\306\304A@!\"\205,\211@\307P\240\207" [x zerop char-equal 100 string-to-char "/" 120 "*"] 4] #[(x) "\306@G!?\205w\307	!\205\310\311\312\217\313\314\315\n8\206A@\nA@\206&\316\317\n8\206-\320\321\n8\2064\322\323\n8\206=\3178\324\325\326\327 \3218\"\"\203O\330\202P\331\3218\"&c\210`\313\332\333\334@\335
!\"!\"c\210\336\f`S\337\340$\210)\310y\210\341 )\207" [x v attr tramp-half-a-year start filename zerop tramp-smb-get-stat-capability nil (byte-code "\301\302\"\207" [filename file-attributes string] 3) ((error)) format "%10s %3d %-8s %-8s %8s %s " 8 1 2 "nobody" 3 "nogroup" 7 format-time-string tramp-time-less-p tramp-time-subtract current-time "%b %e %R" "%b %e  %Y" "%s\n" file-relative-name expand-file-name file-name-directory put-text-property dired-filename t beginning-of-line] 13] localname hop save-match-data-internal entries base wildcard switches] 5 (#$ . 44458)])
#@40 Like `make-directory' for Tramp files.
(defalias 'tramp-smb-handle-make-directory #[(dir &optional parents) "\306\307!!\310!\204\307	\"\311!\312\n!\313\n!\314\n!\315\n!\"\316\n!#\317 $\320\216\321!%&\203O\322\n!\203O\323%!\204O\324%&\"\210\323%!\203Z\325!\210\323!?\205\240\n\326\327C'(!)\330*)\331\332\333!\211\334N\335\336('#E!C'(+)\330\337\340\217\210,\341!\335\336('#C\"-.	\207" [dir default-directory v method user host directory-file-name expand-file-name file-name-absolute-p tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) file-name-directory tramp-smb-get-share file-directory-p make-directory make-directory-internal file-error "Couldn't make directory %s" nil 1 "%s" error-message-string error-message apply format (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) signal localname hop save-match-data-internal ldir parents args fmt-string vec-or-proc tramp-message-show-message level] 10 (#$ . 46695)])
#@49 Like `make-directory-internal' for Tramp files.
(defalias 'tramp-smb-handle-make-directory-internal #[(directory) "\306\307!!\310!\204\307	\"\311!\312\n!\313\n!\314\n!\315\n!'\316\n!(\317 )\320\216\321\n!*\322\323!!\203g\324\n\325\n!\203R\326\327*\330\331 !#\202W\326\332*\"\"\210\333\n\323'!\"\210\333\n'\"\210\322!?\205\255\n\334\335C+,&-\336.-\337\340\341&\211\342N\343\326,+#E!C+,/-\336\344\345\217\210,\346&\343\326,+#C\"-.	\207" [directory default-directory v method user host directory-file-name expand-file-name file-name-absolute-p tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) tramp-smb-get-localname file-directory-p file-name-directory tramp-smb-send-command tramp-smb-get-cifs-capabilities format "posix_mkdir \"%s\" %s" tramp-compat-decimal-to-octal default-file-modes "mkdir \"%s\"" tramp-flush-file-property file-error "Couldn't make directory %s" nil 1 "%s" error-message-string error-message apply (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) signal localname hop save-match-data-internal file args fmt-string vec-or-proc tramp-message-show-message level] 10 (#$ . 48457)])
#@472 Like `make-symbolic-link' for Tramp files.
If LINKNAME is a non-Tramp file, it is used verbatim as the target of
the symlink.  If LINKNAME is a Tramp file, only the localname component is
used as the target of the symlink.

If LINKNAME is a Tramp file and the localname component is relative, then
it is expanded first, before the localname component is taken.  Note that
this can give surprising results if the user/host for the source and
target of the symlink differ.
(defalias 'tramp-smb-handle-make-symbolic-link #[(filename linkname &optional ok-if-already-exists) "\306	\"\204l\307\310!\203\202	!\311\n!\312\n!\313\n!\314\n!2\315\n!3\n\316\317\320C456\32176\322\323\324\211\325N\326\32754#E!C4586\321\330\331\217\210,\332\326\32754#C\"\210.\307!9\3119!:\3129!;\3139!<\3149!=\3159!>\307	!?\311?!@\312?!A\313?!B\314?!C\315?!D\333!\203\371?\316\334C456\32176\322\323\324\211\325N\326\32754#E!C4586\321\335\336\217\210,\332\326\32754#C\"\210-E\204T
\337	!\203T
E\247\204T
\340\327\341	\"!\203T
?\316\342	C456\32176\322\323\324\211\325N\326\32754#E!C4586\321\343\344\217\210,\332\326\32754#C\"\210-\3459!\204\233
?\316\346\321456\32176\322\323\324\211\325N\326\32754#E!C4586\321\347\350\217\210,\332\326\32754#C\"\210-\351?\352C!\"\210\351?C\"\210\3539\327\354\3559!\355?!#\"?\205\377
?\316\356\357 C456\32176\322\323\324\211\325N\326\32754#E!C4586\321\360\361\217\210,\332\326\32754#C\"-.\f\207" [filename linkname v method user host tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-error "make-symbolic-link: %s" "only implemented for same method, same user, same host" nil 1 "%s" error-message-string error-message apply format (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) signal file-directory-p "make-symbolic-link: %s must not be a directory" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) file-exists-p y-or-n-p "File %s already exists; make it a new name anyway? " "make-symbolic-link: file %s already exists" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-smb-get-cifs-capabilities "make-symbolic-link not supported" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-flush-file-property file-name-directory tramp-smb-send-command "symlink \"%s\" \"%s\"" tramp-smb-get-localname "error with make-symbolic-link, see buffer `%s' for details" buffer-name (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) localname hop args fmt-string vec-or-proc tramp-message-show-message level v1 v1-method v1-user v1-host v1-localname v1-hop v2 v2-method v2-user v2-host v2-localname v2-hop ok-if-already-exists] 10 (#$ . 50401)])
#@38 Like `process-file' for Tramp files.
(defalias 'tramp-smb-handle-process-file #[(program &optional infile destination display &rest args) "\247\203\306!\203\307\310!\210\311	!\312\n!\313\n!\314\n!\315\n!9\316\n!:\317;!\211<=\320>\321\211?@\321\211AB\321CD\203\231\322D!D\323	D\"\203{\311D!\312\n!\313\n!\314\n!\315\n!9\316\n!:9.?\202\221\324\n!?\325\f
?$@\326D@\327#\210\330\331
?#?\332!\203\245A\202\371;\203\262\333!A\202\371:\203\362\332@!\203\305@A\202\334@;\203\324\333@!A\202\334@\203\334pA\n\334\335\336CEFGH\321\337\340\217\210,\202\371\203\371pA\341\342;EB\343#B?\203
\330\344\345?!B#\202
\330\346B\"B\347=!\2034
>T>\330\350<>#=\202
\351\n\352=#\210\351\n\353A\206G
\354I!#\210\321\355\356\217\210A\203]
J\203]
\357A!\210\351\n\352\321#\210\351\n\353\321#\210@\203s
\360@!\210A\204\200
\361\362\n\353\321#!\210\363\364!\203\213
\364J\203\220
\365\n\366\"\210C\367\232\203\234
\370 \202\236
C.\207" [destination default-directory v method user host zerop error "Implementation does not handle immediate return" tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-name-nondirectory 0 nil expand-file-name tramp-equal-remote tramp-make-tramp-temp-file tramp-make-tramp-file-name copy-file t format "//%s%s" bufferp get-buffer-create 2 "%s" "STDERR not supported" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) mapconcat identity " " "get-content %s | & %s" tramp-smb-shell-quote-argument "& %s" get-process "%s<%d>" tramp-set-connection-property "process-name" "process-buffer" generate-new-buffer (byte-code "r\306!q\210dd}\210\307!\210\310!\203\311\312\313	\314\n!#\"\210\311\"\210dd}\210\315!\311\316\"\210\317\f!\320>\203D\321\322!\210\323\f!\2021)ed|\210~\210)\306\207" [v host localname command p ret tramp-get-connection-buffer tramp-smb-call-winexe tramp-smb-get-share tramp-smb-send-command format "cd \"//%s%s\"" file-name-directory tramp-get-connection-process "exit $lasterrorcode" process-status (run open) sleep-for 0.1 process-exit-status] 7) ((quit (byte-code "\301\211\207" [ret -1] 2)) (error (byte-code "\301\211\207" [ret 1] 2))) display-buffer delete-file kill-buffer tramp-get-connection-property boundp process-file-side-effects tramp-flush-directory-property #1# -1 keyboard-quit localname hop program name name1 i input tmpinput outbuf command ret infile args fmt-string level vec-or-proc tramp-temp-buffer-name display] 6 (#$ . 56225)])
#@37 Like `rename-file' for Tramp files.
(defalias 'tramp-smb-handle-rename-file #[(filename newname &optional ok-if-already-exists) "\306!\306	!\n\204R\307	!\203R\310\311!\203\202	!\312	\3136\31376\314\315\316
\211\317N\320\321\f#E!C86\313\322\323\217\210,\305
\320\321\f#C\"\210-\313\2119:\310\311!\203c\202d	!\324\325\321\326	#C86\313\327\330\217\210,;\203\2217\203\221\324<\331^X\203\221\313\332\333\217\210\334\216;\205\2339?;\335	\"\203\222
\336\310!!\336\310	!!\230\203\222
\310!=\337=!>\340=!?\341=!@\342=!A\343=!B\310	!C\337C!D\340C!E\341C!F\342C!G\343C!H\344C\345G!\"\210\344CG\"\210\336C!\204E
C\346\347	C6\31376\314\315\316
\211\317N\320\321\f#E!C86\313\350\351\217\210,\305
\320\321\f#C\"\210-\352C\321\353\354=!\354C!#\"?\205\215
C\346\355C6\31376\314\315\316
\211\317N\320\321\f#E!C86\313\356\357\217\210,\305
\320\321\f#C\"-.\f\202\254
\360	\n\361\211\211&\210\362!\203\251
\363\364\"\202\254
\365!,\207" [filename newname ok-if-already-exists args fmt-string signal expand-file-name file-exists-p tramp-dissect-file-name file-remote-p file-already-exists nil 1 "%s" error-message-string error-message apply format (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) 0 "%s..." #5="Renaming %s to %s" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) 3 (byte-code "\304\305!\204\f\306\305!\205\305\307\310	#!\211\205\311\312\313\314\n$\304\207" [filename newname pr tm subrp make-progress-reporter functionp format #5# run-at-time 3 0.1 tramp-progress-reporter-update] 6) ((error)) ((byte-code "\203\306\307!\204\310\307!\203\307!\210\311\312	!\203	\202 \n!\313\314\315\316	\n#C\317\320\321\217\210,\317\207" [tm filename newname args fmt-string level subrp cancel-timer functionp tramp-dissect-file-name file-remote-p 0 "%s...done" format #5# nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) vec-or-proc] 7)) tramp-equal-remote tramp-smb-get-share tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-file-property file-name-directory file-error "Target `%s' must contain a share name" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-smb-send-command "rename \"%s\" \"%s\"" tramp-smb-get-localname "Cannot rename `%s'" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-compat-copy-file t file-directory-p tramp-compat-delete-directory recursive delete-file vec-or-proc tramp-message-show-message level tm pr tramp-message-show-progress-reporter-message tramp-verbose v1 v1-method v1-user v1-host v1-localname v1-hop v2 v2-method v2-user v2-host v2-localname v2-hop] 10 (#$ . 59429)])
#@40 Like `set-file-modes' for Tramp files.
(defalias 'tramp-smb-handle-set-file-modes #[(filename mode) "\306!\307	!\310	!\311	!\312	!\313	!\314	!\205t\315	
\"\210\316	\317\320\321	!\322!#\"?\205t	\323\324C !\"\325#\"\326\327\330\211\331N\332\317! #E!C !$\"\325\333\334\217\210,\335\332\317! #C\"-.\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-smb-get-cifs-capabilities tramp-flush-file-property tramp-smb-send-command format "chmod \"%s\" %s" tramp-smb-get-localname tramp-compat-decimal-to-octal file-error "Error while changing file's mode %s" nil 1 "%s" error-message-string error-message apply (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) signal hop mode args fmt-string vec-or-proc tramp-message-show-message level] 10 (#$ . 65141)])
#@44 Like `start-file-process' for Tramp files.
(defalias 'tramp-smb-handle-start-file-process #[(name buffer program &rest args) "\306!\307	!\310	!\311	!\312	!\313	!(\314\315)*B\316#\317+!\205-\320+!,\321-./0\322\216\212\214+\204G\3231!+\324.!\203_-T-\325\326,-#.\202G\327	\330.#\210\327	\331+#\210r\332	!q\210\3332dd}\210\334	!\210\335	!\203\217\336	\325\337\f\340
!#\"\210	\341\3420C*345\343\344\345\217\210,\346	0\"\210*\347	!.
\207" [default-directory v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop mapconcat identity " " buffer-live-p buffer-modified-p 0 ((byte-code "r\303!q\210\304	\305 \"\203\306\307!\310\"\210\311p!\210\202 \312\n!\210)\313\314\310#\210\313\315\310#\207" [v tramp-temp-buffer-name bmp tramp-get-connection-buffer string-match buffer-name set-process-buffer tramp-get-connection-process nil kill-buffer set-buffer-modified-p tramp-set-connection-property "process-name" "process-buffer"] 4)) generate-new-buffer get-process format "%s<%d>" tramp-set-connection-property "process-name" "process-buffer" tramp-get-connection-buffer t tramp-smb-call-winexe tramp-smb-get-share tramp-smb-send-command "cd \"//%s%s\"" file-name-directory 6 "(%s); exit" nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) tramp-send-string tramp-get-connection-process hop program args buffer name i name1 bmp command tramp-temp-buffer-name buffer-undo-list fmt-string level vec-or-proc] 7 (#$ . 66672)])
#@184 Like `handle-substitute-in-file-name' for Tramp files.
"//" substitutes only in the local filename part.  Catches
errors for shares like "C$/", which are common in Microsoft Windows.
(defalias 'tramp-smb-handle-substitute-in-file-name #[(filename) "\306!\307	!\310	!\311	!\312	!\313	!
;\2030\314\315
\"\2030\316!\317\320\321\211
$P.\321\322\323\217\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop string-match ".+?/\\(/\\|~\\)" file-remote-p replace-match "\\1" nil (byte-code "\301\302C\"\207" [filename tramp-run-real-handler substitute-in-file-name] 3) ((error filename)) hop] 6 (#$ . 68860)])
#@38 Like `write-region' for Tramp files.
(defalias 'tramp-smb-handle-write-region #[(start end filename &optional append visit lockname confirm) "\306!\307!\310	!\311	!\312	!\313	!\314	!@A\315=\204d	\316\317CBCD\315ED\320\321\322\211\323N\324\325CB#E!CBCFD\315\326\327\217\210,\330\324\325CB#C\"\210-G\203\267\331!\203\267\332\325\333\"!\204\267	\316\334\315BCD\315ED\320\321\322\211\323N\324\325CB#E!CBCFD\315\335\336\217\210,\330\324\325CB#C\"\210-\337	\340
!\"\210\337	
\"\210p\315H\315I\306\341J\315I\342\343!\203\341\344\343\345N@!\206V
\346\347!\203\370\350\347!\204\363\351\347!\205V
\347 \202V
\352\353!\211J\205
\354J!)\203
\355\352\353!!\202V
\352\356!\211J\205
\354J!)\203*
\355\352\356!!\202V
\352\357!\211J\2057
\354J!)\203C
\355\352\357!!\202V
\331\360!\203O
\355\360!\202V
\361\362!\210\355\363!)\"K\364\365\"L\315\211M\366\367\217\210M.NO\370\371G\203\211
PQNA\372RG\257\202\226
PQNA\372R\257\"\210\315\211ST	\373\374\325\375N#CBCFD\315\376\377\217\210,U\203\322
E\203\322
\373V\373^X\203\322
\315\201X\201Y\217\210\201Z\216U\205\336
S?U\201[\216\201\\	\325\201]N\201^	!#\"\204>	\316\201_CBCD\315ED\320\321\322\211\323N\324\325CB#E!CBCFD\315\201`\201a\217\210,\330\324\325CB#C\"\210--Op\232\204\216	\316\201bOpDBCD\315ED\320\321\322\211\323N\324\325CB#E!CBCFD\315\201c\201d\217\210,\330\324\325CB#C\"\210-W\365=\205\231\201e .\207" [filename v method user host localname expand-file-name tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop nil file-error "Cannot append to file using Tramp (`%s')" 1 "%s" error-message-string error-message apply format (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) signal file-exists-p y-or-n-p "File %s exists; overwrite anyway? " "File not overwritten" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-flush-file-property file-name-directory tramp-temp-name-prefix boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension t (byte-code "\304\305!\204\f\306\305!\205\305	\n#\304\207" [prefix dir-flag extension result subrp make-temp-file functionp] 4) ((error (byte-code "\300\301\302\217\204\300\207" [nil (byte-code "\304!	P\203\305\n!\210\202\306\307\310\n\310\311%\210\310\207" [prefix extension result dir-flag make-temp-name make-directory write-region #1# nil silent] 6) ((file-already-exists t))] 3))) tramp-run-real-handler write-region no-message 3 "%s..." #5="Moving tmp file %s to %s" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) hop append args fmt-string vec-or-proc tramp-message-show-message level confirm dir-flag file-name-handler-alist d prefix extension result tmpfile curbuf start end lockname tm pr tramp-message-show-progress-reporter-message tramp-verbose visit (byte-code "\304\305!\204\f\306\305!\205\305\307\310	#!\211\205\311\312\313\314\n$\304\207" [tmpfile filename pr tm subrp make-progress-reporter functionp format #5# run-at-time 3 0.1 tramp-progress-reporter-update] 6) ((error)) ((byte-code "\203\306\307!\204\310\307!\203\307!\210	\311\312\313\314\n#C\315\316\317\217\210,\315\207" [tm v tmpfile filename args fmt-string subrp cancel-timer functionp 3 "%s...done" format #5# nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) level vec-or-proc] 7)) ((delete-file tmpfile)) tramp-smb-send-command "put %s \"%s\"" tramp-smb-get-localname "Cannot write `%s'" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) "Buffer has changed from `%s' to `%s'" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) set-visited-file-modtime] 10 (#$ . 69608)])
#@38 Returns the share name of LOCALNAME.
(defalias 'tramp-smb-get-share #[(vec) "\303 \304\216\305	!\306\307\n\"\205\310\311\n\"+\207" [save-match-data-internal vec localname match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) tramp-file-name-localname string-match "^/?\\([^/]+\\)/" match-string 1] 3 (#$ . 77161)])
#@92 Returns the file name of LOCALNAME.
If VEC has no cifs capabilities, exchange "/" by "\\".
(defalias 'tramp-smb-get-localname #[(vec) "\303 \304\216\305	!\306\307\n\"\203(\310	!\204!\311\312\313\314\n\"\315#\2027\313\314\n\"\2027\306\316\n\"\2036\313\314\n\"\2027\315\306\317\n\"\203G\320\321\322\211\n\314%\n+\207" [save-match-data-internal vec localname match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) tramp-file-name-localname string-match "^/?[^/]+\\(/.*\\)" tramp-smb-get-cifs-capabilities mapconcat #[(x) "\301\232\203\302\207\303!\207" [x 47 "\\" char-to-string] 2] match-string 1 "" "^/?\\([^/]+\\)$" "\\(\\$\\$\\)\\(/\\|$\\)" replace-match "$" nil] 6 (#$ . 77529)])
#@164 Read entries which match DIRECTORY.
Either the shares are listed, or the `dir' command is executed.
Result is a list of (LOCALNAME MODE SIZE MONTH DAY TIME YEAR).
(defalias 'tramp-smb-get-file-entries #[(directory) "\306\307!!\310	!\311	!\312	!\313	!\314	!3
\206 \315\316
!\203
\317	
\320\321$\2114\321=\203
r\322	!q\210\323	!5\324	\325\326#6\326\211,75\204^6\203^6,\202\3555\203p\327	\330\331\332	!\"\"\210\202t\333	!\210eb\210\3348\326\335#\203\306	\336\337\340\341!D9:);\326<;\342\343\344)\211\345N\346\330:9#E!C9:=;\326\347\350\217\210,\351)\346\330:9#C\"\210-\202\341m\204\341\3525!7\326y\2107\203\306\353\3547\"\210\202\3065\204\355\355	\325,#\210\353\354\356\"\210\357\326,\"-4\360	
\3204$\2104)\202\313
r\322	!q\210\323	!5\324	\325\326#6\326\211,75\2041
6\2031
6,\202\300
5\203C
\327	\330\331\332	!\"\"\210\202G
\333	!\210eb\210\3348\326\335#\203\231
	\336\337\340\341!D9:);\326<;\342\343\344)\211\345N\346\330:9#E!C9:=;\326\361\362\217\210,\351)\346\330:9#C\"\210-\202\264
m\204\264
\3525!7\326y\2107\203\231
\353\3547\"\210\202\231
5\204\300
\355	\325,#\210\353\354\356\"\210\357\326,\"-.\207" [directory v method user host localname tramp-dissect-file-name file-name-as-directory tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop "/" file-name-absolute-p tramp-get-file-property "file-entries" undef tramp-get-connection-buffer tramp-smb-get-share tramp-get-connection-property "share-cache" nil tramp-smb-send-command format "dir \"%s*\"" tramp-smb-get-localname tramp-smb-maybe-open-connection re-search-forward t file-error "%s `%s'" match-string 0 1 "%s" error-message-string error-message apply (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) signal tramp-smb-read-file-entry add-to-list res tramp-set-connection-property (#1# "drwxrwxrwx" 0 (0 0)) delq tramp-set-file-property (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) hop value share cache entry tramp-smb-errors args fmt-string vec-or-proc tramp-message-show-message level] 11 (#$ . 78275)])
#@158 Parse entry in SMB output buffer.
If SHARE is result, entries are of type dir. Otherwise, shares are listed.
Result is the list (LOCALNAME MODE SIZE MTIME).
(defalias 'tramp-smb-read-file-entry #[(share) "`\306 {\307\211\211\211\211\211\211\211\211\211\204;\310\311\"\203?\312\313\"\314\315\202?\316\317\215\210\205\204\205\204\205\204\n\203z\203z\f\203z
\203z\203z	\203z\320\n\f
\321\227\"A	&\202{\322F.\207" [mtime year sec min hour day point-at-eol nil string-match "^Disk|\\([^|]+\\)|" match-string 1 "dr-xr-xr-x" 0 --cl-block-nil-- (byte-code "\306\307\"\203\310\311\312\"!\313\314O\202\315\316\317\"\210\306\320\"\203?\310\311\312\"!\310\311\321\"!\310\311\322\"!\313\323O\202D\315\316\317\"\210\306\307\"\203Z\310\311\312\"!\313\324O\202_\315\316\317\"\210\306\325\"\203t\311\312\"+\313\326O\202y\315\316\317\"\210\306\325\"\203\210\313\314O\202\215\315\316\317\"\210\306\307\"\203\303\327\311\312\"GT][,\310\311\312\"!-\306\330,\317O\"\203\271,\313\225\\,\313,O)\202\310\315\316\317\"\210\306\331\"\203
\311\312\"\206\327\332.\333 /\334\216\335\336\306\337.\"\203\355\340\202\356\341\342\343\344\345\306\346.\"\203\376\341\202\377\347\350Q##*.\313\351O\202
\315\316\317\"\210\306\352\"\203#
\311\312\"0\202(
\315\316\317\"\210\317\207" [line year hour min sec day string-match "\\([0-9]+\\)$" string-to-number match-string 1 0 -5 throw --cl-block-nil-- nil "\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)$" 2 3 -9 -3 "\\(\\w+\\)$" -4 10 "\\([ADHRSV]+\\)" "\\([ADHRSV]+\\)?$" #1="" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) format "%s%s" "D" "d" "-" mapconcat #[(x) "\300\207" [#1#] 1 #1#] "    " "r" "R" "w" "x" -6 "^\\s-+\\(\\S-\\(.*\\S-\\)?\\)\\s-*$" month length size mode save-match-data-internal localname] 10) encode-time assoc (0 0) month size mode localname line share tramp-parse-time-months] 11 (#$ . 81624)])
#@56 Check, whether the SMB server supports POSIX commands.
(defalias 'tramp-smb-get-cifs-capabilities #[(vec) "\304!\211\205\305	!\205\306	!\307>)\205Y\310\304!\311\312#\211\312=\203W\313 \314\216\315\316\"\205Mr\317!q\210eb\210\320\321\322\323#\205L\324\325`\326 {\322\323#\235)*\327\304!\311\n#\210\n)\207" [vec p value save-match-data-internal tramp-get-connection-process processp process-status (run open) tramp-get-connection-property "cifs-capabilities" undef match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) tramp-smb-send-command "posix" tramp-get-connection-buffer re-search-forward "Server supports CIFS capabilities" nil t "pathnames" split-string point-at-eol tramp-set-connection-property] 6 (#$ . 83643)])
#@58 Check, whether the SMB server supports the STAT command.
(defalias 'tramp-smb-get-stat-capability #[(vec) "\303!\211\205\304	!\205\305	!\306>)\2054\307\303!\310\311#\211\311=\2032\312\313\"\314\303!\310\n#\210\n)\207" [vec p value tramp-get-connection-process processp process-status (run open) tramp-get-connection-property "stat-capability" undef tramp-smb-send-command "stat ." tramp-set-connection-property] 5 (#$ . 84431)])
#@100 Send the COMMAND to connection VEC.
Returns nil if there has been an error message from smbclient.
(defalias 'tramp-smb-send-command #[(vec command) "\306!\210\307\310	C\311\312\313\217\210,\314	\"\210\315!\207" [vec command args fmt-string level vec-or-proc tramp-smb-maybe-open-connection 6 "%s" nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) tramp-send-string tramp-smb-wait-for-output] 4 (#$ . 84880)])
#@310 Maybe open a connection to HOST, log in as USER, using `tramp-smb-program'.
Does not do anything if a connection is already open, but re-opens the
connection if a previous connection has died for some reason.
If ARGUMENT is non-nil, use it as argument for
`tramp-smb-winexe-program', and suppress any checks.
(defalias 'tramp-smb-maybe-open-connection #[(vec &optional argument) "\306!\307!\310\n!\f\204O
\311!\204O
\312\313\314!\203'\315\314\316N@!\206\234\317\320!\203>\321\320!\2049\322\320!\205\234\320 \202\234\323\324!\211@\205K\325@!)\203W\326\323\324!!\202\234\323\327!\211@\205d\325@!)\203p\326\323\327!!\202\234\323\330!\211@\205}\325@!)\203\211\326\323\330!!\202\234\331\332!\203\225\326\332!\202\234\333\334!\210\326\335!)A\336PBCD\2042
\337A!\204\364\340\341AEDFG*H\312IH\342\343\344*\211\345N\346\347GF#E!CFGJH\312\350\351\217\210,\352*\346\347GF#C\"\210-\353B!D\354B\312FGJH\312\355\356\217\210,\354\357DCFGJH\312\360\361\217\210,\362\363D\"\2032
\364\365\312\211D$DD\366\367D#\230\204G
\370\365\"\210\371!\210\372\367D#\210*r\nq\210eb\210\373\374 \366\375\376#\"\377V\203\217
\203\217
\311!\203\217
\201`!\201a>\203\217
\201bK\312\201c#\203\217
\201d!\210\312)\205\263
\311!\205\263
\201`!\201e>\205\263
\f\206\263
	\366\201f\365#\230?\205\201g L\201h\216\n\203\317
r\nq\210\201i \210)\203\337
\311!\203\337
\201d!\210\201j!M\201k!N\201l!O\201m!P\201n!Q\201o!R\312F\f\203\201pPPCF\202;	\2030\201pP\201q	RCF\202;\201r\201sPEF\201tOG!\204V\201uF\201vOD\"F\202b\201uF\201wC\"FQ\203u\201uF\201xQD\"FR\203\210\201uF\201yRD\"FS\203\233\201uF\201zSD\"F\f\203\251\201uF\fC\"F\312\211TU\201{\201|\347\201}\201tMG!\204\315M\201~P\202\316\365N	\206\325\365$CFGJH\312\201\201\200\217\210,V\203	I\203	\201{W\201{^X\203	\312\201\201\201\202\217\210\201\203\216V\205T?V\312XYZ\312\313\314!\203/\315\314\316N@!\206\244\317\320!\203F\321\320!\204A\322\320!\205\244\320 \202\244\323\324!\211@\205S\325@!)\203_\326\323\324!!\202\244\323\327!\211@\205l\325@!)\203x\326\323\327!!\202\244\323\330!\211@\205\205\325@!)\203\221\326\323\330!!\202\244\331\332!\203\235\326\332!\202\244\333\334!\210\326\335!)C\346\201\204\201\205!\307!\f\203\274[\202\276AF%)\354\343\201\206\201\207\201\210!\201\211#CFGJH\312\201\212\201\213\217\210,\201\214\312\"\210\\]M^N_\201\215\201\216\201\217\217.+\207" [vec share buf p argument file-name-handler-alist tramp-smb-get-share tramp-get-connection-buffer get-buffer-process processp nil boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" " -V" executable-find file-error "Cannot find command %s in %s" 1 "%s" error-message-string error-message apply format (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) signal shell-command-to-string 6 (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) "\n%s" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) string-match "[ 	\n
]+\\'" replace-match #1# tramp-get-connection-property "smbclient-version" tramp-flush-directory-property tramp-flush-connection-property tramp-set-connection-property tramp-time-diff current-time "last-cmd-time" (0 0 0) 60 d tramp-smb-program command default-directory tramp-smb-version exec-path args fmt-string vec-or-proc tramp-message-show-message level tramp-smb-errors save-match-data-internal user host real-user real-host domain port tramp-smb-conf tm pr tramp-message-show-progress-reporter-message tramp-verbose coding-system-for-read tramp-process-connection-type process-connection-type tramp-smb-winexe-program tramp-smb-method tramp-current-method tramp-current-user tramp-current-host process-status (run open) re-search-forward t delete-process (run open) "smb-share" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) erase-buffer tramp-file-name-user tramp-file-name-host tramp-file-name-real-user tramp-file-name-real-host tramp-file-name-domain tramp-file-name-port "//" "/" "-g" "-L" zerop append "-U" "-N" "-W" "-p" "-s" 3 "%s..." #5="Opening connection for //%s%s/%s" #6="@" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) (byte-code "\305\306!\204\f\307\306!\205%\306\310\311\312G!\204\313P\202\314	\n\206#\314$!\211\2050\315\316\317\320$\305\207" [user host share pr tm subrp make-progress-reporter functionp format #5# zerop #6# #1# run-at-time 3 0.1 tramp-progress-reporter-update] 7) ((error)) ((byte-code "\203\306\307!\204\310\307!\203\307!\210	\311\312\313\314\315\nG!\204&\n\316P\202'\317\f\206-\317$C\320\321\322\217\210,\320\207" [tm vec user host share args subrp cancel-timer functionp 3 "%s...done" format #5# zerop #6# #1# nil (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) fmt-string level vec-or-proc] 8)) start-process tramp-get-connection-name mapconcat identity process-command " " (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-compat-set-process-query-on-exit-flag err (byte-code "\306\307	\n\306\204\f\203
\202$\210\204Kr\310\n!q\210eb\210\311\306\312#\210\313\314!\211\315\n\316#\230\204C\317\n\320\"\210\321\n!\210\322\n\316#\210*\322	\323\f#\210\322	\324\325#)\207" [tramp-message-show-message p vec argument share tramp-smb-actions-with-share nil tramp-process-actions tramp-get-connection-buffer search-forward-regexp t match-string 0 tramp-get-connection-property "smbserver-version" tramp-flush-directory-property #1# tramp-flush-connection-property tramp-set-connection-property "smb-share" "chunksize" 1 tramp-smb-actions-without-share tramp-smb-server-version smbserver-version] 6) ((error (byte-code "r\305!q\210eb\210\306	\307\310#\203\307\311!\210\312\")\202%\313\f@\fA\")\207" [vec tramp-smb-wrong-passwd-regexp auth-sources argument err tramp-get-connection-buffer search-forward-regexp nil t tramp-cleanup tramp-smb-maybe-open-connection signal] 4)))] 10 (#$ . 85920)])
#@87 Wait for output from smbclient command.
Returns nil if an error message has appeared.
(defalias 'tramp-smb-wait-for-output #[(vec) "r\306!q\210\307p!eb\210\310	\311\312#eb\210\310\n\311\312#\311
\204K\f\204K\313!\314>\203K\315\316\"\210eb\210\310	\311\312#eb\210\310\n\311\312#\202
\204k\313!\317>\203k\315\320\"\210eb\210\310	\311\312#\211\203O\321\322\323 C\311\324\325\217\210,
\203\220db\210\326	\311\312#\210`d|\210\f-?\207" [vec tramp-smb-prompt tramp-smb-errors buffer-read-only err found tramp-get-connection-buffer get-buffer-process re-search-forward nil t process-status (run open) tramp-accept-process-output 0.1 (run open) 0.1 6 "\n%s" buffer-string (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format "(%d) # " vec-or-proc default-directory] 6) ((error)) re-search-backward p args fmt-string level vec-or-proc] 7 (#$ . 95770)])
#@37 Send SIGKILL to the winexe process.
(defalias 'tramp-smb-kill-winexe-function #[nil "\300\301\302\217\207" [nil (byte-code "\301p!\211\205\302!\205\303!\304>\205\305\306!\307\")\207" [p get-buffer-process processp process-status (run open) signal-process process-id SIGINT] 4) ((error))] 3 (#$ . 97208)])
#@72 Apply a remote command, if possible, using `tramp-smb-winexe-program'.
(defalias 'tramp-smb-call-winexe #[(vec) "\306!\210\307\310\311!\203\312\311\313N@!\206\204\314\315!\203,\316\315!\204'\317\315!\205\204\315 \202\204\320\321!\211\2057\322\n!)\203C\323\320\321!!\202\204\320\324!\211\205N\322\n!)\203Z\323\320\324!!\202\204\320\325!\211\205e\322\n!)\203q\323\320\325!!\202\204\326\327!\203}\323\327!\202\204\330\331!\210\323\332!)\333\f!)\204\311\334\335\fC;&<\307=<\336\337\340&\211\341N\342\343;
#E!C;><\307\344\345\217\210,\346&\342\343;
#C\"\210-\347!\203\n
\334\350\307;&<\307=<\336\337\340&\211\341N\342\343;
#E!C;><\307\351\352\217\210,\346&\342\343;
#C\"\210-\353\343\354?@#\"\210\355\356!\210\357.\360\361!\362\"\210\363\364\"\210\363\365\"\210\363\366\"\210\363\367\"\210\363\370\"\210\363\371\"\210\363\372\"\207" [vec file-name-handler-alist d default-directory tramp-smb-winexe-program args tramp-get-buffer nil boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" executable-find file-error "Cannot find program: %s" 1 "%s" error-message-string error-message apply format (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1="" 1 2 #2="Warning: " #3="Tramp: " 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4="(%d) # " vec-or-proc default-directory] 6) ((error)) signal tramp-file-name-port "Port not supported for remote processes" (byte-code "	X\203~\306 \307\216\203;\310X\203;\311\312\313U\203!\314\2026\315U\203+\314\2026\316U\2035\317\2026\320\fP
#\210	\321Y\203}\203d\322!\203d\323\324!!\203dr\324!q\210\325!)\203}\326!\203}\311\327\330\331\"\fP
$\210*\306\207" [level tramp-verbose save-match-data-internal tramp-message-show-message fmt-string args match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 3 apply message 0 #1# 1 2 #2# #3# 4 processp buffer-name process-buffer tramp-dissect-file-name vectorp tramp-debug-message format #4# vec-or-proc default-directory] 6) ((error)) tramp-smb-maybe-open-connection "%s %s" make-local-variable kill-buffer-hook (tramp-smb-kill-winexe-function) set-process-coding-system tramp-get-connection-process raw-text-dos tramp-smb-send-command "$rawui = (Get-Host).UI.RawUI" "$bufsize = $rawui.BufferSize" "$winsize = $rawui.WindowSize" "$bufsize.Width = 128" "$winsize.Width = 128" "$rawui.BufferSize = $bufsize" "$rawui.WindowSize = $winsize" fmt-string vec-or-proc tramp-message-show-message level tramp-smb-winexe-shell-command tramp-smb-winexe-shell-command-switch] 10 (#$ . 97529)])
#@65 Similar to `shell-quote-argument', but uses windows cmd syntax.
(defalias 'tramp-smb-shell-quote-argument #[(s) "\302\303	!)\207" [system-type s ms-dos shell-quote-argument] 2 (#$ . 100853)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-smb force] 3] provide tramp-smb] 3)