WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/mail
Viewing File: /usr/share/emacs/24.3/lisp/mail/binhex.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:58:37 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/binhex.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\323\324\311\306\320\325&\210\314\326\327\330\331\332\311\306\320\333&	\207" [defalias binhex-char-int fboundp char-int identity custom-declare-group binhex nil "Decoding of BinHex (binary-to-hexadecimal) data." :group mail news custom-declare-variable binhex-decoder-program "hexbin" "Non-nil value should be a string that names a binhex decoder.\nThe program should expect to read binhex data on its standard\ninput and write the converted data to its standard output." :type string binhex-decoder-switches '("-d") "List of command line flags passed to the command `binhex-decoder-program'." (repeat string) binhex-use-external (executable-find binhex-decoder-program) "Use external binhex program." :version "22.1" boolean] 10)
(defconst binhex-alphabet-decoding-alist '((33 . 0) (34 . 1) (35 . 2) (36 . 3) (37 . 4) (38 . 5) (39 . 6) (40 . 7) (41 . 8) (42 . 9) (43 . 10) (44 . 11) (45 . 12) (48 . 13) (49 . 14) (50 . 15) (51 . 16) (52 . 17) (53 . 18) (54 . 19) (56 . 20) (57 . 21) (64 . 22) (65 . 23) (66 . 24) (67 . 25) (68 . 26) (69 . 27) (70 . 28) (71 . 29) (72 . 30) (73 . 31) (74 . 32) (75 . 33) (76 . 34) (77 . 35) (78 . 36) (80 . 37) (81 . 38) (82 . 39) (83 . 40) (84 . 41) (85 . 42) (86 . 43) (88 . 44) (89 . 45) (90 . 46) (91 . 47) (96 . 48) (97 . 49) (98 . 50) (99 . 51) (100 . 52) (101 . 53) (102 . 54) (104 . 55) (105 . 56) (106 . 57) (107 . 58) (108 . 59) (109 . 60) (112 . 61) (113 . 62) (114 . 63)))
(defalias 'binhex-char-map #[(char) "	\236A\207" [char binhex-alphabet-decoding-alist] 2])
#@67 Regular expression matching the start of a BinHex encoded region.
(defconst binhex-begin-line "^:...............................................................$" (#$ . 2205))
(defconst binhex-body-line "^[^:]...............................................................$")
(defconst binhex-end-line ":$")
(defvar binhex-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))
(defalias 'binhex-insert-char #[(char &optional count ignored buffer) "\203\np=\203\303	\n\"\207rq\210\303	\n\")\207" [buffer char count insert-char] 3 "Insert COUNT copies of CHARACTER into BUFFER."])
(defvar binhex-crc-table [0 4129 8258 12387 16516 20645 24774 28903 33032 37161 41290 45419 49548 53677 57806 61935 4657 528 12915 8786 21173 17044 29431 25302 37689 33560 45947 41818 54205 50076 62463 58334 9314 13379 1056 5121 25830 29895 17572 21637 42346 46411 34088 38153 58862 62927 50604 54669 13907 9842 5649 1584 30423 26358 22165 18100 46939 42874 38681 34616 63455 59390 55197 51132 18628 22757 26758 30887 2112 6241 10242 14371 51660 55789 59790 63919 35144 39273 43274 47403 23285 19156 31415 27286 6769 2640 14899 10770 56317 52188 64447 60318 39801 35672 47931 43802 27814 31879 19684 23749 11298 15363 3168 7233 60846 64911 52716 56781 44330 48395 36200 40265 32407 28342 24277 20212 15891 11826 7761 3696 65439 61374 57309 53244 48923 44858 40793 36728 37256 33193 45514 41451 53516 49453 61774 57711 4224 161 12482 8419 20484 16421 28742 24679 33721 37784 41979 46042 49981 54044 58239 62302 689 4752 8947 13010 16949 21012 25207 29270 46570 42443 38312 34185 62830 58703 54572 50445 13538 9411 5280 1153 29798 25671 21540 17413 42971 47098 34713 38840 59231 63358 50973 55100 9939 14066 1681 5808 26199 30326 17941 22068 55628 51565 63758 59695 39368 35305 47498 43435 22596 18533 30726 26663 6336 2273 14466 10403 52093 56156 60223 64286 35833 39896 43963 48026 19061 23124 27191 31254 2801 6864 10931 14994 64814 60687 56684 52557 48554 44427 40424 36297 31782 27655 23652 19525 15522 11395 7392 3265 61215 65342 53085 57212 44955 49082 36825 40952 28183 32310 20053 24180 11923 16050 3793 7920])
(defalias 'binhex-update-crc #[(crc char &optional count) "\204\304\305V\203)\306\307\310	\311\"\312\"\n\306\307\310	\313\"\314\"\"H\"S\211\202	\207" [count crc binhex-crc-table char 1 0 logxor logand lsh 8 65280 -8 255] 9])
(defalias 'binhex-verify-crc #[(buffer start end) "rq\210	\306\n\307Z\211W\203\310\f
f\"
T\211\202
\f\311\n{!U?\205-\312\313!,\207" [buffer start end last crc pos 0 2 binhex-update-crc binhex-string-big-endian error "CRC error"] 5])
(defalias 'binhex-string-big-endian #[(string) "\304\211G\n	W\203\305\306\"\nH\\\nT\211\202+\207" [string len i ret 0 lsh 8] 4])
(defalias 'binhex-string-little-endian #[(string) "\305\211\211G	W\203\"\f\306H\n\"\\T\n\307\\\202	\f,\207" [string len shift i ret 0 lsh 8] 4])
(defalias 'binhex-header #[(buffer) "rq\210e\303\304\nf\211\nT\211\211	\\\211{\nf\211\nT\211\211\305\\\211{\n\211\305\\\211{\306\n\211\307\\\211{!\306\n\211\305\\\211{!\306\n\211\305\\\211{!&+\207" [buffer len pos nil vector 4 binhex-string-big-endian 2] 13])
(defalias 'binhex-push-char #[(char &optional count ignored buffer) "\203$	\305=\203\306\307\211\310\f$\210\202 \306\n	S\f$\210\311\311\211\207	\307U\203.\312\211\207\306	\211\310\f$\207" [binhex-repeat char binhex-last-char ignored buffer 0 binhex-insert-char 144 1 nil t] 5])
#@145 Binhex decode region between START and END without using an external program.
If HEADER-ONLY is non-nil only decode header and return filename.
(defalias 'binhex-decode-region-internal #[(start end &optional header-only) "\306\307\211\310\307\306\311\306\211\211\211\211%&'()*\312\216\212+b\210\313,-\310#\203I\314\315!*r*q\210\316\306!\210)\317 \210\307\211()'\203
-w\210`%\306\210`&%&W\203\277\320%f!\211'\203\277('\\()T)%T%)\321U\203\265\322\323(\324\"\325\306*$\210\322\326\323(\327\"\330\"\325\306*$\210\322\326(\330\"\325\306*$\210\307\211()\202Z\323(\331\"(\202Z\f\204\322r*q\210ef\332e\f\333#)\n\204\372r*q\210\334 Y)\203\372\335*e#\210\336*!.\203\372\306'\307)'\205%-=?\211'\204L)\337U\2033\322\326\323(\324\"\330\"\325\306*$\210\322\326\323(\327\"\330\"\325\306*$\210\202I)\340U\203I\322\326\323(\341\"\330\"\325\306*$\210.\204~\335*\332\n\331H\340##\210\342-!\204j\343 -\306\223-+b\210\344*\211\n\331H\\#\210`-|\210*\n\205\206\n\325H.\f\207" [binhex-repeat binhex-last-char header data-fork-start file-name-length non-data-chars nil 0 t " 	\n
:" ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) re-search-forward generate-new-buffer " *binhex-work*" set-buffer-multibyte beginning-of-line binhex-char-map 4 binhex-push-char lsh -16 1 logand -8 255 6 + 22 buffer-size binhex-verify-crc binhex-header 3 2 -10 markerp make-marker insert-buffer-substring inputpos lim tmp bits counter work-buffer start binhex-begin-line end header-only] 13 (#$ . 5770) "r"])
#@68 Binhex decode region between START and END using external decoder.
(defalias 'binhex-decode-region-external #[(start end) "p\306\211\211\307\310	\311#\312P\n\"\212b\210\313\306\311#\203q\306 \314\216\315\316!\211q\210\317
!\210\320	#\210\321\n!\210\322\323ed!\306\211\211\"&\210+\203m\324!\203mb\210	|\210\306#\325!\210)\202q\326\327!\210
\203y\330
!\210\306\331\332\217.\207" [start end binhex-temporary-file-directory file-name status work-buffer nil expand-file-name binhex-decode-region-internal t ".data" re-search-forward ((byte-code "\302!\210	q\207" [cdir cbuf cd] 2)) generate-new-buffer " *binhex-work*" buffer-disable-undo insert-buffer-substring cd apply call-process-region file-exists-p insert-file-contents-literally error "Can not binhex" kill-buffer (byte-code "\205\301!\207" [file-name delete-file] 2) ((error)) firstline cbuf binhex-begin-line default-directory default-process-coding-system cdir binhex-decoder-program binhex-decoder-switches format-alist] 9 (#$ . 7365) "r"])
#@45 Binhex decode region between START and END.
(defalias 'binhex-decode-region #[(start end) "\203	\303	\n\"\207\304	\n\"\207" [binhex-use-external start end binhex-decode-region-external binhex-decode-region-internal] 3 (#$ . 8410) "r"])
(provide 'binhex)
F1l3 Manager
