;ELC
;;; Compiled
;;; in Emacs version 26.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" (#$ . 425))
(byte-code "\302>\204
\303\304 \305B\"\210\303\306\307 \310Q\311B\"\210\312\313\314\"\210\315\316\317\320\321DD\322\323\313\324\325\326\313& \210\315\327\317\320\330DD\331\323\313\324\325\332\333\326\313&\210\315\334\317\320\335DD\336\323\313\324\337\326\313& \207" [system-type tramp-smb-method (cygwin windows-nt) add-to-list tramp-methods ((tramp-remote-shell "") (tramp-tmpdir "/C$/Temp") (tramp-case-insensitive t)) tramp-default-user-alist "\\`" "\\'" (nil nil) eval-after-load tramp #[0 "\301\302\"\207" [tramp-smb-method tramp-set-completion-function ((tramp-parse-netrc "~/.netrc"))] 3] custom-declare-variable tramp-smb-program funcall function #[0 "\300\207" [#1="smbclient"] 1 #1#] "Name of SMB client to run." :group :type string :require tramp-smb-acl-program #[0 "\300\207" [#2="smbcacls"] 1 #2#] "Name of SMB acls to run." :version "24.4" tramp-smb-conf #[0 "\300\207" [#3="/dev/null"] 1 #3#] "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))] 12)
#@35 Version string of the SMB client.
(defvar tramp-smb-version nil (#$ . 1628))
#@38 Regexp of SMB server identification.
(defconst tramp-smb-server-version "Domain=\\[[^]]*\\] OS=\\[[^]]*\\] Server=\\[[^]]*\\]" (#$ . 1711))
#@51 Regexp used as prompt in smbclient or powershell.
(defconst tramp-smb-prompt "^\\(smb:\\|PS\\) .+> \\|^\\s-+Server\\s-+Comment$" (#$ . 1857))
#@48 Regexp for login error strings of SMB servers.
(defconst tramp-smb-wrong-passwd-regexp "\\(?:NT_STATUS_\\(?:LOGON_FAILURE\\|WRONG_PASSWORD\\)\\)" (#$ . 2005))
#@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_\\(?:\\(?:DISCONNECT\\|REFUS\\)ED\\)\\)\\|D\\(?:IRECTORY_NOT_EMPTY\\|UPLICATE_NAME\\)\\|FILE_IS_A_DIRECTORY\\|HOST_UNREACHABLE\\|I\\(?:MAGE_ALREADY_LOADED\\|NVALID_\\(?:LEVEL\\|PARAMETER_MIX\\)\\|O_TIMEOUT\\)\\|LOGON_FAILURE\\|N\\(?:ETWORK_ACCESS_DENIED\\|O\\(?:T_IMPLEMENTED\\|_\\(?:LOGON_SERVERS\\|SUCH_\\(?:FILE\\|USER\\)\\)\\)\\)\\|OBJECT_\\(?:NAME_\\(?:COLLISION\\|\\(?:INVALI\\|NOT_FOUN\\)D\\)\\|PATH_SYNTAX_BAD\\)\\|PASSWORD_MUST_CHANGE\\|SHARING_VIOLATION\\|TRUSTED_RELATIONSHIP_FAILURE\\|UNSUCCESSFUL\\|WRONG_PASSWORD\\)\\)" "\\|"] 8) (#$ . 2171))
#@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)) (#$ . 3360))
#@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)) (#$ . 3803))
#@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)) (#$ . 4207))
#@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)) (#$ . 4615))
#@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)) (#$ . 5009))
#@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-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-case-insensitive-p . tramp-handle-file-name-case-insensitive-p) (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-selinux-context . tramp-handle-file-selinux-context) (file-symlink-p . tramp-handle-file-symlink-p) (file-system-info . tramp-smb-handle-file-system-info) (file-truename . tramp-handle-file-truename) (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-nearby-temp-file . tramp-handle-make-nearby-temp-file) (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) (temporary-file-directory . tramp-handle-temporary-file-directory) (unhandled-file-name-directory . ignore) (vc-registered . ignore) (verify-visited-file-modtime . tramp-handle-verify-visited-file-modtime) (write-region . tramp-smb-handle-write-region)) (#$ . 5403))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\307&\210\300\315\302\303\316DD\317\306\307\310\311\312\313\314\307&\210\300\320\302\303\321DD\322\306\307\310\311\312\313\314\307&\207" [custom-declare-variable tramp-smb-winexe-program funcall function #[0 "\300\207" [#1="winexe"] 1 #1#] "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" :require tramp-smb-winexe-shell-command #[0 "\300\207" [#2="powershell.exe"] 1 #2#] "Shell to be used for processes on remote machines.\nThis must be Powershell V2 compatible." tramp-smb-winexe-shell-command-switch #[0 "\300\207" [#3="-file -"] 1 #3#] "Command switch used together with `tramp-smb-winexe-shell-command'.\nThis can be used to disable echo etc."] 12)
#@58 Check if it's a filename for SMB servers.
(fn FILENAME)
(defalias 'tramp-smb-file-name-p #[257 "\302!\211\242>\204 \303\304\305D\"\210\211A@\262 \230\207" [cl-struct-tramp-file-name-tags tramp-smb-method tramp-dissect-file-name signal wrong-type-argument tramp-file-name] 6 (#$ . 9859)])
(put 'tramp-smb-file-name-p 'byte-optimizer 'byte-compile-inline-expand)
#@157 Invoke the SMB related OPERATION.
First arg specifies the OPERATION, second arg is a list of arguments to
pass to the OPERATION.
(fn OPERATION &rest ARGS)
(defalias 'tramp-smb-file-name-handler #[385 "\301\"\211\203! \302 \303\304\305\306\307!\310\"\311$\216\312A\")\262\202% \313\"\207" [tramp-smb-file-name-handler-alist assoc match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 apply tramp-run-real-handler] 10 (#$ . 10233)])
(byte-code "\301>\204 \302\303\304\"\210\302\207" [system-type (cygwin windows-nt) tramp-register-foreign-file-name-handler tramp-smb-file-name-p tramp-smb-file-name-handler] 3)
#@96 Like `add-name-to-file' for Tramp files.
(fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS)
(defalias 'tramp-smb-handle-add-name-to-file #[770 "\306\"\204\\\307\310!\203 \202 !\211\242>\204\" |