| Current Path : /usr/share/emacs/24.3/lisp/mail/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/mail/uudecode.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:46 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/uudecode.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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\320\321\311\306&\210\314\322\307\323\311\306\320\324&\210\314\325\326\327\330\331\311\306\320\332& \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 "uudecode" "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 "List of command line flags passed to `uudecode-decoder-program'." (repeat string) uudecode-use-external (executable-find uudecode-decoder-program) "Use external uudecode program." :version "22.1" boolean] 10) (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 "\302\303 S\211\304V\203 \305P\202 \306P*\207" [str i 61 "^M" 0 "[^a-z]" ".?$"] 2)) (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)) #@180 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'. (defalias 'uudecode-decode-region-external #[(start end &optional file-name) "p\306\211\211\212\fb\210\307 \306\310#\203\260 \311y\210`$\203/ $;\204/ \312\313\306\211\211\314\311!%$$\203; \315$!\202S \316\317!\203L % &\317\320!)\202S \315\321\320!%\"'\306 ( )\322\216\323\324! *r*q\210\325\216\326\327\n!\330\261\210\331 +#\210\332\333\n!!\210\334\335ed,\306\211\211-&\210.\336\n!\203\254 $\204\260 \fb\210\f+|\210\306 .\337\n!\210)\202\260 \340\341!\210\306\342\343\217-\207" [status firstline tempfile cbuf start uudecode-begin-line 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 ((byte-code "\302!\210 q\207" [cdir cbuf cd] 2)) generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "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" (byte-code "\206 \302 !\207" [file-name tempfile delete-file] 2) ((error)) file-name uudecode-temporary-file-directory temporary-file-directory default-directory default-process-coding-system cdir #1# end uudecode-decoder-program uudecode-decoder-switches format-alist] 9 (#$ . 1857) "r\nP"]) (byte-code "\300\301\302\303!\203\f \303\202 \304\"\207" [defalias uudecode-string-to-multibyte fboundp string-to-multibyte #[(string) "\301\302\303#\207" [string mapconcat #[(ch) "\301\302!!\207" [ch string-as-multibyte char-to-string] 3] ""] 4 "Return a multibyte string with the same individual chars as string."]] 4) #@129 Uudecode region between START and END without using an external program. If FILE-NAME is non-nil, save the result to FILE-NAME. (defalias 'uudecode-decode-region-internal #[(start end &optional file-name) "\306\307\211\211\211\306\211\310P * + ,\212-b\210\311.\306\312#\205\253/\203; /;\204; \313\314\315\306\211\211\316\317!%!/\317y\210 0w\210,\2041`\307\211*\307+0w\307V\203\316 `\320 f\321Z\322\"* T*\307U\203s \312, \fW\203\316 *\307V\203\316 \320 f\321Z\322\"\\+\307U\204\226 *S*+T+ T+\323U\203\306 \324\325 \326\"!\324\320\325 \327\"\330\"!\324\320 \330\"!Q\nB\307\211+\202s \325 \331\"\202s ,\204)\307*V\203\344 \332\333!\210\312,\202)`0U\203\366 ,\204\366 \312,\202)+\334U\203\324\320\325 \326\"\330\"!\324\320\325 \327\"\330\"!P\nB\202)+\335U\203)\324\320\325 \336\"\330\"!\nB 0w\210\202C /\203e/\337\340\341!! 1 2\342\216r1q\210\343\306!\210\344\345\n\237\"c)r1q\210\346\306\2112\306\307%\210,\202\253\3470!\204t\350 0\306\2230-b\2103\203\240\n\237\306 4\211 5\203\2345@4\3514!c\2105A\2115\204\210*\202\247\344\345\n\237\"c\210`0|. \207" [uudecode-alphabet non-data-chars result inputpos lim bits nil 0 "^" re-search-forward t expand-file-name read-file-name "File to Name:" match-string 1 logand 32 63 4 char-to-string lsh -16 -8 255 6 error "uucode line ends unexpectedly" 3 2 -10 get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) set-buffer-multibyte apply concat write-region markerp make-marker uudecode-string-to-multibyte remain counter done start uudecode-begin-line file-name end #1# #2=#:temp-file enable-multibyte-characters x --dolist-tail--] 10 (#$ . 3710) "r\nP"]) #@95 Uudecode region between START and END. If FILE-NAME is non-nil, save the result to FILE-NAME. (defalias 'uudecode-decode-region #[(start end &optional file-name) "\203\n \304 \n #\207\305 \n #\207" [uudecode-use-external start end file-name uudecode-decode-region-external uudecode-decode-region-internal] 4 (#$ . 5487)]) (provide 'uudecode)