Mercurial > emacs
view lisp/epg-config.el @ 109635:fc7a8c411aa3
Add declarations to header files.
* src/keyboard.h (xmalloc_widget_value, digest_single_submenu): Remove
declarations, menu.h has them.
(QCbutton, QCtoggle, QCradio, QClabel, extra_keyboard_modifiers)
(Vinput_method_function, Qinput_method_function)
(Qevent_symbol_element_mask, last_event_timestamp):
* src/dispextern.h (Voverflow_newline_into_fringe):
* src/font.h (QCantialias, Qp, syms_of_ftfont, syms_of_xfns)
(syms_of_ftxfont, syms_of_xftfont, syms_of_bdffont)
(syms_of_w32font, syms_of_nsfont):
* src/fontset.h (find_font_encoding, Qlatin):
* src/frame.h (Qtooltip, Qrun_hook_with_args, Vmenu_bar_mode)
(Vtool_bar_mode, set_frame_menubar):
* src/ftfont.h (ftfont_font_format, ftfont_get_fc_charset):
* src/xterm.h (Qx_gtk_map_stock):
* src/keymap.h (meta_prefix_char): Add declarations.
* src/lisp.h: Remove HAVE_SHM code, unused.
(QCmap, QCrehash_size, QCrehash_threshold, QCsize, QCtest)
(QCweakness, Qabove_handle, Qbackquote, Qbar, Qbelow_handle)
(Qborder, Qbottom, Qbox, Qcircular_list, Qcomma, Qcomma_at)
(Qcomma_dot, Qcursor, Qdefault, Qdown, Qend_scroll, Qeq, Qeql)
(Qequal, Qfile_exists_p, Qfont_param, Qfringe, Qfunction)
(Qfunction_documentation, Qhandle, Qhbar, Qheader_line, Qhollow)
(Qidentity, Qleft_margin, Qmenu, Qmenu_bar_update_hook)
(Qmode_line_inactive, Qmouse, Qoverriding_local_map)
(Qoverriding_terminal_local_map, Qratio, Qregion, Qright_margin)
(Qscroll_bar, Qtool_bar, Qtop, Qup, Qvertical_border, Qwhen)
(Qwindow_scroll_functions, Vafter_load_alist)
(Vauto_save_list_file_name, Vface_alternative_font_family_alist)
(Vface_alternative_font_registry_alist, Vface_font_rescale_alist)
(Vface_ignored_fonts, Vinhibit_redisplay, Vminibuffer_list)
(Vprint_length, Vprint_level, Vscalable_fonts_allowed)
(Vshell_file_name, Vsystem_name, Vwindow_scroll_functions)
(Vwindow_system_version, Vx_no_window_manager, initial_argc)
(initial_argv, last_nonmenu_event, load_in_progress)
(noninteractive_need_newline, scroll_margin): Add declarations.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Thu, 05 Aug 2010 16:15:24 -0700 |
parents | 904ccd8f2acb |
children | 280c8ae2476d |
line wrap: on
line source
;;; epg-config.el --- configuration of the EasyPG Library ;; Copyright (C) 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Daiki Ueno <ueno@unixuser.org> ;; Keywords: PGP, GnuPG ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Code: (defconst epg-package-name "epg" "Name of this package.") (defconst epg-version-number "1.0.0" "Version number of this package.") (defconst epg-bug-report-address "ueno@unixuser.org" "Report bugs to this address.") (defgroup epg () "The EasyPG library." :version "23.1" :group 'data) (defcustom epg-gpg-program "gpg" "The `gpg' executable." :group 'epg :type 'string) (defcustom epg-gpgsm-program "gpgsm" "The `gpgsm' executable." :group 'epg :type 'string) (defcustom epg-gpg-home-directory nil "The directory which contains the configuration files of `epg-gpg-program'." :group 'epg :type '(choice (const :tag "Default" nil) directory)) (defcustom epg-passphrase-coding-system nil "Coding system to use with messages from `epg-gpg-program'." :group 'epg :type 'symbol) (defcustom epg-debug nil "If non-nil, debug output goes to the \" *epg-debug*\" buffer. Note that the buffer name starts with a space." :group 'epg :type 'boolean) (defconst epg-gpg-minimum-version "1.4.3") ;;;###autoload (defun epg-configuration () "Return a list of internal configuration parameters of `epg-gpg-program'." (let (config groups type args) (with-temp-buffer (apply #'call-process epg-gpg-program nil (list t nil) nil (append (if epg-gpg-home-directory (list "--homedir" epg-gpg-home-directory)) '("--with-colons" "--list-config"))) (goto-char (point-min)) (while (re-search-forward "^cfg:\\([^:]+\\):\\(.*\\)" nil t) (setq type (intern (match-string 1)) args (match-string 2)) (cond ((eq type 'group) (if (string-match "\\`\\([^:]+\\):" args) (setq groups (cons (cons (downcase (match-string 1 args)) (delete "" (split-string (substring args (match-end 0)) ";"))) groups)) (if epg-debug (message "Invalid group configuration: %S" args)))) ((memq type '(pubkey cipher digest compress)) (if (string-match "\\`\\([0-9]+\\)\\(;[0-9]+\\)*" args) (setq config (cons (cons type (mapcar #'string-to-number (delete "" (split-string args ";")))) config)) (if epg-debug (message "Invalid %S algorithm configuration: %S" type args)))) (t (setq config (cons (cons type args) config)))))) (if groups (cons (cons 'groups groups) config) config))) (defun epg-config--parse-version (string) (let ((index 0) version) (while (eq index (string-match "\\([0-9]+\\)\\.?" string index)) (setq version (cons (string-to-number (match-string 1 string)) version) index (match-end 0))) (nreverse version))) (defun epg-config--compare-version (v1 v2) (while (and v1 v2 (= (car v1) (car v2))) (setq v1 (cdr v1) v2 (cdr v2))) (- (or (car v1) 0) (or (car v2) 0))) ;;;###autoload (defun epg-check-configuration (config &optional minimum-version) "Verify that a sufficient version of GnuPG is installed." (let ((entry (assq 'version config)) version) (unless (and entry (stringp (cdr entry))) (error "Undetermined version: %S" entry)) (setq version (epg-config--parse-version (cdr entry)) minimum-version (epg-config--parse-version (or minimum-version epg-gpg-minimum-version))) (unless (>= (epg-config--compare-version version minimum-version) 0) (error "Unsupported version: %s" (cdr entry))))) ;;;###autoload (defun epg-expand-group (config group) "Look at CONFIG and try to expand GROUP." (let ((entry (assq 'groups config))) (if (and entry (setq entry (assoc (downcase group) (cdr entry)))) (cdr entry)))) (provide 'epg-config) ;; arch-tag: 9aca7cb8-5f63-4bcb-84ee-46fd2db0763f ;;; epg-config.el ends here