ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/tramp-smb.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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" (#$ . 427))
(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\326\332\333& \210\320\334\335\336\324\316\325\337&\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 #[nil "\301\302\"\207" [tramp-smb-method tramp-set-completion-function ((tramp-parse-netrc "~/.netrc"))] 3] custom-declare-variable tramp-smb-program "smbclient" "Name of SMB client to run." :group :type string tramp-smb-acl-program "smbcacls" "Name of SMB acls to run." :version "24.4" 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))] 10)
#@35 Version string of the SMB client.
(defvar tramp-smb-version nil (#$ . 1524))
#@38 Regexp of SMB server identification.
(defconst tramp-smb-server-version "Domain=\\[[^]]*\\] OS=\\[[^]]*\\] Server=\\[[^]]*\\]" (#$ . 1607))
#@51 Regexp used as prompt in smbclient or powershell.
(defconst tramp-smb-prompt "^\\(smb:\\|PS\\) .+> \\|^\\s-+Server\\s-+Comment$" (#$ . 1753))
#@48 Regexp for login error strings of SMB servers.
(defconst tramp-smb-wrong-passwd-regexp "\\(?:NT_STATUS_\\(?:LOGON_FAILURE\\|WRONG_PASSWORD\\)\\)" (#$ . 1901))
#@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\\|HOST_UNREACHABLE\\|I\\(?:MAGE_ALREADY_LOADED\\|NVALID_LEVEL\\|O_TIMEOUT\\)\\|LOGON_FAILURE\\|N\\(?:ETWORK_ACCESS_DENIED\\|O\\(?:T_IMPLEMENTED\\|_\\(?:LOGON_SERVERS\\|SUCH_\\(?:FILE\\|USER\\)\\)\\)\\)\\|OBJECT_NAME_\\(?:COLLISION\\|\\(?:INVALI\\|NOT_FOUN\\)D\\)\\|SHARING_VIOLATION\\|TRUSTED_RELATIONSHIP_FAILURE\\|UNSUCCESSFUL\\|WRONG_PASSWORD\\)\\)" "\\|"] 8) (#$ . 2067))
#@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)) (#$ . 3154))
#@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)) (#$ . 3597))
#@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)) (#$ . 4001))
#@120 List of pattern/action pairs.
This list is used for smbcacls actions.
See `tramp-actions-before-shell' for more info.
(defconst tramp-smb-actions-get-acl '((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-get-acl)) (#$ . 4409))
#@120 List of pattern/action pairs.
This list is used for smbcacls actions.
See `tramp-actions-before-shell' for more info.
(defconst tramp-smb-actions-set-acl '((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-set-acl)) (#$ . 4803))
#@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-acl . tramp-smb-handle-file-acl) (file-attributes . tramp-smb-handle-file-attributes) (file-directory-p . tramp-smb-handle-file-directory-p) (file-file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-handle-file-exists-p) (file-exists-p . tramp-handle-file-exists-p) (file-in-directory-p . tramp-handle-file-in-directory-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-notify-add-watch . tramp-handle-file-notify-add-watch) (file-notify-rm-watch . tramp-handle-file-notify-rm-watch) (file-notify-valid-p . tramp-handle-file-notify-valid-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-auto-save-file-name . tramp-handle-make-auto-save-file-name) (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-acl . tramp-smb-handle-set-file-acl) (set-file-modes . tramp-smb-handle-set-file-modes) (set-file-selinux-context . ignore) (set-file-times . ignore) (set-visited-file-modtime . tramp-handle-set-visited-file-modtime) (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 . tramp-handle-verify-visited-file-modtime) (write-region . tramp-smb-handle-write-region)) (#$ . 5197))
(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 (#$ . 9196)])
(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 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply tramp-run-real-handler] 4 (#$ . 9478)])
(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 \"\204%\307\310!\203 \202 !\311\n!\312\n! \313\n! \314\n! @\315\n! A\n\316\317\320C B C = D\321 ED\211 D\203D\322\323\324\325\326!! F\327\216F F\330 \210)rFq\210\331 +C B C G D\3321GHX\205\333 I\334\216E\203\262 G\335X\203\262 \336\337G\340U\203\224 \341\202\253 G\342U\203\237 \341\202\253 G\343U\203\252 \344\202\253 \345CPB#\210H\346Y\205\347D!\203\314 \340 H\350D\351\321#D)G\342U\203\355 \340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\336\355D\356\357G\"CPB$*0\202\f\210\202
\210,\202OH\322Y\203OJ Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203D\342\367\370=\211\371N\336\372CB#E!C B C G D\3731GHX\205\f\333 I\374\216E\203\272G\335X\203\272\336\337G\340U\203\234\341\202\263G\342U\203\247\341\202\263G\343U\203\262\344\202\263\345CPB#\210H\346Y\205 \347D!\203\324\340 H\350D\351\321#D)G\342U\203\365\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205 \336\355D\356\357G\"CPB$*0\202\210\202\210,\375=\336\372CB#C\"\210. \307! R\311R! S\312R! T\313R! U\314R! V\315R! W\307 ! X\311X! Y\312X! Z\313X! [\314X! \\\315X! ]\376!\203uX\316\377C B C = D\321 ED\211 D\203^D\322\323\324\325\326!! F\201_ \216F F\330 \210)rFq\210\331 +C B C G D\201` 1UGHX\205Q\333 I\201a \216E\203\377G\335X\203\377\336\337G\340U\203\341\341\202\370G\342U\203\354\341\202\370G\343U\203\367\344\202\370\345CPB#\210H\346Y\205P\347D!\203\340 H\350D\351\321#D)G\342U\203:\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205P\336\355D\356\357G\"CPB$*0\202Y\210\202Z\210,\202\234H\322Y\203\234J Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203gD\342\367\370=\211\371N\336\372CB#E!C B C G D\201b 1aGHX\205]\333 I\201c \216E\203 G\335X\203 \336\337G\340U\203\355\341\202G\342U\203\370\341\202G\343U\203\344\202\345CPB#\210H\346Y\205\\\347D!\203%\340 H\350D\351\321#D)G\342U\203F\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\\\336\355D\356\357G\"CPB$*0\202e\210\202f\210,\375=\336\372CB#C\"\210-^\204\233\201d !\203\233^\247\204\233\201e \356\201f \"!\203\233X\316\201g C B C = D\321 ED\211 D\203\204D\322\323\324\325\326!! F\201h \216F F\330 \210)rFq\210\331 +C B C G D\201i 1{GHX\205w\333 I\201j \216E\203%G\335X\203%\336\337G\340U\203\341\202 G\342U\203\341\202 G\343U\203 \344\202 \345CPB#\210H\346Y\205v\347D!\203?\340 H\350D\351\321#D)G\342U\203`\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205v\336\355D\356\357G\"CPB$*0\202\210\202\200\210,\202\302H\322Y\203\302J Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203\215D\342\367\370=\211\371N\336\372CB#E!C B C G D\201k 1\207GHX\205\203\333 I\201l \216E\2031G\335X\2031\336\337G\340U\203\341\202*G\342U\203 \341\202*G\343U\203)\344\202*\345CPB#\210H\346Y\205\202\347D!\203K\340 H\350D\351\321#D)G\342U\203l\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\202\336\355D\356\357G\"CPB$*0\202\213\210\202\214\210,\375=\336\372CB#C\"\210-\201m X\201n \\!\"\210\201m X\\\"\210\201o R\356\201p \201q R!\203\311\201r \202\314\201s \201t R!\201t X!$\"?\205\346X\316\201u \201v C B C = D\321 ED\211 D\203\320D\322\323\324\325\326!! F\201w \216F F\330 \210)rFq\210\331 +C B C G D\201x 1\307GHX\205\303\333 I\201y \216E\203qG\335X\203q\336\337G\340U\203S\341\202jG\342U\203^\341\202jG\343U\203i\344\202j\345CPB#\210H\346Y\205\302\347D!\203\213\340 H\350D\351\321#D)G\342U\203\254\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\302\336\355D\356\357G\"CPB$*0\202\313\210\202\314\210,\202H\322Y\203J Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203\331D\342\367\370=\211\371N\336\372CB#E!C B C G D\201z 1\323GHX\205\317\333 I\201{ \216E\203}G\335X\203}\336\337G\340U\203_\341\202vG\342U\203j\341\202vG\343U\203u\344\202v\345CPB#\210H\346Y\205\316\347D!\203\227\340 H\350D\351\321#D)G\342U\203\270\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\316\336\355D\356\357G\"CPB$*0\202\327\210\202\330\210,\375=\336\372CB#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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal file-directory-p "add-name-to-file: %s must not be a directory" localname hop arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf 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 #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 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" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 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 #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 10159)])
#@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\314 ~\210\315y\210 \317e`{\315 (\3201\276
)X\205\272 \321 *\322\216+\203p
\323X\203p \324\325
\326U\203V \327\202k
\330U\203` \327\202k
\331U\203j \332\202k \333\fP #\210)\334Y\205\271 \335(!\203\212 \326 )\336(\337\315#()
\330U\203\246 \326 )r\313(!q\210\f\340P\341 \342 C\"*\343(!\205\271 \324\344(\345\346
\"\fP $*0\202\302 \210\202\303 \210,e`|\210\310\311\347\")\207" [proc vec tramp-smb-server-version arguments fmt-string level process-status (run open) throw tramp-action process-died tramp-get-connection-buffer search-forward-regexp nil t 6 (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " ok vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 6 (#$ . 17301)])
#@40 Like `copy-directory' for Tramp files.
(defalias 'tramp-smb-handle-copy-directory #[(dirname newname &optional keep-date parents copy-contents) "\203 \306\307 \n \f\257\"\207\310 !\310\n!\311 !\311\n! @\312@\203* \202+ \n! A\313A! B\314A! C\315A! D\316A! E\317A! FA\320\321\322\323 \n#C G H I J\3241\375 IKX\205\371 \325 L\326\216M\203\247 I\327X\203\247 \330\331I\320U\203\211 \332\202\240 I\333U\203\224 \332\202\240 I\334U\203\237 \335\202\240 \336HPG#\210K\337Y\205\370 \340J!\203\301 \320 K\341J\342\343#J)I\333U\203\342 \320 Kr\344J!q\210H\345PH\346G\347 C\"G*\350J!\205\370 \330\351J\322\352I\"HPG$*0\202\210\202\210,\353M\205=\320K\327^X\205=\3541;\355\356!\204\"\357\356!\205)\356\322\323 \n#!\211 N\2056\360\327\361\362N$)0\202=\210\343 O P\363\216@\203
\203\364\310Q\343 R\365\366!\203b\367\366\370N@!\206\345\371\372!\203y\355\372!\204t\357\372!\205\345\372 \202\345\373\374!\211 S\205\206\375S!)\203\222\376\373\374!!\202\345\373\377!\211 S\205\237\375S!)\203\253\376\373\377!!\202\345\373\201d !\211 S\205\272\375S!)\203\310\376\373\201d !!\202\345\201e \201f !\203\332\376\201f !\202\345\331\201g !\210\376\201h !)\"! T\201i \216\201j T!\210\201k T \304$\210\201k \310\201l !T\"\n \f$*\202\230@\204
\203\220\375\n!\203B\201l !\201l \n!\230\204B\310\201l !\n\"
\203B\312\n!A\375\n!\204O\201j \n\f\"\210\313A!U\314A!V\201m A!W\201n A! X\201m A! Y\201o A! Z\201p A! [\201q A! \\\376\201r \201s \201t \201u A!#! E\364\310Q\343 R\365\366!\203\265\367\366\370N@!\2068\371\372!\203\314\355\372!\204\307\357\372!\2058\372 \2028\373\374!\211 S\205\331\375S!)\203\345\376\373\374!!\2028\373\377!\211 S\205\362\375S!)\203\376\376\373\377!!\2028\373\201d !\211 S\205
\375S!)\203\376\373\201d !!\2028\201e \201f !\203-\376\201f !\2028\331\201g !\210\376\201h !)\"! T\201v Y\201t \\R\201w D ]XG\320U\204e\346]\201x XD\"]\202o\346]\201y C\"]Z\203\200\346]\201z ZD\"][\203\221\346]\201{ [D\"]^\203\242\346]\201| ^D\"]@\203\325\346]\201} \201~ E!\201 \201~ \201\200 !\201\201 \201\202 \201\203 \201\204 \201~ T!\257 \"\202\346\201\202 \201\205 \201\204 \201~ !\201\206 \201\201 \257]\201} \201~ E!\201 \201~ \201\207 !F#]\201\210 \216\201\211 \201\212 ! _r_q\210\201\213 \216\201\214 A\201\215 \201\216 p!#\210\201\214 A\201\217 p#\210@\203Y\201j \310\201\220 TEP\"\304\"\210\201\221 \n\201\222 TEP!\"\210T `\330\201\223 \201\224 A!\344A!a]% bA\201\225 \201\226 \201\227 \201\230 \201\231 b!\201\232 #C G H I J\201\233 16IKX\2052\325 L\201\234 \216M\203\340I\327X\203\340\330\331I\320U\203\302\332\202\331I\333U\203\315\332\202\331I\334U\203\330\335\202\331\336HPG#\210K\337Y\2051\340J!\203\372\320 K\341J\342\343#J)I\333U\203\320 Kr\344J!q\210H\345PH\346G\347 C\"G*\350J!\2051\330\351J\322\352I\"HPG$*0\202:\210\202;\210,\201\214 b\342A#\210\201\235 b\343\"\210\201\236 bA\343c$\210\201\237 b!\201\240 >\203r\201\241 \201\242 !\210\202ZA\201\225 \345\347 C G H I J\201\243 1&IKX\205\"\325 L\201\244 \216M\203\320I\327X\203\320\330\331I\320U\203\262\332\202\311I\333U\203\275\332\202\311I\334U\203\310\335\202\311\336HPG#\210K\337Y\205!\340J!\203\352\320 K\341J\342\343#J)I\333U\203 \320 Kr\344J!q\210H\345PH\346G\347 C\"G*\350J!\205!\330\351J\322\352I\"HPG$*0\202*\210\202+\210. \203@\201\245 \n\201\246 \201\247 !8\"\210 \204O\201\250 \n\201\251 !\"\210
\205\230\312\n! A\313A! B\314A! C\315A! D\316A! E\317A! F\201\252 A\201\253 E!\"\210\201\252 AE\".\202\230\306\307 \n \fF\"\201\254 P. \207" [copy-contents dirname newname keep-date parents t2 tramp-run-real-handler copy-directory 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 0 "%s..." format #1="Copying %s to %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #2="" 1 2 #3="Warning: " #4="Tramp: " 4 processp tramp-get-connection-property #5="vector" nil tramp-get-connection-buffer #6="\n%s" append buffer-string vectorp tramp-debug-message #7="(%d) # " "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #\fD $ % &\3151\300 %'X\205\274 \316 (\317\216)\203m %\320X\203m \321\322%\311U\203P \323\202g %\324U\203[ \323\202g %\325U\203f \326\202g \327$P
#\210'\330Y\205\273 \331&!\203\207 \311 '\332&\333\334#&)%\324U\203\246 \311 'r\335&!q\210$\336P$\337
\340 C\"*\341&!\205\273 \321\342&\313\343%\"$P
$*0\202\302 \210\334,\207" [tm v dirname newname cookie arguments subrp cancel-timer functionp 0 "%s...%s" format #1# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #2# 1 2 #3# #4# 4 processp tramp-get-connection-property #5# nil tramp-get-connection-buffer #6# append buffer-string vectorp tramp-debug-message #7# fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7] make-temp-name boundp temporary-file-directory eval standard-value fboundp temp-directory getenv "TEMP" file-directory-p file-name-as-directory "TMP" t1 v method user host localname hop arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message pr tm cookie tramp-temp-name-prefix file-name-handler-alist d tmpdir tramp-current-method tramp-current-user tramp-current-host real-user real-host domain port share args tramp-smb-conf #8=#:temp-buffer default-directory tramp-smb-program p tramp-smb-actions-with-tar "TMPDIR" file-exists-p "c:/temp" "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" #[nil "\301\302\"\207" [tmpdir tramp-compat-delete-directory recursive] 3] make-directory tramp-compat-copy-directory file-name-nondirectory tramp-file-name-real-host tramp-file-name-real-user tramp-file-name-domain tramp-file-name-port tramp-smb-get-share tramp-compat-replace-regexp-in-string "\\\\" "/" tramp-smb-get-localname "//" "-E" "-U" "-N" "-W" "-p" "-s" "-D" shell-quote-argument "-c" "tar qc - *" "|" "tar" "xfC" "-" "cfC" "." "tar qx -" #[nil "\303\304\305#\210\303\306\305#\210 \205 \307\n\310\"\207" [v t1 tmpdir tramp-set-connection-property "process-name" nil "process-buffer" tramp-compat-delete-directory recurse] 4] generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#8# buffer-name kill-buffer] 2] tramp-set-connection-property "process-name" buffer-name "process-buffer" ".." make-symbolic-link directory-file-name start-process tramp-get-connection-name 6 "%s" mapconcat identity process-command " " (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-compat-set-process-query-on-exit-flag tramp-process-actions process-status (run open) sit-for 0.1 (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] set-file-times 5 file-attributes set-file-modes tramp-default-file-modes tramp-flush-file-property file-name-directory "done"] 13 (#$ . 18398)])
#@175 Like `copy-file' for Tramp files.
KEEP-DATE has no effect in case NEWNAME resides on an SMB server.
PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored.
(defalias 'tramp-smb-handle-copy-file #[(filename newname &optional ok-if-already-exists keep-date _preserve-uid-gid _preserve-extended-attributes) "\306!\306 !\307\310!\203 \202 !\311\312\313\314 #C \3151\253 \f@X\205\247 \316 A\317\216B\203c \f\320X\203c \321\322\f\311U\203I \323\202^ \f\324U\203S \323\202^ \f\325U\203] \326\202^ \327 P\n#\210@\330Y\205\246 \331
!\203z \311 @\332
\333\334#)\f\324U\203\225 \311 @r\335
!q\210 \336P\337\n\340 C\"*\341
!\205\246 \321\342
\313\343\f\" P\n$*0\202\257 \210\202\260 \210,\344B\205\353 \311@\320^X\205\353 \3451\351 \346\347!\204\320 \350\347!\205\327 \347\313\314 #!\211 C\205\344 \351\320\352\353C$)0\202\353 \210\334 D E\354\216\355!\203\356 F\357\211%\210\202O\360!\211 G\203/\3611\362G H#0\202+ I\363G!\210\364I@IA\")\210\202N\355 !\203<\306\365! \"\307 ! J\366J! K\367J! L\370J! M\371J! N\372J! OH\204K\373 !\203KJ\374 \334 4 \334 B
\211 \203;
\375\336\376\377\201Y !! P\201Z \216P P\201[ \210)rPq\210\340 +C \201\\ 12\f@X\205.\316 A\201] \216B\203\352\f\320X\203\352\321\322\f\311U\203\320\323\202\345\f\324U\203\332\323\202\345\f\325U\203\344\326\202\345\327 P\n#\210@\330Y\205-\331
!\203\311 @\332
\333\334#)\f\324U\203 \311 @r\335
!q\210 \336P\337\n\340 C\"*\341
!\205-\321\342
\313\343\f\" P\n$*0\2026\210\2027\210,\202\207@\375Y\203\207Q Rr\376\201^ !q\210p\201_ \210RQ\334\211ST\357\211U\357 V W\201` \210\201a \201b !\210+\211 X P\201[ \210\201c X!\210+)
\203=
\324\201d \201e 4\211\201f N\321\201g \n#E!C \201h 17\f@X\2053\316 A\201i \216B\203\357\f\320X\203\357\321\322\f\311U\203\325\323\202\352\f\324U\203\337\323\202\352\f\325U\203\351\326\202\352\327 P\n#\210@\330Y\2052\331
!\203\311 @\332
\333\334#)\f\324U\203!\311 @r\335
!q\210 \336P\337\n\340 C\"*\341
!\2052\321\342
\313\343\f\" P\n$*0\202;\210\202<\210,\3644\321\201g \n#C\"\210-\201j J\201k N!\"\210\201j JN\"\210\201l J!\204PJ\201m \201n C 4 \334 B
\211 \203@
\375\336\376\377\201Y !! P\201o \216P P\201[ \210)rPq\210\340 +C \201p 17\f@X\2053\316 A\201q \216B\203\357\f\320X\203\357\321\322\f\311U\203\325\323\202\352\f\324U\203\337\323\202\352\f\325U\203\351\326\202\352\327 P\n#\210@\330Y\2052\331
!\203\311 @\332
\333\334#)\f\324U\203!\311 @r\335
!q\210 \336P\337\n\340 C\"*\341
!\2052\321\342
\313\343\f\" P\n$*0\202;\210\202<\210,\202\214@\375Y\203\214Q Rr\376\201^ !q\210p\201_ \210RQ\334\211ST\357\211U\357 V W\201` \210\201a \201b !\210+\211 X P\201[ \210\201c X!\210+)
\203B
\324\201d \201e 4\211\201f N\321\201g \n#E!C \201r 1<\f@X\2058\316 A\201s \216B\203\364\f\320X\203\364\321\322\f\311U\203\332\323\202\357\f\324U\203\344\323\202\357\f\325U\203\356\326\202\357\327 P\n#\210@\330Y\2057\331
!\203 \311 @\332
\333\334#)\f\324U\203&\311 @r\335
!q\210 \336P\337\n\340 C\"*\341
!\2057\321\342
\313\343\f\" P\n$*0\202@\210\202A\210,\3644\321\201g \n#C\"\210-\201t J\313\201u \201v J!#\"\204LJ\201m \201w D 4 \334 B
\211 \203<
\375\336\376\377\201Y !! P\201x \216P P\201[ \210)rPq\210\340 +C \201y 13\f@X\205/\316 A\201z \216B\203\353\f\320X\203\353\321\322\f\311U\203\321\323\202\346\f\324U\203\333\323\202\346\f\325U\203\345\326\202\346\327 P\n#\210@\330Y\205.\331
!\203\311 @\332
\333\334#)\f\324U\203 \311 @r\335
!q\210 \336P\337\n\340 C\"*\341
!\205.\321\342
\313\343\f\" P\n$*0\2027\210\2028\210,\202\210@\375Y\203\210Q Rr\376\201^ !q\210p\201_ \210RQ\334\211ST\357\211U\357 V W\201` \210\201a \201b !\210+\211 X P\201[ \210\201c X!\210+)
\203>
\324\201d \201e 4\211\201f N\321\201g \n#E!C \201{ 18\f@X\2054\316 A\201| \216B\203\360\f\320X\203\360\321\322\f\311U\203\326\323\202\353\f\324U\203\340\323\202\353\f\325U\203\352\326\202\353\327 P\n#\210@\330Y\2053\331
!\203\311 @\332
\333\334#)\f\324U\203\"\311 @r\335
!q\210 \336P\337\n\340 C\"*\341
!\2053\321\342
\313\343\f\" P\n$*0\202<\210\202=\210,\3644\321\201g \n#C\"\210-.)F\205b\201} \201~ \201 !8\"\201\200 E+\207" [filename newname arguments fmt-string level vec-or-proc expand-file-name tramp-dissect-file-name tramp-tramp-file-p 0 "%s..." format #1="Copying %s to %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #2="" 1 2 #3="Warning: " #4="Tramp: " 4 processp tramp-get-connection-property #5="vector" nil tramp-get-connection-buffer #6="\n%s" append buffer-string vectorp tramp-debug-message #7="(%d) # " "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210\311\312 !\203 \202 \n!\313\314\315\316 \n# D & '\3171\307 &(X\205\303 \320 )\321\216*\203w &\322X\203w \323\324&\313U\203[ \325\202r &\326U\203f \325\202r &\327U\203q \330\202r \331
P\f#\210(\332Y\205\302 \333'!\203\221 \313 (\334'\335\336#')&\326U\203\256 \313 (r\337'!q\210
\340P\341\f\342 C\"*\343'!\205\302 \323\344'\315\345&\"
P\f$*0\202\311 \210\336,\207" [tm filename newname cookie arguments fmt-string subrp cancel-timer functionp tramp-dissect-file-name tramp-tramp-file-p 0 "%s...%s" format #1# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #2# 1 2 #3# #4# 4 processp tramp-get-connection-property #5# nil tramp-get-connection-buffer #6# append buffer-string vectorp tramp-debug-message #7# level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7] file-directory-p tramp-compat-copy-directory t file-local-copy (error quit) rename-file delete-file signal 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 10 get-buffer-create generate-new-buffer-name tramp-verbose save-match-data-internal tramp-message-show-message pr tm cookie keep-date tmpfile ok-if-already-exists err v method user host localname hop standard-output default-directory #8=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #9=#:buf " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-flush-file-property file-name-directory tramp-smb-get-share file-error "Target `%s' must contain a share name" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-smb-send-command "put \"%s\" \"%s\"" tramp-smb-get-localname "Cannot copy `%s' to `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] set-file-times 5 file-attributes "done"] 11 (#$ . 25727)])
#@42 Like `delete-directory' for Tramp files.
(defalias 'tramp-smb-handle-delete-directory #[(directory &optional recursive) "\306\307!!\310!\205\207 \203 \311\312\313\314\315#\"\210\316!\317\n!\320\n! \321\n! \322\n! @\323\n! A\324\n\325@!\"\210\326\n@\"\210\327\n\330\331\332\n!\203O \333\202P \334\335\n!#\"?\205\205r\336\n!q\210eb\210\337B\340\341#\210\n\342\343\344\345!D C D E F\340 GF\211 F\203TF\346\347\350\351\352!! H\353\216H H\354 \210)rHq\210\355 +C C D I F\3561KIJX\205G\357 K\360\216G\203\363 I\361X\203\363 \362\363I\345U\203\325 \364\202\354 I\365U\203\340 \364\202\354 I\366U\203\353 \367\202\354 \370DPC#\210J\371Y\205F\372F!\203
\345 J\373F\374\340#F)I\365U\203.\345 Jr\336F!q\210D\347PD\375C\355 C\"C*\376F!\205F\362\377F\330\201T I\"DPC$*0\202O\210\202P\210,\202\236J\346Y\203\236L Mr\350\201U !q\210p\201V \210ML\340\211NO\341\211P\341 Q R\201W \210\201X \201Y !\210+\211 S H\354 \210\201Z S!\210+)F\203sF\365\201[ \201\\ E\211\201] N\362\201^ DC#E!C C D I F\201_ 1mIJX\205i\357 K\201` \216G\203I\361X\203\362\363I\345U\203\367\364\202I\365U\203\364\202I\366U\203
\367\202\370DPC#\210J\371Y\205h\372F!\203/\345 J\373F\374\340#F)I\365U\203P\345 Jr\336F!q\210D\347PD\375C\355 C\"C*\376F!\205h\362\377F\330\201T I\"DPC$*0\202q\210\202r\210,\201E E\362\201^ DC#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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" append vectorp tramp-debug-message localname hop tramp-smb-errors arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf "(%d) # " "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 33312)])
#@37 Like `delete-file' for Tramp files.
(defalias 'tramp-smb-handle-delete-file #[(filename &optional _trash) "\306!\307!\205e\310!\311 !\312 !\313 ! \314 ! \315 ! @\316 \317
!\"\210\316
\"\210\320 \321\322\323 !\203= \324\202> \325\326 !#\"?\205cr\327 !q\210eb\210\330A\331\332#\210 \333\334\335\336!D B C D E\331 FE\211 E\203@E\337\340\341\342\343!! G\344\216G G\345 \210)rGq\210\346 +C B C H E\34717HIX\2053\350 J\351\216F\203\341 H\352X\203\341 \353\354H\336U\203\303 \355\202\332 H\356U\203\316 \355\202\332 H\357U\203\331 \360\202\332 \361CPB#\210I\362Y\2052\363E!\203\373 \336 I\364E\365\331#E)H\356U\203 \336 Ir\327E!q\210C\340PC\366B\346 C\"B*\367E!\2052\353\370E\321\371H\"CPB$*0\202;\210\202<\210,\202~I\337Y\203~K Lr\341\372!q\210p\373 \210LK\331\211MN\332\211O\332 P Q\374 \210\375\376!\210+\211 R G\345 \210\377R!\210+)E\203QE\356\201S \201T D\211\201U N\353\201V CB#E!C B C H E\201W 1KHIX\205G\350 J\201X \216F\203\365H\352X\203\365\353\354H\336U\203\327\355\202\356H\356U\203\342\355\202\356H\357U\203\355\360\202\356\361CPB#\210I\362Y\205F\363E!\203\336 I\364E\365\331#E)H\356U\2030\336 Ir\327E!q\210C\340PC\366B\346 C\"B*\367E!\205F\353\370E\321\371H\"CPB$*0\202O\210\202P\210,\201D D\353\201V CB#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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" append vectorp tramp-debug-message "(%d) # " "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show hop tramp-smb-errors arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 36393)])
#@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\"\317 !)\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\303 #\207" [directory x format "%s/%s"] 4] sort string-lessp tramp-compat-delete-dups] 5 (#$ . 39146)])
#@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 \"G\330U\203X \331 !\202] \326\327 \"\314\211 $ \312\307 C\"\204s \306 P \332\f
\312\313 C\"$.\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 match-string 1 0 tramp-file-name-real-user tramp-make-tramp-file-name host localname hop] 7 (#$ . 39657)])
#@39 Read ACL data from connection buffer.
(defalias 'tramp-smb-action-get-acl #[(proc vec) "\306!\307>?\205\342 \310\311\"\204 r\312 !q\210~\210 \313\314\315 C \3161\254 \f*X\205\250 \317 +\320\216,\203d \f\321X\203d \322\323\f\324U\203J \325\202_ \f\326U\203T \325\202_ \f\327U\203^ \330\202_ \331 P\n#\210*\332Y\205\247 \333
!\203{ \324 *\334
\335\336#)\f\326U\203\226 \324 *r\312
!q\210 \314P\337\n\315 C\"*\340
!\205\247 \322\341
\342\343\f\" P\n$*0\202\260 \210\202\261 \210,eb\210m\204\311 \344\345!\204\311 \336y\210e`|\210\202\265 m\204\331 \344\346!\203\331 \336y\210\202\311 `d|\210\347\350\351\")\207" [proc vec arguments fmt-string level vec-or-proc process-status (run open) tramp-accept-process-output 0.1 tramp-get-connection-buffer 10 "\n%s" buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil append vectorp tramp-debug-message format "(%d) # " looking-at "^REVISION:" "^.+:.+" throw tramp-action ok tramp-verbose save-match-data-internal tramp-message-show-message] 6 (#$ . 40479)])
#@34 Like `file-acl' for Tramp files.
(defalias 'tramp-smb-handle-file-acl #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! @\314
!\203\315
\316\317$\211 A\317=\203\320B!\205\307 !C\310 !D\321 !E\322 ! F\321 ! G\323 ! H\324 ! I\325 ! J\326\327\330\331 !# \332G\330JR\333D KFG\334U\204\204 \335K\336FD\"K\202\214 \335K\337C\"KH\203\233 \335K\340HD\"KI\203\252 \335K\341ID\"KL\203\271 \335K\342LD\"K\335K\343
!\344D\"K\345\216\346\347! MrMq\210\350\216\351 \352\353p!#\210\351 \354p#\210\355\356\357 !\360 !BK% N \361\362\363\364\365N!\366#C O P Q R\3671\272QSX\205\266\370 T\371\216U\203NQ\372X\203N\355\373Q\334U\203.\374\202GQ\375U\2039\374\202GQ\376U\203D\377\202G\201X PPO#\210S\201Y Y\205\265\201Z R!\203r\334 S\201[ R\201\\ \201] #R)Q\375U\203\227\334 Sr\360R!q\210P\201^ PP\335O\201_ C\"O*\201` R!\205\265\355\201a R\201b \201c Q\"PPO$*0\202\276\210\202\277\210,\351N\201\\ #\210\201d N\201] \"\210\201e N \201] V$\210deV\205\201f \201g !\204\372\201h \201g !\205\201g \201_ !.\fA\201i
\316A$\210A)\202\365\320B!\205\365\307 !C\310 !D\321 !E\322 ! F\321 ! G\323 ! H\324 ! I\325 ! J\326\327\330\331 !# \332G\330JR\333D KFG\334U\204m\335K\336FD\"K\202u\335K\337C\"KH\203\204\335K\340HD\"KI\203\223\335K\341ID\"KL\203\242\335K\342LD\"K\335K\343
!\344D\"K\201j \216\346\347! WrWq\210\201k \216\351 \352\353p!#\210\351 \354p#\210\355\356\357 !\360 !BK% N \361\362\363\364\365N!\366#C O P Q R\201l 1\253QSX\205\247\370 T\201m \216U\203?Q\372X\203?\355\373Q\334U\203 \374\2028Q\375U\203*\374\2028Q\376U\2035\377\2028\201X PPO#\210S\201Y Y\205\246\201Z R!\203c\334 S\201[ R\201\\ \201] #R)Q\375U\203\210\334 Sr\360R!q\210P\201^ PP\335O\201_ C\"O*\201` R!\205\246\355\201a R\201b \201c Q\"PPO$*0\202\257\210\202\260\210,\351N\201\\ #\210\201d N\201] \"\210\201e N \201] V$\210deV\205\363\201f \201g !\204\353\201h \201g !\205\363\201g \201_ !.\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 "file-acl" undef executable-find tramp-file-name-real-host tramp-file-name-real-user tramp-file-name-domain tramp-file-name-port tramp-smb-get-share tramp-compat-replace-regexp-in-string "\\\\" "/" tramp-smb-get-localname "//" "-E" 0 append "-U" "-N" "-W" "-p" "-s" shell-quote-argument "2>/dev/null" #[nil "\301\302\303#\210\301\304\303#\207" [v tramp-set-connection-property #3="process-name" nil #4="process-buffer"] 4] generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] tramp-set-connection-property "process-name" buffer-name "process-buffer" apply start-process tramp-get-connection-name tramp-get-connection-buffer 6 "%s" mapconcat identity process-command " " (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 message "" 1 2 "Warning: " hop value tramp-smb-acl-program tramp-current-method tramp-current-user tramp-current-host real-user real-host domain port share args tramp-smb-conf #1# p arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message tramp-smb-actions-get-acl #2=#:temp-buffer "Tramp: " 4 processp tramp-get-connection-property "vector" nil "\n%s" buffer-string vectorp tramp-debug-message format "(%d) # " tramp-compat-set-process-query-on-exit-flag tramp-process-actions subrp substring-no-properties functionp tramp-set-file-property #[nil "\301\302\303#\210\301\304\303#\207" [v tramp-set-connection-property #3# nil #4#] 4] #[nil "\301!\205 \302!\207" [#2# buffer-name kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 8 (#$ . 41656)])
#@41 Like `file-attributes' for Tramp files.
(defalias 'tramp-smb-handle-file-attributes #[(filename &optional id-format) "\204 \306\3071/\310 !\311\n!\312\n! \313\n! \314\n! (\315\n! )\316(!\203\276 \317\n(\320\321\"\322$\211 *\322=\203\270 \323\n!\203J \324\n\"\202\252 \325\326 !! +\327\330 !+\" ,\331\232\203d \332\202e \333 -\331\232\203q \334\202r \333 .\335\n! /\336\n! 0,\205\250 \337\340,A@\"\205\216 \341\333-.\342\343,8\344\345,8,A@\346/0\257\f.*\347\n(\320\321\"*$\210*)\202+\323\n!\203\313 \324\n\"\202+\325\326 !! +\327\330 !+\" ,\331\232\203\345 \332\202\346 \333 -\331\232\203\362 \334\202\363 \333 .\335\n! /\336\n! 0,\205)\337\340,A@\"\205\341\333-.\342\343,8\344\345,8,A@\346/0\257\f..0\207\210\346\207" [id-format filename v method user host integer (error) 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-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 localname hop value entries entry uid gid inode device] 13 (#$ . 45595)])
#@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 \3111\221
X\205\215 \312 6\313\2167\203L \314X\203L \315\316 \317U\2032 \320\202G \321U\203< \320\202G \322U\203F \323\202G \324\nP #\210
\325Y\205\214 \326\f!\203a \317 \327\f\330\331#) \321U\203{ \317 r\332\f!q\210\n\333P\334 \335 C\"*\336\f!\205\214 \315\337\f\340\341 \"\nP $*0\202\225 \210\202\226 \210,r\332!q\210\331\211 8 9\331\211 : ;\331\211 < =\331\211 > ?\331\211 @ A\342\340\343\344!\"\"\205\355eb\210\345B\331\346#?\205\355m\204\323\347\350!\203\377 \351\352\321!!8\352\322!\353\230\203\361 \346\202\372 \352\322!\354\230\205\372 \3209\202\315\347\355!\203\351\352\321!!A\351\352\322!!:\202\315\347\356!\203L\352\321!@C\357\232\203.\352\322!\2023\351\352\322!!;C\357\232\203B\352\314!\202G\351\352\314!!<\202\315\347\360!\203x\361\351\352\362!!\351\352\306!!\351\352\325!!\351\352\314!!\351\352\322!!\351\352\321!!&=\202\315\347\363!\203\244\361\351\352\362!!\351\352\306!!\351\352\325!!\351\352\314!!\351\352\322!!\351\352\321!!&>\202\315\347\364!\203\315\361\351\352\362!!\351\352\306!!\351\352\325!!\351\352\314!!\351\352\322!!\351\352\321!!&?\331y\210\202\324 9:;<=>?8@\331A\365!\257\f. \207" [vec arguments fmt-string level vec-or-proc tramp-verbose 5 "file attributes with stat: %s" tramp-file-name-localname (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-smb-send-command "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 "directory" "symbolic" "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 "Access:\\s-+\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)\\s-+\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" encode-time 6 "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 save-match-data-internal tramp-message-show-message size id link uid gid atime mtime ctime mode inode tramp-smb-errors id-format] 14 (#$ . 46980)])
#@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 (#$ . 49559)])
#@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\316C A B ; C\317 DC\211 C\203C\320\321\322\323\324!! E\325\216E E\326 \210)rEq\210\327 +C A B F C\3301\374 FGX\205\370 \331 H\332\216D\203\246 F\333X\203\246 \334\335F\336U\203\210 \337\202\237 F\340U\203\223 \337\202\237 F\341U\203\236 \342\202\237 \343BPA#\210G\344Y\205\367 \345C!\203\300 \336 G\346C\347\317#C)F\340U\203\341 \336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\367 \334\353C\354\355F\"BPA$*0\202 \210\202\210,\202CG\320Y\203CI Jr\322\356!q\210p\357 \210JI\317\211KL\360\211M\360 N O\361 \210\362\363!\210+\211 P E\326 \210\364P!\210+)C\203\nC\340\365\366;\211\367N\334\370BA#E!C A B F C\3711FGX\205 \331 H\372\216D\203\256F\333X\203\256\334\335F\336U\203\220\337\202\247F\340U\203\233\337\202\247F\341U\203\246\342\202\247\343BPA#\210G\344Y\205\377\345C!\203\310\336 G\346C\347\317#C)F\340U\203\351\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\377\334\353C\354\355F\"BPA$*0\202\210\202 \210,\373;\334\370BA#C\"\210-\317 Q R\317 S\374\375J\317 S\376\377!\203:\201\\ \377\201] N@!\206\355\201^ \201_ !\203_\201` \201_ !\204X\201a \201_ !\205\355\201_ \202\355\201b \201c !\211 T\205r\201d T!)\203\204\201e \201b \201c !!\202\355\201b \201f !\211 T\205\227\201d T!)\203\251\201e \201b \201f !!\202\355\201b \201g !\211 T\205\274\201d T!)\203\316\201e \201b \201g !!\202\355\314\201h !\203\340\201e \201h !\202\355\335\201i !\210\201e \201j !)\" U\201k R\360\" V\317 W\201l 1(\201` \201m !\204\201a \201m !\205!\201m UQV#\211W0\202e\210\201n 1[\201o U!VPWQ\203I\201p W!\210\202V\201q \337\317W\317\201r %\210\3170\202_\210\202)\203f\202)\210W. X \333\201s \354\201t X#C A B F C\201u 1%FGX\205!\331 H\201v \216D\203\317F\333X\203\317\334\335F\336U\203\261\337\202\310F\340U\203\274\337\202\310F\341U\203\307\342\202\310\343BPA#\210G\344Y\205 \345C!\203\351\336 G\346C\347\317#C)F\340U\203\n\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205 \334\353C\354\355F\"BPA$*0\202)\210\202*\210,\201w D\205|\333G\333^X\205|\201x 1z\201` \201y !\204V\201a \201y !\205b\201y \354\201t X#!\211 Y\205u\201z \333\201{ \201| Y$)0\202|\210\317 Z [\201} \216\201~ \354\201 \201\200 !X#\"\204\244\201\201 X!\210 \315\201\202 C A B ; C\317 DC\211 C\203\215C\320\321\322\323\324!! E\201\203 \216E E\326 \210)rEq\210\327 +C A B F C\201\204 1\204FGX\205\200\331 H\201\205 \216D\203.F\333X\203.\334\335F\336U\203\337\202'F\340U\203\337\202'F\341U\203&\342\202'\343BPA#\210G\344Y\205\345C!\203H\336 G\346C\347\317#C)F\340U\203i\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\334\353C\354\355F\"BPA$*0\202\210\210\202\211\210,\202\313G\320Y\203\313I Jr\322\356!q\210p\357 \210JI\317\211KL\360\211M\360 N O\361 \210\362\363!\210+\211 P E\326 \210\364P!\210+)C\203\226C\340\365\366;\211\367N\334\370BA#E!C A B F C\201\206 1\220FGX\205\214\331 H\201\207 \216D\203:F\333X\203:\334\335F\336U\203 \337\2023F\340U\203'\337\2023F\341U\2032\342\2023\343BPA#\210G\344Y\205\213\345C!\203T\336 G\346C\347\317#C)F\340U\203u\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\213\334\353C\354\355F\"BPA$*0\202\224\210\202\225\210,\373;\334\370BA#C\"\210-\201\210 [+X.\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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #4="" 1 2 #5="Warning: " #6="Tramp: " 4 processp tramp-get-connection-property #7="vector" tramp-get-connection-buffer append vectorp tramp-debug-message format #8="(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal expand-file-name tramp-temp-name-prefix boundp temporary-file-directory hop arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf dir-flag f file-name-handler-alist d prefix extension result tmpfile pr tm cookie eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" "c:/temp" "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension (error) make-temp-file (file-already-exists) make-temp-name make-directory write-region silent "%s..." #3="Fetching %s to tmp file %s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "failed" (error) make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #\fD $ % &\3151\300 %'X\205\274 \316 (\317\216)\203m %\311X\203m \320\321%\322U\203P \323\202g %\324U\203[ \323\202g %\325U\203f \326\202g \327$P
#\210'\330Y\205\273 \331&!\203\207 \322 '\332&\333\334#&)%\324U\203\246 \322 'r\335&!q\210$\336P$\337
\340 C\"*\341&!\205\273 \320\342&\313\343%\"$P
$*0\202\302 \210\334,\207" [tm v filename tmpfile cookie arguments subrp cancel-timer functionp 3 "%s...%s" format #3# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 #4# 1 2 #5# #6# 4 processp tramp-get-connection-property #7# nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message #8# fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7] tramp-smb-send-command "get \"%s\" \"%s\"" tramp-smb-get-localname delete-file "Cannot make local copy of file `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "done"] 11 (#$ . 49770)])
#@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 #[nil "\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 #[nil "\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 (#$ . 56491)])
#@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 (#$ . 57601)])
#@42 Like `insert-directory' for Tramp files.
(defalias 'tramp-smb-handle-insert-directory #[(filename switches &optional wildcard full-directory-p) "\306! \204\n \307\310!G\311U\203 \n\204 \312P\n\203& \313!\202* \314!\315!\316 ! \317 ! \320 ! @\321 ! A\322 ! B \311\323\324\325\"C C D E F\3261\364 EGX\205\360 \327 H\330\216I\203\236 E\331X\203\236 \332\333E\311U\203\200 \307\202\227 E\334U\203\213 \307\202\227 E\335U\203\226 \336\202\227 \337DPC#\210G\340Y\205\357 \341F!\203\270 \311 G\342F\343\344#F)E\334U\203\331 \311 Gr\345F!q\210D\346PD\347C\350 C\"C*\351F!\205\357 \332\352F\324\353E\"DPC$*0\202\370 \210\202\371 \210,\354I\2053\311G\331^X\2053\35511\356\357!\204\360\357!\205 \357\324\325\"!\211 J\205,\361\331\362\363J$)0\2023\210\344 K L\364\216\327 H\365\216\310!\366\367\370!!! M NO\203\201\371\372N\"\210\373\374\344\211N$N\371\375N\"\210\373\376\344\211N$N\371\377N\"\210\373\201P \344\211N$N\201Q \344O\204\222NG\311U\203\236\201R \201S M\"\202\247\201T NM\"C\"M\201U M\201V \"M\371\312 \"\203\306\201W \201X M\"\210\201W \201Y M\",\201Z L. \207" [filename switches full-directory-p v method user expand-file-name #2="" file-name-nondirectory 0 "F" 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 "%s..." format #1="Opening directory %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 1 2 #3="Warning: " #4="Tramp: " 4 processp tramp-get-connection-property #5="vector" nil tramp-get-connection-buffer #6="\n%s" append buffer-string vectorp tramp-debug-message #7="(%d) # " "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n\" D $ %\3151\272 $&X\205\266 \316 '\317\216(\203j $\320X\203j \321\322$\311U\203N \323\202e $\324U\203Y \323\202e $\325U\203d \326\202e \327
P\f#\210&\330Y\205\265 \331%!\203\204 \311 &\332%\333\334#%)$\324U\203\241 \311 &r\335%!q\210
\336P\337\f\340 C\"*\341%!\205\265 \321\342%\313\343$\"
P\f$*0\202\274 \210\334,\207" [tm v filename cookie arguments fmt-string subrp cancel-timer functionp 0 "%s...%s" format #1# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #2# 1 2 #3# #4# 4 processp tramp-get-connection-property #5# nil tramp-get-connection-buffer #6# append buffer-string vectorp tramp-debug-message #7# level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 6] #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] copy-sequence tramp-smb-get-file-entries file-name-directory string-match "\\." replace-match "\\\\." "\\*" ".*" "\\?" host localname hop arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message pr tm cookie entries base wildcard ".?" delq 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" time-less-p 3] 4] mapc #[(x) "@G\301U?\205, \302\303\304A@!\"\203 \211@\305P\240\207\302\306\304A@!\"\205, \211@\307P\240\207" [x 0 char-equal 100 string-to-char "/" 120 "*"] 4] #[(x) "@G\306U?\205\222 \307\310 \"\203j \311\n!\205$ \3121\" \313 \314\"0\202$ \210\315 \316\317\320\f8\2060 A@\fA@\2067 \321\322\f8\206> \323\324\f8\206E \325\326\f8\206N \3228\327\330\331\332 \3248\"
\"\203` \333\202a \334\3248\"&c\210)` %\316\335\336\337@\340 !\"&\205 \340 !\"\"c\210\341%`S\342\343$\210)\315y\210\344 \207" [x switches v filename attr tramp-half-a-year 0 string-match "l" tramp-smb-get-stat-capability (error) file-attributes string nil format "%10s %3d %-8s %-8s %8s %s " 8 1 2 "nobody" 3 "nogroup" 7 format-time-string time-less-p 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 start full-directory-p] 13] "done"] 7 (#$ . 57904)])
#@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! A\317 B\320\216\321! CD\203O \322\n!\203O \323C!\204O \324CD\"\210\323C!\203Z \325!\210\323!?\205a\n\326\327C E F G H\330 IH\211 H\203GH\331\332\333\334\335!! J\336\216J J\337 \210)rJq\210\340 +C E F K H\3411>KLX\205:\317 B\342\216I\203\350 K\343X\203\350 \344\345K\346U\203\312 \347\202\341 K\350U\203\325 \347\202\341 K\351U\203\340 \352\202\341 \353FPE#\210L\354Y\2059\355H!\203\346 L\356H\357\330#H)K\350U\203#\346 Lr\360H!q\210F\332PF\361E\340 C\"E*\362H!\2059\344\363H\364\365K\"FPE$*0\202B\210\202C\210,\202\203L\331Y\203\203 Mr\333\366!q\210p\367 \210M\330\211NO\370\211P\370 Q R\371 \210\372\373!\210+\211 S J\337 \210\374S!\210+)H\203PH\350\375\376G\211\377N\344\201T FE#E!C E F K H\201U 1JKLX\205F\317 B\201V \216I\203\364K\343X\203\364\344\345K\346U\203\326\347\202\355K\350U\203\341\347\202\355K\351U\203\354\352\202\355\353FPE#\210L\354Y\205E\355H!\203\346 L\356H\357\330#H)K\350U\203/\346 Lr\360H!q\210F\332PF\361E\340 C\"E*\362H!\205E\344\363H\364\365K\"FPE$*0\202N\210\202O\210,\201G G\344\201T FE#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 #[nil "\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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message localname hop save-match-data-internal ldir parents arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 62169)])
#@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! A\317 B\320\216\321\n! C\322\323!!\203g \324\n\325\n!\203R \326\327C\330\331 !#\202W \326\332C\"\"\210\333\n\323@!\"\210\333\n@\"\210\322!?\205x\n\334\335C D E F G\336 HG\211 G\203TG\337\340\341\342\343!! I\344\216I I\345 \210)rIq\210\346 +C D E J G\3471KJKX\205G\317 B\350\216H\203\365 J\351X\203\365 \352\353J\354U\203\327 \355\202\356 J\356U\203\342 \355\202\356 J\357U\203\355 \360\202\356 \361EPD#\210K\362Y\205F\363G!\203\354 K\364G\365\336#G)J\356U\2030\354 Kr\366G!q\210E\340PE\367D\346 C\"D*\370G!\205F\352\371G\326\372J\"EPD$*0\202O\210\202P\210,\202\224K\337Y\203\224 Lr\341\373!q\210p\374 \210L\336\211MN\375\211O\375 P Q\376 \210\377\201S !\210+\211 R I\345 \210\201T R!\210+)G\203gG\356\201U \201V F\211\201W N\352\201X ED#E!C D E J G\201Y 1aJKX\205]\317 B\201Z \216H\203 J\351X\203 \352\353J\354U\203\355\355\202J\356U\203\370\355\202J\357U\203\360\202\361EPD#\210K\362Y\205\\\363G!\203%\354 K\364G\365\336#G)J\356U\203F\354 Kr\366G!q\210E\340PE\367D\346 C\"D*\370G!\205\\\352\371G\326\372J\"EPD$*0\202e\210\202f\210,\201F F\352\201X ED#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 #[nil "\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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message "(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks localname hop save-match-data-internal file arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 64936)])
#@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 \"\204%\307\310!\203 \202 !\311\n!\312\n! \313\n! \314\n! @\315\n! A\n\316\317\320C B C = D\321 ED\211 D\203D\322\323\324\325\326!! F\327\216F F\330 \210)rFq\210\331 +C B C G D\3321GHX\205\333 I\334\216E\203\262 G\335X\203\262 \336\337G\340U\203\224 \341\202\253 G\342U\203\237 \341\202\253 G\343U\203\252 \344\202\253 \345CPB#\210H\346Y\205\347D!\203\314 \340 H\350D\351\321#D)G\342U\203\355 \340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\336\355D\356\357G\"CPB$*0\202\f\210\202
\210,\202OH\322Y\203OJ Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203D\342\367\370=\211\371N\336\372CB#E!C B C G D\3731GHX\205\f\333 I\374\216E\203\272G\335X\203\272\336\337G\340U\203\234\341\202\263G\342U\203\247\341\202\263G\343U\203\262\344\202\263\345CPB#\210H\346Y\205 \347D!\203\324\340 H\350D\351\321#D)G\342U\203\365\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205 \336\355D\356\357G\"CPB$*0\202\210\202\210,\375=\336\372CB#C\"\210. \307! R\311R! S\312R! T\313R! U\314R! V\315R! W\307 ! X\311X! Y\312X! Z\313X! [\314X! \\\315X! ]\376!\203uX\316\377C B C = D\321 ED\211 D\203^D\322\323\324\325\326!! F\201_ \216F F\330 \210)rFq\210\331 +C B C G D\201` 1UGHX\205Q\333 I\201a \216E\203\377G\335X\203\377\336\337G\340U\203\341\341\202\370G\342U\203\354\341\202\370G\343U\203\367\344\202\370\345CPB#\210H\346Y\205P\347D!\203\340 H\350D\351\321#D)G\342U\203:\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205P\336\355D\356\357G\"CPB$*0\202Y\210\202Z\210,\202\234H\322Y\203\234J Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203gD\342\367\370=\211\371N\336\372CB#E!C B C G D\201b 1aGHX\205]\333 I\201c \216E\203 G\335X\203 \336\337G\340U\203\355\341\202G\342U\203\370\341\202G\343U\203\344\202\345CPB#\210H\346Y\205\\\347D!\203%\340 H\350D\351\321#D)G\342U\203F\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\\\336\355D\356\357G\"CPB$*0\202e\210\202f\210,\375=\336\372CB#C\"\210-^\204\233\201d !\203\233^\247\204\233\201e \356\201f \"!\203\233X\316\201g C B C = D\321 ED\211 D\203\204D\322\323\324\325\326!! F\201h \216F F\330 \210)rFq\210\331 +C B C G D\201i 1{GHX\205w\333 I\201j \216E\203%G\335X\203%\336\337G\340U\203\341\202 G\342U\203\341\202 G\343U\203 \344\202 \345CPB#\210H\346Y\205v\347D!\203?\340 H\350D\351\321#D)G\342U\203`\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205v\336\355D\356\357G\"CPB$*0\202\210\202\200\210,\202\302H\322Y\203\302J Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203\215D\342\367\370=\211\371N\336\372CB#E!C B C G D\201k 1\207GHX\205\203\333 I\201l \216E\2031G\335X\2031\336\337G\340U\203\341\202*G\342U\203 \341\202*G\343U\203)\344\202*\345CPB#\210H\346Y\205\202\347D!\203K\340 H\350D\351\321#D)G\342U\203l\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\202\336\355D\356\357G\"CPB$*0\202\213\210\202\214\210,\375=\336\372CB#C\"\210-\201m R!\204\251X\316\201n \321 B C = D\321 ED\211 D\203\222D\322\323\324\325\326!! F\201o \216F F\330 \210)rFq\210\331 +C B C G D\201p 1\211GHX\205\205\333 I\201q \216E\2033G\335X\2033\336\337G\340U\203\341\202,G\342U\203 \341\202,G\343U\203+\344\202,\345CPB#\210H\346Y\205\204\347D!\203M\340 H\350D\351\321#D)G\342U\203n\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\204\336\355D\356\357G\"CPB$*0\202\215\210\202\216\210,\202\320H\322Y\203\320J Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203\233D\342\367\370=\211\371N\336\372CB#E!C B C G D\201r 1\225GHX\205\221\333 I\201s \216E\203?G\335X\203?\336\337G\340U\203!\341\2028G\342U\203,\341\2028G\343U\2037\344\2028\345CPB#\210H\346Y\205\220\347D!\203Y\340 H\350D\351\321#D)G\342U\203z\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\220\336\355D\356\357G\"CPB$*0\202\231\210\202\232\210,\375=\336\372CB#C\"\210-\201t X\201u \\!\"\210\201t X\\\"\210\201v R\356\201w \201x R!\201x X!#\"?\205\342\nX\316\201y \201z C B C = D\321 ED\211 D\203\314 D\322\323\324\325\326!! F\201{ \216F F\330 \210)rFq\210\331 +C B C G D\201| 1\303 GHX\205\277 \333 I\201} \216E\203m G\335X\203m \336\337G\340U\203O \341\202f G\342U\203Z \341\202f G\343U\203e \344\202f \345CPB#\210H\346Y\205\276 \347D!\203\207 \340 H\350D\351\321#D)G\342U\203\250 \340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\276 \336\355D\356\357G\"CPB$*0\202\307 \210\202\310 \210,\202\n\nH\322Y\203\n\nJ Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203\325\nD\342\367\370=\211\371N\336\372CB#E!C B C G D\201~ 1\317\nGHX\205\313\n\333 I\201 \216E\203y\nG\335X\203y\n\336\337G\340U\203[\n\341\202r\nG\342U\203f\n\341\202r\nG\343U\203q\n\344\202r\n\345CPB#\210H\346Y\205\312\n\347D!\203\223\n\340 H\350D\351\321#D)G\342U\203\264\n\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\312\n\336\355D\356\357G\"CPB$*0\202\323\n\210\202\324\n\210,\375=\336\372CB#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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal file-directory-p "make-symbolic-link: %s must not be a directory" localname hop arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf 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 #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] file-exists-p y-or-n-p "File %s already exists; make it a new name anyway? " "make-symbolic-link: file %s already exists" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-smb-get-cifs-capabilities "make-symbolic-link not supported" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 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 #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 67880)])
#@38 Like `process-file' for Tramp files.
(defalias 'tramp-smb-handle-process-file #[(program &optional infile destination display &rest args) "\247\203 \306U\203 \307\310!\210\311 !\312\n!\313\n! \314\n! \315\n! @\316\n! A\317B!\211 C D\306 E\320\211 F G\320\211 H I\320 JK\203\231 \321K!K\322 K\"\203{ \311K!\312\n!\313\n! \314\n! \315\n! @\316\n! A@.F\202\221 \323\n!F\324 \f
F$G\325KG\326#\210\327\330
F#F\331!\203\245 H\202\230;\203\262 \332!H\202\230:\203\221\331@!\203\305 @H\202\334 @;\203\324 \332@!H\202\334 @\203\334 pH\n\333\334\335C L M N O\3361\210NPX\205\204\337 Q\340\216R\2032N\341X\2032\342\343N\306U\203\344\202+N\345U\203 \344\202+N\333U\203*\346\202+\347MPL#\210P\350Y\205\203\351O!\203L\306 P\352O\353\320#O)N\345U\203m\306 Pr\354O!q\210M\355PM\356L\357 C\"L*\360O!\205\203\342\361O\327\362N\"MPL$*0\202\214\210\202\215\210,\202\230\203\230pH\363\364BSB\365#IF\203\264\327\366\367F!I#\202\271\327\370I\"I\371D!\203\323ETE\327\372CE#D\202\273\373\n\374D#\210\373\n\375H\206\346\376T!#\210\3771o\201W 1dr\354\n!q\210dd}\210\201X \n!\210\201Y \n!\203 \201Z \n\327\201[
\201\\ @!#\"\210\201Z \nI\"\210dd}\210\201] \n! U\201Z \n\201^ \"\210\201_ U!\201` >\203X\201a \201b !\210\201c U!J\2028)ed|\210~)00\202t0\210\201d \211J\202t\210\345\211J\210V\203\216H\203\216\201e H\326\"\203\216\201f \210\373\n\374\320#\210\373\n\375\320#\210G\203\246\201g G!\210H\204\265\201h \352\n\375\320#!\210\201i \201j !\203\306\201j J\203\315\201k \n\344\"\210J\201d \232\203\335\201l \202\337J.\207" [destination default-directory v method user host 0 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 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" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message "" 1 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message "(%d) # " 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 (error) localname hop program name name1 i input tmpinput outbuf command ret infile arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message args tramp-temp-buffer-name p display (quit) tramp-smb-call-winexe tramp-smb-get-share tramp-smb-send-command "cd \"//%s%s\"" file-name-directory tramp-get-connection-process "exit $lasterrorcode" process-status (run open) sleep-for 0.1 process-exit-status -1 get-buffer-window redisplay delete-file kill-buffer boundp process-file-side-effects tramp-flush-directory-property keyboard-quit] 8 (#$ . 76739)])
#@37 Like `rename-file' for Tramp files.
(defalias 'tramp-smb-handle-rename-file #[(filename newname &optional ok-if-already-exists) "\306!\306 !\n\204\371\307 !\203\371\310\311!\203 \202 !\312 \313 @\313 A@\211 @\203\366 @\314\315\316\317\320!! B\321\216B B\322 \210)rBq\210\323 +C C @\3241\355 CDX\205\351 \325 E\326\216A\203\235 C\327X\203\235 \330\331C\332U\203\201 \333\202\230 C\334U\203\214 \333\202\230 C\335U\203\227 \336\202\230 \337\fP #\210D\340Y\205\350 \341@!\203\267 \332 D\342@\343\313#@)C\334U\203\324 \332 Dr\344@!q\210\f\315P\345 \323 C\"*\346@!\205\350 \330\347@\350\351C\"\fP $*0\202\361 \210\202\362 \210,\2024D\314Y\2034F Gr\316\352!q\210p\353 \210GF\313\211HI\354\211J\354 K L\355 \210\356\357!\210+\211 M B\322 \210\360M!\210+)@\203\356@\334\361\362
\211\363N\330\364\f #E!C C @\3651\350CDX\205\344\325 E\366\216A\203\230C\327X\203\230\330\331C\332U\203|\333\202\223C\334U\203\207\333\202\223C\335U\203\222\336\202\223\337\fP #\210D\340Y\205\343\341@!\203\262\332 D\342@\343\313#@)C\334U\203\317\332 Dr\344@!q\210\f\315P\345 \323 C\"*\346@!\205\343\330\347@\350\351C\"\fP $*0\202\354\210\202\355\210,\305
\330\364\f #C\"\210-\310\311!\203\202 !\332\367\350\370 #C C @\3711\253CDX\205\247\325 E\372\216A\203[C\327X\203[\330\331C\332U\203?\333\202VC\334U\203J\333\202VC\335U\203U\336\202V\337\fP #\210D\340Y\205\246\341@!\203u\332 D\342@\343\313#@)C\334U\203\222\332 Dr\344@!q\210\f\315P\345 \323 C\"*\346@!\205\246\330\347@\350\351C\"\fP $*0\202\257\210\202\260\210,\373A\205\361\332D\327^X\205\361\3741\357\375\376!\204\320\377\376!\205\327\376\350\370 #!\211 N\205\352\201] \327\201^ \201_ N$)0\202\361\210\313 O P\201` \216\307 !\204\236\201a \"\203\236\201b \310!!\201b \310 !!\230\203\236\310! Q\201c Q! R\201d Q! S\201e Q! T\201f Q! U\201g Q! V\310 ! W\201c W! X\201d W! Y\201e W! Z\201f W! [\201g W! \\\201h Q\201i U!\"\210\201h QU\"\210\201h W\201i [!\"\210\201h W[\"\210\201b W!\204\224W\201j \201k C @\313 A@\211 @\203\215@\314\315\316\317\320!! B\201l \216B B\322 \210)rBq\210\323 +C C @\201m 1\204CDX\205\200\325 E\201n \216A\2034C\327X\2034\330\331C\332U\203\333\202/C\334U\203#\333\202/C\335U\203.\336\202/\337\fP #\210D\340Y\205\341@!\203N\332 D\342@\343\313#@)C\334U\203k\332 Dr\344@!q\210\f\315P\345 \323 C\"*\346@!\205\330\347@\350\351C\"\fP $*0\202\210\210\202\211\210,\202\313D\314Y\203\313F Gr\316\352!q\210p\353 \210GF\313\211HI\354\211J\354 K L\355 \210\356\357!\210+\211 M B\322 \210\360M!\210+)@\203\211@\334\361\362
\211\363N\330\364\f #E!C C @\201o 1\203CDX\205\325 E\201p \216A\2033C\327X\2033\330\331C\332U\203\333\202.C\334U\203\"\333\202.C\335U\203-\336\202.\337\fP #\210D\340Y\205~\341@!\203M\332 D\342@\343\313#@)C\334U\203j\332 Dr\344@!q\210\f\315P\345 \323 C\"*\346@!\205~\330\347@\350\351C\"\fP $*0\202\207\210\202\210\210,\305
\330\364\f #C\"\210-\201q W\350\201r \201s Q!\201s W!#\"?\205\231W\201j \201t C @\313 A@\211 @\203\223@\314\315\316\317\320!! B\201u \216B B\322 \210)rBq\210\323 +C C @\201v 1\212CDX\205\206\325 E\201w \216A\203:C\327X\203:\330\331C\332U\203 \333\2025C\334U\203)\333\2025C\335U\2034\336\2025\337\fP #\210D\340Y\205\205\341@!\203T\332 D\342@\343\313#@)C\334U\203q\332 Dr\344@!q\210\f\315P\345 \323 C\"*\346@!\205\205\330\347@\350\351C\"\fP $*0\202\216\210\202\217\210,\202\321D\314Y\203\321F Gr\316\352!q\210p\353 \210GF\313\211HI\354\211J\354 K L\355 \210\356\357!\210+\211 M B\322 \210\360M!\210+)@\203\217@\334\361\362
\211\363N\330\364\f #E!C C @\201x 1\211CDX\205\205\325 E\201y \216A\2039C\327X\2039\330\331C\332U\203 \333\2024C\334U\203(\333\2024C\335U\2033\336\2024\337\fP #\210D\340Y\205\204\341@!\203S\332 D\342@\343\313#@)C\334U\203p\332 Dr\344@!q\210\f\315P\345 \323 C\"*\346@!\205\204\330\347@\350\351C\"\fP $*0\202\215\210\202\216\210,\305
\330\364\f #C\"-.\f\202\302\201z \n\354\211\211&\210\201{ !\203\275\201| \201} \"\202\302\201~ !\201 P+\207" [filename newname ok-if-already-exists arguments fmt-string signal expand-file-name file-exists-p tramp-dissect-file-name tramp-tramp-file-p file-already-exists nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #4="" 1 2 #5="Warning: " #6="Tramp: " 4 processp tramp-get-connection-property #7="vector" tramp-get-connection-buffer append vectorp tramp-debug-message format #8="(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "%s..." #3="Renaming %s to %s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "failed" (error) subrp make-progress-reporter functionp vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf pr tm cookie v1 v1-method v1-user v1-host v1-localname v1-hop v2 v2-method v2-user v2-host v2-localname v2-hop run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210\311\312 !\203 \202 \n!\313\314\315\316 \n# D & '\3171\307 &(X\205\303 \320 )\321\216*\203w &\322X\203w \323\324&\313U\203[ \325\202r &\326U\203f \325\202r &\327U\203q \330\202r \331
P\f#\210(\332Y\205\302 \333'!\203\221 \313 (\334'\335\336#')&\326U\203\256 \313 (r\337'!q\210
\340P\341\f\342 C\"*\343'!\205\302 \323\344'\315\345&\"
P\f$*0\202\311 \210\336,\207" [tm filename newname cookie arguments fmt-string subrp cancel-timer functionp tramp-dissect-file-name tramp-tramp-file-p 0 "%s...%s" format #3# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #4# 1 2 #5# #6# 4 processp tramp-get-connection-property #7# nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message #8# level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 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" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-smb-send-command "rename \"%s\" \"%s\"" tramp-smb-get-localname "Cannot rename `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-compat-copy-file file-directory-p tramp-compat-delete-directory recursive delete-file "done"] 11 (#$ . 79900)])
#@39 Read ACL data from connection buffer.
(defalias 'tramp-smb-action-set-acl #[(proc vec) "\306!\307>?\205\265 \310\311\"\204 r\312 !q\210 \313\314\315 C \3161\252 \f'X\205\246 \317 (\320\216)\203b \f\321X\203b \322\323\f\324U\203H \325\202] \f\326U\203R \325\202] \f\327U\203\\ \330\202] \331 P\n#\210'\332Y\205\245 \333
!\203y \324 '\334
\335\336#)\f\326U\203\224 \324 'r\312
!q\210 \314P\337\n\315 C\"*\340
!\205\245 \322\341
\342\343\f\" P\n$*0\202\256 \210\202\257 \210,\344\345\346\")\207" [proc vec arguments fmt-string level vec-or-proc process-status (run open) tramp-accept-process-output 0.1 tramp-get-connection-buffer 10 "\n%s" buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil append vectorp tramp-debug-message format "(%d) # " throw tramp-action ok tramp-verbose save-match-data-internal tramp-message-show-message] 6 (#$ . 87418)])
#@38 Like `set-file-acl' for Tramp files.
(defalias 'tramp-smb-handle-set-file-acl #[(filename acl-string) "\3061\306\307!\310 !\311 !\312 ! \313 ! \314 ! @A;\205\302\315B!\205\302\310 !C\311 !D\316 !E\317
\320\321$\210\322 ! F\316 ! G\323 ! H\324 ! I\325 ! J\326\327\330\331 !# \332G\330JR\333\334\326\335\336A#F KFG\337U\204\210 \340K\341FD\"K\202\220 \340K\342C\"KH\203\237 \340K\343HD\"KI\203\256 \340K\344ID\"KL\203\275 \340K\345LD\"K\340K\346
!\347\350\351\352\353\350\351\354\257 \"K\355\216\356\357! MrMq\210\360\216\361 \362\363p!#\210\361 \364p#\210\365\366\367 !\370 !BK% N \371\372\373\374\375N!\376#C O P Q R\3771\332QSX\205\326\201a T\201b \216U\203lQ\201c X\203l\365\201d Q\337U\203D\201e \202eQ\201f U\203S\201e \202eQ\201g U\203b\201h \202e\201i PPO#\210S\201j Y\205\325\201k R!\203\220\337 S\201l R\201m \201n #R)Q\201f U\203\267\337 Sr\370R!q\210P\201o PP\340O\201p C\"O*\201q R!\205\325\365\201r R\201s \201t Q\"PPO$*0\202\336\210\202\337\210,\361N\201m #\210\201u N\201n \"\210\201v N \201n V$\210db\210\201w \201x \201n \201y #\204\243 \201z \201{ BC O P W R\201n UR\211 R\203>R\201| \201o \201} \201~ \201 !! X\201\200 \216X X\201\201 \210)rXq\210\201p +C O P Q R\201\202 15QSX\2051\201a T\201\203 \216U\203\307Q\201c X\203\307\365\201d Q\337U\203\237\201e \202\300Q\201f U\203\256\201e \202\300Q\201g U\203\275\201h \202\300\201i PPO#\210S\201j Y\2050\201k R!\203\353\337 S\201l R\201m \201n #R)Q\201f U\203\337 Sr\370R!q\210P\201o PP\340O\201p C\"O*\201q R!\2050\365\201r R\201s \201t Q\"PPO$*0\2029\210\202:\210,\202\224S\201| Y\203\224Y Zr\201} \201\204 !q\210p\201\205 \210ZY\201n \211[\\\201y \211]\201y ^ _\201\206 \210\201\207 \201\210 !\210+\211 ` X\201\201 \210\201\211 `!\210+)R\203\221R\201f \372\201\212 W\211\201\213 N\365\201\214 PO#E!C O P Q R\201\215 1\213QSX\205\207\201a T\201\216 \216U\203 Q\201c X\203 \365\201d Q\337U\203\365\201e \202Q\201f U\203\201e \202Q\201g U\203\201h \202\201i PPO#\210S\201j Y\205\206\201k R!\203A\337 S\201l R\201m \201n #R)Q\201f U\203h\337 Sr\370R!q\210P\201o PP\340O\201p C\"O*\201q R!\205\206\365\201r R\201s \201t Q\"PPO$*0\202\217\210\202\220\210,\201W W\365\201\214 PO#C\"\210-\201\217 \201n w\210\201\220 p!\337U\205\300\317
\320A$\210\201y .\f.0\207\210\201n \207" [filename v method user host localname (error) tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop executable-find tramp-file-name-real-host tramp-set-file-property "file-acl" undef tramp-file-name-real-user tramp-file-name-domain tramp-file-name-port tramp-smb-get-share tramp-compat-replace-regexp-in-string "\\\\" "/" tramp-smb-get-localname "//" "-E" "-S" "\n" "," 0 append "-U" "-N" "-W" "-p" "-s" shell-quote-argument "&&" "echo" "tramp_exit_status" "0" "||" "1" #[nil "\301\302\303#\210\301\304\303#\207" [v tramp-set-connection-property "process-name" nil "process-buffer"] 4] generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] tramp-set-connection-property "process-name" buffer-name "process-buffer" apply start-process tramp-get-connection-name tramp-get-connection-buffer 6 "%s" mapconcat identity process-command " " (error) hop acl-string tramp-smb-acl-program tramp-current-method tramp-current-user tramp-current-host real-user real-host domain port share args tramp-smb-conf #1# p arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message tramp-smb-actions-set-acl signal standard-output default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 message "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil "\n%s" buffer-string vectorp tramp-debug-message format "(%d) # " tramp-compat-set-process-query-on-exit-flag tramp-process-actions re-search-backward "tramp_exit_status [0-9]+" t file-error "Couldn't find exit status of `%s'" 10 get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "^ " read] 12 (#$ . 88446)])
#@40 Like `set-file-modes' for Tramp files.
(defalias 'tramp-smb-handle-set-file-modes #[(filename mode) "\306!\307 !\310 !\311 ! \312 ! \313 ! @\314 !\205/\315
\"\210\316 \317\320\321 !\322A!#\"?\205/ \323\324C B C D E\325 FE\211 E\203E\326\327\330\331\332!! G\333\216G G\334 \210)rGq\210\335 +C B C H E\3361HIX\205\337 J\340\216F\203\274 H\341X\203\274 \342\343H\344U\203\236 \345\202\265 H\346U\203\251 \345\202\265 H\347U\203\264 \350\202\265 \351CPB#\210I\352Y\205
\353E!\203\326 \344 I\354E\355\325#E)H\346U\203\367 \344 Ir\356E!q\210C\327PC\357B\335 C\"B*\360E!\205
\342\361E\317\362H\"CPB$*0\202\210\202\210,\202YI\326Y\203YK Lr\330\363!q\210p\364 \210LK\325\211MN\365\211O\365 P Q\366 \210\367\370!\210+\211 R G\334 \210\371R!\210+)E\203 E\346\372\373D\211\374N\342\375CB#E!C B C H E\3761HIX\205\337 J\377\216F\203\304H\341X\203\304\342\343H\344U\203\246\345\202\275H\346U\203\261\345\202\275H\347U\203\274\350\202\275\351CPB#\210I\352Y\205\353E!\203\336\344 I\354E\355\325#E)H\346U\203\377\344 Ir\356E!q\210C\327PC\357B\335 C\"B*\360E!\205\342\361E\317\362H\"CPB$*0\202 \210\202 \210,\201D D\342\375CB#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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message "(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] hop mode arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf] 11 (#$ . 93249)])
#@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 @ A B C\322\216\212\214>\204G \323D!>\324A!\203_ @T@\325\326?@#A\202G \327 \330A#\210\327 \331>#\210r\332 !q\210\333 Edd}\210\334 !\210\335 !\203\217 \336 \325\337\f\340
!#\"\210 \341\342CC F G H I\3431<HJX\2058\344 K\345\216L\203\346 H\346X\203\346 \347\350H\321U\203\310 \351\202\337 H\352U\203\323 \351\202\337 H\353U\203\336 \354\202\337 \355GPF#\210J\356Y\2057\357I!\203 \321 J\360I\361\362#I)H\352U\203!\321 Jr\332I!q\210G\363PG\364F\365 C\"F*\366I!\2057\347\367I\325\370H\"GPF$*0\202@\210\202A\210,\371 C\"\210*\372 !.
\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 #[nil "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" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil "\n%s" append buffer-string vectorp tramp-debug-message "(%d) # " tramp-send-string tramp-get-connection-process hop program args buffer name i name1 bmp command tramp-temp-buffer-name buffer-undo-list arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7 (#$ . 95847)])
#@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.\3221= \323\324C\"0\207\210\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 (error) tramp-run-real-handler substitute-in-file-name hop] 6 (#$ . 98022)])
#@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\203)\315!\203)\316\317\320\"!\204) \321\322\323 B C > D\323 ED\211 D\203D\324\325\326\327\330!! F\331\216F F\332 \210)rFq\210\333 +C B C G D\3341
GHX\205 \335 I\336\216E\203\267 G\337X\203\267 \340\341G\342U\203\231 \343\202\260 G\344U\203\244 \343\202\260 G\345U\203\257 \346\202\260 \347CPB#\210H\350Y\205\351D!\203\321 \342 H\352D\353\323#D)G\344U\203\362 \342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\340\357D\317\360G\"CPB$*0\202\210\202\210,\202TH\324Y\203TJ Kr\326\361!q\210p\362 \210KJ\323\211LM\363\211N\363 O P\364 \210\365\366!\210+\211 Q F\332 \210\367Q!\210+)D\203D\344\370\371>\211\372N\340\373CB#E!C B C G D\3741GHX\205\335 I\375\216E\203\277G\337X\203\277\340\341G\342U\203\241\343\202\270G\344U\203\254\343\202\270G\345U\203\267\346\202\270\347CPB#\210H\350Y\205\351D!\203\331\342 H\352D\353\323#D)G\344U\203\372\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\340\357D\317\360G\"CPB$*0\202\210\202\210,\376>\340\373CB#C\"\210-\377 \201b
!\"\210\377
\"\210p\323 R S\323 T\306\201c J\323 T\201d \201e !\203b\201f \201e \201g N@!\206\201h \201i !\203\207\201j \201i !\204\200\201k \201i !\205\201i \202\201l \201m !\211 U\205\232\201n U!)\203\254\201o \201l \201m !!\202\201l \201p !\211 U\205\277\201n U!)\203\321\201o \201l \201p !!\202\201l \201q !\211 U\205\344\201n U!)\203\366\201o \201l \201q !!\202\315\201r !\203\201o \201r !\202\341\201s !\210\201o \201t !)\" V\201u S\363\" W\323 X\201v 1P\201j \201w !\204?\201k \201w !\205I\201w VRW#\211X0\202\215\210\201x 1\203\201y V!WPXR\203q\201z X!\210\202~\201{ \343\323X\323\201| %\210\3230\202\207\210\202Q\203\216\202Q\210X. Y Z-\203\254\315!\203\254\201} Y\201~ #\210\201 \201{ A\203\313[\\Y-\201\200 ]A\257\202\332[\\Y-\201\200 ]\257\"\210 \337\201\201 \317\201\202 Y#C B C G D\201\203 1\225GHX\205\221\335 I\201\204 \216E\203?G\337X\203?\340\341G\342U\203!\343\2028G\344U\203,\343\2028G\345U\2037\346\2028\347CPB#\210H\350Y\205\220\351D!\203Y\342 H\352D\353\323#D)G\344U\203z\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\220\340\357D\317\360G\"CPB$*0\202\231\210\202\232\210,\201\205 E\205\354\337H\337^X\205\354\201\206 1\352\201j \201\207 !\204\306\201k \201\207 !\205\322\201\207 \317\201\202 Y#!\211 ^\205\345\201\210 \337\201\211 \201\212 ^$)0\202\354\210\323 _ `\201\213 \216\201\214 \216\201\215 \317\201\216 Y\201\217 !#\"\204 \321\201\220 C B C > D\323 ED\211 D\203\372D\324\325\326\327\330!! F\201\221 \216F F\332 \210)rFq\210\333 +C B C G D\201\222 1\361GHX\205\355\335 I\201\223 \216E\203\233G\337X\203\233\340\341G\342U\203}\343\202\224G\344U\203\210\343\202\224G\345U\203\223\346\202\224\347CPB#\210H\350Y\205\354\351D!\203\265\342 H\352D\353\323#D)G\344U\203\326\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\354\340\357D\317\360G\"CPB$*0\202\365\210\202\366\210,\2028H\324Y\2038J Kr\326\361!q\210p\362 \210KJ\323\211LM\363\211N\363 O P\364 \210\365\366!\210+\211 Q F\332 \210\367Q!\210+)D\203D\344\370\371>\211\372N\340\373CB#E!C B C G D\201\224 1\375GHX\205\371\335 I\201\225 \216E\203\247G\337X\203\247\340\341G\342U\203\211\343\202\240G\344U\203\224\343\202\240G\345U\203\237\346\202\240\347CPB#\210H\350Y\205\370\351D!\203\301\342 H\352D\353\323#D)G\344U\203\342\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\370\340\357D\317\360G\"CPB$*0\202\210\202\210,\376>\340\373CB#C\"\210-)\201\226 `+Zp\232\204& \321\201\227 ZpD B C > D\323 ED\211 D\203D\324\325\326\327\330!! F\201\230 \216F F\332 \210)rFq\210\333 +C B C G D\201\231 1GHX\205\335 I\201\232 \216E\203\260G\337X\203\260\340\341G\342U\203\222\343\202\251G\344U\203\235\343\202\251G\345U\203\250\346\202\251\347CPB#\210H\350Y\205\351D!\203\312\342 H\352D\353\323#D)G\344U\203\353\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\340\357D\317\360G\"CPB$*0\202\n\210\202 \210,\202MH\324Y\203MJ Kr\326\361!q\210p\362 \210KJ\323\211LM\363\211N\363 O P\364 \210\365\366!\210+\211 Q F\332 \210\367Q!\210+)D\203 D\344\370\371>\211\372N\340\373CB#E!C B C G D\201\233 1 GHX\205 \335 I\201\234 \216E\203\274G\337X\203\274\340\341G\342U\203\236\343\202\265G\344U\203\251\343\202\265G\345U\203\264\346\202\265\347CPB#\210H\350Y\205
\351D!\203\326\342 H\352D\353\323#D)G\344U\203\367\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205
\340\357D\317\360G\"CPB$*0\202 \210\202 \210,\376>\340\373CB#C\"\210-a\363=\2051 \201\235 .\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 file-exists-p y-or-n-p format "File %s exists; overwrite anyway? " file-error "File not overwritten" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #4="" 1 2 #5="Warning: " #6="Tramp: " 4 processp tramp-get-connection-property #7="vector" tramp-get-connection-buffer append vectorp tramp-debug-message #8="(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal tramp-flush-file-property hop confirm arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf dir-flag f file-name-handler-alist d prefix extension result tmpfile curbuf start end lockname pr tm cookie visit 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" "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension (error) make-temp-file (file-already-exists) make-temp-name make-directory write-region silent copy-file ok tramp-run-real-handler no-message "%s..." #3="Moving tmp file %s to %s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "failed" (error) make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #\fD $ % &\3151\300 %'X\205\274 \316 (\317\216)\203m %\311X\203m \320\321%\322U\203P \323\202g %\324U\203[ \323\202g %\325U\203f \326\202g \327$P
#\210'\330Y\205\273 \331&!\203\207 \322 '\332&\333\334#&)%\324U\203\246 \322 'r\335&!q\210$\336P$\337
\340 C\"*\341&!\205\273 \320\342&\313\343%\"$P
$*0\202\302 \210\334,\207" [tm v tmpfile filename cookie arguments subrp cancel-timer functionp 3 "%s...%s" format #3# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 #4# 1 2 #5# #6# 4 processp tramp-get-connection-property #7# nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message #8# fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7] #[nil "\301!\207" [tmpfile delete-file] 2] tramp-smb-send-command "put %s \"%s\"" tramp-smb-get-localname "Cannot write `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "done" "Buffer has changed from `%s' to `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] set-visited-file-modtime] 11 (#$ . 98728)])
#@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 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-file-name-localname string-match "^/?\\([^/]+\\)/" match-string 1] 3 (#$ . 107328)])
#@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 #[nil "\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 (#$ . 107690)])
#@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 ! @
\206 \315\316
!\203\341\317
\320\321$\211 A\321=\203\333r\322 !q\210\323 ! B\324 \325\326# C\326\211 D EB\204^ C\203^ CD\202\277B\203p \327 \330\331\332 !\"\"\210\202t \333 !\210eb\210\334F\326\335#\203\223 \336\337\340\341!D G H I J\326 KJ\211 J\203iJ\342\343\344\345\346!! L\347\216L L\350 \210)rLq\210\351 +C G H M J\3521`MNX\205\\\353 O\354\216K\203\nM\355X\203\n\356\357M\341U\203\354 \360\202M\361U\203\367 \360\202M\362U\203\363\202\364HPG#\210N\365Y\205[\366J!\203$\341 N\324J\367\326#J)M\361U\203E\341 Nr\322J!q\210H\343PH\370G\351 C\"G*\371J!\205[\356\372J\330\373M\"HPG$*0\202d\210\202e\210,\202\253N\342Y\203\253P Qr\344\374!q\210p\375 \210QP\326\211RS\335\211T\335 U V\376 \210\377\201X !\210+\211 W L\350 \210\201Y W!\210+)J\203~J\361\201Z \201[ I\211\201\\ N\356\201] HG#E!C G H M J\201^ 1xMNX\205t\353 O\201_ \216K\203\"M\355X\203\"\356\357M\341U\203\360\202M\361U\203\360\202M\362U\203\363\202\364HPG#\210N\365Y\205s\366J!\203<\341 N\324J\367\326#J)M\361U\203]\341 Nr\322J!q\210H\343PH\370G\351 C\"G*\371J!\205s\356\372J\330\373M\"HPG$*0\202|\210\202}\210,\201I I\356\201] HG#C\"\210-\202\261m\204\261\201` B!E\326y\210E\203\223EDBD\202\223B\204\277\201a \325D#\210\201b DBD\201c \326D\"-A\201d
\320A$\210A)\202\201r\322 !q\210\323 ! B\324 \325\326# C\326\211 D EB\204\nC\203\nCD\202qB\203 \327 \330\331\332 !\"\"\210\202 \333 !\210eb\210\334F\326\335#\203E \336\337\340\341!D G H I J\326 KJ\211 J\203J\342\343\344\345\346!! L\201e \216L L\350 \210)rLq\210\351 +C G H M J\201f 1MNX\205\353 O\201g \216K\203\274M\355X\203\274\356\357M\341U\203\236\360\202\265M\361U\203\251\360\202\265M\362U\203\264\363\202\265\364HPG#\210N\365Y\205
\366J!\203\326\341 N\324J\367\326#J)M\361U\203\367\341 Nr\322J!q\210H\343PH\370G\351 C\"G*\371J!\205
\356\372J\330\373M\"HPG$*0\202\210\202\210,\202]N\342Y\203]P Qr\344\374!q\210p\375 \210QP\326\211RS\335\211T\335 U V\376 \210\377\201X !\210+\211 W L\350 \210\201Y W!\210+)J\2030J\361\201Z \201[ I\211\201\\ N\356\201] HG#E!C G H M J\201h 1*MNX\205&\353 O\201i \216K\203\324M\355X\203\324\356\357M\341U\203\266\360\202\315M\361U\203\301\360\202\315M\362U\203\314\363\202\315\364HPG#\210N\365Y\205%\366J!\203\356\341 N\324J\367\326#J)M\361U\203\341 Nr\322J!q\210H\343PH\370G\351 C\"G*\371J!\205%\356\372J\330\373M\"HPG$*0\202.\210\202/\210,\201I I\356\201] HG#C\"\210-\202cm\204c\201` B!E\326y\210E\203EEDBD\202EB\204q\201a \325D#\210\201b DBD\201c \326D\"-.\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 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #3="" 1 2 "Warning: " "Tramp: " 4 processp "vector" append vectorp tramp-debug-message "(%d) # " "*debug tramp*" kill-all-local-variables erase-buffer run-hooks hop value share cache res entry tramp-smb-errors arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-smb-read-file-entry tramp-set-connection-property (#3# "drwxrwxrwx" 0 (0 0)) delq tramp-set-file-property #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 108430)])
#@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 1 2 3 4 56\204; \310\3115\"\203\212\312\3135\"4\3143\3152\202\212\3162\211\310\3175\"\203Y \320\312\3135\"!5\315\321O5\202^ \322\316\307\"\210\310\3235\"\203\210 \320\312\3135\"!\320\312\3245\"!\320\312\3255\"!5\315\326O5\202\215 \322\316\307\"\210\310\3175\"\203\247 \320\312\3135\"!5\315\327O5\202\254 \322\316\307\"\210\310\3305\"\203\305 \312\3135\"15\315\331O5\202\312 \322\316\307\"\210\310\3305\"\203\334 5\315\321O5\202\341 \322\316\307\"\210\310\3175\"\203 \332\312\3135\"GT][ 7\320\312\3135\"!2\310\33357\307O\"\2037\315\225\\75\3157O5)\202\"\322\316\307\"\210\310\3345\"\203l\312\3135\"\2063\3353\336 8\337\216\340\341\310\3423\"\203I\343\202J\344\345\346\347\350\310\3513\"\203Z\344\202[\352\353Q##*35\315\354O5\202q\322\316\307\"\210\310\3555\"\203\204\312\3135\"\2114\202\210\322\316\307\"0\2104\205\3173\205\3172\205\317\n\203\305 \203\305\f\203\305
\203\3051\203\305 \203\305\356\n \f
\3571\2279\"A &\202\306\360432F. \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-- "\\([0-9]+\\)$" string-to-number -5 throw "\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)$" 2 3 -9 -3 "\\(\\w+\\)$" -4 10 "\\([ADHRSV]+\\)" "\\([ADHRSV]+\\)?$" #1="" match-data #[nil "\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-*$" encode-time assoc (0 0) month size mode localname line share length save-match-data-internal tramp-parse-time-months] 11 (#$ . 113221)])
#@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\"\205M r\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 #[nil "\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 (#$ . 115163)])
#@58 Check, whether the SMB server supports the STAT command.
(defalias 'tramp-smb-get-stat-capability #[(vec) "\303!\205: \304!\211\205 \305 !\205 \306 !\307>)\205: \310\304!\311\312#\211\312=\2038 \313\314\"\315\304!\311\n#\210\n)\207" [vec p value tramp-smb-get-share 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 (#$ . 115945)])
#@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 \3111\227 \f$X\205\223 \312 %\313\216&\203O \f\314X\203O \315\316\f\317U\2035 \320\202J \f\321U\203? \320\202J \f\322U\203I \323\202J \324 P\n#\210$\325Y\205\222 \326
!\203f \317 $\327
\330\331#)\f\321U\203\201 \317 $r\332
!q\210 \333P\334\n\335 C\"*\336
!\205\222 \315\337
\340\341\f\" P\n$*0\202\233 \210\202\234 \210,\342 \"\210\343!\207" [vec command arguments fmt-string level vec-or-proc tramp-smb-maybe-open-connection 6 "%s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-string tramp-smb-wait-for-output tramp-verbose save-match-data-internal tramp-message-show-message] 6 (#$ . 116431)])
#@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!\210\307!\310!\311\n!\f\204\204\312 !\204\204\313 \314\315!\203+ \316\315\317N@!\206\240 \320\321!\203B \322\321!\204= \323\321!\205\240 \321 \202\240 \324\325!\211 @\205O \326@!)\203[ \327\324\325!!\202\240 \324\330!\211 @\205h \326@!)\203t \327\324\330!!\202\240 \324\331!\211 @\205\201 \326@!)\203\215 \327\324\331!!\202\240 \332\333!\203\231 \327\333!\202\240 \334\335!\210\327\336!)A\337P B CD\204]\340A!\204\315\341\342AED F G H I\313 JI\211 I\203\236I\343\344\345\346\347!! K\350\216K K\351 \210)rKq\210\352 +C F G L I\3531\225LMX\205\221\354 N\355\216J\203?L\356X\203?\357\334L\360U\203!\361\2028L\362U\203,\361\2028L\363U\2037\364\2028\365GPF#\210M\366Y\205\220\312I!\203Y\360 M\367I\370\313#I)L\362U\203z\360 Mr\310I!q\210G\344PG\371F\352 C\"F*\372I!\205\220\357\373I\374\375L\"GPF$*0\202\231\210\202\232\210,\202\350M\343Y\203\350C Or\345\376!q\210p\377 \210OC\313\211PQ\201q \211R\201q S T\201r \210\201s \201t !\210+\211 U K\351 \210\201u U!\210+)I\203\273I\362\201v \201w H\211\201x N\357\201y GF#E!C F G L I\201z 1\265LMX\205\261\354 N\201{ \216J\203_L\356X\203_\357\334L\360U\203A\361\202XL\362U\203L\361\202XL\363U\203W\364\202X\365GPF#\210M\366Y\205\260\312I!\203y\360 M\367I\370\313#I)L\362U\203\232\360 Mr\310I!q\210G\344PG\371F\352 C\"F*\372I!\205\260\357\373I\374\375L\"GPF$*0\202\271\210\202\272\210,\201H H\357\201y GF#C\"\210-\201| B!D\201} B\313 F G L I\201~ 1\207LMX\205\203\354 N\201 \216J\2031L\356X\2031\357\334L\360U\203\361\202*L\362U\203 \361\202*L\363U\203)\364\202*\365GPF#\210M\366Y\205\202\312I!\203K\360 M\367I\370\313#I)L\362U\203l\360 Mr\310I!q\210G\344PG\371F\352 C\"F*\372I!\205\202\357\373I\374\375L\"GPF$*0\202\213\210\202\214\210,\201} \344DC F G L I\201\200 1@LMX\205<\354 N\201\201 \216J\203\352L\356X\203\352\357\334L\360U\203\314\361\202\343L\362U\203\327\361\202\343L\363U\203\342\364\202\343\365GPF#\210M\366Y\205;\312I!\203\360 M\367I\370\313#I)L\362U\203%\360 Mr\310I!q\210G\344PG\371F\352 C\"F*\372I!\205;\357\373I\374\375L\"GPF$*0\202D\210\202E\210,\201\202 \201\203 D\"\203]\201\204 \361\313\211D$DD\367\201\205 D#\230\204x\201\206 \361\"\210\201\207 !\210\201\210 \201\205 D#\210*r\nq\210eb\210\201\211 \201\212 \367 \201\213 \201\214 #\"\201\215 V\203\316 \203\316\312 !\203\316\201\216 !\201\217 >\203\316\201\220 V\313\201q #\203\316\201\221 !\210\313) \205\362\312 !\205\362\201\216 !\201\222 >\205\362\f\206\362 \367 \201\223 \361#\230?\2057\n\354 N\201\224 \216\n\203\fr\nq\210\201r \210) \203 \312 !\203 \201\221 !\210\201\225 ! W\201\226 ! X\201\227 ! Y\201\230 ! Z\201\231 ! [\201\232 ! \\\313 ]\f\203Y\201\233 ZPC]\202x \203m\201\233 Z\201\234 RC]\202x\201\235 \201\236 ZE]YG\360U\204\217\371]\201\237 YD\"]\202\231\371]\201\240 C\"][\203\252\371]\201\241 [D\"]\\\203\273\371]\201\242 \\D\"]^\203\314\371]\201\243 ^D\"]\f\203\330\371]\fC\"]\356\201\244 \374\201\245 WG\360U\204\362W\201\246 P\202\363\361X \206\372\361$C F G L I\201\247 1\247LMX\205\243\354 N\201\250 \216J\203QL\356X\203Q\357\334L\360U\2033\361\202JL\362U\203>\361\202JL\363U\203I\364\202J\365GPF#\210M\366Y\205\242\312I!\203k\360 M\367I\370\313#I)L\362U\203\214\360 Mr\310I!q\210G\344PG\371F\352 C\"F*\372I!\205\242\357\373I\374\375L\"GPF$*0\202\253\210\202\254\210,\201\251 J\205\356M\356^X\205\201\252 1\322\201\253 !\204\324\323\201\253 !\205\366\201\253 \374\201\245 WG\360U\204\354W\201\246 P\202\355\361X \206\364\361$!\211 _\205 \201\254 \356\201\255 \201\256 _$)0\202\210\313 ` a\201\257 \216\313 bc d\313 \314\315!\2030\316\315\317N@!\206\245\320\321!\203G\322\321!\204B\323\321!\205\245\321 \202\245\324\325!\211 @\205T\326@!)\203`\327\324\325!!\202\245\324\330!\211 @\205m\326@!)\203y\327\324\330!!\202\245\324\331!\211 @\205\206\326@!)\203\222\327\324\331!!\202\245\332\333!\203\236\327\333!\202\245\334\335!\210\327\336!) C\357\201\260 \201\261 !\310!\f\203\275e\202\277A]%)\201} \201v \201\262 \201\263 \201\264 !\201\265 #C F G L I\201\266 1\206LMX\205\202\354 N\201\267 \216J\2030L\356X\2030\357\334L\360U\203\361\202)L\362U\203 \361\202)L\363U\203(\364\202)\365GPF#\210M\366Y\205\201\312I!\203J\360 M\367I\370\313#I)L\362U\203k\360 Mr\310I!q\210G\344PG\371F\352 C\"F*\372I!\205\201\357\373I\374\375L\"GPF$*0\202\212\210\202\213\210,\201\210 \370#\210\201\270 \313\"\210fgWhXi\201\271 10 \313 J\201\272 \313\f\204\276 \203\303j\202\305k$\210\f\204\f r\310!q\210eb\210\201\273 l\313\201q #\210\201\274 \360!\211 m\367\201\275 m#\230\204 \201\206 \361\"\210\201\207 !\210\201\210 \201\275 m#\210*\201\210 \201\223 #\210\201\210 \201\276 \362#\210\201\210 \201\277 \201q #)0\202/\n nr\310!q\210eb\210\314\201p !\203$\n\201p J\203$\n\201\273 o\313\201q #\203$\n\313 p\356\201\300 \313 F G L I\201\301 1 \nLMX\205\n\354 N\201\302 \216J\203\265 L\356X\203\265 \357\334L\360U\203\227 \361\202\256 L\362U\203\242 \361\202\256 L\363U\203\255 \364\202\256 \365GPF#\210M\366Y\205\n\312I!\203\317 \360 M\367I\370\313#I)L\362U\203\360 \360 Mr\310I!q\210G\344PG\371F\352 C\"F*\372I!\205\n\357\373I\374\375L\"GPF$*0\202\n\210\202\n\210,\201\303 \201q \"\210\201\304 \f\")\202.\n\201H n@nA\"*+\201\305 a.\f+\207" [vec share buf p argument file-name-handler-alist tramp-check-proper-method-and-host 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" 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply 0 #5="" 1 2 #6="Warning: " #7="Tramp: " 4 tramp-get-connection-property #8="vector" append vectorp tramp-debug-message format #9="(%d) # " "*debug tramp*" kill-all-local-variables d tramp-smb-program command default-directory tramp-smb-version exec-path arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf tramp-smb-errors user host real-user real-host domain port args tramp-smb-conf pr tm cookie 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 tramp-smb-actions-with-share tramp-smb-actions-without-share tramp-smb-server-version smbserver-version err tramp-smb-wrong-passwd-regexp auth-sources t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] shell-command-to-string 6 (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "[ \n
]+\\'" replace-match "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 process-status (run open) re-search-forward delete-process (run open) "smb-share" #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 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" "-U" "-N" "-W" "-p" "-s" "%s..." #3="Opening connection for //%s%s/%s" #4="@" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "failed" (error) make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\nG\315U\204& \n\316P\202' \317 \f\206- \317$
D % & ' (\3201\327 ')X\205\323 \321 *\322\216+\203\201 '\311X\203\201 \323\324'\315U\203c \317\202z '\325U\203n \317\202z '\326U\203y \327\202z \330&P%#\210)\331Y\205\322 \332(!\203\233 \315 )\333(\334\335#()'\325U\203\274 \315 )r\336(!q\210&\337P&\340%\341 C\"%*\342(!\205\322 \323\343(\313\344'\"&P%$*0\202\331 \210\335,\207" [tm vec user host share cookie subrp cancel-timer functionp 3 "%s...%s" format #3# 0 #4# #5# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 1 2 #6# #7# 4 processp tramp-get-connection-property #8# nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message #9# arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 8] start-process tramp-get-connection-name mapconcat identity process-command " " (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-compat-set-process-query-on-exit-flag (error) tramp-process-actions search-forward-regexp match-string "smbserver-version" "chunksize" "connected" "Retry connection with new password" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-cleanup-connection tramp-smb-maybe-open-connection "done"] 11 (#$ . 117484)])
#@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 + , - .\3241-/X\205\325 0\326\2161\203\302 -\327X\203\302 \330\331-\332U\203\244 \333\202\273 -\334U\203\257 \333\202\273 -\335U\203\272 \336\202\273 \337,P+#\210/\340Y\205\341.!\203\334 \332 /\342.\343\311#.)-\334U\203\375 \332 /r\306.!q\210,\322P,\344+\323 C\"+*\345.!\205\330\346.\347\350-\",P+$*0\202 \210\202 \210,
\203/db\210\351 \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 (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" append vectorp tramp-debug-message format "(%d) # " re-search-backward p arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7 (#$ . 127776)])
#@37 Send SIGKILL to the winexe process.
(defalias 'tramp-smb-kill-winexe-function #[nil "\3011# \302p!\211\205 \303!\205 \304!\305>\205 \306\307!\310\")0\207\210\311\207" [p (error) get-buffer-process processp process-status (run open) signal-process process-id SIGINT nil] 4 (#$ . 129195)])
#@72 Apply a remote command, if possible, using `tramp-smb-winexe-program'.
(defalias 'tramp-smb-call-winexe #[(vec) "\306!\204\316 \307\310C \311 @
\211 \203\324
\312\313\314\315\316!! A\317\216A A\320 \210)rAq\210\321 +C B \3221\313 BCX\205\307 \323 D\324\216@\203\201 B\325X\203\201 \326\327B\330U\203e \331\202| B\332U\203p \331\202| B\333U\203{ \334\202| \335 P\n#\210C\336Y\205\306 \337
!\203\230 \330 C\340
\341\311#)B\332U\203\264 \330 Cr\342
!q\210 \313P\343\n\321 C\"*\344
!\205\306 \326\345
\346\347B\" P\n$*0\202\317 \210\202\320 \210,\202C\312Y\203E Fr\314\350!q\210p\351 \210FE\311\211GH\352\211I\352 J K\353 \210\354\355!\210+\211 L A\320 \210\356L!\210+)
\203\303
\332\357\360\f\211\361N\326\362 \n#E!C B \3631\275BCX\205\271\323 D\364\216@\203sB\325X\203s\326\327B\330U\203W\331\202nB\332U\203b\331\202nB\333U\203m\334\202n\335 P\n#\210C\336Y\205\270\337
!\203\212\330 C\340
\341\311#)B\332U\203\246\330 Cr\342
!q\210 \313P\343\n\321 C\"*\344
!\205\270\326\345
\346\347B\" P\n$*0\202\301\210\202\302\210,\304\f\326\362 \n#C\"\210-\365 !\203\233 \307\366\311 \311 @
\211 \203\241
\312\313\314\315\316!! A\367\216A A\320 \210)rAq\210\321 +C B \3701\230BCX\205\224\323 D\371\216@\203NB\325X\203N\326\327B\330U\2032\331\202IB\332U\203=\331\202IB\333U\203H\334\202I\335 P\n#\210C\336Y\205\223\337
!\203e\330 C\340
\341\311#)B\332U\203\201\330 Cr\342
!q\210 \313P\343\n\321 C\"*\344
!\205\223\326\345
\346\347B\" P\n$*0\202\234\210\202\235\210,\202\337C\312Y\203\337E Fr\314\350!q\210p\351 \210FE\311\211GH\352\211I\352 J K\353 \210\354\355!\210+\211 L A\320 \210\356L!\210+)
\203\220
\332\357\360\f\211\361N\326\362 \n#E!C B \3721\212BCX\205\206\323 D\373\216@\203@B\325X\203@\326\327B\330U\203$\331\202;B\332U\203/\331\202;B\333U\203:\334\202;\335 P\n#\210C\336Y\205\205\337
!\203W\330 C\340
\341\311#)B\332U\203s\330 Cr\342
!q\210 \313P\343\n\321 C\"*\344
!\205\205\326\345
\346\347B\" P\n$*0\202\216\210\202\217\210,\304\f\326\362 \n#C\"\210-\374 \346\375MN#\"\210\376\377!\210\201O ?\201P \201Q !\201R \"\210\201S \201T \"\210\201S \201U \"\210\201S \201V \"\210\201S \201W \"\210\201S \201X \"\210\201S \201Y \"\210\201S \201Z \"\207" [tramp-smb-winexe-program vec arguments fmt-string signal vec-or-proc executable-find file-error "Cannot find program: %s" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-file-name-port "Port not supported for remote processes" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-smb-maybe-open-connection "%s %s" make-local-variable kill-buffer-hook tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf tramp-smb-winexe-shell-command tramp-smb-winexe-shell-command-switch (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"] 11 (#$ . 129496)])
#@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 (#$ . 133630)])
(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)
Kontol Shell Bypass