403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/net/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/net/tramp-sshfs.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require tramp tramp-fuse] 2)
#@32 Tramp method for sshfs mounts.
(defconst tramp-sshfs-method "sshfs" (#$ . 154))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\314\315\316\"\207" [custom-declare-variable tramp-sshfs-program funcall function #[0 "\300\207" ["sshfs"] 1 ""] "The sshfs mount command." :group tramp :version "28.1" :type string add-hook tramp--startup-hook #[0 "\303\304\305\306\307\310\311	D\312BBBBBB\"\210\303\313\314\315\"\316B\"\210\317\n\"\207" [tramp-sshfs-method tramp-default-remote-shell tramp-completion-function-alist-ssh add-to-list tramp-methods (tramp-mount-args (("-C") ("-p" "%p") ("-o" "dir_cache=no") ("-o" "transform_symlinks") ("-o" "idmap=user,reconnect"))) (tramp-login-program "ssh") (tramp-login-args (("-q") ("-l" "%u") ("-p" "%p") ("-e" "none") ("-t" "-t") ("%h") ("%l"))) (tramp-direct-async t) tramp-remote-shell ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) tramp-connection-properties format "/%s:" ("direct-async-process" t) tramp-set-completion-function] 9]] 10)
#@131 Alist of handler functions for Tramp SSHFS method.
Operations not mentioned here will be handled by the default Emacs primitives.
(defconst tramp-sshfs-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-sshfs-handle-copy-file) (delete-directory . tramp-fuse-handle-delete-directory) (delete-file . tramp-fuse-handle-delete-file) (directory-file-name . tramp-handle-directory-file-name) (directory-files . tramp-fuse-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 . tramp-sshfs-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-fuse-handle-file-attributes) (file-directory-p . tramp-handle-file-directory-p) (file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-fuse-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-locked-p . tramp-handle-file-locked-p) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-fuse-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-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-sshfs-handle-file-system-info) (file-truename . tramp-handle-file-truename) (file-writable-p . tramp-sshfs-handle-file-writable-p) (find-backup-file-name . tramp-handle-find-backup-file-name) (insert-directory . tramp-handle-insert-directory) (insert-file-contents . tramp-sshfs-handle-insert-file-contents) (load . tramp-handle-load) (lock-file . tramp-handle-lock-file) (make-auto-save-file-name . tramp-handle-make-auto-save-file-name) (make-directory . tramp-fuse-handle-make-directory) (make-directory-internal . ignore) (make-lock-file-name . tramp-handle-make-lock-file-name) (make-nearby-temp-file . tramp-handle-make-nearby-temp-file) (make-process . tramp-handle-make-process) (make-symbolic-link . tramp-handle-make-symbolic-link) (process-file . tramp-sshfs-handle-process-file) (rename-file . tramp-sshfs-handle-rename-file) (set-file-acl . ignore) (set-file-modes . tramp-sshfs-handle-set-file-modes) (set-file-selinux-context . ignore) (set-file-times . tramp-sshfs-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-get-remote-gid . ignore) (tramp-get-remote-uid . ignore) (tramp-set-file-uid-gid . ignore) (unhandled-file-name-directory . ignore) (unlock-file . tramp-handle-unlock-file) (vc-registered . ignore) (verify-visited-file-modtime . tramp-handle-verify-visited-file-modtime) (write-region . tramp-sshfs-handle-write-region)) (#$ . 1185))
#@52 Check if it's a FILENAME for sshfs.

(fn FILENAME)
(defalias 'tramp-sshfs-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-sshfs-method tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name] 6 (#$ . 5133)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put tramp-sshfs-file-name-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@172 Invoke the sshfs 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-sshfs-file-name-handler #[385 "\301\"\211\203\302 \303\304\"\216\305A\")\207\306\"\207" [tramp-sshfs-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 (#$ . 5612)])
(add-hook 'tramp--startup-hook #[0 "\300\301\302\"\207" [tramp-register-foreign-file-name-handler tramp-sshfs-file-name-p tramp-sshfs-file-name-handler] 3])
#@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-sshfs-handle-copy-file #[1538 "\302!\262\302!\262\303!\203\304\305$\207\306\307!\205<\310!\211\242>\2045\311\312\313D\"\210\211A@\262	\230\262\203H\314!\202J\307!\205j\310!\211\242>\204c\311\312\313D\"\210\211A@\262	\230\262\203v\314!\202x&\210\307!\205\242\310!\211\242>\204\233\311\312\313D\"\210\211A@\262	\230\262\205/\310!\211\242>\204\270\311\312\313D\"\210\211A@\242>\204\311\311\312\313D\"\210\3158\242>\204\332\311\312\313D\"\210\3168\242>\204\354\311\312\313D\"\210\3178\242>\204\376\311\312\313D\"\210\3208\242>\204\311\312\313D\"\210\3218\242>\204$\311\312\313	D\"\210\3228\323\"\266\210\207" [cl-struct-tramp-file-name-tags tramp-sshfs-method expand-file-name file-directory-p copy-directory t copy-file tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name tramp-fuse-local-file-name 2 3 4 5 6 7 tramp-flush-file-properties] 17 (#$ . 6232)])
#@35 Like `exec-path' for Tramp files.
(defalias 'tramp-sshfs-handle-exec-path #[0 "\303\304!\211\242	>\204\305\306\307D\"\210\211A@\242	>\204#\305\306\307D\"\210\3108\242	>\2044\305\306\307D\"\210\3118\242	>\204F\305\306\307D\"\210\3128\242	>\204X\305\306\307D\"\210\3138\242	>\204j\305\306\307D\"\210\3148\242	>\204~\305\306\307	D\"\210\3158\316\317	!\320\n#\211\n=\203\276\321\322\323\"r\211q\210\324\325\"\216\326\327\330\323\330\331%\210\332eb\210`\333 {\334\335#*\262\262\336\317\n!\320#\210\211\262\266\210\337\340!!C\"\207" [default-directory cl-struct-tramp-file-name-tags tramp-cache-undefined append tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-connection-property tramp-get-process "remote-path" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] process-file "getconf" nil "PATH" split-string point-at-eol ":" omit tramp-set-connection-property tramp-file-local-name expand-file-name] 17 (#$ . 7396)])
#@57 Like `file-system-info' for Tramp files.

(fn FILENAME)
(defalias 'tramp-sshfs-handle-file-system-info #[257 "\300\301!\205\301\302!!\207" [functionp file-system-info tramp-fuse-local-file-name] 4 (#$ . 8460)])
#@56 Like `file-writable-p' for Tramp files.

(fn FILENAME)
(defalias 'tramp-sshfs-handle-file-writable-p #[257 "\300\301!!\207" [file-writable-p tramp-fuse-local-file-name] 4 (#$ . 8680)])
#@93 Like `insert-file-contents' for Tramp files.

(fn FILENAME &optional VISIT BEG END REPLACE)
(defalias 'tramp-sshfs-handle-insert-file-contents #[1281 "C\211\301\242!\240\210\302\211C\303\304	$\216\211\305\306\242!				%\240*\207" [signal-hook-function expand-file-name nil make-closure #[0 "\301\203\300\242\300\242\302\242AB\207" [V0 V1 V2 buffer-file-name] 2] insert-file-contents tramp-fuse-local-file-name] 15 (#$ . 8872)])
#@100 Like `process-file' for Tramp files.

(fn PROGRAM &optional INFILE DESTINATION DISPLAY &rest ARGS)
(defalias 'tramp-sshfs-handle-process-file #[1153 "\247\203\304U\203\305\306!\210\307\310!!\211\242	>\204\"\311\312\313D\"\210\211A@\242	>\2043\311\312\313D\"\210\3148\242	>\204D\311\312\313D\"\210\3158\242	>\204V\311\312\313D\"\210\3168\242	>\204h\311\312\313D\"\210\3178\242	>\204z\311\312\313D\"\210\3208\242	>\204\216\311\312\313	D\"\210\3218\322\323\324\325!\326\327B\330##\331\211C\331\211C\331\204\272\332!\262\202\"\310!\331\211?\205\305\333!\211\211?\205\321\334\335\333!\")\266\202\203\357\211G\314U\203\351\336\202\355\211\314\331O\262\337!P)\266\203\262\340\"\203\n\341!\262\202\"\342!\262\343\344#\240\210\345\242\346#\210\203/\323\347#\262\350!\203=\262\202\315;\203L\351!\262\202\315:\203\305\350@!\203b@\262\202|@;\203s\351@!\262\202|@\203|p\262A@;\203\265A\310A@!\240\210\340A@\"\203\244\341A@!\262\202\315\342!\262\343\"\240\210\202\315A@\204\315\332!\262\202\315\203\315p\262\203\331\323\352#\262\353\354%\216\355\356\357\360\"\331\361\362\363\242	>\204\311\312\313D\"\210\3168\206\364\365\242	>\204 \311\312\313D\"\210\3148\206(\364\366\242	>\2049\311\312\313 D\"\210\3178\206A\364\367&\n&*\207" [default-directory cl-struct-tramp-file-name-tags coding-system-for-read file-name-handler-alist 0 error "Implementation does not handle immediate return" tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 utf-8-dos format "cd %s && exec %s" tramp-unquote-shell-quote-argument mapconcat tramp-shell-quote-argument " " nil tramp-get-remote-null-device file-local-name string-prefix-p "/:" "/" file-remote-p tramp-equal-remote tramp-unquote-file-local-name tramp-make-tramp-temp-file tramp-make-tramp-file-name nohop copy-file t "%s <%s" bufferp get-buffer-create "%s 2>%s" make-closure #[0 "\303\242\203\305\301\306\307#\210\310\301!\210\303\242\203\311\303\242\300A@\312#\210\302\242\203'\313\302\242!\210\f\205/\314\301\315\"\207" [V0 V1 V2 V3 process-file-side-effects tramp-cleanup-connection keep-debug keep-password tramp-fuse-unmount rename-file t delete-file tramp-flush-directory-properties #1=""] 4] apply tramp-call-process tramp-get-method-parameter tramp-login-program tramp-expand-args tramp-login-args 104 #1# 117 112 108] 39 (#$ . 9321)])
#@91 Like `rename-file' for Tramp files.

(fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS)
(defalias 'tramp-sshfs-handle-rename-file #[770 "\302!\262\302!\262\303\304!\205*\305!\211\242>\204#\306\307\310D\"\210\211A@\262	\230\262\2035\311!\2026\304!\205U\305!\211\242>\204N\306\307\310D\"\210\211A@\262	\230\262\203`\311!\202a#\210\304!\205\203\305!\211\242>\204|\306\307\310D\"\210\211A@\262	\230\262\203\305!\211\242>\204\231\306\307\310D\"\210\211A@\242>\204\252\306\307\310D\"\210\3128\242>\204\273\306\307\310D\"\210\3138\242>\204\315\306\307\310D\"\210\3148\242>\204\337\306\307\310D\"\210\3158\242>\204\361\306\307\310D\"\210\3168\242>\204\306\307\310	D\"\210\3178\320\"\266	\304!\205/\305!\211\242>\204(\306\307\310D\"\210\211A@\262	\230\262\205\274\305!\211\242>\204E\306\307\310D\"\210\211A@\242>\204V\306\307\310D\"\210\3128\242>\204g\306\307\310D\"\210\3138\242>\204y\306\307\310D\"\210\3148\242>\204\213\306\307\310D\"\210\3158\242>\204\235\306\307\310D\"\210\3168\242>\204\261\306\307\310	D\"\210\3178\320\"\266\210\207" [cl-struct-tramp-file-name-tags tramp-sshfs-method expand-file-name rename-file tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name tramp-fuse-local-file-name 2 3 4 5 6 7 tramp-flush-file-properties] 14 (#$ . 11865)])
#@75 Like `set-file-modes' for Tramp files.

(fn FILENAME MODE &optional FLAG)
(defalias 'tramp-sshfs-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\240\315\"\210\316\317\f!#\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-flush-file-properties tramp-compat-set-file-modes tramp-fuse-local-file-name] 15 (#$ . 13296)])
#@80 Like `set-file-times' for Tramp files.

(fn FILENAME &optional TIMESTAMP FLAG)
(defalias 'tramp-sshfs-handle-set-file-times #[769 "\301!\204\302\303\304\304\305%\210\306!\211\242>\204\307\310\311D\"\210\211A@\242>\2040\307\310\311D\"\210\3128\242>\204A\307\310\311D\"\210\3138\242>\204S\307\310\311D\"\210\3148\242>\204e\307\310\311D\"\210\3158\242>\204w\307\310\311D\"\210\3168\242>\204\213\307\310\311	D\"\210\3178\320=\205\232\321!?\205\256\322\"\210\323\324\f!#\207" [cl-struct-tramp-file-name-tags file-exists-p write-region "" nil 0 tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 nofollow file-symlink-p tramp-flush-file-properties tramp-compat-set-file-times tramp-fuse-local-file-name] 15 (#$ . 14024)])
#@105 Like `write-region' for Tramp files.

(fn START END FILENAME &optional APPEND VISIT LOCKNAME MUSTBENEW)
(defalias 'tramp-sshfs-handle-write-region #[1795 "\305!\262\306\206!\262\307!\211\242>\204\310\311\312D\"\210\211A@\242>\2040\310\311\312D\"\210\3138\242>\204A\310\311\312D\"\210\3148\242>\204S\310\311\312D\"\210\3158\242>\204e\310\311\312D\"\210\3168\242>\204w\310\311\312D\"\210\3178\242>\204\213\310\311\312	D\"\210\3208\203\264\321
!\203\264\322=\204\254\323\324\325\"!\204\264\326\327#\210\330\n!\331=\332\333!!\204\334\334!\203\334\211\204\334\331\262\335\336!\203\334\336!\210\337\340\341!\342%\210\343	\"\210)\331=\204;\203\344\345!\3168\262\206\346 !\210\211\203 \335\347!\203 \347!\210\n\204\325\331=\2042\350\f!\203\325\351\352C\3531\323X\205\315\314X\203s\f\204s\354\355\351U\203Y\356\202n\357U\203c\356\202n\313U\203m\360\202n\361P#\210\315Y\205\315\351\357U\203\255\3621\254r\363!\203\222\364!\202\226\365\366\"q\210\367P\262\370\371 C\"\211\262)0\210\202\255\210\363!\203\271\372\373\"\262)\242>\205\315\354\374\324\375\"P$0\266\202\325\266\376\377!\207" [cl-struct-tramp-file-name-tags create-lockfiles noninteractive tramp-verbose tramp-inhibit-progress-reporter expand-file-name file-truename 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 file-locked-p t auto-save-file-name-p file-name-nondirectory file-remote-p functionp lock-file nil write-region tramp-fuse-local-file-name nomessage tramp-flush-file-properties set-visited-file-modtime file-attributes current-time unlock-file string-or-null-p 0 "Wrote %s" (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) # " run-hooks tramp-handle-write-region-hook] 26 (#$ . 14834)])
#@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-sshfs-maybe-open-connection #[257 "\303!\204\304\305\211\"\210\306\307!!\2046\310\311\312!\313\307!\314\315\316\317\320\315\321\315&\f\322\323#\210\324\325\"\210\326!\266\327\330!!\204E\331\330!\332\"\210\333!\204\230\334\335\315\"r\211q\210\336\337\"\216\340\341\325\315\325\342	!\330\n!\343\344\345\242	>\204|\346\347\350D\"\210\3518\206\204\352$&	\353U*\262\204\230\354\355\356\342!$\210\357\360\361!\"\210\362\363!\364\315#\210\365\366\n#\211\n=\203\275\367\370!\262\362\366#\210\210\365\371\n#\211\n=\203\324\372\370!\262\362\371#\210\210\365\373\n#\211\n=\203\353\367\374!\262\362\373#\210\210\365\375\n#\211\n=\203\372\374!\262\362\375#\210\207" [tramp-sshfs-program cl-struct-tramp-file-name-tags tramp-cache-undefined tramp-connectable-p throw non-essential get-buffer-process tramp-get-connection-buffer make-network-process :name tramp-get-connection-name :buffer :server t :host local :service :noquery process-put vector set-process-query-on-exit-flag nil tramp-set-connection-local-variables file-directory-p tramp-fuse-mount-point make-directory parents tramp-fuse-mounted-p generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply tramp-call-process tramp-fuse-mount-spec tramp-expand-args tramp-mount-args 112 signal wrong-type-argument tramp-file-name 5 "" 0 tramp-error file-error "Error mounting %s" add-to-list tramp-fuse-mount-points tramp-file-name-unify tramp-set-connection-property tramp-get-connection-process "connected" tramp-get-connection-property "uid-integer" tramp-get-local-uid integer "gid-integer" tramp-get-local-gid "uid-string" string "gid-string"] 19 (#$ . 16933)])
#@80 Advice for `shell-mode' to tolerate tilde in remote file names.

(fn ORIG-FUN)
(defalias 'tramp-sshfs-tolerate-tilde #[257 "\206\n\303	\304\"\n\232\211 )\207" [tramp-tolerate-tilde default-directory tramp-sshfs-method file-remote-p method] 4 (#$ . 18853)])
(byte-code "\300\301\302\303B\304\305$\210\306\307\310\"\210\306\311\312\"\210\313\314!\207" [advice--add-function :around #[0 "\300K\207" [shell-mode] 1] #[257 "\300M\207" [shell-mode] 3 "\n\n(fn GV--VAL)"] tramp-sshfs-tolerate-tilde nil add-hook tramp-sshfs-unload-hook #[0 "\300\301K\302\"\211\301K=?\205\301M\207" [advice--remove-function shell-mode tramp-sshfs-tolerate-tilde] 3] tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-sshfs force] 3] provide tramp-sshfs] 5)

Youez - 2016 - github.com/yon3zu
LinuXploit