Current File : //usr/local/share/emacs/27.2/lisp/net/tramp-uu.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@66 Mapping from base64-encoded character to the byte it represents.
(defconst tramp-uu-b64-alphabet "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" (#$ . 408))
#@53 Alist of mapping from base64 character to its byte.
(defconst tramp-uu-b64-char-to-byte (byte-code "\301C\302\303\304\305\306\307!\310\"\311\312%\"\207" [tramp-uu-b64-alphabet 0 mapcar make-byte-code 257 "\211\300\242B\300\211\242T\240\210\207" vconcat vector [] 4 "\n\n(fn C)"] 8) (#$ . 590))
#@48 Return the character encoding BYTE.
(fn BYTE)
(defalias 'tramp-uu-byte-to-uu-char #[257 "\211\300U\203 \301\207\211\302\\\207" [0 96 32] 3 (#$ . 893)])
#@53 Return the byte that is encoded as CHAR.
(fn CHAR)
(defalias 'tramp-uu-b64-char-to-byte #[257 "\211\236A\207" [tramp-uu-b64-char-to-byte] 3 (#$ . 1053)])
#@57 UU-encode the region between BEG and END.
(fn BEG END)
(defalias 'tramp-uuencode-region #[514 "\300\301#\302\211\212b\210\303\262W\203O `f\262\304\305!\210\211\306\232\203, \307c\210S\262\2027 \310\311!!c\210T\262\312\246\303U\203 \212\313 \210\314\315!c\210)\316c\210\202 \312\246\303U\204k \212\313 \210\314\317Z\320\246\\!c\210)\316c\210\321c\210b\210\322c)\207" [base64-encode-region t nil 0 delete-char 1 61 "`" tramp-uu-byte-to-uu-char tramp-uu-b64-char-to-byte 60 beginning-of-line char-to-string 77 "\n" 32 45 "`\nend\n" "begin 600 xxx\n"] 9 (#$ . 1215)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-uu force] 3] provide tramp-uu] 3)
Mini Shell