;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'tramp) #@45 Method to connect SAMBA and M$ SMB servers. (defconst tramp-smb-method "smb" (#$ . 104)) (byte-code "\301>\204 \302\303\304\"\210\302\303\305\"\210\306\307\310\311\312DD\313\314\315\316\317&\210\306\320\310\311\321DD\322\314\315\316\317\323\324& \210\306\325\310\311\326DD\327\314\315\316\330&\210\306\331\310\311\332DD\333\314\315\316\334\323\335& \207" [system-type (cygwin windows-nt) add-hook tramp--startup-hook #[0 "\301\302\303B\"\207" [tramp-smb-method add-to-list tramp-methods ((tramp-tmpdir "/C$/Temp") (tramp-case-insensitive t))] 4] #[0 "\301\302\303\304Q\305B\"\210\306\307\"\207" [tramp-smb-method add-to-list tramp-default-user-alist "\\`" "\\'" (nil nil) tramp-set-completion-function ((tramp-parse-netrc "~/.netrc"))] 5] custom-declare-variable tramp-smb-program funcall function #[0 "\300\207" [#1="smbclient"] 1 #1#] "Name of SMB client to run." :group tramp :type string tramp-smb-acl-program #[0 "\300\207" [#2="smbcacls"] 1 #2#] "Name of SMB acls to run." :version "24.4" tramp-smb-conf #[0 "\207" [null-device] 1] "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)) tramp-smb-options #[0 "\300\207" [nil] 1] "List of additional options.\nThey are added to the `tramp-smb-program' call via \"--option '...'\".\n\nFor example, if the deprecated SMB1 protocol shall be used, add to\nthis variable (\"client min protocol=NT1\") ." (repeat string) "28.1"] 10) #@35 Version string of the SMB client. (defvar tramp-smb-version nil (#$ . 1643)) #@38 Regexp of SMB server identification. (defconst tramp-smb-server-version "Domain=\\[[^]]*\\] OS=\\[[^]]*\\] Server=\\[[^]]*\\]" (#$ . 1726)) #@51 Regexp used as prompt in smbclient or powershell. (defconst tramp-smb-prompt "^\\(smb:\\|PS\\) .+> \\|^\\s-+Server\\s-+Comment$" (#$ . 1872)) #@48 Regexp for login error strings of SMB servers. (defconst tramp-smb-wrong-passwd-regexp "\\(?:NT_STATUS_\\(?:LOGON_FAILURE\\|WRONG_PASSWORD\\)\\)" (#$ . 2020)) #@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_\\(?:DISCONNECTED\\|RE\\(?:FUSED\\|SET\\)\\)\\)\\|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_\\(?:A_DIRECTORY\\|\\(?:IMPLEMEN\\|SUPPOR\\)TED\\)\\|_\\(?:LOGON_SERVERS\\|SUCH_\\(?:FILE\\|USER\\)\\)\\)\\)\\|OBJECT_\\(?:NAME_\\(?:COLLISION\\|\\(?:INVALI\\|NOT_FOUN\\)D\\)\\|PATH_SYNTAX_BAD\\)\\|PASSWORD_MUST_CHANGE\\|RE\\(?:SOURCE_NAME_NOT_FOUND\\|VISION_MISMATCH\\)\\|SHARING_VIOLATION\\|TRUSTED_RELATIONSHIP_FAILURE\\|UNSUCCESSFUL\\|WRONG_PASSWORD\\)\\)" "\\|"] 8) (#$ . 2186)) #@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)) (#$ . 3483)) #@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)) (#$ . 3926)) #@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)) (#$ . 4330)) #@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)) (#$ . 4738)) #@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)) (#$ . 5132)) #@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 '((access-file . tramp-handle-access-file) (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) (exec-path . ignore) (expand-file-name . tramp-smb-handle-expand-file-name) (file-accessible-directory-p . tramp-handle-file-accessible-directory-p) (file-acl . tramp-smb-handle-file-acl) (file-attributes . tramp-smb-handle-file-attributes) (file-directory-p . tramp-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-process . ignore) (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) (tramp-get-remote-gid . ignore) (tramp-get-remote-uid . ignore) (tramp-set-file-uid-gid . ignore) (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)) (#$ . 5526)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\313& \210\300\317\302\303\320DD\321\306\307\310\311\312\313& \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" 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."] 10) #@58 Check if it's a FILENAME for SMB servers. (fn FILENAME) (defalias 'tramp-smb-file-name-p #[257 "\302!\205\303!\211\242>\204\304\305\306D\"\210\211A@\262 \230\207" [cl-struct-tramp-file-name-tags tramp-smb-method tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name] 6 (#$ . 10136)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-smb-file-name-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@166 Invoke the SMB related OPERATION and ARGS. 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\"\216\305A\")\207\306\"\207" [tramp-smb-file-name-handler-alist assoc match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] apply tramp-run-real-handler] 7 (#$ . 10616)]) (byte-code "\301>\204 \302\303\304\"\210\302\207" [system-type (cygwin windows-nt) add-hook tramp--startup-hook #[0 "\300\301\302\"\207" [tramp-register-foreign-file-name-handler tramp-smb-file-name-p tramp-smb-file-name-handler] 3]] 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 "\301\"\204\233\302\303!\203\202!\211\242>\204\"\304\305\306D\"\210\211A@\242>\2043\304\305\306D\"\210\3078\242>\204D\304\305\306D\"\210\3108\242>\204V\304\305\306D\"\210\3118\242>\204h\304\305\306D\"\210\3128\242>\204z\304\305\306D\"\210\3138\242>\204\216\304\305\306 D\"\210\3148\315\316\317\320$\266 \302!\211\242>\204\254\304\305\306D\"\210\211A@\242>\204\275\304\305\306D\"\210\3078\242>\204\316\304\305\306D\"\210\3108\242>\204\340\304\305\306D\"\210\3118\242>\204\362\304\305\306D\"\210\3128\242>\204\304\305\306D\"\210\3138\242>\204\304\305\306 D\"\210\3148\302\n!\211\242>\204.\304\305\306D\"\210\211A@\242>\204?\304\305\306D\"\210\3078\242>\204P\304\305\306D\"\210\3108\242>\204b\304\305\306D\"\210\3118\242>\204t\304\305\306D\"\210\3128\242>\204\206\304\305\306D\"\210\3138\242>\204\232\304\305\306 D\"\210\3148\321!\203\256\315\316\322$\210\323!\203\331\203\311\247\203\324\324\325\326\"!\204\324\315\327#\210\202\331\330!\210\331\"\210\332\325\333\334!\203\357\335\202\360\336\337!\337!$\"?\205\315\316\340\341 $\207" [cl-struct-tramp-file-name-tags tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-error file-error "add-name-to-file: %s" "only implemented for same method, same user, same host" file-directory-p "add-name-to-file: %s must not be a directory" file-exists-p yes-or-no-p format "File %s already exists; make it a link anyway? " file-already-exists delete-file tramp-flush-file-properties 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] 27 (#$ . 11308)]) #@46 Untar from connection buffer. (fn PROC VEC) (defalias 'tramp-smb-action-with-tar #[514 "\304!\204 \305\306\307\"\207r\310!q\210eb\210\311\312\313#\205\313~\210\312y\210\211\314e`{\312\3151\301 X\205\273\316X\203a\n\204a\317\320\321U\203G\322\202\\\323U\203Q\322\202\\\324U\203[\325\202\\\326P#\210 \327Y\205\273\321\323U\203\233\3301\232r\331!\203\200\332!\202\204\310\333\"q\210\334P\262\335\336 C\"\211\262)0\210\202\233\210\331!\203\247\337\340\"\262)\242 >\205\273\317\341\342\343\"P$0\266\202\303\266e`|\210\305\306\344\")\207" [tramp-smb-server-version tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags process-live-p throw tramp-action process-died tramp-get-connection-buffer search-forward-regexp nil t 6 (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " ok] 12 (#$ . 13331)]) #@104 Like `copy-directory' for Tramp files. (fn DIRNAME NEWNAME &optional KEEP-DATE PARENTS COPY-CONTENTS) (defalias 'tramp-smb-handle-copy-directory #[1282 "CC\203\306\307\242\242\257\"\207\310\242!\240\210\211\310\242!\240\210\311\242!\311\242!\312\2038\242\202:\242!C\211\242\242>\204L\313\314\315\242D\"\210\211\242A@\242\242>\204`\313\314\315\242D\"\210\316\2428\242\242>\204t\313\314\315\242D\"\210\317\2428\242\242>\204\211\313\314\315\242D\"\210\320\2428\242\242>\204\236\313\314\315\242D\"\210\321\2428\242\242>\204\263\313\314\315\242D\"\210\322\2428\242\242>\204\312\313\314\315 \242D\"\210\323\2428 \204\327\n\203d\324\f\242!\204\375\242\f\242\325\326N\203\365\327 #\266\202\375\327 \330$\266\331 \242!\203\332 \242!\204\327\242\333 \242#\210 \203U\203U\334\310\f\335\336\337N@\340\"\"!\341\342\"\216\343!\210\307 \242\344!\345$\210\307\310\346\242!\" \242$)\207\306\307 \242 \242F\"\207\242\347\350\351\352\242\242#C\3531 X\205\317X\203\256@\204\256\354\355\347U\203\224\356\202\251\357U\203\236\356\202\251\316U\203\250\360\202\251\361P#\210 \320Y\205\347\357U\203\350\3621\347r\363!\203\315\364!\202\321\365\366\"q\210\367P\262\370\371 C\"\211\262)0\210\202\350\210\363!\203\364\372\373\"\262)\242>\205\354\374\351\375\"P$0\266\202\266\376C@?\205/\347 \317^X\205/\377\351\352\242\242#\201A\211#\211\205?\201B\317\201C\201D$\262\341\201E &\216@\206X\211@\324\242!\204\200 \242\242\325\326N\203x\327 #\266\202\200\327 \330$\266\331 \242!\203\232\332 \242!\204\232\327\n\242\333\242#\210 \203\336\n\203\336\334\310\f\335\336\337N@\340\"\"!\341\201F\"\216\343!\210\307\242\344!\345$\210\307\310\346\242!\"\242$)\262\202\354\306\307\242\242F\")\201G\240\210)\207" [cl-struct-tramp-file-name-tags noninteractive inhibit-message tramp-file-missing tramp-temp-name-prefix tramp-verbose tramp-run-real-handler copy-directory expand-file-name tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p file-missing error-conditions tramp-error "No such file or directory: %s" file-directory-p directory-name-p file-already-exists make-temp-name eval temporary-file-directory standard-value t make-closure #[0 "\301\300\302\"\207" [V0 delete-directory recursive] 3] make-directory file-name-as-directory parents file-name-nondirectory 0 "%s..." format #1="Copying %s to %s" #2=(error) apply message #3="" 1 #4="Warning: " #5="Tramp: " #6=(error) processp process-buffer tramp-get-connection-buffer dont-create #7="\n%s" append buffer-string process-get vector tramp-debug-message #8="(%d) # " "failed" make-progress-reporter tramp-inhibit-progress-reporter nil run-at-time 0.1 tramp-progress-reporter-update #[0 "\304\203\306\304!\210\302\242\307\310\311\312\300\242\301\242#\303\242D\3131\256 X\205\254\314X\203Q\"\204Q\315\316\307U\2037\317\202L\320U\203A\317\202L\321U\203K\322\202L\323P#\210 \324Y\205\254\307\320U\203\213\3251\212r\326!\203p\327!\202t\330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\213\210\326!\203\227\335\336\"\262)\242#>\205\254\315\337\311\340\"P$0\207\266\341\207" [V0 V1 V2 V3 V4 tramp-verbose cancel-timer 0 "%s...%s" format #1# #2# 3 apply message #3# 1 2 #4# #5# 4 #6# processp process-buffer tramp-get-connection-buffer dont-create #7# append buffer-string process-get vector tramp-debug-message #8# nil tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags] 10] #[0 "\301\300\302\"\207" [V0 delete-directory recursive] 3] "done"] 27 (#$ . 14338)]) #@285 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. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES) (defalias 'tramp-smb-handle-copy-file #[1538 "CC\306\242!\240\210\211\306\242!\240\210\204 \203\334\307\242!\203/\310\242\242\311\312%\210\202\303\313\242!\204`\314\315\242!\203C\242\202E\242!\242\316\317N\203X\320\n#\266\202`\320\n\321$\266\322\242!\211\203\210\3231y\324\242 #0\266\202\303\325!\210\326@A\"\266\202\303\307\242!\203\241\327\242!\203\241\306\330\242!\242\"\240\210\314\242!\211\242 >\204\263\326\331\332D\"\210\211A@\242 >\204\304\326\331\332D\"\210\3338\242 >\204\325\326\331\332D\"\210\3348\242 >\204\347\326\331\332D\"\210\3358\242 >\204\371\326\331\332D\"\210\3368\242 >\204 \326\331\332D\"\210\3378\242 >\204\326\331\332 D\"\210\3408\2049\313\n\242!\2039\320\341\f\242#\210\307\n\242!\203S\327\n\242!\204S\320\342\343 \242$\210\344\"\210\345!\204j\320\342\346 \242$\210\347\350\351\242\352\211?\205y\f\353!\211\211?\205\205\f\354\355\353!\")\266\202\203\243\211G\333U\203\235\356\202\241\211\333\352O\262\357!P)\266\203\360 !#\"\204\301\320\342\361\242\242%\210\266 \205\301\362\242\363\242!\3368\262?\205\332\364#\207\314\315\242!\203\351\242\202\353\242!\365\366\350\367\242\242#C\3701\253 X\205\245\334X\2033@\2043\371\372\365U\203\373\202.\374U\203#\373\202.\333U\203-\375\202.\376P#\210 \335Y\205\245\365\374U\203{\3771zr\201A!\203V\201B!\202^\201C\201D\"q\210\201EP\262\201F\201G C\"\211\262)0\210\202{\210\201A!\203\215\201H\201I\"\262)\242 >\205\245\371\201J\350\201K\"P$0\266\202\255\266\201LC@?\205\314\365 \334^X\205\314\201M\350\367\242\242#\352\211#\211\205\334\201N\334\201O\201P$\262\201Q\201R%\216@\206\360\211@\307\242!\203\310\242\242 \311\312%\210\202\235\313\242!\2048\314\315\242!\203\242\202\242!\242\316\317N\2030\320\n#\266\2028\320\n\321$\266\322\242!\211\203`\3231Q\324\242 #0\266\202\235\325!\210\326@A\"\266\202\235\307\242!\203{\327\242!\203{\306\330\242!\242\"\240\210\314\242!\211\242 >\204\215\326\331\332D\"\210\211A@\242 >\204\236\326\331\332D\"\210\3338\242 >\204\257\326\331\332D\"\210\3348\242 >\204\301\326\331\332D\"\210\3358\242 >\204\323\326\331\332D\"\210\3368\242 >\204\345\326\331\332D\"\210\3378\242 >\204\371\326\331\332 D\"\210\3408\204\313\f\242!\203\320\341\242#\210\307\f\242!\203-\327\f\242!\204-\320\342\343\242$\210\344\"\210\345!\204D\320\342\346\242$\210\347\350\351\242\352\211?\205S\f\353!\211\211?\205_\f\354\355\353!\")\266\202\203}\211G\333U\203w\356\202{\211\333\352O\262\357!P)\266\203\360 !#\"\204\233\320\342\361\242\242%\210\266 \205\267\362\242\363\242!\3368\262\n?\205\266\364#)\201S\240\210)\266\202\207" [noninteractive inhibit-message tramp-file-missing cl-struct-tramp-file-name-tags file-name-handler-alist tramp-verbose expand-file-name file-directory-p copy-directory parents copy-contents file-exists-p tramp-dissect-file-name tramp-tramp-file-p file-missing error-conditions tramp-error "No such file or directory: %s" file-local-copy (error quit) rename-file delete-file signal directory-name-p file-name-nondirectory wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-already-exists file-error "File is a directory %s" tramp-flush-file-properties tramp-smb-get-share "Target `%s' must contain a share name" tramp-smb-send-command format "put \"%s\" \"%s\"" nil file-local-name string-prefix-p "/:" "/" file-remote-p tramp-smb-get-localname "Cannot copy `%s' to `%s'" tramp-compat-set-file-times file-attributes nofollow 0 "%s..." #1="Copying %s to %s" #2=(error) apply message #3="" 1 #4="Warning: " #5="Tramp: " #6=(error) tramp-inhibit-progress-reporter processp process-buffer tramp-get-connection-buffer dont-create #7="\n%s" append buffer-string process-get vector tramp-debug-message #8="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update make-closure #[0 "\303\203\306\303!\210\307\310\300\242!\203\300\242\202\301\242!\311\312\313\314\300\242\301\242#\302\242D\3151\273\fX\205\271\316X\203^ \204^\317\320\311U\203D\321\202Y\322U\203N\321\202Y\323U\203X\324\202Y\325P#\210\f\326Y\205\271\311\322U\203\230\3271\227r\330!\203}\331!\202\201\332\333\"q\210\334P\262\335\336 C\"\211\262)0\210\202\230\210\330!\203\244\337\340\"\262)\242$>\205\271\317\341\313\342\"P$0\207\266\343\207" [V0 V1 V2 V3 tramp-verbose tramp-inhibit-progress-reporter cancel-timer tramp-dissect-file-name tramp-tramp-file-p 0 "%s...%s" format #1# #2# 3 apply message #3# 1 2 #4# #5# 4 #6# processp process-buffer tramp-get-connection-buffer dont-create #7# append buffer-string process-get vector tramp-debug-message #8# nil cl-struct-tramp-file-name-tags] 10] "done"] 32 (#$ . 18096)]) #@84 Like `delete-directory' for Tramp files. (fn DIRECTORY &optional RECURSIVE TRASH) (defalias 'tramp-smb-handle-delete-directory #[769 "\304\305!!\211\242>\204\306\307\310D\"\210\211A@\242>\204$\306\307\310D\"\210\3118\242>\2045\306\307\310D\"\210\3128\242>\204G\306\307\310D\"\210\3138\242>\204Y\306\307\310D\"\210\3148\242>\204k\306\307\310D\"\210\3158\242>\204\306\307\310 D\"\210\3168 \203\252\203\252 \204\242\317 !\204\242\320\321\322#\210\202\323 !\210\202\324 !\203 \203\304\325\326\327\f\"\330 \331\n#\"\210\332\"\210\333\334\335\336\f!\203\332\337\202\333\340\341 !#\"\204r\342!q\210eb\210\343 \344\345#\210\320\321\346\347\350!%\210)\324 !\203\320\321\351$\210\332\"\207" [cl-struct-tramp-file-name-tags delete-by-moving-to-trash directory-files-no-dot-files-regexp tramp-smb-errors tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-compat-directory-empty-p tramp-error file-error "Directory is not empty, not moving to trash" move-file-to-trash file-exists-p mapc make-closure #[257 "\301!\203 \302\300\"\207\303!\207" [V0 file-directory-p delete-directory delete-file] 4 "\n\n(fn FILE)"] directory-files full tramp-flush-directory-properties 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 "%s `%s'" match-string 0 "`%s' not removed."] 18 (#$ . 23322)]) #@68 Like `delete-file' for Tramp files. (fn FILENAME &optional TRASH) (defalias 'tramp-smb-handle-delete-file #[513 "\303!\262\304!\205\331\305!\211\242>\204\306\307\310D\"\210\211A@\242>\204-\306\307\310D\"\210\3118\242>\204>\306\307\310D\"\210\3128\242>\204P\306\307\310D\"\210\3138\242>\204b\306\307\310D\"\210\3148\242>\204t\306\307\310D\"\210\3158\242>\204\210\306\307\310 D\"\210\3168\317\"\210 \203\240\203\240\320\n!\207\321\322\323\324\f!\203\260\325\202\261\326\327 !#\"?\205\327r\330!q\210eb\210\331\n\332\333#\210\334\335\336\337\340!%)\266\210\207" [cl-struct-tramp-file-name-tags delete-by-moving-to-trash tramp-smb-errors expand-file-name file-exists-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties move-file-to-trash 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 tramp-error file-error "%s `%s'" match-string 0] 17 (#$ . 24869)]) #@91 Like `directory-files' for Tramp files. (fn DIRECTORY &optional FULL MATCH NOSORT COUNT) (defalias 'tramp-smb-handle-directory-files #[1281 "\301!\204\"\302!\303\304N\203\305#\266\202\"\305\306$\266\307\310\311\312\"\"\203;\313\314\307\315\316\"\"\"\262\204E\317\320\"\262\321!\203Z\322V\203Z\323\211GZ\"\262\203h\307\315\324\"\"\262\207" [tramp-file-missing file-exists-p tramp-dissect-file-name file-missing error-conditions tramp-error "No such file or directory: %s" mapcar directory-file-name file-name-all-completions "" delete nil make-closure #[257 "\300\302\303\304#)\266\203\205\211\207" [V0 inhibit-changing-match-data nil t string-match] 8 "\n\n(fn X)"] sort string-lessp natnump 0 nbutlast #[257 "\301\302\303\300!#\207" [V0 format "%s/%s" directory-file-name] 5 "\n\n(fn X)"]] 12 (#$ . 25973)]) #@67 Like `expand-file-name' for Tramp files. (fn NAME &optional DIR) (defalias 'tramp-smb-handle-expand-file-name #[513 "\211\206 \206 \303\262G\304U\203\305\262\306!\204\"\307!P\262\310!\204/\311\312\313D\"\207\314!\211\242 >\204@\315\316\317D\"\210\211A@\242 >\204Q\315\316\317D\"\210\3208\242 >\204b\315\316\317D\"\210\3218\242 >\204t\315\316\317D\"\210\3228\242 >\204\206\315\316\317D\"\210\3238\242 >\204\230\315\316\317D\"\210\3248\242 >\204\254\315\316\317 D\"\210\3258\326\327\"\203\321\330\331\332\"G\304U\203\307\202\313\331\332\"\313\211$\262\311\306C\"\204\336\303P\262\333\313\334\326#)\266\203\203\361\303\262\335\311\312C\"\"\207" [default-directory cl-struct-tramp-file-name-tags inhibit-changing-match-data "/" 0 "." file-name-absolute-p file-name-as-directory tramp-tramp-file-p tramp-run-real-handler expand-file-name nil tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 string-match "\\`/?~\\([^/]*\\)" replace-match match-string 1 "^/\\.\\.?$" t tramp-make-tramp-file-name] 17 (#$ . 26837)]) #@54 Read ACL data from connection buffer. (fn PROC VEC) (defalias 'tramp-smb-action-get-acl #[514 "\304!?\205\363\305!\204r\306!q\210~\210\211\307\310\311 C\3121\265X\205\257\313X\203U \204U\314\315\316U\203;\317\202P\320U\203E\317\202P\321U\203O\322\202P\323P#\210\324Y\205\257\316\320U\203\217\3251\216r\326!\203t\327!\202x\306\330\"q\210\310P\262\331\311 C\"\211\262)0\210\202\217\210\326!\203\233\332\333\"\262)\242\n>\205\257\314\334\335\336\"P$0\266\202\267\266eb\210m\204\324\337\340\341!)\262\204\324\342y\210e`|\210\202\272m\204\352\343\340\341!)\262\203\352\342y\210\202\324`d|\210\344\345\346\")\207" [tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags inhibit-changing-match-data process-live-p tramp-accept-process-output tramp-get-connection-buffer 10 "\n%s" buffer-string (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " "^REVISION:" t looking-at nil "^.+:.+" throw tramp-action ok] 12 (#$ . 27956)]) #@49 Like `file-acl' for Tramp files. (fn FILENAME) (defalias 'tramp-smb-handle-file-acl #[257 "\3061.\307!\211\242>\204\310\311\312D\"\210\211A@\242>\204&\310\311\312D\"\210\3138\242>\2047\310\311\312D\"\210\3148\242>\204I\310\311\312D\"\210\3158\242>\204[\310\311\312D\"\210\3168\242>\204m\310\311\312D\"\210\3178\242>\204\201\310\311\312 D\"\210\3208\321!\203i\322\323 $\211 =\203a\324\n!\205U\325 !\326\327\330\331 !#\332\330R\333D \nG\334U\204\307\335\336 D\"\262\202\316\335\337C\"\262 \203\334\335\340\fD\"\262\203\352\335\341\nD\"\262\f\203\366\335\342\fD\"\262\211\203 \335\343\344\345@\"D\"\262\211A\262\202\366\335\346!\347\350!PD\"\262\351\352\"\216\353\354\355\"r\211q\210\351\356\"\216\357\360\361p!#\210\357\362p#\210\363\364\365!\366!\n%\317\345\367!\370\371\372#\266\202C\3731 X\205\n\314X\203\232@\204\232\363\374\334U\203~\375\202\225\376U\203\210\375\202\225\313U\203\222\377\202\225\201BP#\210 \315Y\205\n\334\376U\203\340\201C1\337r\201D!\203\277\201E!\202\305\366\201F\"q\210\201GP\262\335\201H C\"\211\262)0\210\202\340\210\201D!\203\362\201I\201J\"\262)\242>\205\n\363\201K\344\201L\"P$0\266\202\266\201M\201J#\210\201M\201N\201O#\210\201P\201Q\"\210\201R\201QA$\210deV\205M\201S\201H !\262*\262)\266\204\262\201T \323$\210\211\262\266\210\202,\324\n!\205*\325!\326\327\330\331\f!#\332\330R\333D  G\334U\204\230\335\336\fD\"\262\202\237\335\337C\"\262\203\255\335\340 D\"\262\203\273\335\341 D\"\262\f\203\307\335\342\fD\"\262\211\203\336\335\343\344\345@\"D\"\262\211A\262\202\307\335\346!\347\350!PD\"\262\351\201U \"\216\353\354\355\"r\211q\210\351\201V\"\216\357 \360\361p!#\210\357 \362p#\210\363\364\365!\366!\n% \317\345\367!\370\371\372#\266\202C\3731\345 X\205\337\314X\203o@\204o\363\374\334U\203S\375\202j\376U\203]\375\202j\313U\203g\377\202j\201BP#\210 \315Y\205\337\334\376U\203\265\201C1\264r\201D!\203\224\201E!\202\232\366\201F\"q\210\201GP\262\335\201H C\"\211\262)0\210\202\265\210\201D!\203\307\201I\201J\"\262)\242>\205\337\363\201K\344\201L\"P$0\266\202\347\266\201M\201J#\210\201M\201N\201O#\210\201P\201Q\"\210\201R\201QA$\210deV\205\"\201S\201H !\262*\262)\266\204\266\2100\207\210\201Q\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-smb-acl-program tramp-smb-options tramp-smb-conf tramp-verbose (error) tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-acl" executable-find tramp-smb-get-share tramp-compat-string-replace "\\" "/" tramp-smb-get-localname "//" "-E" 0 append "-U" "-N" "-W" "-p" "-s" "--option" format "%s" tramp-unquote-shell-quote-argument "2>" tramp-get-remote-null-device make-closure #[0 "\301\300\302\"\210\301\300\303\"\207" [V0 tramp-flush-connection-property #1="process-name" #2="process-buffer"] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 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 process-command " " mapconcat identity (error) message "" 1 "Warning: " tramp-inhibit-progress-reporter tramp-smb-actions-get-acl "Tramp: " (error) processp process-buffer dont-create "\n%s" buffer-string process-get vector tramp-debug-message "(%d) # " process-put adjust-window-size-function ignore set-process-query-on-exit-flag nil tramp-process-actions substring-no-properties tramp-set-file-property #[0 "\301\300\302\"\210\301\300\303\"\207" [V0 tramp-flush-connection-property #1# #2#] 3] #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2]] 26 (#$ . 29082)]) #@76 Like `file-attributes' for Tramp files. (fn FILENAME &optional ID-FORMAT) (defalias 'tramp-smb-handle-file-attributes #[513 "\211\204\304\262\3051\231\306!\211\242>\204\307\310\311D\"\210\211A@\242>\204-\307\310\311D\"\210\3128\242>\204>\307\310\311D\"\210\3138\242>\204P\307\310\311D\"\210\3148\242>\204b\307\310\311D\"\210\3158\242>\204t\307\310\311D\"\210\3168\242>\204\210\307\310\311 D\"\210\3178\320!\203'\321\322\323 \" $\211 =\203\324 !\203\263\325  \"\202\326\327\f!!\330\331 !\" \332=\203\313\333\202\314\334\f\332=\203\327\335\202\330\334\336 !\337!\205\340A@\341\342\343#)\266\203\205\367\342\334 \313\n8 \312\f8\fA@\341  \257\f\266\206\262\344 \322\323\"$\210\211\262\266\210\202\227\324!\2039\325\n\"\266\210\202\227\326\327 !!\330\331\f!\"\n\332=\203Q\333\202R\334 \332=\203]\335\202^\334\336\f!\337 !\205\225\340A@\341\342\343#)\266\203\205}\342\334 \313\n8 \312\f8\fA@\341  \257\f\266\2160\207\210\341\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined inhibit-changing-match-data tramp-time-dont-know integer (error) tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property format "file-attributes-%s" 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 "d" nil t string-match tramp-set-file-property] 29 (#$ . 33027)]) #@97 Implement `file-attributes' for Tramp files using `stat' command. (fn VEC &optional ID-FORMAT) (defalias 'tramp-smb-do-file-attributes-with-stat #[513 "\304\305\242>\204\306\307\310D\"\210\3118C\3121\260 X\205\252\313X\203P\n\204P\314\315\316U\2036\317\202K\320U\203@\317\202K\321U\203J\322\202K\323P#\210 \324Y\205\252\316\320U\203\212\3251\211r\326!\203o\327!\202s\330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\212\210\326!\203\226\335\336\"\262)\242>\205\252\314\337\340\341\"P$0\266\202\262\266\342\211\211\211\211\211\211\211\211\211\343\f\340\344\345!\"\"\205Fr\330\f!q\210eb\210\346 \342\347#?\205Em\204\334\350\351!\203\352\353\320!!\262\n\353\321!\354\230\203\372\347\202\353\321!\355\230\205\317\262 \202\326\350\356!\203\352\353\320!!\262\352\353\321!!\262\202\326\350\357!\203U\353\320!\262\n\360=\2037\353\321!\202<\352\353\321!!\262\n\360=\203K\353\313!\202P\352\353\313!!\262\202\326\350\361!\203\201\362\352\353\311!!\352\353\304!!\352\353\324!!\352\353\313!!\352\353\321!!\352\353\320!!&\262\202\326\350\363!\203\255\362\352\353\311!!\352\353\304!!\352\353\324!!\352\353\313!!\352\353\321!!\352\353\320!!&\262\202\326\350\364!\203\326\362\352\353\311!!\352\353\304!!\352\353\324!!\352\353\313!!\352\353\321!!\352\353\320!!&\262\342y\210\202\335;\203\376\343\f\340\365\345!\"\"\203\376eb\210\350\366!\203\376\353\320!\262 \204*\204*\204*\204*\204*\204*\204* \204*\204*\211\205E \342\n\367!\257\f)\207" [cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter tramp-smb-errors 5 "file attributes with stat: %s" signal wrong-type-argument tramp-file-name 6 (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " nil tramp-smb-send-command "stat \"%s\"" tramp-smb-get-localname re-search-forward t looking-at "Size:\\s-+\\([[:digit:]]+\\)\\s-+Blocks:\\s-+[[:digit:]]+\\s-+\\(\\w+\\)" string-to-number match-string "directory" "symbolic" "Inode:\\s-+\\([[:digit:]]+\\)\\s-+Links:\\s-+\\([[:digit:]]+\\)" "Access:\\s-+([[:digit:]]+/\\(\\S-+\\))\\s-+Uid:\\s-+\\([[:digit:]]+\\)\\s-+Gid:\\s-+\\([[:digit:]]+\\)" string "Access:\\s-+\\([[:digit:]]+\\)-\\([[:digit:]]+\\)-\\([[:digit:]]+\\)\\s-+\\([[:digit:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\)" encode-time "Modify:\\s-+\\([[:digit:]]+\\)-\\([[:digit:]]+\\)-\\([[:digit:]]+\\)\\s-+\\([[:digit:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\)" "Change:\\s-+\\([[:digit:]]+\\)-\\([[:digit:]]+\\)-\\([[:digit:]]+\\)\\s-+\\([[:digit:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\)" "readlink \"%s\"" ".+ -> \\(.+\\)" tramp-get-device] 25 (#$ . 34630)]) #@56 Like `file-local-copy' for Tramp files. (fn FILENAME) (defalias 'tramp-smb-handle-file-local-copy #[257 "\306\307!!\211\242>\204\310\311\312D\"\210\211A@\242>\204$\310\311\312D\"\210\3138\242>\2045\310\311\312D\"\210\3148\242>\204G\310\311\312D\"\210\3158\242>\204Y\310\311\312D\"\210\3168\242>\204k\310\311\312D\"\210\3178\242>\204\310\311\312 D\"\210\3208\321\307\n!!\204\250 \322\323N\203\240\324 #\266\202\250\324 \325$\266\326\327\330\n\331\332\333N@\334\"\"\335\334\"#\266\202 \204\306\f\203\343\336 \337\340\341 !#\"\204\364\342!\210\324 \343\344 $\210\207\314\345\337\346#C\3471\212 X\205\204\314X\203*@\204*\350\351\352U\203\353\202%\354U\203\353\202%\313U\203$\355\202%\356P#\210 \315Y\205\204\352\354U\203d\3571cr\360!\203I\361!\202M\362\363\"q\210\364P\262\365\366 C\"\211\262)0\210\202d\210\360!\203p\367\370\"\262)\242>\205\204\350\371\337\372\"P$0\266\202\214\266\373C@?\205\246\314 \314^X\205\246\374\337\346 #\326\211#\211\205\260\375\314\376\377$\262\201A\201B  &\216@\206\313\211@\336 \337\340\341!#\"\204\352\342!\210\324 \343\344$\210)\201C\240\210)\266\207" [cl-struct-tramp-file-name-tags tramp-file-missing tramp-temp-name-prefix noninteractive inhibit-message tramp-verbose tramp-dissect-file-name file-truename signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p file-missing error-conditions tramp-error "No such file or directory: %s" nil make-temp-file expand-file-name eval temporary-file-directory standard-value t file-name-extension tramp-smb-send-command format "get \"%s\" \"%s\"" tramp-smb-get-localname delete-file file-error "Cannot make local copy of file `%s'" "%s..." #1="Fetching %s to tmp file %s" #2=(error) apply message 0 #3="" 1 #4="Warning: " #5="Tramp: " #6=(error) processp process-buffer tramp-get-connection-buffer dont-create #7="\n%s" append buffer-string process-get vector tramp-debug-message #8="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update tramp-inhibit-progress-reporter make-closure #[0 "\304\203\306\304!\210\301\307\310\311\312\300\302#\303\242D\3131\253 X\205\251\307X\203N\"\204N\314\315\316U\2034\317\202I\320U\203>\317\202I\321U\203H\322\202I\323P#\210 \324Y\205\251\316\320U\203\210\3251\207r\326!\203m\327!\202q\330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\210\210\326!\203\224\335\336\"\262)\242#>\205\251\314\337\311\340\"P$0\207\266\341\207" [V0 V1 V2 V3 V4 tramp-verbose cancel-timer 3 "%s...%s" format #1# #2# apply message 0 #3# 1 2 #4# #5# 4 #6# processp process-buffer tramp-get-connection-buffer dont-create #7# append buffer-string process-get vector tramp-debug-message #8# nil tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags] 10] "done"] 20 (#$ . 37479)]) #@76 Like `file-name-all-completions' for Tramp files. (fn FILENAME DIRECTORY) (defalias 'tramp-smb-handle-file-name-all-completions #[514 "\302\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204&\305\306\307D\"\210\3108\242>\2047\305\306\307D\"\210\3118\242>\204I\305\306\307D\"\210\3128\242>\204[\305\306\307D\"\210\3138\242>\204m\305\306\307D\"\210\3148\242>\204\201\305\306\307 D\"\210\3158\316!\203\263\317\320 $\211 =\203\253\321\322\323\324!\"!\262\325 \320$\210\211\262\266\210\202\276\321\322\326\324!\"!\266\210\"\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined all-completions tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-name-all-completions" delete-dups mapcar #[257 "\301A@\302\303\304#)\266\203\203\305@!\202\211@C\207" [inhibit-changing-match-data #1="d" nil t string-match file-name-as-directory] 8 "\n\n(fn X)"] tramp-smb-get-file-entries tramp-set-file-property #[257 "\301A@\302\303\304#)\266\203\203\305@!\202\211@C\207" [inhibit-changing-match-data #1# nil t string-match file-name-as-directory] 8 "\n\n(fn X)"]] 18 (#$ . 40413)]) #@57 Like `file-system-info' for Tramp files. (fn FILENAME) (defalias 'tramp-smb-handle-file-system-info #[257 "\3031\241\304!\204\305!\262\306\307!!\211\242>\204\"\310\311\312D\"\210\211A@\242>\2043\310\311\312D\"\210\3138\242>\204D\310\311\312D\"\210\3148\242>\204V\310\311\312D\"\210\3158\242>\204h\310\311\312D\"\210\3168\242>\204z\310\311\312D\"\210\3178\242>\204\216\310\311\312 D\"\210\3208\321!\205\235\316\322C\32319 X\2053\314X\203\331\n\204\331\324\325\326U\203\277\327\202\324\330U\203\311\327\202\324\313U\203\323\331\202\324\332P#\210 \315Y\2053\326\330U\203\3331r\334!\203\370\335!\202\374\336\337\"q\210\340P\262\341\342 C\"\211\262)0\210\202\210\334!\203\343\344\"\262)\242>\2053\324\345\346\347\"P$0\266\202;\266\350\346\351\352\f!\"\"\210r\336!q\210\353\211\211eb\210\353y\210\354\355!\203v\356\357\313!!\262\211\356\357\330!!_\262\211\356\357\314!!_\262\353y\210\354\360!\203\214\361 \362\356\357\330!!$\210\205\232\205\232\211ZE\266\203)\266\2100\207\210\353\207" [cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter (error) file-directory-p file-name-directory tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-smb-get-share "file system info: %s" (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-smb-send-command "du %s/*" tramp-smb-get-localname nil looking-at "[[:space:]]*\\([[:digit:]]+\\) blocks of size \\([[:digit:]]+\\)\\. \\([[:digit:]]+\\) blocks available" string-to-number match-string "Total number of bytes: \\([[:digit:]]+\\)" tramp-set-file-property "used-bytes"] 19 (#$ . 41665)]) #@56 Like `file-writable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-smb-handle-file-writable-p #[257 "\301!\203\302\303!\3048\262\206\305\306\307\310#)\207\311!\301!\205)\312!\207" [inhibit-changing-match-data file-exists-p "w" file-attributes 8 "" nil t string-match file-name-directory file-writable-p] 8 (#$ . 43552)]) #@102 Like `insert-directory' for Tramp files. (fn FILENAME SWITCHES &optional WILDCARD FULL-DIRECTORY-P) (defalias 'tramp-smb-handle-insert-directory #[1026 "CC\306\242!\240\210\211\242\204\211\307\240\210\310\242!\203&\204&\211\242\311P\240\210\2034\312\242!\240\210\202;\313\242!\240\210\204E\314\242\315\"\210\316\242!\211\242>\204W\317\320\321D\"\210\211A@\242>\204h\317\320\321D\"\210\3228\242>\204y\317\320\321D\"\210\3238\242>\204\213\317\320\321D\"\210\3248\242>\204\235\317\320\321D\"\210\3258\242>\204\257\317\320\321D\"\210\3268\242>\204\303\317\320\321 D\"\210\3278 \204\317\n\203\237\330 \331\332\"\216\333 \242!C\334\335\336\242!!!\337 \242!\340\341\342 \343\344$\345\245\"\203/\346\347\242\"\210\350\351\352\211\242$\240\210\346\353\242\"\210\350\354\352\211\242$\240\210\346\355\242\"\210\350\356\352\211\242$\240\210\357\352\204>\242G\344U\203J\360\331\361\"\"\202R\362\242\"C\"\262\363\331\364\"\"\262\311\242\352\365\346#)\266\203\203v\366\367\"\210\203\215\203\207\340\370#\202\213\340\371\"c\210\366\331\372%\"\266\204)\207\344\373\340\374\242\"C\3751f\fX\205`\323X\203\352 \204\352\376\377\344U\203\312\307\202\345\201@U\203\326\307\202\345\322U\203\342\201A\202\345\201BP#\210\f\324Y\205`\344\201@U\2036\201C15r\201D!\203\201E!\202\201F\201G\"q\210\201HP\262\201I\201J C\"\211\262)0\210\2026\210\201D!\203H\201K\201L\"\262)\242>\205`\376\201M\340\201N\"P$0\266\202h\266\201OC ?\205\205\344\f\323^X\205\205\201P\340\374 \242\"\352\211#\211\205\225\201Q\323\201R\201S$\262\331\201T \f%\216 \206\250\211\330 \331\201U\"\216\333 \242!C\334\335\336\242!!!\337\242!\340\341\342 \343\344$\345\245\"\203 \346\347\242\"\210\350\351\352\211\242$\240\210\346\353\242\"\210\350\354\352\211\242$\240\210\346\355\242\"\210\350\356\352\211\242$\240\210\357\352\204\242G\344U\203(\360\331\201V\"\"\2020\362\242\"C\"\262\363\331\201W\"\"\262\311\242\352\365\346#)\266\203\203X\366\201X\"\210\203o\203i\340\370#\202m\340\371\"c\210\366\331\201Y%\"\266\204)\262)\201Z\240\210)\207" [cl-struct-tramp-file-name-tags noninteractive inhibit-message inhibit-changing-match-data tramp-verbose tramp-inhibit-progress-reporter expand-file-name #3="" directory-name-p "F" file-name-as-directory directory-file-name access-file "Reading directory" tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] file-name-nondirectory copy-tree tramp-smb-get-file-entries file-name-directory get-free-disk-space format "%.0f" tramp-get-file-property "used-bytes" 0 1024 string-match "\\." replace-match "\\\\." nil "\\*" ".*" "\\?" ".?" delq mapcar #[257 "\302\303\300\242\"@\304\305\306#)\266\203\205\211\207" [V0 inhibit-changing-match-data format #9="^%s" nil t string-match] 8 "\n\n(fn X)"] assoc sort #[514 "\302\300\242\303\304\305#)\266\203\203\306\3078\3078\"\207@@\231\207" [V0 inhibit-changing-match-data #10="t" nil t string-match time-less-p 3] 9 "\n\n(fn X Y)"] t mapc #[257 "\211@G\300U?\205,\301\302\303A@!\"\203\211@\304P\240\207\301\305\303A@!\"\205,\211@\306P\240\207" [0 char-equal 100 string-to-char #11="/" 120 #12="*"] 5 "\n\n(fn X)"] "total used in directory %s available %s\n" "total %s\n" #[257 "\211@G\305U?\205\322\306\303!\205$\3071\"\310\311@\312\300\242!\"\313\"0\202$\210\314\315\301\242\314\316\317#)\266\203\203\214\320\321\3228\262\206CA@\211A@\262\206M\323\3248\262\206W\325\3268\262\206a\327\3308\262\206o\3248\331\332\333\326\f8!\334\335!\"\203\202\336\202\203\337\326 8\"&c\210`\340\311@\312\300\242!\"\302\205\236\312\300\242!\"c\210\341`\342\316$\266\315\301\242\314\316\317#)\266\203\203\314\211\211@\262;\203\314\343\211@\262\261\210\210\344c\210\345 \207" [V0 V1 V2 V3 inhibit-changing-match-data 0 tramp-smb-get-stat-capability (error) file-attributes expand-file-name file-name-directory string nil #13="l" t string-match format #14="%10s %3d %-8s %-8s %8s %s " 8 1 2 #15="nobody" 3 #16="nogroup" 7 format-time-string time-less-p time-since days-to-time 183 #17="%b %e %R" #18="%b %e %Y" file-relative-name put-text-property dired-filename #19=" -> " #20="\n" beginning-of-line] 14 "\n\n(fn X)"] "%s..." #1="Opening directory %s" #2=(error) apply message 1 #4="Warning: " #5="Tramp: " #6=(error) processp process-buffer tramp-get-connection-buffer dont-create #7="\n%s" append buffer-string process-get vector tramp-debug-message #8="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[0 "\303\203\306\303!\210\301\307\310\311\312\300\242\"\302\242D\3131\252\fX\205\250\314X\203M \204M\315\316\307U\2033\317\202H\320U\203=\317\202H\321U\203G\322\202H\323P#\210\f\324Y\205\250\307\320U\203\207\3251\206r\326!\203l\327!\202p\330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\207\210\326!\203\223\335\336\"\262)\242\">\205\250\315\337\311\340\"P$0\207\266\341\207" [V0 V1 V2 V3 tramp-verbose tramp-inhibit-progress-reporter cancel-timer 0 "%s...%s" format #1# #2# 3 apply message #3# 1 2 #4# #5# 4 #6# processp process-buffer tramp-get-connection-buffer dont-create #7# append buffer-string process-get vector tramp-debug-message #8# nil cl-struct-tramp-file-name-tags] 10] #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] #[257 "\302\303\300\242\"@\304\305\306#)\266\203\205\211\207" [V0 inhibit-changing-match-data format #9# nil t string-match] 8 "\n\n(fn X)"] #[514 "\302\300\242\303\304\305#)\266\203\203\306\3078\3078\"\207@@\231\207" [V0 inhibit-changing-match-data #10# nil t string-match time-less-p 3] 9 "\n\n(fn X Y)"] #[257 "\211@G\300U?\205,\301\302\303A@!\"\203\211@\304P\240\207\301\305\303A@!\"\205,\211@\306P\240\207" [0 char-equal 100 string-to-char #11# 120 #12#] 5 "\n\n(fn X)"] #[257 "\211@G\305U?\205\322\306\303!\205$\3071\"\310\311@\312\300\242!\"\313\"0\202$\210\314\315\301\242\314\316\317#)\266\203\203\214\320\321\3228\262\206CA@\211A@\262\206M\323\3248\262\206W\325\3268\262\206a\327\3308\262\206o\3248\331\332\333\326\f8!\334\335!\"\203\202\336\202\203\337\326 8\"&c\210`\340\311@\312\300\242!\"\302\205\236\312\300\242!\"c\210\341`\342\316$\266\315\301\242\314\316\317#)\266\203\203\314\211\211@\262;\203\314\343\211@\262\261\210\210\344c\210\345 \207" [V0 V1 V2 V3 inhibit-changing-match-data 0 tramp-smb-get-stat-capability (error) file-attributes expand-file-name file-name-directory string nil #13# t string-match format #14# 8 1 2 #15# 3 #16# 7 format-time-string time-less-p time-since days-to-time 183 #17# #18# file-relative-name put-text-property dired-filename #19# #20# beginning-of-line] 14 "\n\n(fn X)"] "done"] 28 (#$ . 43901)]) #@68 Like `make-directory' for Tramp files. (fn DIR &optional PARENTS) (defalias 'tramp-smb-handle-make-directory #[513 "\302\303!!\262\304!\204\303\"\262\305!\211\242 >\204$\306\307\310D\"\210\211A@\242 >\2045\306\307\310D\"\210\3118\242 >\204F\306\307\310D\"\210\3128\242 >\204X\306\307\310D\"\210\3138\242 >\204j\306\307\310D\"\210\3148\242 >\204|\306\307\310D\"\210\3158\242 >\204\220\306\307\310 D\"\210\3168\204\250\317\n!\203\250\320\321\f#\210\322\n! \203\304\323 !\203\304\324!\204\304\325 \"\210\324!\203\317\326 !\210\324 !?\205\337\320 \327\330$\207" [default-directory cl-struct-tramp-file-name-tags directory-file-name expand-file-name file-name-absolute-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p tramp-error file-already-exists file-name-directory tramp-smb-get-share file-directory-p make-directory make-directory-internal file-error "Couldn't make directory %s"] 16 (#$ . 50959)]) #@65 Like `make-directory-internal' for Tramp files. (fn DIRECTORY) (defalias 'tramp-smb-handle-make-directory-internal #[257 "\302\303!!\262\304!\204\303\"\262\305!\211\242 >\204$\306\307\310D\"\210\211A@\242 >\2045\306\307\310D\"\210\3118\242 >\204F\306\307\310D\"\210\3128\242 >\204X\306\307\310D\"\210\3138\242 >\204j\306\307\310D\"\210\3148\242 >\204|\306\307\310D\"\210\3158\242 >\204\220\306\307\310 D\"\210\3168\317!\320\321 !!\203\300\322 \323 !\203\264\324\325\326 #\202\270\324\327\"\"\210\330 \"\210\320\n!?\205\320\331 \332\333 $\207" [default-directory cl-struct-tramp-file-name-tags directory-file-name expand-file-name file-name-absolute-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-smb-get-localname file-directory-p file-name-directory tramp-smb-send-command tramp-smb-get-cifs-capabilities format "posix_mkdir \"%s\" %o" default-file-modes "mkdir \"%s\"" tramp-flush-file-properties tramp-error file-error "Couldn't make directory %s"] 16 (#$ . 51978)]) #@273 Like `make-symbolic-link' for Tramp files. If TARGET is a non-Tramp file, it is used verbatim as the target of the symlink. If TARGET is a Tramp file, only the localname component is used as the target of the symlink. (fn TARGET LINKNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-smb-handle-make-symbolic-link #[770 "\303\304!!\204\305\306E\"\207\307!\211\242>\204!\310\311\312D\"\210\211A@\242>\2042\310\311\312D\"\210\3138\242>\204C\310\311\312D\"\210\3148\242>\204U\310\311\312D\"\210\3158\242>\204g\310\311\312D\"\210\3168\242>\204y\310\311\312D\"\210\3178\242>\204\215\310\311\312 D\"\210\3208\321\303 !\203\255\322\307 !\"\203\255\323\304\f!!\262 )\303 !\203\352\306 \324\211?\205\277\n\211?\205\310\n\325\326\327!\")\266\202\203\331\202\341\330!\326\327!Q)\266\202  #\207\331\n!\203\203\247\203\332\333\334\"!\204\335\336#\210\202\337\n!\210\340!\204\"\335\341\342#\210\343\"\210\344\333\345\346\211?\2056\n\327!\211\211?\205B\n\325\326\327!\")\266\202\203`\211G\313U\203Z\347\202^\211\313\346O\262\330!P)\266\203\350 !#\"?\205|\335\341\351\352\f!$\207" [cl-struct-tramp-file-name-tags non-essential file-name-handler-alist tramp-tramp-file-p expand-file-name tramp-run-real-handler make-symbolic-link tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 t tramp-file-name-equal-p tramp-file-local-name top string-prefix-p "/:" file-local-name file-remote-p file-exists-p yes-or-no-p format "File %s already exists; make it a link anyway? " tramp-error file-already-exists delete-file tramp-smb-get-cifs-capabilities file-error "make-symbolic-link not supported" tramp-flush-file-properties tramp-smb-send-command "symlink \"%s\" \"%s\"" nil "/" tramp-smb-get-localname "error with make-symbolic-link, see buffer `%s' for details" tramp-get-connection-buffer] 24 (#$ . 53053)]) #@100 Like `process-file' for Tramp files. (fn PROGRAM &optional INFILE DESTINATION DISPLAY &rest ARGS) (defalias 'tramp-smb-handle-process-file #[1153 "\247\203\306U\203\307\310!\210\311!\211\242 >\204 \312\313\314D\"\210\211A@\242 >\2041\312\313\314D\"\210\3158\242 >\204B\312\313\314D\"\210\3168\242 >\204T\312\313\314D\"\210\3178\242 >\204f\312\313\314D\"\210\3208\242 >\204x\312\313\314D\"\210\3218\242 >\204\214\312\313\314 D\"\210\3228\323 !\211\306\324\211\211\211\211\203\325\325!\262\326\"\203\267\327!\262\202\314\330!\262\331\"\262\332\333#\210\334\335 #\262\336!\203\343\262\202\317;\203\362\337!\262\202\317:\203\307\336@!\203@\262\202\"@;\203\337@!\262\202\"@\203\"p\262\315\340\341C\3421\302\nX\205\274\316X\203b \204b\343\344\306U\203H\345\202]\346U\203R\345\202]\315U\203\\\347\202]\350P#\210\n\317Y\205\274\306\346U\203\234\3511\233r\352!\203\201\353!\202\205\354\355\"q\210\356P\262\357\360 C\"\211\262)0\210\202\234\210\352!\203\250\361\362\"\262)\242 >\205\274\343\363\334\364\"P$0\266\202\317\266\202\317\203\317p\262B\365\366\367#\266\202\262\203\355\334\370\371!#\202\361\334\372\"\262\373!\203\nT\262\334\374 #\262\202\363\375\376 #\210\375\377\206\201@\f!#\210\201A1\251\201B1\237r\354!q\210dd}\210\201C!\210\201D!\203\\\201E\334\201F\201G!#\"\210\201E\"\210dd}\210\201H!\201E\201I\"\210\201J!\203\222\201K\201L!\210\201M!\262\202x\210ed|\210~)00\210\202\2550\210\201N\262\202\255\210\346\262\203\304\203\304\201O\333\"\203\304\201P \210\201Q\376\"\210\201Q\377\"\210\203\336\201R!\210\204\357\201S\201T\377\324#!\210 \204\373\201U\345\"\210\211\201N=\203\201V \207\207" [default-directory cl-struct-tramp-file-name-tags tramp-verbose tramp-inhibit-progress-reporter tramp-temp-buffer-name process-file-side-effects 0 error "Implementation does not handle immediate return" tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-nondirectory nil expand-file-name tramp-equal-remote tramp-file-local-name tramp-make-tramp-temp-file tramp-make-tramp-file-name copy-file t format "//%s%s" bufferp get-buffer-create "%s" "STDERR not supported" (error) apply message "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector 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) (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-live-p sleep-for 0.1 process-exit-status -1 get-buffer-window redisplay tramp-flush-connection-property delete-file kill-buffer tramp-get-connection-property tramp-flush-directory-properties keyboard-quit] 31 (#$ . 55001)]) #@91 Like `rename-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-smb-handle-rename-file #[770 "CC\306\242!\240\210\211\306\242!\240\210\307\310\242!\203\242\202!\242!\211\242>\2040\311\312\313D\"\210\211A@\242>\204A\311\312\313D\"\210\3148\242>\204R\311\312\313D\"\210\3158\242>\204d\311\312\313D\"\210\3168\242>\204v\311\312\313D\"\210\3178\242>\204\210\311\312\313D\"\210\3208\242>\204\234\311\312\313 D\"\210\3218\322\n\242!\204\305\n\242\323\324N\203\275\325 #\266\202\305\325 \326$\266\n\204\333\322 \242!\203\333\325\327 \242#\210\330 \242!\203\365\331 \242!\204\365\325\332\333\f\242$\210\n\204\375 \203\205\322 \242!\204c\334\n\242\n\242\"\203c\335\307 \242!!\335\307 \242!!\230\203c\307\n\242!\211\242>\2045\311\312\313D\"\210\211A@\242>\204F\311\312\313D\"\210\3148\242>\204W\311\312\313D\"\210\3158\242>\204i\311\312\313D\"\210\3168\242>\204{\311\312\313D\"\210\3178\242>\204\215\311\312\313D\"\210\3208\242>\204\241\311\312\313 D\"\210\3218\307\242!\211\242>\204\270\311\312\313D\"\210\211A@\242>\204\311\311\312\313D\"\210\3148\242>\204\332\311\312\313D\"\210\3158\242>\204\354\311\312\313D\"\210\3168\242>\204\376\311\312\313D\"\210\3178\242>\204\311\312\313D\"\210\3208\242>\204$\311\312\313 D\"\210\3218\336 \"\210\336\"\210\335!\204F\325\332\337\242$\210\340\341\342\343!\343 !#\"?\205b\325\332\344\242$\207\345\n\242\n\242 \346\347%\210\330\n\242!\203\350\n\242\351\"\207\352\n\242!\207\353\354\341\355\242\242#C\3561/\fX\205)\315X\203\315 \204\315\357\360\353U\203\263\361\202\310\362U\203\275\361\202\310\314U\203\307\363\202\310\364P#\210\f\316Y\205)\353\362U\203\3651r\366!\203\354\367!\202\360\370\371\"q\210\372P\262\373\374 C\"\211\262)0\210\202\210\366!\203\375\376\"\262)\242>\205)\357\377\341\201@\"P$0\266\2021\266\201AC ?\205S\353\f\315^X\205S\201B\341\355 \242 \242#\201C\211#\211\205c\201D\315\201E\201F$\262\201G\201H   &\216 \206}\211\322 \242!\204\350\334\f\242\f\242\"\203\350\335\307 \242!!\335\307 \242!!\230\203\350\307\f\242!\211\242>\204\266\311\312\313D\"\210\211A@\242>\204\307\311\312\313D\"\210\3148\242>\204\330\311\312\313D\"\210\3158\242>\204\352\311\312\313D\"\210\3168\242>\204\374\311\312\313D\"\210\3178\242>\204\311\312\313D\"\210\3208\242>\204\"\311\312\313 D\"\210\3218\307\242!\211\242>\2049\311\312\313D\"\210\211A@\242>\204J\311\312\313D\"\210\3148\242>\204[\311\312\313D\"\210\3158\242>\204m\311\312\313D\"\210\3168\242>\204\311\312\313D\"\210\3178\242>\204\221\311\312\313D\"\210\3208\242>\204\245\311\312\313 D\"\210\3218\336 \"\210\336\"\210\335!\204\307\325\332\337\242$\210\340\341\342\343!\343 !#\"?\205\343\325\332\344\242$\266\220\202 \345\f\242\f\242\346\347%\210\330\f\242!\203\350\f\242\351\"\202 \352\f\242!)\201I\240\210)\207" [cl-struct-tramp-file-name-tags tramp-file-missing noninteractive inhibit-message tramp-verbose tramp-inhibit-progress-reporter expand-file-name tramp-dissect-file-name tramp-tramp-file-p signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p file-missing error-conditions tramp-error "No such file or directory: %s" file-already-exists file-directory-p directory-name-p file-error "File is a directory %s" tramp-equal-remote tramp-smb-get-share tramp-flush-file-properties "Target `%s' must contain a share name" tramp-smb-send-command format "rename \"%s\" \"%s\"" tramp-smb-get-localname "Cannot rename `%s'" copy-file keep-time preserve-uid-gid delete-directory recursive delete-file 0 "%s..." #1="Renaming %s to %s" #2=(error) apply message #3="" 1 #4="Warning: " #5="Tramp: " #6=(error) processp process-buffer tramp-get-connection-buffer dont-create #7="\n%s" append buffer-string process-get vector tramp-debug-message #8="(%d) # " "failed" make-progress-reporter nil run-at-time 0.1 tramp-progress-reporter-update make-closure #[0 "\304\203\306\304!\210\302\307\310\311\312\300\242\301\242#\303\242D\3131\255 X\205\253\314X\203P\"\204P\315\316\307U\2036\317\202K\320U\203@\317\202K\321U\203J\322\202K\323P#\210 \324Y\205\253\307\320U\203\212\3251\211r\326!\203o\327!\202s\330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\212\210\326!\203\226\335\336\"\262)\242#>\205\253\315\337\311\340\"P$0\207\266\341\207" [V0 V1 V2 V3 V4 tramp-verbose cancel-timer 0 "%s...%s" format #1# #2# 3 apply message #3# 1 2 #4# #5# 4 #6# processp process-buffer tramp-get-connection-buffer dont-create #7# append buffer-string process-get vector tramp-debug-message #8# nil tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags] 10] "done"] 38 (#$ . 58161)]) #@30 Set ACL data. (fn PROC VEC) (defalias 'tramp-smb-action-set-acl #[514 "\303!?\205\272\304!\204r\305!q\210\211\306\307\310 C\3111\263X\205\255\312X\203S \204S\313\314\315U\2039\316\202N\317U\203C\316\202N\320U\203M\321\202N\322P#\210\323Y\205\255\315\317U\203\215\3241\214r\325!\203r\326!\202v\305\327\"q\210\307P\262\330\310 C\"\211\262)0\210\202\215\210\325!\203\231\331\332\"\262)\242\n>\205\255\313\333\334\335\"P$0\266\202\265\266\336\337\340\")\207" [tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags process-live-p tramp-accept-process-output tramp-get-connection-buffer 10 "\n%s" buffer-string (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " throw tramp-action ok] 12 (#$ . 63141)]) #@64 Like `set-file-acl' for Tramp files. (fn FILENAME ACL-STRING) (defalias 'tramp-smb-handle-set-file-acl #[514 "\3061\225\307!\211\242>\204\310\311\312D\"\210\211A@\242>\204&\310\311\312D\"\210\3138\242>\2047\310\311\312D\"\210\3148\242>\204I\310\311\312D\"\210\3158\242>\204[\310\311\312D\"\210\3168\242>\204m\310\311\312D\"\210\3178\242>\204\201\310\311\312 D\"\210\3208\321\322#\210;\205\221\323 !\205\221\324!\325\326\327\330\f!#\331\327R\332\333\325\334\335#F\n G\336U\204\310\337\340\fD\"\262\202\317\337\341C\"\262\203\335\337\342 D\"\262\203\353\337\343 D\"\262 \203\367\337\344 D\"\262\211\203\337\345\346\347@\"D\"\262\211A\262\202\367\337\350!\351\352\353\354\355\352\353\356\257 \"\262\357\360 \"\216\361\362\363\"r\211q\210\357\364\"\216\365 \366\367p!#\210\365 \370p#\210\371\372\373!\374! % \317\347\375!\376\377\201A#\266\202C\201B1#\fX\205\314X\203\253 \204\253\371\201C\336U\203\211\201D\202\246\201EU\203\227\201D\202\246\313U\203\243\201F\202\246\201GP#\210\f\315Y\205\336\201EU\203\363\201H1\362r\201I!\203\322\201J!\202\330\374\201K\"q\210\201LP\262\337\201M C\"\211\262)0\210\202\363\210\201I!\203\201N\201O\"\262)\242>\205\371\201P\346\201Q\"P$0\266\202%\266\201R\201O#\210\201R\201S\201T#\210\201U\201V\"\210\201W\201V@$\210\201X\201Y!\204j\201Z\201[\201\\ $\210\201]\201Vw\210\201^p!\336U\205\211\201_\322$\210\363\262*\262)\266\204\266\2100\207\210\201V\207" [cl-struct-tramp-file-name-tags tramp-smb-acl-program tramp-smb-options tramp-smb-conf tramp-verbose tramp-inhibit-progress-reporter (error) tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-property "file-acl" executable-find tramp-smb-get-share tramp-compat-string-replace "\\" "/" tramp-smb-get-localname "//" "-E" "-S" "\n" "," 0 append "-U" "-N" "-W" "-p" "-s" "--option" format "%s" tramp-unquote-shell-quote-argument "&&" "echo" "tramp_exit_status" "0" "||" "1" make-closure #[0 "\301\300\302\"\210\301\300\303\"\207" [V0 tramp-flush-connection-property "process-name" "process-buffer"] 3] generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 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 process-command " " mapconcat tramp-smb-actions-set-acl identity (error) message "" 1 "Warning: " "Tramp: " (error) processp process-buffer dont-create "\n%s" buffer-string process-get vector tramp-debug-message "(%d) # " process-put adjust-window-size-function ignore set-process-query-on-exit-flag nil tramp-process-actions tramp-search-regexp "tramp_exit_status [[:digit:]]+" tramp-error file-error "Couldn't find exit status of `%s'" "^ " read tramp-set-file-property] 26 (#$ . 64035)]) #@75 Like `set-file-modes' for Tramp files. (fn FILENAME MODE &optional FLAG) (defalias 'tramp-smb-handle-set-file-modes #[770 "\301!\211\242>\204\302\303\304D\"\210\211A@\242>\204\"\302\303\304D\"\210\3058\242>\2043\302\303\304D\"\210\3068\242>\204E\302\303\304D\"\210\3078\242>\204W\302\303\304D\"\210\3108\242>\204i\302\303\304D\"\210\3118\242>\204}\302\303\304 D\"\210\3128\313=\205\214\314 !?\205\266\315!\205\266\316\"\210\317\320\321\322\f!#\"?\205\266\323\324\325$\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 nofollow file-symlink-p tramp-smb-get-cifs-capabilities tramp-flush-file-properties tramp-smb-send-command format "chmod \"%s\" %o" tramp-smb-get-localname tramp-error file-error "Error while changing file's mode %s"] 17 (#$ . 67022)]) #@81 Like `start-file-process' for Tramp files. (fn NAME BUFFER PROGRAM &rest ARGS) (defalias 'tramp-smb-handle-start-file-process #[899 "\306!\211\242 >\204\307\310\311D\"\210\211A@\242 >\204\"\307\310\311D\"\210\3128\242 >\2043\307\310\311D\"\210\3138\242 >\204E\307\310\311D\"\210\3148\242 >\204W\307\310\311D\"\210\3158\242 >\204i\307\310\311D\"\210\3168\242 >\204}\307\310\311 D\"\210\3178\n\203\215\320 !\202\220\321\n!\n\nB\322\323\324#\266\202\325!\205\246\326!\327\330\331#\216\212\214\332!\203\307\211T\262\333\334#\262\202\262\335 \336#\210\335 \337#\210r\340 !q\210\341dd}\210\342 !\210\343 !\203\375\344 \333\345\f\346\f!#\"\210\f\316\347C\3501\236\fX\205\230\313X\203> \204>\351\352\327U\203$\353\2029\354U\203.\353\2029\312U\2038\355\2029\356P#\210\f\314Y\205\230\327\354U\203x\3571wr\360!\203]\361!\202a\340\362\"q\210\363P\262\364\365 C\"\211\262)0\210\202x\210\360!\203\204\366\367\"\262)\242 >\205\230\351\370\333\371\"P$0\266\202\240\266\372 \"\210*\373 !+\207" [default-directory cl-struct-tramp-file-name-tags tramp-temp-buffer-name buffer-undo-list tramp-verbose tramp-inhibit-progress-reporter tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 get-buffer-create generate-new-buffer " " mapconcat identity buffer-live-p buffer-modified-p 0 make-closure #[0 "r\304\300!q\210\n\305 \306\307\310#)\266\203\203%\311\312\300!\306\"\210\313p!\210\202)\314\301!\210)\315\300\316\"\210\315\300\317\"\207" [V0 V1 tramp-temp-buffer-name inhibit-changing-match-data tramp-get-connection-buffer buffer-name nil t string-match set-process-buffer tramp-get-connection-process kill-buffer set-buffer-modified-p tramp-flush-connection-property "process-name" "process-buffer"] 7] 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 "(%s); exit" (error) apply message "" 1 "Warning: " "Tramp: " (error) processp process-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message "(%d) # " tramp-send-string tramp-get-connection-process] 27 (#$ . 67911)]) #@192 Like `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. (fn FILENAME) (defalias 'tramp-smb-handle-substitute-in-file-name #[257 "\211\302\211?\205\303\304\305!\")\266\202\203\207\306!\211\242 >\204'\307\310\311D\"\210\211A@\242 >\2048\307\310\311D\"\210\3128\242 >\204I\307\310\311D\"\210\3138\242 >\204[\307\310\311D\"\210\3148\242 >\204m\307\310\311D\"\210\3158\242 >\204\307\310\311D\"\210\3168\242 >\204\223\307\310\311 D\"\210\3178;\203\261\320\321\"\203\261\322 !\323\324\302\211$P\262 \266\3251\276\326\327C\"0\207\210\207" [file-name-handler-alist cl-struct-tramp-file-name-tags nil string-prefix-p "/:" file-local-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 string-match ".+?/\\(/\\|~\\)" file-remote-p replace-match "\\1" (error) tramp-run-real-handler substitute-in-file-name] 15 (#$ . 70229)]) #@105 Like `write-region' for Tramp files. (fn START END FILENAME &optional APPEND VISIT LOCKNAME MUSTBENEW) (defalias 'tramp-smb-handle-write-region #[1795 "C\211\306\242!\240\210\307\242!\211\242>\204\310\311\312D\"\210\211A@\242>\204,\310\311\312D\"\210\3138\242>\204=\310\311\312D\"\210\3148\242>\204O\310\311\312D\"\210\3158\242>\204a\310\311\312D\"\210\3168\242>\204s\310\311\312D\"\210\3178\242>\204\207\310\311\312 D\"\210\3208 \203\263\321 \242!\203\263 \322=\204\252\323\324\325 \242\"!\204\263\326\327 \242#\210p \242\330\331\306 \332\333\334N@\335\"\"\336\335\"#\266\202\203\340\321 \242!\203\340\337 \242\340#\210\341\342\343\257\"\210\n\204\370 \203\344\345\"\216\346\n\324\347\350!#\"\204\326\n\351\352\242$\210)\2026 \314\353\324\354\242#C\3551\302\fX\205\274\314X\203` \204`\356\357\360U\203F\361\202[\362U\203P\361\202[\313U\203Z\363\202[\364P#\210\f\315Y\205\274\360\362U\203\232\3651\231r\366!\203\367!\202\203\370\371\"q\210\372P\262\373\374 C\"\211\262)0\210\202\232\210\366!\203\246\375\376\"\262)\242>\205\274\356\377\324\201@\"P$0\266\202\304\266\201AC ?\205\342\314\f\314^X\205\342\201B\324\354\242#\330\211#\211\205\362\201C\314\201D\201E$\262\344\201F&\216 \206\n\211\344\201G\"\216\346\f\324\347\350!#\"\204,\326\f\351\352\242$\210*\201H\240\210)\266\201I\n\"\210p\232\204O\326\n\351\201Jp%\210 \335=\204\\ ;\203t\201K\201L\f\242!\3168\262\206r\201M !\210\n\2042 \335=\204\212 \203\212 ;\2032 \360\201N \242C\35510\fX\205*\314X\203\316 \204\316\356\357\360U\203\264\361\202\311\362U\203\276\361\202\311\313U\203\310\363\202\311\364P#\210\f\315Y\205*\360\362U\203\3651r\366!\203\355\367!\202\361\370\371\"q\210\372P\262\373\374 C\"\211\262)0\210\202\210\366!\203\375\376\"\262)\242>\205*\356\377\324\201@\"P$0\266\2022\266\201O\201P!\207" [cl-struct-tramp-file-name-tags tramp-temp-name-prefix noninteractive inhibit-message tramp-verbose tramp-inhibit-progress-reporter expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p excl y-or-n-p format "File %s exists; overwrite anyway? " tramp-error file-already-exists nil make-temp-file eval temporary-file-directory standard-value t file-name-extension copy-file ok tramp-run-real-handler write-region no-message make-closure #[0 "\301\300!\207" [V0 delete-file] 2] tramp-smb-send-command "put %s \"%s\"" tramp-smb-get-localname file-error "Cannot write `%s'" "%s..." #1="Moving tmp file %s to %s" #2=(error) apply message 0 #3="" 1 #4="Warning: " #5="Tramp: " #6=(error) processp process-buffer tramp-get-connection-buffer dont-create #7="\n%s" append buffer-string process-get vector tramp-debug-message #8="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[0 "\304\203\306\304!\210\301\307\310\311\312\302\300\242#\303\242D\3131\254 X\205\252\307X\203O\"\204O\314\315\316U\2035\317\202J\320U\203?\317\202J\321U\203I\322\202J\323P#\210 \324Y\205\252\316\320U\203\211\3251\210r\326!\203n\327!\202r\330\331\"q\210\332P\262\333\334 C\"\211\262)0\210\202\211\210\326!\203\225\335\336\"\262)\242#>\205\252\314\337\311\340\"P$0\207\266\341\207" [V0 V1 V2 V3 V4 tramp-verbose cancel-timer 3 "%s...%s" format #1# #2# apply message 0 #3# 1 2 #4# #5# 4 #6# processp process-buffer tramp-get-connection-buffer dont-create #7# append buffer-string process-get vector tramp-debug-message #8# nil tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags] 10] #[0 "\301\300!\207" [V0 delete-file] 2] "done" tramp-flush-file-properties "Buffer has changed from `%s' to `%s'" set-visited-file-modtime file-attributes current-time "Wrote %s" run-hooks tramp-handle-write-region-hook] 28 (#$ . 71254)]) #@47 Return the share name of LOCALNAME. (fn VEC) (defalias 'tramp-smb-get-share #[257 "\300 \301\302\"\216\303!\304\305\"\205\306\307\"\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] tramp-file-name-unquote-localname string-match "^/?\\([^/]+\\)/" match-string 1] 6 (#$ . 75232)]) #@101 Return the file name of LOCALNAME. If VEC has no cifs capabilities, exchange "/" by "\\". (fn VEC) (defalias 'tramp-smb-get-localname #[257 "\301 \302\303\"\216\304!\305\306\"\203)\307!\204\"\310\311\312\313\"\314#\2028\312\313\"\2028\305\315\"\2037\312\313\"\2028\314\262\305\316\"\203J\317\320\321\211\313%\262\322\321\323\305#)\266\203\203f\324\325\326\327\"$\210\211\262)\207" [inhibit-changing-match-data match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] tramp-file-name-unquote-localname string-match "^/?[^/]+\\(/.*\\)" tramp-smb-get-cifs-capabilities mapconcat #[257 "\211\300=\203\301\207\302!\207" [47 "\\" char-to-string] 3 "\n\n(fn X)"] match-string 1 "" "^/?\\([^/]+\\)$" "\\(\\$\\$\\)\\(/\\|$\\)" replace-match "$" nil "\\. \\|\\.$\\| $" t tramp-error file-error "Invalid file name %s" tramp-make-tramp-file-name] 10 (#$ . 75570)]) #@180 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). (fn DIRECTORY) (defalias 'tramp-smb-get-file-entries #[257 "\303\304!!\211\242>\204\305\306\307D\"\210\211A@\242>\204$\305\306\307D\"\210\3108\242>\2045\305\306\307D\"\210\3118\242>\204G\305\306\307D\"\210\3128\242>\204Y\305\306\307D\"\210\3138\242>\204k\305\306\307D\"\210\3148\242>\204\305\306\307 D\"\210\3158\206\210\316\262\317!\203*\320\321 $\211 =\203)\322 !\323\n\324\325#\325\211\204\267\203\267\262\202\203\312\326 \327\330\331!\"\"\210\202\317\332 !\210r\333 !q\210eb\210\334\n\325\335#\203\360\336 \337\340\341\342!%\210\202m\204\343!\262\325y\210\211\203\360\211B\262\202\360)\204\344 \324#\210\345B\262\346\325\"\266\204\262\347 \321$\210\207\322!\323 \324\325#\325\211\204D\203D\262\202\241\203W\326\f\327\330\331!\"\"\210\202\\\332\f!\210r\333\f!q\210eb\210\334\n\325\335#\203}\336\f\337\340\341\342!%\210\202\225m\204\225\343!\262\325y\210\211\203}\211B\262\202})\204\241\344\f\324#\210\345B\262\346\325\"\207" [cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-smb-errors tramp-dissect-file-name file-name-as-directory signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 "/" file-name-absolute-p tramp-get-file-property "file-entries" 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 tramp-get-connection-buffer re-search-forward t tramp-error file-error "%s `%s'" match-string 0 tramp-smb-read-file-entry tramp-set-connection-property ("" "drwxrwxrwx" 0 (0 0)) delq tramp-set-file-property] 20 (#$ . 76490)]) #@172 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). (fn SHARE) (defalias 'tramp-smb-read-file-entry #[257 "`\302 {\303\211\211\211\211\211\211\211\211\211 \204+\304\305\f\"\203\216\306\307\f\"\262\n\310\262 \311\262\202\216\3122\215\304\313\f\"\203J\314\306\307 \"!\262\n\311\315O\262 \202O\316\312\303\"\210\304\317\f\"\203|\314\306\307 \"!\262\314\306\320 \"!\262\314\306\321 \"!\262\n\311\322O\262 \202\201\316\312\303\"\210\304\313\f\"\203\234\314\306\307 \"!\262\n\311\323O\262 \202\241\316\312\303\"\210\304\324\f\"\203\272\306\307\f\"\262\n\311\325O\262 \202\277\316\312\303\"\210\324 \303\326\304#)\266\203\203\332\n\311\315O\262 \202\337\316\312\303\"\210\304\313\f\"\203\327\306\307 \"GT][\314\306\307\"!\262 \304\330 \303O\"\203 \211\311\225\\\262 \311O\262\f\210\202\316\312\303\"\210\304\331\f\"\203p\306\307\f\"\206,\332\262 \333\334\335 \303\326\304#)\266\203\203E\336\202F\337\340\341\342\343\344\303\326\304#)\266\203\203_\337\202`\345\346Q##\262 \n\311\347O\262 \202u\316\312\303\"\210\304\350\f\"\203\210\306\307\f\"\211\262 \202\214\316\312\303\"0\210 \205\330\205\330\205\330\203\315\203\315\203\315\203\315\203\315\203\315\351 \352\f\227\353\354!\"A&\202\316 \262   F\207" [inhibit-changing-match-data tramp-time-dont-know point-at-eol nil string-match "^Disk|\\([^|]+\\)|" match-string 1 "dr-xr-xr-x" 0 --cl-block-nil-- "\\([[:digit:]]+\\)$" string-to-number -5 throw "\\([[:digit:]]+\\):\\([[:digit:]]+\\):\\([[:digit:]]+\\)$" 2 3 -9 -3 "\\(\\w+\\)$" -4 t 10 "\\([ACDEHNORrsSTV]+\\)" "\\([ACDEHNORrsSTV]+\\)?$" #1="" format "%s%s" "D" "d" "-" mapconcat #[257 "\300\207" [#1#] 2 "\n\n(fn X)"] " " "r" "R" "w" "x" -6 "^\\s-+\\(\\S-\\(.*\\S-\\)?\\)\\s-*$" encode-time assoc default-toplevel-value parse-time-months] 26 (#$ . 78352)]) #@65 Check whether the SMB server supports POSIX commands. (fn VEC) (defalias 'tramp-smb-get-cifs-capabilities #[257 "\301\302!!\205W\303\304\305#\205W\303\306!\307#\211=\203T\310 \311\312\"\216\313\304\"\205Gr\314!q\210eb\210\315\316\317\305#\205F\320\321`\322 {\317\323#\235))\262\262\324\306!\307#\210\211\262\207" [tramp-cache-undefined process-live-p tramp-get-connection-process tramp-get-connection-property "posix" t tramp-get-process "cifs-capabilities" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] tramp-smb-send-command tramp-get-connection-buffer re-search-forward "Server supports CIFS capabilities" nil "pathnames" split-string point-at-eol omit tramp-set-connection-property] 8 (#$ . 80343)]) #@69 Check whether the SMB server supports the `stat' command. (fn VEC) (defalias 'tramp-smb-get-stat-capability #[257 "\301!\205,\302\303!!\205,\304\305!\306#\211=\203)\307\310\"\262\311\305!\306#\210\211\262\207" [tramp-cache-undefined tramp-smb-get-share process-live-p tramp-get-connection-process tramp-get-connection-property tramp-get-process "stat-capability" tramp-smb-send-command "stat \"/\"" tramp-set-connection-property] 6 (#$ . 81108)]) #@118 Send the COMMAND to connection VEC. Returns nil if there has been an error message from smbclient. (fn VEC COMMAND) (defalias 'tramp-smb-send-command #[514 "\303!\210\304\305C\3061\243X\205\235\307X\203C \204C\310\311\312U\203)\313\202>\314U\2033\313\202>\315U\203=\316\202>\317P#\210\320Y\205\235\312\314U\203}\3211|r\322!\203b\323!\202f\324\325\"q\210\326P\262\327\330 C\"\211\262)0\210\202}\210\322!\203\211\331\332\"\262)\242\n>\205\235\310\333\334\335\"P$0\266\202\245\266\336\"\210\337!\207" [tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags tramp-smb-maybe-open-connection 6 "%s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-string tramp-smb-wait-for-output] 12 (#$ . 81576)]) #@339 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. (fn VEC &optional ARGUMENT) (defalias 'tramp-smb-maybe-open-connection #[513 "\306!\204 \307\310\211\"\210\311!\312!\313!\204\264\314!\204\264\315\316\317N@\320\"\321P\n\204\224\322!\204=\323\324\325 %\210\326!\327\330\3311\341\fX\205\333\332X\203\200 \204\200\333\334\335U\203f\336\202{\337U\203p\336\202{\340U\203z\341\202{\342P#\210\f\343Y\205\333\335\337U\203\272\3441\271r\314!\203\237\345!\202\243\312\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202\272\210\314!\203\306\352\353\"\262)\242@>\205\333\333\354\355\356\"P$0\266\202\343\266\327\347\nC\3311\204\fX\205~\332X\203# \204#\333\334\335U\203 \336\202\337U\203\336\202\340U\203\341\202\342P#\210\f\343Y\205~\335\337U\203]\3441\\r\314!\203B\345!\202F\312\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202]\210\314!\203i\352\353\"\262)\242@>\205~\333\354\355\356\"P$0\266\202\206\266\357\360\n\"\203\224\361\336\330\211\n$\n\362\363\n#\230\204\252\364\336\"\210\365!\210\366\363\n#\210)\266rq\210eb\210\367\370\371\362\372\335#!\"\203\336\373!\203\336\374A\330\320#\203\336\375!\210\330\262)\373!\205\360\206\360\362\376\336#\230?\205\317\377 \201N\201O\"\216\203 rq\210\201P \210)\203\314!\203\375!\210\242@>\2041\201Q\201R\201SD\"\210\3408\242@>\204L\201Q\201R\201S D\"\210\3438\242@>\204g\201Q\201R\201S\nD\"\210\3328\242@>\204\202\201Q\201R\201S D\"\210\201T 8B\330\n\203\233\201UPC\262\202\273 \203\260\201U\201V\fRC\262\202\273\201W\201XE\262G\335U\204\320\350\201YD\"\262\202\331\350\201ZC\"\262\203\350\350\201[D\"\262\203\366\350\201\\D\"\262C\203\350\201]CD\"\262\211\203\211@\350\201^D\"\262A\266\202\202\210\n\203,\350\fC\"\262D\2046E\203k\330FGH\315\316\317N@\320\"\333\201_\201`!\312!\203]I\202^%)\f\327\201a\201b!\201c\201d\201e#\266\202C\3311\fX\205\332X\203\265 \204\265\333\334\335U\203\233\336\202\260\337U\203\245\336\202\260\340U\203\257\341\202\260\342P#\210\f\343Y\205\335\337U\203\357\3441\356r\314!\203\324\345!\202\330\312\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202\357\210\314!\203\373\352\353\"\262)\242@>\205\333\354\355\356\"P$0\266\202\266\201f\353#\210\201f\201g\201h#\210\201i\330\"\210\201j !\210\201k1y\320E\201l\330\204U\203ZJ\202\\K$\210\366\376 #\210\366\201m\337#\210\366\201n\320#)0\202cr\312!q\210eb\210\201o\201L!\203XL\203X\201pM\330\320#\203X\330L \332\201q\330\3311B\fX\205<\332X\203\341 \204\341\333\334\335U\203\307\336\202\334\337U\203\321\336\202\334\340U\203\333\341\202\334\342P#\210\f\343Y\205<\335\337U\203\3441r\314!\203\345!\202\312\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202\210\314!\203'\352\353\"\262)\242@>\205<\333\354\355\356\"P$0\266\202D\266\201r\320\"\210\201s\")\202`\201Q@A\")\262*\262\266\206\202\314 \332\201t\355\201u\nG\335U\204\206\n\201vP\202\207\336\n\206\217\336$C\3311,\fX\205&\332X\203\313 \204\313\333\334\335U\203\261\336\202\306\337U\203\273\336\202\306\340U\203\305\341\202\306\342P#\210\f\343Y\205&\335\337U\203\3441r\314!\203\352\345!\202\356\312\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202\210\314!\203\352\353\"\262)\242@>\205&\333\354\355\356\"P$0\266\202.\266\201wC ?\205d\332\f\332^X\205d\201x\355\201u G\335U\204W \201vP\202X\336 \206`\336$\330\211#\211\205t\201y\332\201z\201{$\262\201N\201|  &\216 \206\220\211\330FGH\315\316\317N@\320\"\333\201_\201`!\312!\203\270I\202\271%)\327\201a\201b!\201c\201d\201e#\266\202C\3311r\fX\205l\332X\203 \204\333\334\335U\203\367\336\202\f\337U\203\336\202\f\340U\203 \341\202\f\342P#\210\f\343Y\205l\335\337U\203K\3441Jr\314!\2030\345!\2024\312\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202K\210\314!\203W\352\353\"\262)\242@>\205l\333\354\355\356\"P$0\266\202t\266\201f\353#\210\201f\201g\201h#\210\201i\330\"\210\201j!\210\201}1\325\320E\201l\330\204\261\203\266J\202\270K$\210\366\376#\210\366\201m\337#\210\366\201n\320#)0\202\277r\312!q\210eb\210\201o\201L!\203\264L\203\264\201pM\330\320#\203\264\330L\332\201q\330\3311\236\fX\205\230\332X\203= \204=\333\334\335U\203#\336\2028\337U\203-\336\2028\340U\2037\341\2028\342P#\210\f\343Y\205\230\335\337U\203w\3441vr\314!\203\\\345!\202`\312\346\"q\210\347P\262\350\351 C\"\211\262)0\210\202w\210\314!\203\203\352\353\"\262)\242@>\205\230\333\354\355\356\"P$0\266\202\240\266\201r\320\"\210\201s\")\202\274\201Q@A\")\262*\262)\201~\240\210)\266\210)\262\207" [tramp-smb-program default-directory tramp-smb-version exec-path tramp-verbose tramp-inhibit-progress-reporter tramp-connectable-p throw non-essential tramp-smb-get-share tramp-get-connection-buffer get-buffer-process processp eval temporary-file-directory standard-value t " -V" executable-find tramp-error file-error "Cannot find command %s in %s" shell-command-to-string 6 nil #4=(error) 3 apply message 0 #3="" 1 2 #5="Warning: " #6="Tramp: " 4 #7=(error) process-buffer dont-create #8="\n%s" append buffer-string process-get vector tramp-debug-message format #9="(%d) # " string-match "[ \n ]+\\'" replace-match tramp-get-connection-property "smbclient-version" tramp-flush-directory-properties tramp-flush-connection-properties tramp-set-connection-property time-less-p 60 time-since "last-cmd-time" process-live-p re-search-forward delete-process "smb-share" match-data cl-struct-tramp-file-name-tags tramp-smb-errors tramp-smb-options tramp-smb-conf noninteractive inhibit-message coding-system-for-read tramp-process-connection-type process-connection-type tramp-smb-winexe-program tramp-smb-actions-with-share tramp-smb-actions-without-share auth-sources tramp-smb-wrong-passwd-regexp make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] erase-buffer signal wrong-type-argument tramp-file-name 5 "//" "/" "-g" "-L" "-U" "-N" "-W" "-p" "-s" "--option" start-process tramp-get-connection-name "%s" process-command " " mapconcat identity process-put adjust-window-size-function ignore set-process-query-on-exit-flag tramp-set-connection-local-variables (error) tramp-process-actions "chunksize" "connected" boundp search-forward-regexp "Retry connection with new password" tramp-cleanup-connection tramp-smb-maybe-open-connection "%s..." #1="Opening connection for //%s%s/%s" #2="@" "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[0 "\305\203\306\305!\210\300\307\310\311\312\302G\313U\204\302\314P\202\315\303\301\206!\315$\304\242D\3161\300#X\205\276\307X\203a$\204a\317\320\313U\203G\315\202\\\321U\203Q\315\202\\\322U\203[\323\202\\\324P#\210#\325Y\205\276\313#\321U\203\235\3261\234r\327!\203\202\330!\202\206\331\332\"q\210\333P\262\334\335 C\"\211\262)0\210\202\235\210\327!\203\251\336\337\"\262)\242%>\205\276\317\340\311\341\"P$0\207\266\342\207" [V0 V1 V2 V3 V4 V5 cancel-timer 3 "%s...%s" format #1# 0 #2# #3# #4# apply message 1 2 #5# #6# 4 #7# processp process-buffer tramp-get-connection-buffer dont-create #8# append buffer-string process-get vector tramp-debug-message #9# nil tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags] 10] (error) "done"] 26 (#$ . 82529)]) #@118 Wait for output from smbclient command. Removes smb prompt. Returns nil if an error message has appeared. (fn VEC) (defalias 'tramp-smb-wait-for-output #[257 "r\306!q\210\307p!\310\311 \312\310#\204 \313\314\"\204eb\210\202 \315\316\317 C\3201\300\nX\205\272\321X\203` \204`\322\323\314U\203F\324\202[\325U\203P\324\202[\326U\203Z\327\202[\330P#\210\n\331Y\205\272\314\325U\203\232\3321\231r\333!\203\334!\202\203\306\335\"q\210\316P\262\336\317 C\"\211\262)0\210\202\232\210\333!\203\246\337\340\"\262)\242\f>\205\272\322\341\342\343\"P$0\266\202\302\266eb\210\311 \312\310#\203\332db\210\344 \312\310#\210`d|\210eb\210\311 \312\310#)?\262)\207" [inhibit-read-only tramp-smb-prompt tramp-verbose tramp-inhibit-progress-reporter cl-struct-tramp-file-name-tags tramp-smb-errors tramp-get-connection-buffer get-buffer-process t re-search-forward nil tramp-accept-process-output 0 6 "\n%s" buffer-string (error) 3 apply message "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " re-search-backward] 12 (#$ . 90552)]) #@37 Send SIGKILL to the winexe process. (defalias 'tramp-smb-kill-winexe-function #[0 "\3001\301p!\302!\205\303\304!\305\"\2620\207\210\306\207" [(error) get-buffer-process process-live-p signal-process process-id SIGINT nil] 4 (#$ . 91718)]) #@82 Apply a remote command, if possible, using `tramp-smb-winexe-program'. (fn VEC) (defalias 'tramp-smb-call-winexe #[257 "\304!\204 \305\306\307$\210\211\242 >\204\310\311\312D\"\210\3138\203'\305\306\314#\210\315\316\317\n #\"\210\320\321\322\323\324$\210\325\326!\327\"\210\330\331\"\210\330\332\"\210\330\333\"\210\330\334\"\210\330\335\"\210\330\336\"\210\330\337\"\207" [tramp-smb-winexe-program cl-struct-tramp-file-name-tags tramp-smb-winexe-shell-command tramp-smb-winexe-shell-command-switch executable-find tramp-error file-error "Cannot find program: %s" signal wrong-type-argument tramp-file-name 5 "Port not supported for remote processes" tramp-smb-maybe-open-connection format "%s %s" add-hook kill-buffer-hook tramp-smb-kill-winexe-function nil t 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"] 7 (#$ . 91970)]) #@73 Similar to `shell-quote-argument', but uses Windows cmd syntax. (fn S) (defalias 'tramp-smb-shell-quote-argument #[257 "\301\302!)\207" [system-type ms-dos tramp-unquote-shell-quote-argument] 3 (#$ . 93067)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-smb force] 3] provide tramp-smb] 3)