|
Server IP : 111.118.215.189 / Your IP : 3.136.20.207 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/net/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:38 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/tramp-uu.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@66 Mapping from base64-encoded character to the byte it represents. (defvar tramp-uu-b64-alphabet "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" (#$ . 555)) #@53 Alist of mapping from base64 character to its byte. (defvar tramp-uu-b64-char-to-byte (byte-code "\302\303\304 \")\207" [i tramp-uu-b64-alphabet 0 mapcar #[(c) " B T\207" [c i] 2]] 3) (#$ . 735)) #@37 Return the character encoding BYTE. (defalias 'tramp-uu-byte-to-uu-char #[(byte) "\301!\203 \302\207\303\\\207" [byte zerop 96 32] 2 (#$ . 940)]) #@42 Return the byte that is encoded as CHAR. (defalias 'tramp-uu-b64-char-to-byte #[(char) " \236A\207" [char tramp-uu-b64-char-to-byte] 2 (#$ . 1095)]) #@43 UU-encode the region between BEG and END. (defalias 'tramp-uuencode-region #[(beg end) "\306 \307#\310\311\211 \212b\210\310 W\203P `f\312\313!\210\n\314\232\203. \315c\210 S\2028 \316\317\n!!c\210 T\320 \321\246!\203 \212\322 \210\323\324!c\210)\325c\210\202 \320 \321\246!\204k \212\322 \210\323\326 Z\327\246\\!c\210)\325c\210\330c\210b\210\331c-\207" [beg end c i padding len base64-encode-region t 0 nil delete-char 1 61 "`" tramp-uu-byte-to-uu-char tramp-uu-b64-char-to-byte zerop 60 beginning-of-line char-to-string 77 "\n" 32 45 "`\nend\n" "begin 600 xxx\n"] 4 (#$ . 1251)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-uu force] 3] provide tramp-uu] 3)