%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@68 When this method name is used, forward all calls to rclone mounts.
(defconst tramp-rclone-method "rclone" (#$ . 425))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314\315\316\"\207" [custom-declare-variable tramp-rclone-program funcall function #[0 "\300\207" [#1="rclone"] 1 #1#] "Name of the rclone program." :group tramp :version "27.1" :type string add-hook tramp--startup-hook #[0 "\301\302\303B\"\210\301\304\305B\"\210\306\307\"\207" [tramp-rclone-method add-to-list tramp-methods ((tramp-mount-args nil) (tramp-copyto-args nil) (tramp-moveto-args nil) (tramp-about-args ("--full"))) tramp-default-host-alist (nil #2="") tramp-set-completion-function ((tramp-rclone-parse-device-names #2#))] 4]] 10)
#@132 Alist of handler functions for Tramp RCLONE method.
Operations not mentioned here will be handled by the default Emacs primitives.
(defconst tramp-rclone-file-name-handler-alist '((access-file . tramp-handle-access-file) (add-name-to-file . tramp-handle-add-name-to-file) (copy-directory . tramp-handle-copy-directory) (copy-file . tramp-rclone-handle-copy-file) (delete-directory . tramp-rclone-handle-delete-directory) (delete-file . tramp-rclone-handle-delete-file) (directory-file-name . tramp-handle-directory-file-name) (directory-files . tramp-rclone-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-handle-expand-file-name) (file-accessible-directory-p . tramp-handle-file-accessible-directory-p) (file-acl . ignore) (file-attributes . tramp-rclone-handle-file-attributes) (file-directory-p . tramp-handle-file-directory-p) (file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-rclone-handle-file-executable-p) (file-exists-p . tramp-handle-file-exists-p) (file-in-directory-p . tramp-handle-file-in-directory-p) (file-local-copy . tramp-handle-file-local-copy) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-rclone-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 . ignore) (file-notify-rm-watch . ignore) (file-notify-valid-p . ignore) (file-ownership-preserved-p . ignore) (file-readable-p . tramp-rclone-handle-file-readable-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-rclone-handle-file-system-info) (file-truename . tramp-handle-file-truename) (file-writable-p . tramp-handle-file-writable-p) (find-backup-file-name . tramp-handle-find-backup-file-name) (insert-directory . tramp-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-rclone-handle-make-directory) (make-directory-internal . ignore) (make-nearby-temp-file . tramp-handle-make-nearby-temp-file) (make-process . ignore) (make-symbolic-link . tramp-handle-make-symbolic-link) (process-file . ignore) (rename-file . tramp-rclone-handle-rename-file) (set-file-acl . ignore) (set-file-modes . ignore) (set-file-selinux-context . ignore) (set-file-times . ignore) (set-visited-file-modtime . tramp-handle-set-visited-file-modtime) (shell-command . ignore) (start-file-process . ignore) (substitute-in-file-name . tramp-handle-substitute-in-file-name) (temporary-file-directory . tramp-handle-temporary-file-directory) (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-handle-write-region)) (#$ . 1166))
#@53 Check if it's a FILENAME for rclone.
(fn FILENAME)
(defalias 'tramp-rclone-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-rclone-method tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name] 6 (#$ . 4632)])
(put 'tramp-rclone-file-name-p 'byte-optimizer 'byte-compile-inline-expand)
#@173 Invoke the rclone handler for 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-rclone-file-name-handler #[385 "\301\"\211\203! \302 \303\304\305\306\307!\310\"\311$\216\312A\")\262\202% \313\"\207" [tramp-rclone-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 (#$ . 5041)])
(add-hook 'tramp--startup-hook #[0 "\300\301\302\"\207" [tramp-register-foreign-file-name-handler tramp-rclone-file-name-p tramp-rclone-file-name-handler] 3])
#@68 Return a list of (nil host) tuples allowed to access.
(fn IGNORE)
(defalias 'tramp-rclone-parse-device-names #[257 "\301\302\303\304#\211\304=\203 \305\302\306\307\310\302\311#\"\"\262\312\302\303#\210\211\207" [tramp-rclone-program tramp-get-connection-property nil "rclone-device-names" undef delq mapcar #[257 "\300\301\"\205
\302\303\304\"D\207" [string-match "^\\(\\S-+\\):$" nil match-string 1] 5 "\n\n(fn LINE)"] tramp-process-lines "listremotes" tramp-set-connection-property] 10 (#$ . 5706)])
#@845 Copy or rename a remote file.
OP must be `copy' or `rename' and indicates the operation to perform.
FILENAME specifies the file to copy or rename, NEWNAME is the name of
the new file (for copy) or the new name of the file (for rename).
OK-IF-ALREADY-EXISTS means don't barf if NEWNAME exists already.
KEEP-DATE means to make sure that NEWNAME has the same timestamp
as FILENAME. PRESERVE-UID-GID, when non-nil, instructs to keep
the uid and gid if both files are on the same host.
PRESERVE-EXTENDED-ATTRIBUTES is ignored.
This function is invoked by `tramp-rclone-handle-copy-file' and
`tramp-rclone-handle-rename-file'. It is an error if OP is neither
of `copy' and `rename'. FILENAME and NEWNAME must be absolute
file names.
(fn OP FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES)
(defalias 'tramp-rclone-do-copy-or-rename-file #[1795 "C\306>\204 \307\310 \"\210\211\311\242!\240\210\312\242!\2036 \313\242\314$\210\315=\205o\f\316\242\317\"\202o\f\320\242!\320! \321=\203I \322\202J \323\n\321=\203U \324\202V \325\326\203` \242\202b \n!\211\242>\204q \327\330\331D\"\210\211A@\242>\204\202 \327\330\331D\"\210\3328\242>\204\223 \327\330\331D\"\210\3338\242>\204\245 \327\330\331D\"\210\3348\242>\204\267 \327\330\331D\"\210\3358\242>\204\311 \327\330\331D\"\210\3368\242>\204\335 \327\330\331 D\"\210\3378\340
\242!\204\336 \341 \342\242E\343\211\f\344Y\205\371\211\203\276\211\344\345\346\347! \350\216
\351 \210)r
q\210\352 +C\3531\267\fX\205\261 \203T\333X\203T\354\355\356U\203:\357\202O\360U\203D\357\202O\332U\203N\361\202O\362P#\210\f\334Y\205\261\356 \360U\203\221\3631\214r\364!\203s\365!\202w\366\367\"q\210\345P\262\370\352 C\"\211\262)0\202\220\210\202\221\210\364!\203\235\371\372\"\262)\242>\205\261\354\373\374\375\"P$0\266\205\202\373\210\343\266\205\202\373@r\376\377!q\210p\201H \210@\343\211AB\314\211C\314 D E\201I \210\201J \201K !\210+\211 \351 \201L !\210)\266\202\262\210\211\204 C\262\201M \262\203\312\360\201M \201N \211\201O N\354\201P #E!C\3531\305\fX\205\277 \203b\333X\203b\354\355\356U\203H\357\202]\360U\203R\357\202]\332U\203\\\361\202]\362P#\210\f\334Y\205\277\356 \360U\203\237\3631\232r\364!\203\201\365!\202\205\366\367\"q\210\345P\262\370\352 C\"\211\262)0\202\236\210\202\237\210\364!\203\253\371\372\"\262)\242>\205\277\354\373\374\375\"P$0\266\204\202\311\210\343\266\204\210\327\201Q \354\201P #!C\"*\266\204\334\340!\203\334\201R \343\211\211\f\344Y\205\367\211\203\274\211\344\345\346\347! \350\216
\351 \210)r
q\210\352 +C\3531\265\fX\205\257 \203R\333X\203R\354\355\356U\2038\357\202M\360U\203B\357\202M\332U\203L\361\202M\362P#\210\f\334Y\205\257\356 \360U\203\217\3631\212r\364!\203q\365!\202u\366\367\"q\210\345P\262\370\352 C\"\211\262)0\202\216\210\202\217\210\364!\203\233\371\372\"\262)\242>\205\257\354\373\374\375\"P$0\266\205\202\371\210\343\266\205\202\371@r\376\377!q\210p\201H \210@\343\211AB\314\211C\314 D E\201I \210\201J \201K !\210+\211 \351 \201L !\210)\266\202\262\210\211\204C\262\201M \262\203\310\360\201M \201N \211\201O N\354\201P #E!C\3531\303\fX\205\275 \203`\333X\203`\354\355\356U\203F\357\202[\360U\203P\357\202[\332U\203Z\361\202[\362P#\210\f\334Y\205\275\356 \360U\203\235\3631\230r\364!\203\365!\202\203\366\367\"q\210\345P\262\370\352 C\"\211\262)0\202\234\210\202\235\210\364!\203\251\371\372\"\262)\242>\205\275\354\373\374\375\"P$0\266\204\202\307\210\343\266\204\210\327\201Q \354\201P #!C\"*\266\312!\203\341\201S !\204\341\201T \201U C\343\211\f\344Y\205\374\211\203\301\211\344\345\346\347! \350\216
\351 \210)r
q\210\352 +C\3531\272\fX\205\264 \203W\333X\203W\354\355\356U\203=\357\202R\360U\203G\357\202R\332U\203Q\361\202R\362P#\210\f\334Y\205\264\356 \360U\203\224\3631\217r\364!\203v\365!\202z\366\367\"q\210\345P\262\370\352 C\"\211\262)0\202\223\210\202\224\210\364!\203\240\371\372\"\262)\242>\205\264\354\373\374\375\"P$0\266\205\202\376\210\343\266\205\202\376@r\376\377!q\210p\201H \210@\343\211AB\314\211C\314 D E\201I \210\201J \201K !\210+\211 \351 \201L !\210)\266\202\262\210\211\204\fC\262\201M \262\203\315\360\201M \201N \211\201O N\354\201P #E!C\3531\310\fX\205\302 \203e\333X\203e\354\355\356U\203K\357\202`\360U\203U\357\202`\332U\203_\361\202`\362P#\210\f\334Y\205\302\356 \360U\203\242\3631\235r\364!\203\204\365!\202\210\366\367\"q\210\345P\262\370\352 C\"\211\262)0\202\241\210\202\242\210\364!\203\256\371\372\"\262)\242>\205\302\354\373\374\375\"P$0\266\204\202\314\210\343\266\204\210\327\201Q \354\201P #!C\"*\266 \203
\f\242\320!\205\326!\211\242>\204 \327\330\331D\"\210\211A@\262F\230\262\2038\n\203\226\320!\2053\326!\211\242>\204+\327\330\331D\"\210\211A@\262F\230\262\204\226\f\242\343\211 G\201V \201W J\201X \201Y \201Z N@!\"\201[ \314\"\201\\ #)\266\204\321=\203~\201] \242\314&\210\202\210\201^ \242\314#\210\201^ #\262\202k\f\356\201_ \374\201`
\242$C\201a 1J\fX\205D \203\345\333X\203\345\354\355\356U\203\313\357\202\340\360U\203\325\357\202\340\332U\203\337\361\202\340\362P#\210\f\334Y\205D\356 \360U\203$\201b 1 r\364!\203\365!\202\n\366\367\"q\210\345P\262\370\352 C\"\211\262)0\202#\210\202$\210\364!\2030\371\372\"\262)\242>\205D\354\373\374\375\"P$0\266\204\202N\210\343\266\204\210\201c C \205\203\356\f\333^X\205\203\201d \374\201` \f\242$\343\211#\211\205\201\201e \333\201f \201g $\262\201h \356\201i \201j \372\n\n&\201k \"\344$\216\201l \n
\201m \242!\201m !$\356U\204\267\n \201T \201n
\242E\343\211\f\344Y\205\322 \211\203\227 \211\344\345\346\347! \350\216
\351 \210)r
q\210\352 +C\3531\220 \fX\205\212 \203- \333X\203- \354\355\356U\203 \357\202( \360U\203 \357\202( \332U\203' \361\202( \362P#\210\f\334Y\205\212 \356 \360U\203j \3631e r\364!\203L \365!\202P \366\367\"q\210\345P\262\370\352 C\"\211\262)0\202i \210\202j \210\364!\203v \371\372\"\262)\242>\205\212 \354\373\374\375\"P$0\266\205\202\324 \210\343\266\205\202\324 @r\376\377!q\210p\201H \210@\343\211AB\314\211C\314 D E\201I \210\201J \201K !\210+\211 \351 \201L !\210)\266\202\262\210\211\204\342 C\262\201M \262\203\243\n\360\201M \201N \211\201O N\354\201P #E!C\3531\236\n\fX\205\230\n \203;\n\333X\203;\n\354\355\356U\203!\n\357\2026\n\360U\203+\n\357\2026\n\332U\2035\n\361\2026\n\362P#\210\f\334Y\205\230\n\356 \360U\203x\n\3631s\nr\364!\203Z\n\365!\202^\n\366\367\"q\210\345P\262\370\352 C\"\211\262)0\202w\n\210\202x\n\210\364!\203\204\n\371\372\"\262)\242>\205\230\n\354\373\374\375\"P$0\266\204\202\242\n\210\343\266\204\210\327\201Q \354\201P #!C\"*\266\201o \240\210)\266 \203\232 \315=\203\232 \326
\242!\211\242>\204\337\n\327\330\331D\"\210\211A@\242>\204\360\n\327\330\331D\"\210\3328\242>\204 \327\330\331D\"\210\3338\242>\204 \327\330\331D\"\210\3348\242>\204% \327\330\331D\"\210\3358\242>\2047 \327\330\331D\"\210\3368\242>\204K \327\330\331 D\"\210\3378\201p \"\210\242\320!\205y \326!\211\242>\204q \327\330\331D\"\210\211A@\262F\230\262\203\230 \201q !\210\340\242!\203\230 \201p \"\210\202\205 \266\n\205k\f\326!\211\242>\204\261 \327\330\331D\"\210\211A@\242>\204\302 \327\330\331D\"\210\3328\242>\204\323 \327\330\331D\"\210\3338\242>\204\345 \327\330\331D\"\210\3348\242>\204\367 \327\330\331D\"\210\3358\242>\204 \f\327\330\331D\"\210\3368\242>\204 \f\327\330\331 D\"\210\3378\201p \"\210\320!\205J\f\326!\211\242>\204B\f\327\330\331D\"\210\211A@\262F\230\262\205i\f\201q !\210\340!?\205i\f\201p \"\210\202V\f\266\210\266\210\266\204\207" [cl-struct-tramp-file-name-tags tramp-file-missing signal-hook-function tramp-message-show-message tramp-verbose standard-output (copy rename) error "Unknown operation `%s', must be `copy' or `rename'" file-truename file-directory-p copy-directory t rename delete-directory recursive tramp-tramp-file-p copy "copyto" "moveto" "Copying" "Renaming" tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p "%s file" "No such file or directory" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 #3="" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only tramp-rclone-method file-name-handler-alist kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message substring-no-properties file-already-exists tramp-compat-directory-name-p file-error "File is a directory %s" expand-file-name tramp-temp-name-prefix eval temporary-file-directory standard-value file-name-extension make-temp-file copy-file rename-file "%s..." #1="%s %s to %s" #2=(error) #4=(error) "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update make-byte-code "\305\203 \306\305!\210\303\307\310\311\312\302\300\242\301$\304\242D\3131\263 \"X\205\261 #\203Q \314X\203Q \315\316\307U\2037 \317\202L \320U\203A \317\202L \321U\203K \322\202L \323P#\210\"\324Y\205\261 \307 \"\320U\203\220 \3251\213 r\326!\203r \327!\202v \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\217 \210\202\220 \210\326!\203\234 \335\336\"\262)\242$>\205\261 \315\337\311\340\"P$0\207\210\341\207" vconcat [cancel-timer 0 "%s...%s" format #1# #2# 3 apply message #3# 1 2 "Warning: " "Tramp: " 4 #4# processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message "(%d) # " nil tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags] tramp-rclone-send-command tramp-rclone-remote-file-name "Error %s `%s' `%s'" "done" tramp-flush-file-properties tramp-rclone-flush-directory-cache] 37 (#$ . 6223)])
#@145 Like `copy-file' for Tramp files.
(fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES)
(defalias 'tramp-rclone-handle-copy-file #[1538 "\300!\262\300!\262\301!\204 \301!\203) \302\303&\207\304\305\257\"\207" [expand-file-name tramp-tramp-file-p tramp-rclone-do-copy-or-rename-file copy tramp-run-real-handler copy-file] 14 (#$ . 16845)])
#@84 Like `delete-directory' for Tramp files.
(fn DIRECTORY &optional RECURSIVE TRASH)
(defalias 'tramp-rclone-handle-delete-directory #[769 "\301\302!!\211\242>\204 \303\304\305D\"\210\211A@\242>\204$ \303\304\305D\"\210\3068\242>\2045 \303\304\305D\"\210\3078\242>\204G \303\304\305D\"\210\3108\242>\204Y \303\304\305D\"\210\3118\242>\204k \303\304\305D\"\210\3128\242>\204 \303\304\305 D\"\210\3138\314\315\f! #\210\316\"\210\317!\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 delete-directory tramp-rclone-local-file-name tramp-flush-directory-properties tramp-rclone-flush-directory-cache] 15 (#$ . 17281)])
#@68 Like `delete-file' for Tramp files.
(fn FILENAME &optional TRASH)
(defalias 'tramp-rclone-handle-delete-file #[513 "\301\302!!\211\242>\204 \303\304\305D\"\210\211A@\242>\204$ \303\304\305D\"\210\3068\242>\2045 \303\304\305D\"\210\3078\242>\204G \303\304\305D\"\210\3108\242>\204Y \303\304\305D\"\210\3118\242>\204k \303\304\305D\"\210\3128\242>\204 \303\304\305 D\"\210\3138\314\315 !\n\"\210\316\"\210\317!\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 delete-file tramp-rclone-local-file-name tramp-flush-file-properties tramp-rclone-flush-directory-cache] 13 (#$ . 18027)])
#@91 Like `directory-files' for Tramp files.
(fn DIRECTORY &optional FULL MATCH NOSORT COUNT)
(defalias 'tramp-rclone-handle-directory-files #[1281 "\306!\204\340\307!\310C\311\211 \312Y\205 \211\203\330 \211\312\313\314\315! \316\216\f \317 \210)r\fq\210\320 +C\3211\321 X\205\313 \n\203n \322X\203n \323\324\325U\203T \326\202i \327U\203^ \326\202i \330U\203h \331\202i \332P#\210 \333Y\205\313 \325\327U\203\253 \3341\246 r\335!\203\215 \336!\202\221 \337\340\"q\210\313P\262\341\320 C\"\211\262)0\202\252 \210\202\253 \210\335!\203\267 \342\343\"\262)\242
>\205\313 \323\344\345\346\"P$0\266\205\202 \210\311\266\205\202 @r\347\350!q\210p\351 \210@\311\211AB\352\211C\352 D E\353 \210\354\355!\210+\211 \317 \356!\210)\266\202\262\210\211\204C\262\357\262\203\320\327\357\360\211\361N\323\362 #E!C\3211\313 X\205\305\n\203h\322X\203h\323\324\325U\203N\326\202c\327U\203X\326\202c\330U\203b\331\202c\332P#\210 \333Y\205\305\325\327U\203\245\3341\240r\335!\203\207\336!\202\213\337\340\"q\210\313P\262\341\320 C\"\211\262)0\202\244\210\202\245\210\335!\203\261\342\343\"\262)\242
>\205\305\323\344\345\346\"P$0\266\204\202\317\210\311\266\204\210\363\364\323\362#!C\"*\266\365!\2056\366\367!!\262\307!\211\242
>\204\377\363\370\371D\"\210\211A@\242
>\204\363\370\371D\"\210\3308\242
>\204!\363\370\371D\"\210\3228\242
>\2043\363\370\371D\"\210\3338\242
>\204E\363\370\371D\"\210\3728\242
>\204W\363\370\371D\"\210\3738\242
>\204k\363\370\371 D\"\210\3748\375\376!
#\f\203\332\377\201H \201I !!P\311\211?\205\224F F\201J \201K \201L !\")\266\202\203\256\201M \202\261\201N \201O !!\201P \201Q \201R \201S \201T \343\"\201U \"\372\201V %\"\266\203\201W \211\203 \211@
\206\355\201H !\311\352 G\201X #)\266\203\203\203P\211\262\202\211\235\204\211B\262A\266\202\202\335\210\n\203*\211\2022\201Y \201Z \"\262\266\210\207" [tramp-file-missing signal-hook-function tramp-message-show-message tramp-verbose standard-output cl-struct-tramp-file-name-tags file-exists-p tramp-dissect-file-name "No such file or directory" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message signal substring-no-properties file-directory-p file-name-as-directory expand-file-name wrong-type-argument tramp-file-name 5 6 7 directory-files tramp-rclone-local-file-name "^" default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only file-name-handler-alist inhibit-changing-match-data regexp-quote tramp-rclone-mount-point string-prefix-p "/:" file-local-name tramp-compat-file-name-quote identity file-remote-p mapcar make-byte-code 257 "\302\300\301#\207" vconcat [replace-regexp-in-string] "\n\n(fn X)" (".." ".") string-match sort string<] 24 (#$ . 18741)])
#@76 Like `file-attributes' for Tramp files.
(fn FILENAME &optional ID-FORMAT)
(defalias 'tramp-rclone-handle-file-attributes #[513 "\301\302!!\211\242>\204 \303\304\305D\"\210\211A@\242>\204$ \303\304\305D\"\210\3068\242>\2045 \303\304\305D\"\210\3078\242>\204G \303\304\305D\"\210\3108\242>\204Y \303\304\305D\"\210\3118\242>\204k \303\304\305D\"\210\3128\242>\204 \303\304\305 D\"\210\3138\314!\203\266 \315\316\317
\"\320$\211\320=\203\260 \321\322\f! \"\262\323 \316\317\"$\210\211\262\202\276 \321\322 !\n\"\207" [cl-struct-tramp-file-name-tags 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 format "file-attributes-%s" undef file-attributes tramp-rclone-local-file-name tramp-set-file-property] 17 (#$ . 22099)])
#@58 Like `file-executable-p' for Tramp files.
(fn FILENAME)
(defalias 'tramp-rclone-handle-file-executable-p #[257 "\301\302!!\211\242>\204 \303\304\305D\"\210\211A@\242>\204$ \303\304\305D\"\210\3068\242>\2045 \303\304\305D\"\210\3078\242>\204G \303\304\305D\"\210\3108\242>\204Y \303\304\305D\"\210\3118\242>\204k \303\304\305D\"\210\3128\242>\204 \303\304\305 D\"\210\3138\314!\203\254 \315\316\317$\211\317=\203\246 \320\321 !!\262\322 \316$\210\211\262\202\262 \320\321\n!!\207" [cl-struct-tramp-file-name-tags 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-executable-p" undef file-executable-p tramp-rclone-local-file-name tramp-set-file-property] 15 (#$ . 22966)])
#@76 Like `file-name-all-completions' for Tramp files.
(fn FILENAME DIRECTORY)
(defalias 'tramp-rclone-handle-file-name-all-completions #[514 "\302\303\304\305\306!\"\307\310\211\203U \211@\311\n\"\203N \3122M \211\203C \211@\211\307\313\314#)\266\203\204< \315\312\307\"\210A\266\202\202! \210\211\316PB\211\2620\210A\266\202\202 \262\262\"!\"\207" [completion-regexp-list inhibit-changing-match-data all-completions delete-dups append file-name-all-completions tramp-rclone-local-file-name nil (".." ".") string-prefix-p match t string-match throw "/"] 19 (#$ . 23788)])
#@56 Like `file-readable-p' for Tramp files.
(fn FILENAME)
(defalias 'tramp-rclone-handle-file-readable-p #[257 "\301\302!!\211\242>\204 \303\304\305D\"\210\211A@\242>\204$ \303\304\305D\"\210\3068\242>\2045 \303\304\305D\"\210\3078\242>\204G \303\304\305D\"\210\3108\242>\204Y \303\304\305D\"\210\3118\242>\204k \303\304\305D\"\210\3128\242>\204 \303\304\305 D\"\210\3138\314!\203\254 \315\316\317$\211\317=\203\246 \320\321 !!\262\322 \316$\210\211\262\202\262 \320\321\n!!\207" [cl-struct-tramp-file-name-tags 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-readable-p" undef file-readable-p tramp-rclone-local-file-name tramp-set-file-property] 15 (#$ . 24384)])
#@57 Like `file-system-info' for Tramp files.
(fn FILENAME)
(defalias 'tramp-rclone-handle-file-system-info #[257 "\3031\244\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\316\321C\32215 X\205/\n\203\322 \314X\203\322 \323\324\325U\203\270 \326\202\315 \327U\203\302 \326\202\315 \313U\203\314 \330\202\315 \331P#\210 \315Y\205/\325\327U\203\3321\nr\333!\203\361 \334!\202\365 \335\336\"q\210\337P\262\340\341 C\"\211\262)0\202\210\202\210\333!\203\342\343\"\262)\242>\205/\323\344\345\346\"P$0\266\204\2029\210\347\266\204\210\350\351\352P#\210r\335!q\210\347\211\211eb\210m\204\202\353\354!\203b\355\356\327!!\262\353\357!\203o\355\356\327!!\262\353\360!\203|\355\356\327!!\262\347y\210\202Q\203\217\361 \362$\210\205\235\211\205\235ZE\266\203)\266\2100\207\210\347\207" [cl-struct-tramp-file-name-tags tramp-verbose tramp-message-show-message (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 "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) # " nil tramp-rclone-send-command "about" ":" looking-at "Total: [[:space:]]+\\([[:digit:]]+\\)" string-to-number match-string "Used: [[:space:]]+\\([[:digit:]]+\\)" "Free: [[:space:]]+\\([[:digit:]]+\\)" tramp-set-file-property "used-bytes"] 19 (#$ . 25198)])
#@102 Like `insert-directory' for Tramp files.
(fn FILENAME SWITCHES &optional WILDCARD FULL-DIRECTORY-P)
(defalias 'tramp-rclone-handle-insert-directory #[1026 "\300\301!$\210eb\210\302\301!\303\304#\205 \305!\210\202\f \207" [insert-directory tramp-rclone-local-file-name search-forward nil noerror replace-match] 9 (#$ . 27020)])
#@93 Like `insert-file-contents' for Tramp files.
(fn FILENAME &optional VISIT BEG END REPLACE)
(defalias 'tramp-rclone-handle-insert-file-contents #[1281 "\301\302!%\303!A@D\203 \207" [buffer-file-name insert-file-contents tramp-rclone-local-file-name expand-file-name] 11 (#$ . 27361)])
#@68 Like `make-directory' for Tramp files.
(fn DIR &optional PARENTS)
(defalias 'tramp-rclone-handle-make-directory #[513 "\301\302!!\211\242>\204 \303\304\305D\"\210\211A@\242>\204$ \303\304\305D\"\210\3068\242>\2045 \303\304\305D\"\210\3078\242>\204G \303\304\305D\"\210\3108\242>\204Y \303\304\305D\"\210\3118\242>\204k \303\304\305D\"\210\3128\242>\204 \303\304\305 D\"\210\3138\314\315 !\n\"\210\316\"\210\317\n\203\236 \320\202\241 \321!\"\210\322!\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 make-directory tramp-rclone-local-file-name tramp-flush-file-properties tramp-flush-directory-properties "/" file-name-directory tramp-rclone-flush-directory-cache] 14 (#$ . 27666)])
#@91 Like `rename-file' for Tramp files.
(fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS)
(defalias 'tramp-rclone-handle-rename-file #[770 "\300!\262\300!\262\301!\204 \301!\203 \302\303\304\305&\207\306\307E\"\207" [expand-file-name tramp-tramp-file-p tramp-rclone-do-copy-or-rename-file rename keep-date preserve-uid-gid tramp-run-real-handler rename-file] 10 (#$ . 28486)])
#@44 Return local mount point of VEC.
(fn VEC)
(defalias 'tramp-rclone-mount-point #[257 "\302\242 >\204 \303\304\305D\"\210A@\306\242 >\204# \303\304\305D\"\210\3078R\310\311\312N@!\"\207" [tramp-temp-name-prefix cl-struct-tramp-file-name-tags expand-file-name signal wrong-type-argument tramp-file-name "." 4 eval temporary-file-directory standard-value] 9 (#$ . 28884)])
#@71 Check, whether storage system determined by VEC is mounted.
(fn VEC)
(defalias 'tramp-rclone-mounted-p #[257 "\305!\205\217\306\305!\307\310#\206\217\311\312!\313\314\312C\3151\267 \nX\205\261 \203T \316X\203T \317\320\321U\203: \322\202O \323U\203D \322\202O \324U\203N \325\202O \326P#\210\n\327Y\205\261 \321\323U\203\221 \3301\214 r\331!\203s \332!\202w \333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\220 \210\202\221 \210\331!\203\235 \340\341\"\262)\242\f>\205\261 \317\342\343\344\"P$0\266\204\202\273 \210\310\266\204\210\313\335C\3151^\nX\205X \203\373 \316X\203\373 \317\320\321U\203\341 \322\202\366 \323U\203\353 \322\202\366 \324U\203\365 \325\202\366 \326P#\210\n\327Y\205X\321\323U\2038\33013r\331!\203\332!\202 \333\334\"q\210\335P\262\336\337 C\"\211\262)0\2027\210\2028\210\331!\203D\340\341\"\262)\242\f>\205X\317\342\343\344\"P$0\266\204\202b\210\310\266\204\210\345\305!\307\346\343\347\350\242\f>\204|\351\352\353 D\"\210\327 8!\"\"\205\213\354\323\"#)\262\207" [temporary-file-directory default-directory tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-process tramp-get-connection-property "mounted" nil shell-command-to-string "mount -t fuse.rclone" 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-set-connection-property string-match "^\\(%s:\\S-*\\)" regexp-quote signal wrong-type-argument tramp-file-name match-string] 13 (#$ . 29269)])
#@47 Flush directory cache of VEC mount.
(fn VEC)
(defalias 'tramp-rclone-flush-directory-cache #[257 "\306!\205\201 \307\306!\310\311#\211\311=\203~ \3122t \313X\203+ \314\315\316\317\320!!\")\202- \321 \211\205q \211@\322\323\324\242 >\204F \325\326\327 D\"\210\3308\"!\331\332\333!\"A\206W \334\335\336 \337#)\266\203\203j \340\312\"\210A\266\202\202- \2620\262\341\306!\310#\210\211\262\211\2059\342\343\331\332\333!\"AD\34410
X\205*;\203\315 \345X\203\315 \346\347\350U\203\263 \334\202\310 \351U\203\275 \334\202\310 \352U\203\307 \353\202\310 \354P#\210
\330Y\205*\350 \351U\203\n\3551r\356!\203\354 \357!\202\360 \360\361\"q\210\362P\262\363\364 C\"\211\262)0\202 \210\202\n\210\356!\203\365\366\"\262)\242 >\205*\346\367\323\370\"P$0\266\204\2024\210\335\266\204\210\371\372\"\207" [emacs-major-version temporary-file-directory default-directory cl-struct-tramp-file-name-tags inhibit-changing-match-data tramp-verbose tramp-get-connection-process tramp-get-connection-property "rclone-pid" undef pid 25 mapcar string-to-number split-string shell-command-to-string "pidof rclone" list-system-processes regexp-quote format "rclone mount %s:" signal wrong-type-argument tramp-file-name 4 assoc args process-attributes "" nil t string-match throw tramp-set-connection-property 6 "Send SIGHUP %d: %s" (error) 3 apply message 0 1 2 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message "(%d) # " signal-process SIGHUP tramp-message-show-message] 12 (#$ . 30952)])
#@53 Return local mount name of FILENAME.
(fn FILENAME)
(defalias 'tramp-rclone-local-file-name #[257 "\302!\303\211?\205\n \304!\211\211?\205 \305\306\304!\")\266\202\2034 \211G\307U\203. \310\2022 \311\307\"\262\312!P)\266\203\262\313!\211\242 >\204O \314\315\316D\"\210\211A@\242 >\204` \314\315\316D\"\210\3078\242 >\204q \314\315\316D\"\210\3178\242 >\204\203 \314\315\316D\"\210\3208\242 >\204\225 \314\315\316D\"\210\3218\242 >\204\247 \314\315\316D\"\210\3228\242 >\204\273 \314\315\316 D\"\210\3238\324!\203S\325\326\327$\211\327=\203M\330 !\210\303\211?\205\337 \305\306\304!\")\266\202\303\211?\205\361 \304!\211\211?\205\375 \305\306\304!\")\266\202\203\211G\307U\203\310\202\311\307\"\262\312!P)\266\203\203+\331\202,\332\302\324!\203:\311\333\"\202;\334!\"!\266\202\262\335 \326$\210\211\262\202\304\330!\210\303\211?\205`\305\306\304!\")\266\202\303\211?\205r\304!\211\211?\205~\305\306\304!\")\266\202\203\234\211G\307U\203\226\310\202\232\311\307\"\262\312!P)\266\203\203\254\331\202\255\332\302\324!\203\273\311\333\"\202\274\334
!\"!\266\202\207" [file-name-handler-alist cl-struct-tramp-file-name-tags expand-file-name nil file-local-name string-prefix-p "/:" 2 "/" substring file-remote-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "local-file-name" undef tramp-rclone-maybe-open-connection tramp-compat-file-name-quote identity 1 tramp-rclone-mount-point tramp-set-file-property] 20 (#$ . 32593)])
#@65 Return FILENAME as used in the `rclone' command.
(fn FILENAME)
(defalias 'tramp-rclone-remote-file-name #[257 "\303!\304\211?\205\n \305!\211\211?\205 \306\307\305!\")\266\202\2034 \211G\310U\203. \311\2022 \312\310\"\262\313!P)\266\203\262\211\314!\205] \315!\211\242 >\204V \316\317\320D\"\210\211A@\262\n\230\262\2037\315!\211\242 >\204s \316\317\320D\"\210\211A@\242 >\204\204 \316\317\320D\"\210\3108\242 >\204\225 \316\317\320D\"\210\3218\242 >\204\247 \316\317\320D\"\210\3228\242 >\204\271 \316\317\320D\"\210\3238\242 >\204\313 \316\317\320D\"\210\3248\242 >\204\337 \316\317\320 D\"\210\3258\326!\203 \327\330\331$\211\331=\203\332 !\210\333\334\335\206\335#\262\336\337\340 !#\262\341 \330$\210\211\262\2026\332!\210\333\334\335\206+\335#\262\336\337\340\n!#\207\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-rclone-method expand-file-name nil file-local-name string-prefix-p "/:" 2 "/" substring file-remote-p tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "remote-file-name" undef tramp-rclone-maybe-open-connection replace-regexp-in-string "^\\." "" format "%s%s" tramp-rclone-mounted-p tramp-set-file-property] 15 (#$ . 34212)])
#@173 Maybe open a connection VEC.
Does not do anything if a connection is already open, but re-opens the
connection if a previous connection has died for some reason.
(fn VEC)
(defalias 'tramp-rclone-maybe-open-connection #[257 "\306!\204 \307\310\211\"\210\211\242>\204 \311\312\313D\"\210\3148\315C\316\317!\"\203\266\211G\320U\203\321\322C\317\211 \323Y\205+\211\203\374 \211\323\324\325\326! \327\216\f \330 \210)r\fq\210\331 +C\3321\365 X\205\357 \n\203\222 \333X\203\222 \334\335\320U\203x \336\202\215 \337U\203\202 \336\202\215 \340U\203\214 \341\202\215 \342P#\210 \314Y\205\357 \320\337U\203\317 \3431\312 r\344!\203\261 \345!\202\265 \346\347\"q\210\324P\262\350\331 C\"\211\262)0\202\316 \210\202\317 \210\344!\203\333 \351\352\"\262)\242>\205\357 \334\353\354\355\"P$0\266\205\202-\210\317\266\205\202-
r\356\357!q\210p\360 \210\317\211@A\361\211B\361 C D\362 \210\363\364!\210+\211 \330 \365!\210)\266\202\262\210\211\2049C\262\366\262\203\362\337\366\367\211\370N\334\371 #E!C\3321\355 X\205\347\n\203\212\333X\203\212\334\335\320U\203p\336\202\205\337U\203z\336\202\205\340U\203\204\341\202\205\342P#\210 \314Y\205\347\320\337U\203\307\3431\302r\344!\203\251\345!\202\255\346\347\"q\210\324P\262\350\331 C\"\211\262)0\202\306\210\202\307\210\344!\203\323\351\352\"\262)\242>\205\347\334\353\354\355\"P$0\266\204\202\361\210\317\266\204\210\311\372\334\371#!C\"*\266\373\346!!\204>\374\375\376!\377\346!\201F \361\201G \201H \201I \361\201J \361&\f\201K \352#\210\201L \317\"\210\201M !\266\201N \201O !!\204W\201P \201O !\201Q \"\210\201R !\204\266\334\201S E\317\320\317\201T \317\201U \n\201V P\201O
!\201W \201X \"F\"&\210\201Y \201Z \201[ \"!\204\250\201\\ \201] \201^ #\210\202\212\201_ \201` !\201a \361#\210\210\201b \201c \201d #\211\201d =\203\335\201e \201f !\262\201_ \201c #\210\210\201b \201g \201d #\211\201d =\203\201h \201f !\262\201_ \201g #\210\210\201b \201i \201d #\211\201d =\203+\201e \201j !\262\201_ \201i #\210\210\201b \201k \201d #\211\201d =\203R\201h \201j !\262\201_ \201k #\210\211\207" [cl-struct-tramp-file-name-tags signal-hook-function tramp-message-show-message tramp-verbose standard-output default-directory tramp-connectable-p throw non-essential signal wrong-type-argument tramp-file-name 4 rassoc tramp-rclone-parse-device-names nil 0 file-error "Storage %s not connected" 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) 3 apply message "" 1 2 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message substring-no-properties get-buffer-process make-network-process :name tramp-get-connection-name :buffer buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only tramp-rclone-program :server :host local :service :noquery process-put set-process-query-on-exit-flag tramp-set-connection-local-variables file-directory-p tramp-rclone-mount-point make-directory parents tramp-rclone-mounted-p tramp-call-process delq "mount" ":/" tramp-get-method-parameter tramp-mount-args file-exists-p tramp-make-tramp-file-name noloc tramp-cleanup-connection keep-debug keep-password tramp-set-connection-property tramp-get-connection-process "connected" tramp-get-connection-property "uid-integer" undef tramp-get-local-uid integer "gid-integer" tramp-get-local-gid "uid-string" string "gid-string"] 17 (#$ . 35552)])
#@97 Send a command to connection VEC.
The command is the list of strings ARGS.
(fn VEC &rest ARGS)
(defalias 'tramp-rclone-send-command #[385 "r\301!q\210\302 \210\303\304\305\306@\"!\"\307\310\311\312\311\313 \"&\262)\207" [tramp-rclone-program tramp-get-connection-buffer erase-buffer tramp-get-method-parameter intern format "tramp-%s-args" apply tramp-call-process nil t append] 13 (#$ . 39395)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-rclone force] 3] provide tramp-rclone] 3)
Zerion Mini Shell 1.0