%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/net/ |
Current File : //usr/local/share/emacs/27.2/lisp/net/tramp-adb.elc |
;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\301\311\312\313\314& \210\302\315\304\305\316DD\317\310\301\311\320\313\321& \207" [require tramp custom-declare-variable tramp-adb-program funcall function #[0 "\300\207" [#1="adb"] 1 #1#] "Name of the Android Debug Bridge program." :group :version "24.4" :type string tramp-adb-connect-if-not-connected #[0 "\300\207" [nil] 1] "Try to run `adb connect' if provided device is not connected currently.\nIt is used for TCP/IP devices." "25.1" boolean] 10) #@75 When this method name is used, forward all calls to Android Debug Bridge. (defconst tramp-adb-method "adb" (#$ . 919)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable tramp-adb-prompt funcall function #[0 "\300\207" [#1="^[[:digit:]]*|?[[:alnum:];[]*@?[[:alnum:]]*[^#\\$]*[#\\$][[:space:]]"] 1 #1#] "Regexp used as prompt in almquist shell." :type regexp :version "24.4" :group tramp] 10) #@38 Regexp for date format in ls output. (defconst tramp-adb-ls-date-regexp "[[:space:]][0-9]\\{4\\}-[0-9][0-9]-[0-9][0-9][[:space:]][0-9][0-9]:[0-9][0-9][[:space:]]" (#$ . 1362)) #@23 Regexp for ls output. (defconst tramp-adb-ls-toolbox-regexp "^[[:space:]]*\\([-.[:alpha:]]+\\)\\(?:[[:space:]]+[[:digit:]]+\\)?[[:space:]]*\\([^[:space:]]+\\)[[:space:]]+\\([^[:space:]]+\\)[[:space:]]+\\([[:digit:]]+\\)[[:space:]]+\\([-[:digit:]]+[[:space:]][:[:digit:]]+\\)[[:space:]]\\(.*\\)$" (#$ . 1544)) (add-hook 'tramp--startup-hook #[0 "\301\302\303B\"\210\301\304\305B\"\210\306\307\"\207" [tramp-adb-method add-to-list tramp-methods ((tramp-tmpdir "/data/local/tmp") (tramp-default-port 5555)) tramp-default-host-alist (nil #1="") tramp-set-completion-function ((tramp-adb-parse-device-names #1#))] 4]) #@50 Alist of handler functions for Tramp ADB method. (defconst tramp-adb-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-adb-handle-copy-file) (delete-directory . tramp-adb-handle-delete-directory) (delete-file . tramp-adb-handle-delete-file) (directory-file-name . tramp-handle-directory-file-name) (directory-files . tramp-handle-directory-files) (directory-files-and-attributes . tramp-adb-handle-directory-files-and-attributes) (dired-compress-file . ignore) (dired-uncache . tramp-handle-dired-uncache) (exec-path . tramp-adb-handle-exec-path) (expand-file-name . tramp-handle-expand-file-name) (file-accessible-directory-p . tramp-handle-file-accessible-directory-p) (file-acl . ignore) (file-attributes . tramp-adb-handle-file-attributes) (file-directory-p . tramp-handle-file-directory-p) (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-adb-handle-file-local-copy) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-adb-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-adb-handle-file-system-info) (file-truename . tramp-adb-handle-file-truename) (file-writable-p . tramp-adb-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-adb-handle-make-directory) (make-directory-internal . ignore) (make-nearby-temp-file . tramp-handle-make-nearby-temp-file) (make-process . tramp-adb-handle-make-process) (make-symbolic-link . tramp-handle-make-symbolic-link) (process-file . tramp-adb-handle-process-file) (rename-file . tramp-adb-handle-rename-file) (set-file-acl . ignore) (set-file-modes . tramp-adb-handle-set-file-modes) (set-file-selinux-context . ignore) (set-file-times . tramp-adb-handle-set-file-times) (set-visited-file-modtime . tramp-handle-set-visited-file-modtime) (shell-command . tramp-handle-shell-command) (start-file-process . tramp-handle-start-file-process) (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-adb-handle-write-region)) (#$ . 2166)) #@50 Check if it's a FILENAME for ADB. (fn FILENAME) (defalias 'tramp-adb-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-adb-method tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name] 6 (#$ . 5758)]) (put 'tramp-adb-file-name-p 'byte-optimizer 'byte-compile-inline-expand) #@166 Invoke the ADB handler for OPERATION. First arg specifies the OPERATION, second arg is a list of ARGUMENTS to pass to the OPERATION. (fn OPERATION &rest ARGUMENTS) (defalias 'tramp-adb-file-name-handler #[385 "\301\"\211\203! \302 \303\304\305\306\307!\310\"\311$\216\312A\")\262\202% \313\"\207" [tramp-adb-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 (#$ . 6155)]) (add-hook 'tramp--startup-hook #[0 "\300\301\302\"\207" [tramp-register-foreign-file-name-handler tramp-adb-file-name-p tramp-adb-file-name-handler] 3]) #@68 Return a list of (nil host) tuples allowed to access. (fn IGNORE) (defalias 'tramp-adb-parse-device-names #[257 "\301\302\303\304\305\302\306#\"\"\207" [tramp-adb-program delq nil mapcar #[257 "\301\302\"\205 \303\304\305\306\307\"#D\207" [tramp-prefix-port-format string-match "^\\(\\S-+\\)[[:space:]]+device$" nil replace-regexp-in-string ":" match-string 1] 8 "\n\n(fn LINE)"] tramp-process-lines "devices"] 9 (#$ . 6801)]) #@57 Like `file-system-info' for Tramp files. (fn FILENAME) (defalias 'tramp-adb-handle-file-system-info #[257 "\3031o\304\305!!\211\242>\204 \306\307\310D\"\210\211A@\242>\204( \306\307\310D\"\210\3118\242>\2049 \306\307\310D\"\210\3128\242>\204K \306\307\310D\"\210\3138\242>\204] \306\307\310D\"\210\3148\242>\204o \306\307\310D\"\210\3158\242>\204\203 \306\307\310 D\"\210\3168\314\317C\3201( X\205$\n\203\307 \312X\203\307 \321\322\323U\203\255 \324\202\302 \325U\203\267 \324\202\302 \311U\203\301 \326\202\302 \327P#\210 \313Y\205$\323\325U\203\3301\377 r\331!\203\346 \332!\202\352 \333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\210\202\210\331!\203\340\341\"\262)\242>\205$\321\342\343\344\"P$0\202,\210\202-\210\266\345\343\346\347!\"\"\210r\333!q\210eb\210\350y\210\351\352!\205j\353\354\355\325!!_\353\354\355\325!!\354\355\311!!Z_\353\354\355\312!!_E)\266\2100\207\210\350\207" [cl-struct-tramp-file-name-tags tramp-verbose tramp-message-show-message (error) 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) # " tramp-adb-send-command "df -k %s" tramp-shell-quote-argument nil looking-at "[[:space:]]*[^[:space:]]+[[:space:]]+\\([[:digit:]]+\\)[[:space:]]+\\([[:digit:]]+\\)[[:space:]]+\\([[:digit:]]+\\)" 1024 string-to-number match-string] 19 (#$ . 7241)]) #@54 Like `file-truename' for Tramp files. (fn FILENAME) (defalias 'tramp-adb-handle-file-truename #[257 "\306!\203\n \307\202 \310\311\211?\205 \312\313\314!\")\266\202\203$ \315\202% \310\316\317!\311\211?\2050 \314!\211\211?\205<