;ELC   
;;; Compiled by root@tweety.build.redhat.com on Tue Dec 14 03:50:01 2004
;;; from file /usr/src/build/496412-noarch/BUILD/flim-1.14.7/sha1-el.el
;;; in Emacs version 21.3.1
;;; with bytecomp version 2.85.4.1
;;; 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 "`sha1-el.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\"\210\305\306\307\310\311\312%\207" [require hex-util autoload executable-find "executable" custom-declare-group sha1 nil "Elisp interface for SHA1 hash computation." :group extensions] 6)
#@248 *Maximum length of message to use Lisp version of SHA1 function.
If message is longer than this, `sha1-program' is used instead.

If this variable is set to 0, use external program only.
If this variable is set to nil, use internal function only.
(custom-declare-variable 'sha1-maximum-internal-length '500 '(#$ . -864) :type 'integer :group 'sha1)
#@110 *Name of program to compute SHA1.
It must be a string (program name) or list of strings (name and its args).
(custom-declare-variable 'sha1-program ''("sha1sum") '(#$ . -1220) :type '(repeat string) :group 'sha1)
#@89 *Use external SHA1 program.
If this variable is set to nil, use internal function only.
(custom-declare-variable 'sha1-use-external '(condition-case nil (executable-find (car sha1-program)) (error)) '(#$ . -1439) :type 'boolean :group 'sha1)
(defalias 'sha1-string-external #[(string &optional binary) "\306\211\211\211\f:\203 \f@\fA\202 \f\306\307\310\311!!\312\216rq\210c\210\313\314ed\315\211\306\n&\210ee\316\\{+\203H \317	!\202I 	,\207" [default-enable-multibyte-characters digest args prog sha1-program #1=#:temp-buffer nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) apply call-process-region t 40 decode-hex-string string binary] 9])
(defalias 'sha1-region-external #[(beg end &optional binary) "\303\304	\"\n\"\207" [beg end binary sha1-string-external buffer-substring-no-properties] 4])
(byte-code "\301B\302B\303B\304B\305B\306B\307B\310B\311B\312B\301\207" [current-load-list sha1-H0-high sha1-H0-low sha1-H1-high sha1-H1-low sha1-H2-high sha1-H2-low sha1-H3-high sha1-H3-low sha1-H4-high sha1-H4-low] 2)
(defalias 'sha1-block #[(block-high block-low) "	\n\f!\"#$\306%&'()*+,-./\307\21101%\310W\203\251 \3112%\312ZH2%\313ZH2%\314ZH2%\306ZH$\3113%\312ZH3%\313ZH3%\314ZH3%\306ZH$4\2115\211\\\315\\\316\2464\317\245\\15\317\2454\211\\\315\\\316\246\\0*2%1I\2103%0I\210%T\211%\202- *\315%\307\211\211\211\2116789:%\320W\203l/\321_\316\246.\322\245\\:/\322\245.\321_\316\246\\9-\323\245,\323\246\324_\\8,\323\245-\323\246\324_\\7\311(\325,\311*(\"\"\"&\\3%H\\(&*(7*.,9\\\326\\\211.\316\2456.\316\246.\311)\325-\311+)\"\"\"'\\2%H\\)'+)8+/-:\\6\\\327\\\316\246/%T\211%\202\276 %\330W\203/\321_\316\246.\322\245\\:/\322\245.\321_\316\246\\9-\323\245,\323\246\324_\\8,\323\245-\323\246\324_\\7\311,*(#&\\3%H\\(&*(7*.,9\\\331\\\211.\316\2456.\316\246.\311-+)#'\\2%H\\)'+)8+/-:\\6\\\332\\\316\246/%T\211%\202n%\333W\203\310/\321_\316\246.\322\245\\:/\322\245.\321_\316\246\\9-\323\245,\323\246\324_\\8,\323\245-\323\246\324_\\7\334\325,*\"\325(\334,*\"\"\"&\\3%H\\(&*(7*.,9\\\335\\\211.\316\2456.\316\246.\334\325-+\"\325)\334-+\"\"\"'\\2%H\\)'+)8+/-:\\6\\\336\\\316\246/%T\211%\202%\310W\203l/\321_\316\246.\322\245\\:/\322\245.\321_\316\246\\9-\323\245,\323\246\324_\\8,\323\245-\323\246\324_\\7\311,*(#&\\3%H\\(&*(7*.,9\\\337\\\211.\316\2456.\316\246.\311-+)#'\\2%H\\)'+)8+/-:\\6\\\340\\\316\246/%T\211%\202\312-\3076	.\\\211\316\2456	\316\246/\\6\\\316\246,\\\211\316\2456\316\246\n-\\6\\\316\246*\\\211\316\2456\316\246\f+\\6\\\316\246\"(\\\211\"\316\2456\"\316\246\"!)\\6\\\316\246!$&\\\211$\316\2456$\316\246$#'\\6\\\316\246\211#.\f\207" [sha1-H0-high sha1-H0-low sha1-H1-high sha1-H1-low sha1-H2-high sha1-H2-low 16 nil 80 logxor 3 8 14 0 65536 32768 20 32 2048 4 16384 logand 31129 23170 40 60321 28377 60 logior 48348 36635 49622 51810 sha1-H3-high sha1-H3-low sha1-H4-high sha1-H4-low idx sha1-E-low sha1-E-high sha1-D-low sha1-D-high sha1-C-low sha1-C-high sha1-B-low sha1-B-high sha1-A-low sha1-A-high S1W-low S1W-high block-high block-low W-low W-high carry S30B-low S30B-high S5A-low S5A-high] 12])
#@43 Return the SHA1 of STRING in binary form.
(defalias 'sha1-binary #[(string) "\306\307\310\216\nG\211\311\245\311_\312\246\3132\3133\3144\3155\3166\3177\3208\3219\322:\323;\324<\325=3\fW\203\206 \3132\313\326W\203~ 	2\n3H\327_\n3TH\\I\2103\330\\32\n3H\327_\n3TH\\I\2103\330\\32T\2112\202B \331	\"\210\2027 \fZ\332WZ\31323\fW\203\317 	2\n3H\327_\n3TH\\I\2103\330\\32\n3H\327_\n3TH\\I\2103\330\\32T2\202\222 \333U\203\374 	2\n3H\327_\n3TH\\I\2103\330\\32\n3H\327_\334\\I\210\202D\330U\203	2\n3H\327_\n3TH\\I\2102\335I\210\202D\336U\2038	2\n3H\327_\334\\I\2102\313I\210\202D	2\335I\2102\313I\2102T\2112\326W\203d	2\313I\2102\313I\2102T\2112\202J\203\203\337\340\246\341_I\210\340\245	\337\342\246I\210\331	\"\210\202\253\331	\"\210\343	\313\"\210\343\313\"\210\337\340\246\341_I\210\340\245	\337\342\246I\210\331	\"\210\344\345\313\"\211>\3134\327\245I\210>\3364\327\246I\210>\3305\327\245I\210>\3335\327\246I\210>\3126\327\245I\210>\3466\327\246I\210>\3477\327\245I\210>\3507\327\246I\210>\3418\327\245I\210>\3518\327\246I\210>\3529\327\245I\210>\3539\327\246I\210>\354:\327\245I\210>\355:\327\246I\210>\356;\327\245I\210>\337;\327\246I\210>\326<\327\245I\210>\357<\327\246I\210>\360=\327\245I\210>\361=\327\246I\210>.	\207" [block-low block-high string len lim rem [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] ((byte-code "\302\303\"\210\302	\303\"\207" [block-high block-low fillarray nil] 3)) 64 4 0 26437 8961 61389 43913 39098 56574 4146 21622 50130 57840 16 256 2 sha1-block 56 3 128 32768 1 15 8192 8 65536 fillarray make-string 20 5 6 7 9 10 11 12 13 14 17 18 19 idx pos sha1-H0-high sha1-H0-low sha1-H1-high sha1-H1-low sha1-H2-high sha1-H2-low sha1-H3-high sha1-H3-low sha1-H4-high sha1-H4-low result] 7 (#$ . 4914)])
(defalias 'sha1-string-internal #[(string &optional binary) "\203 \302	!\207\303\302	!!\207" [binary string sha1-binary encode-hex-string] 3])
(defalias 'sha1-region-internal #[(beg end &optional binary) "\303\304	\"\n\"\207" [beg end binary sha1-string-internal buffer-substring-no-properties] 4])
(defalias 'sha1-region #[(beg end &optional binary) "\203 	\203 \305\nZ!	V\203 \306\n\f#\207\307\n\f#\207" [sha1-use-external sha1-maximum-internal-length end beg binary abs sha1-region-external sha1-region-internal] 4])
(defalias 'sha1-string #[(string &optional binary) "\203 	\203 \nG	V\203 \304\n\"\207\305\n\"\207" [sha1-use-external sha1-maximum-internal-length string binary sha1-string-external sha1-string-internal] 3])
#@250 Return the SHA1 (Secure Hash Algorithm) of an object.
OBJECT is either a string or a buffer.
Optional arguments BEG and END denote buffer positions for computing the
hash of a portion of OBJECT.
If BINARY is non-nil, return a string in binary form.
(defalias 'sha1 #[(object &optional beg end binary) ";\203\n \304	\"\207\212q\210\305\n\206 e\206 d	#)\207" [object binary beg end sha1-string sha1-region] 4 (#$ . 8138)])
(provide 'sha1-el)
