Current File : //usr/local/share/emacs/27.2/lisp/mail/uudecode.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\302\303!\203\f \303\202
\304\"\210\305\306\307\310\311\312\311\313&\210\314\315\316\317\320DD\321\322\323%\210\314\324\316\317\325DD\326\322\327%\210\314\330\316\317\331DD\332\333\334\322\335&\207" [defalias uudecode-char-int fboundp char-int identity custom-declare-group uudecode nil "Decoding of uuencoded data." :group mail news custom-declare-variable uudecode-decoder-program funcall function #[0 "\300\207" [#1="uudecode"] 1 #1#] "Non-nil value should be a string that names a uu decoder.\nThe program should expect to read uu data on its standard\ninput and write the converted data to its standard output." :type string uudecode-decoder-switches #[0 "\300\207" [nil] 1] "List of command line flags passed to `uudecode-decoder-program'." (repeat string) uudecode-use-external #[0 "\301!\207" [uudecode-decoder-program executable-find] 2] "Use external uudecode program." :version "22.1" boolean] 8)
(defconst uudecode-alphabet " -`")
(defconst uudecode-begin-line "^begin[ ]+[0-7][0-7][0-7][ ]+\\(.*\\)$")
(defconst uudecode-end-line "^end[ ]*$")
(defconst uudecode-body-line (byte-code "\300\301S\211\262\302V\203 \211\303P\262\202 \211\304P\207" [61 "^M" 0 "[^a-z]" ".?$"] 4))
(defvar uudecode-temporary-file-directory (byte-code "\301\302!\203 \302 \207\303\300!\203 \207\304\207" [temporary-file-directory fboundp temp-directory boundp "/tmp"] 2))
#@216 Uudecode region between START and END using external program.
If FILE-NAME is non-nil, save the result to FILE-NAME. The program
used is specified by `uudecode-decoder-program'.
(fn START END &optional FILE-NAME)
(defalias 'uudecode-decode-region-external #[770 "p\306\211\212b\210\307\306\310#\203\265 \311y\210`\262\203) ;\204) \312\313\306\211\211\314\311!%\262\2033 \315!\202H \316\317!\203B \317\320!)\202H \315\321\320! \"\262 \306 \322\323\324\325\326\"\327\"\330$\216\331\332!r\211q\210\322\323\333\325\326!\334\"\330$\216\335\336!\337\261\210\340 #\210\341\342!!\210\343\344ed
\306\211\211+&\210*\210*\210\345!\203\261 \204\265 b\210|\210\306 ,\346!\210)\202\265 \347\350!\210\3511\304 \206\300 \352!0\202\306 \210\306)\207" [uudecode-begin-line uudecode-temporary-file-directory temporary-file-directory default-directory default-process-coding-system uudecode-decoder-program nil re-search-forward t 1 read-file-name "File to Name:" match-string expand-file-name fboundp make-temp-file "uu" make-temp-name make-byte-code 0 "\302\301!\210\300q\207" vconcat vector [cd] 2 generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] "begin 600 " file-name-nondirectory "\n" insert-buffer-substring cd file-name-directory apply call-process-region file-exists-p insert-file-contents-literally message "Can not uudecode" (error) delete-file uudecode-decoder-switches format-alist] 17 (#$ . 1805) "r\nP"])
#@165 Uudecode region between START and END without using an external program.
If FILE-NAME is non-nil, save the result to FILE-NAME.
(fn START END &optional FILE-NAME)
(defalias 'uudecode-decode-region-internal #[770 "\303\304\211\211\211\303\211\305P\212\nb\210\306 \303\307#\205\211\203/ ;\204/ \310\311\312\303\211\211\313\314!%!\262 \314y\210\211\nw\210\204+`\262\304\262\304\262\304\262\nw\304V\203\311 `\262\315\316f!\317Z\320\"\262T\262\304U\203l \307\262W\203\311 \304V\203\311 \315\316f!\317Z\320\"\\\262\304U\204\220 S\262T\262T\262\321U\203\300 \315\322\"\315\323\324\"\322\"\323\325\"BBB\262\304\262\304\262\202l \323\326\"\262\202l \204#\304V\203\337 \327\330!\210\307\262\202#`\nU\203\361 \204\361 \307\262\202#\331U\203\315\323\324\"\322\"\315\323\325\"\322\"BB\262\202#\332U\203#\315\323\333\"\322\"B\262\211\nw\210\2027 \203a\334\335!\336\304\337\340\341!\342\"\332$\216r\211q\210\343\303!\210\344\345\237\")rq\210\346\303\211\303\304%\210*\266\202\202\211\347\n!\204p\350 \n\303\223\262\n\nb\210\344\345\n\203\201\351\352\"\202\202\237\"\210`\n|)\207" [uudecode-alphabet uudecode-begin-line enable-multibyte-characters nil 0 "^" re-search-forward t expand-file-name read-file-name "File to Name:" match-string 1 logand uudecode-char-int 32 63 4 255 ash -8 -16 6 error "uucode line ends unexpectedly" 3 2 -10 generate-new-buffer " *temp file*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] set-buffer-multibyte apply insert write-region markerp make-marker mapcar #[257 "\300\301\"\206 \211\207" [decode-char eight-bit] 4 "\n\n(fn CH)"]] 20 (#$ . 3284) "r\nP"])
#@131 Uudecode region between START and END.
If FILE-NAME is non-nil, save the result to FILE-NAME.
(fn START END &optional FILE-NAME)
(defalias 'uudecode-decode-region #[770 "\203\n \301#\207\302#\207" [uudecode-use-external uudecode-decode-region-external uudecode-decode-region-internal] 7 (#$ . 5011)])
(provide 'uudecode)
Mini Shell