lisp/check-features.el

   1 ;;; check-features.el --- Do a sanity check on an XEmacs build
   2
   3 ;; Copyright (C) 1998 by Free Software Foundation, Inc.
   4
   5 ;; Author: SL Baur <steve@xemacs.org>
   6 ;; Keywords: internal
   7
   8 ;; This file is part of XEmacs.
   9
  10 ;; XEmacs is free software; you can redistribute it and/or modify it
  11 ;; under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; XEmacs is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  23 ;; 02111-1307, USA.
  24
  25 ;;; Synched up with: Not in FSF
  26
  27 ;;; Commentary:
  28
  29 ;; This file is executed after a build to check that all lisp packages that
  30 ;; need to be installed are.
  31
  32 ;;; Code:
  33
  34 (require 'packages)
  35
  36 (defvar build-error 0)
  37
  38 (when (featurep 'tooltalk)
  39   (condition-case nil
  40       (package-require 'tooltalk 1.0)
  41     (t (progn
  42          ;; (setq build-error 1)
  43          (message "Warning:  This XEmacs is built with tooltalk support but")
  44          (message "does not have a tooltalk package installed.  Without the")
  45          (message "tooltalk lisp package, Tooltalk support is broken.")))))
  46
  47 (when (featurep 'sparcworks)
  48   (condition-case nil
  49       (package-require 'Sun 1.0)
  50     (t (progn
  51          ;; (setq build-error 1)
  52          (message "Warning:  This XEmacs is built with sparcworks support but")
  53          (message "does not have the Sun package installed.  Without the Sun")
  54          (message "lisp package, Sparcworks support will be broken.")))))
  55
  56 (kill-emacs build-error)
  57
  58 ;;; check-features.el ends here