ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/epg-config.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@23 Name of this package.
(defconst epg-package-name "epg" (#$ . 410))
#@33 Version number of this package.
(defconst epg-version-number "1.0.0" (#$ . 483))
#@30 Report bugs to this address.
(defconst epg-bug-report-address "ueno@unixuser.org" (#$ . 570))
(byte-code "\300\301\302\303\304\305\306\307\310\311\310\312& \210\313\314\315\316\306\317\310\301\320\321& \210\313\322\323\324\310\301\320\321&\210\313\325\326\327\306\317\310\301\320\321& \210\313\330\302\331\310\301\320\332&\210\313\333\302\334\310\301\320\335&\210\313\336\302\337\310\301\320\340&\207" [custom-declare-group epg nil "Interface to the GNU Privacy Guard (GnuPG)." :tag "EasyPG" :version "23.1" :group data external custom-declare-variable epg-gpg-program (if (executable-find "gpg2") "gpg2" "gpg") "The `gpg' executable." "25.1" :type string epg-gpgsm-program "gpgsm" "The `gpgsm' executable." epg-gpgconf-program "gpgconf" "The `gpgconf' executable." epg-gpg-home-directory "The directory which contains the configuration files of `epg-gpg-program'." (choice (const :tag "Default" nil) directory) epg-passphrase-coding-system "Coding system to use with messages from `epg-gpg-program'." symbol epg-debug "If non-nil, debug output goes to the \" *epg-debug*\" buffer.\nNote that the buffer name starts with a space." boolean] 12)
(defconst epg-gpg-minimum-version "1.4.3")
#@442 Alist used to obtain the usable configuration of executables.
The first element of each entry is protocol symbol, which is
either `OpenPGP' or `CMS'. The second element is a symbol where
the executable name is remembered. The third element is a
function which constructs a configuration object (actually a
plist). The rest of the entry is an alist mapping executable
names to the minimum required version suitable for the use with
Emacs.
(defconst epg-config--program-alist '((OpenPGP epg-gpg-program epg-config--make-gpg-configuration ("gpg2" . "2.1.6") ("gpg" . "1.4.3")) (CMS epg-gpgsm-program epg-config--make-gpgsm-configuration ("gpgsm" . "2.0.4"))) (#$ . 1768))
(defvar epg--configurations nil)
#@416 Find or create a usable configuration to handle PROTOCOL.
This function first looks at the existing configuration found by
the previous invocation of this function, unless FORCE is non-nil.
Then it walks through `epg-config--program-alist'. If
`epg-gpg-program' or `epg-gpgsm-program' is already set with
custom, use it. Otherwise, it tries the programs listed in the
entry until the version requirement is met.
(defalias 'epg-find-configuration #[(protocol &optional force) " \236\211\204
\306\307\"\210\nA\211A\203 \211A\242\202$ \310\311\312 GD\" \211A\242 \2048 \313\"\206\254 \f\314N\203S
\fJ! BB)\202\254 \3152\254 \312 \211 \205\252 @\316@!\211 \203\237
! \3171\210 \320A\"\210\3210\202\214 \210\202\236 \203\236 BB\322\315\"\210))A\211\204a \312*0,\207" [protocol epg-config--program-alist entry alist symbol constructor error "Unknown protocol %S" signal wrong-number-of-arguments nil alist-get saved-value found executable-find (error) epg-check-configuration t throw force epg--configurations configuration program-version --dolist-tail-- executable] 5 (#$ . 2480)])
(defalias 'epg-config--make-gpg-configuration #[(program) "\306\211\211\211\307\310! r\fq\210\311\216\312\313
\306\314\306D\306\315%\205$ \316%D\317\"&\210eb\210\320\321\306\314#\203\245 \322\323\324!!\323\325! \326=\203o \327\330\"\203b \323\324\"\227\331\332\333\334\225\306O\335\"\"B\nB\202, &\203, \336\337\"\210\202, \340>\203\234 \327\341\"\203\216 \342\343\331\332\333\335\"\"\"B B\202, &\203, \336\344 #\210\202, B B\202, +\305
B B\n\203\270 \302\nB B\202\271 ,\207" [args type groups config #1=#:temp-buffer program nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply call-process t append "--homedir" ("--with-colons" "--list-config") re-search-forward "^cfg:\\([^:]+\\):\\(.*\\)" intern match-string 1 2 group string-match "\\`\\([^:]+\\):" delete "" split-string 0 ";" message "Invalid group configuration: %S" (pubkey cipher digest compress) "\\`\\([0-9]+\\)\\(;[0-9]+\\)*" mapcar string-to-number "Invalid %S algorithm configuration: %S" epg-gpg-home-directory epg-debug] 9])
(defalias 'epg-config--make-gpgsm-configuration #[(program) "\302\303!rq\210\304\216\305 \306\307\306D\306\310%\210eb\210\311\312!\2057 \313\225b\210\314u\210\315 \210\316\317\320 \"\210\301 B\321`\320 {BD+\207" [#1=#:temp-buffer program generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-process nil t "--version" looking-at "\\S-+ (" 0 -1 forward-sexp skip-syntax-forward "-" point-at-eol version] 6])
#@74 Return a list of internal configuration parameters of `epg-gpg-program'.
(defalias 'epg-configuration #[nil "\301!\207" [epg-gpg-program epg-config--make-gpg-configuration] 2 (#$ . 5147)])
(make-obsolete 'epg-configuration 'epg-find-configuration "25.1")
(defalias 'epg-config--parse-version #[(string) "\303\304\211\305\306\n #=\203 \307\310\311\n\"!B\303\225\211\202 \237*\207" [version index string 0 nil string-match "\\([0-9]+\\)\\.?" string-to-number match-string 1] 6])
(defalias 'epg-config--compare-version #[(v1 v2) "\203 \203 @ @U\203 A A\202 @\206 \302 @\206% \302Z\207" [v1 v2 0] 2])
#@57 Verify that a sufficient version of GnuPG is installed.
(defalias 'epg-check-configuration #[(config &optional minimum-version) "\301\236\305\211\203 \nA;\204 \306\307\n\"\210\310\nA!\310 \206 \f!\311 \"\312Y?\2051 \306\313\nA\"*\207" [config version entry minimum-version epg-gpg-minimum-version nil error "Undetermined version: %S" epg-config--parse-version epg-config--compare-version 0 "Unsupported version: %s"] 4 (#$ . 5771)])
#@41 Look at CONFIG and try to expand GROUP.
(defalias 'epg-expand-group #[(config group) "\303\236\211\205 \304\n\227 A\"\211\205 A)\207" [config entry group groups assoc] 4 (#$ . 6219)])
(provide 'epg-config)
Kontol Shell Bypass