;ELC ;;; Compiled by amu@quiche-lorraine.mit.edu on Thu Jan 6 19:17:01 2000 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.8.3/lisp/base64.el ;;; in Emacs version 20.4.1 ;;; with bytecomp version 2.56 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`base64.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\204\n\303\304M\210\305\300!\204\306\300 B\302\207" [base64-alphabet current-load-list fboundp char-int identity boundp "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"] 2) #@190 *Non-nil value should be a string that names a MIME base64 decoder. The program should expect to read base64 data on its standard input and write the converted data to its standard output. (defvar base64-decoder-program nil (#$ . -857)) #@84 *List of command line flags passed to the command named by base64-decoder-program. (defvar base64-decoder-switches nil (#$ . -1100)) #@178 *Non-nil value should be a string that names a MIME base64 encoder. The program should expect arbitrary data on its standard input and write base64 data to its standard output. (defvar base64-encoder-program nil (#$ . -1240)) #@84 *List of command line flags passed to the command named by base64-encoder-program. (defvar base64-encoder-switches nil (#$ . -1472)) (byte-code "\306\300 B\307\304!\204*\310\311\312\"\n\203' \n@@\n@AI\210\nA\211\204 *\304 B\307\305!\2046\313\305 B\312\207" [base64-alphabet-decoding-alist current-load-list p v base64-alphabet-decoding-vector base64-binary-coding-system ((65 . 0) (66 . 1) (67 . 2) (68 . 3) (69 . 4) (70 . 5) (71 . 6) (72 . 7) (73 . 8) (74 . 9) (75 . 10) (76 . 11) (77 . 12) (78 . 13) (79 . 14) (80 . 15) (81 . 16) (82 . 17) (83 . 18) (84 . 19) (85 . 20) (86 . 21) (87 . 22) (88 . 23) (89 . 24) (90 . 25) (97 . 26) (98 . 27) (99 . 28) (100 . 29) (101 . 30) (102 . 31) (103 . 32) (104 . 33) (105 . 34) (106 . 35) (107 . 36) (108 . 37) (109 . 38) (110 . 39) (111 . 40) (112 . 41) (113 . 42) (114 . 43) (115 . 44) (116 . 45) (117 . 46) (118 . 47) (119 . 48) (120 . 49) (121 . 50) (122 . 51) (48 . 52) (49 . 53) (50 . 54) (51 . 55) (52 . 56) (53 . 57) (54 . 58) (55 . 59) (56 . 60) (57 . 61) (43 . 62) (47 . 63)) boundp make-vector 123 nil binary] 4) (defalias 'base64-run-command-on-region #[(start end output-buffer command &rest arg-list) "\306\211\211\211\211\307\216\310\311!\312\313\306D\306&\211\314\232\2032\315\202W\212\316!q\210\317 )\314U\203E\315\202W\212\316!q\210\320 \321\306!\210 \f)B.\207" [base64-binary-coding-system coding-system-for-read coding-system-for-write default-process-coding-system errstring status nil ((byte-code "\300\301\302\217\207" [#1=#:G81902 (delete-file tempfile) ((error))] 3)) make-temp-name "base64" apply call-process-region 0 t find-file-noselect buffer-size buffer-string kill-buffer tempfile start end command output-buffer arg-list] 10]) (byte-code "\302\303\"\203\304\305\306\"\210\202\305\307M\210\310\302\207" [emacs-version base64-binary-coding-system string-match "XEmacs" defalias base64-insert-char insert-char #[(char &optional count ignored buffer) "\203\np=\203\303 \n\"\207rq\210\303 \n\")\207" [buffer char count insert-char] 3] no-conversion] 3) (defalias 'base64-decode-region #[(start end) "\306\211\307\211\211\306\310P%&\311\216\212\312\313!&\314&!\210'\203H\315(\316\317)*&'+&\211,\315=\204D\320\321,A\"\210*\202$)b\210 *w\210%\204$`*w\307V\203\262`\n W\203\262\f-\322\nf!H\\ T\nT \323U\203\252\324\325\f\326\"\327\306&$\210\324\330\325\f\331\"\332\"\327\306&$\210\324\330\f\332\"\327\306&$\210\307\307\202c\325\f\333\"\202c`*U\203\317 \307U\204\310\320\334\323 Z\333_\"\210\315\211%\202S`f\335=\203\315% \327U\203\346\320\336!\210\202Q \337U\203\372\324\325\f\340\"\327\306&$\210\202Q \341U\203Q\324\325\f\326\"\327\306&$\210\324\330\325\f\331\"\332\"\327\306&$\210\202Q *w\210\202Q\342*!\2043\343 *\306\223*)b\210\344&!\210`*|. \207" [base64-alphabet non-data-chars inputpos lim bits counter nil 0 "^=" ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) generate-new-buffer " *base64-work*" buffer-disable-undo t apply base64-run-command-on-region error "%s" char-int 4 base64-insert-char lsh -16 1 logand -8 255 6 "at least %d bits missing at end of base64 encoding" 61 "at least 2 bits missing at end of base64 encoding" 2 -10 3 markerp make-marker insert-buffer-substring done work-buffer base64-decoder-program binary-process-output start end base64-decoder-switches status base64-alphabet-decoding-vector] 9 nil "r"]) (defalias 'base64-encode-region #[(start end &optional no-line-break) "\306\307!\210\310\311\211\211\310(\312\216\212\313\314!(\315(!\210)\203D\316\317*+(),&\211-\320=\204@\321\322-A\"\210)\202,*\211+W\203\304 \323 f!\\ T\211\324U\203\270\325\n\326 \327\"H\330\310($\210\325\n\331\326 \332\"\333\"H\330\310($\210\325\n\331\326 \334\"\333\"H\330\310($\210\325\n\331 \333\"H\330\310($\210\f\335\\\211\336U\203\261.\204\261\325\337\330\310($\210\311\311\311\202\275\326 \340\" T\211\202H \311U\204\326 \341 \340_Z\"\325\n\326 \327\"H\330\310($\210\325\n\331\326 \332\"\333\"H\330\310($\210 \330U\203\325\342\343\310($\210\202\325\n\331\326 \334\"\333\"H\330\310($\210\325\342\330\310($\210\f\311V\203,.\204,\325\337\330\310($\210\344+!\204;\345 +\310\223+*b\210\346(!\210`+|\210.\306\347!\207" [base64-alphabet inputpos alphabet bits cols counter message "Encoding base64..." nil 0 ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) generate-new-buffer " *base64-work*" buffer-disable-undo apply base64-run-command-on-region t error "%s" char-int 3 base64-insert-char lsh -18 1 logand -12 63 -6 4 72 10 8 16 61 2 markerp make-marker insert-buffer-substring "Encoding base64... done" work-buffer base64-encoder-program start end base64-encoder-switches status no-line-break] 8 nil "r"]) (defalias 'base64-encode #[(string &optional no-line-break) "\212\302\303!q\210\304 \210c\210\305ed #\210\306\307x\210d`|\210\310 \311p!\210)\207" [string no-line-break get-buffer-create " *base64-encode*" erase-buffer base64-encode-region " \n" nil buffer-string kill-buffer] 4]) (defalias 'base64-decode #[(string) "\212\301\302!q\210\303 \210c\210\304ed\"\210db\210\305\306x\210d`|\210\307 \310p!\210)\207" [string get-buffer-create " *base64-decode*" erase-buffer base64-decode-region " \n" nil buffer-string kill-buffer] 3]) (byte-code "\300\301M\210\302\303M\210\304\305!\207" [base64-decode-string base64-decode base64-encode-string base64-encode provide base64] 2)