cgit.sxemacs.org Git - sxemacs/blob - lisp/config.el

   1 ;;; config.el --- access configuration parameters
   2
   3 ;; Copyright (C) 1997 Sun Microsystems, Inc.
   4
   5 ;; Author:   Martin Buchholz
   6 ;; Keywords: configure
   7
   8 ;; This file is part of SXEmacs.
   9
  10 ;; SXEmacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; SXEmacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 ;;; Synched up with: not in FSF.
  24
  25 ;;; Commentary:
  26
  27 ;;; Code:
  28
  29 \f
  30 (defvar config-value-file (expand-file-name "config.values" doc-directory)
  31   "File containing configuration parameters and their values.")
  32
  33 (defvar config-value-hash-table nil
  34   "Hash table to store configuration parameters and their values.")
  35
  36 ;;;###autoload
  37 (defun config-value-hash-table ()
  38   "Return hash table of configuration parameters and their values."
  39   (when (null config-value-hash-table)
  40     (setq config-value-hash-table (make-hash-table :size 300))
  41     (save-excursion
  42       (let ((buf (get-buffer-create " *Config*")))
  43         (set-buffer buf)
  44         (erase-buffer)
  45         (insert-file-contents config-value-file)
  46         (goto-char (point-min))
  47         (condition-case nil
  48             (while t
  49               (let* ((key (read buf))
  50                      (value (read buf))
  51                      (prev (gethash key config-value-hash-table)))
  52                 (cond ((null prev)
  53                        (puthash key value config-value-hash-table))
  54                       ((atom prev)
  55                        (puthash key (list prev value) config-value-hash-table))
  56                       (t
  57                        (nconc prev (list value))))))
  58           (end-of-file nil)))
  59       (kill-buffer " *Config*")))
  60   config-value-hash-table)
  61
  62 ;;;###autoload
  63 (defun config-value (config-symbol)
  64   "Return the value of the configuration parameter CONFIG_SYMBOL."
  65   (gethash config-symbol (config-value-hash-table)))
  66
  67 (provide 'config)
  68 ;;; config.el ends here