SINFO-MK

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: SINFO-MK,v 1.1 1996-11-28 13:35:39 morioka Exp $
   4 ;;;
   5
   6 (defun config-sinfo ()
   7   (let (prefix exec-prefix)
   8     (setq prefix (car command-line-args-left))
   9     (and prefix
  10          (not (string-equal "NONE" prefix))
  11          (progn
  12            (defvar PREFIX prefix)
  13            (setq command-line-args-left (cdr command-line-args-left))
  14            )
  15         ))
  16   (load-file "SINFO-CFG")
  17   (load-file "../emu/EMU-ELS")
  18   (load-file "../tl/TL-ELS")
  19   (load-file "SINFO-ELS")
  20   (princ (format "PREFIX=%s\n" PREFIX))
  21   )
  22
  23 (defun compile-sinfo ()
  24   (config-sinfo)
  25   (print load-path)
  26   (compile-elisp-modules emu-modules    "../emu")
  27   (compile-elisp-modules tl-modules     "../tl")
  28   (compile-elisp-modules sinfo-modules  ".")
  29   )
  30
  31 (defun install-sinfo ()
  32   (config-sinfo)
  33   (princ (format "%s\n" emacs-version))
  34   (install-elisp-modules emu-modules    "../emu"        EMU_DIR)
  35   (install-elisp-modules tl-modules     "../tl"         TL_DIR)
  36   (install-elisp-modules sinfo-modules  "."             SINFO_DIR)
  37   (install-files '("sinfo.dtd") "."     DTD_DIR         nil 'overwrite)
  38   (install-files '("texi-mapping") "."  TEXI_REP_DIR    nil 'overwrite)
  39   )
  40
  41 ;;; MK-SINFO ends here