EMH-MK

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: EMH-MK,v 0.1 1997-05-15 06:47:02 morioka Exp $
   4 ;;;
   5
   6 (defun config-emh ()
   7   (let (prefix lisp-dir)
   8     (and (setq prefix (car command-line-args-left))
   9          (or (string-equal "NONE" prefix)
  10              (defvar PREFIX prefix)
  11              ))
  12     (setq command-line-args-left (cdr command-line-args-left))
  13     (and (setq lisp-dir (car command-line-args-left))
  14          (or (string-equal "NONE" lisp-dir)
  15              (defvar LISPDIR lisp-dir)
  16              ))
  17     (load-file "EMH-CFG")
  18     (load-file "EMH-ELS")
  19     (princ (format "PREFIX=%s
  20 LISPDIR=%s\n" PREFIX LISPDIR))
  21     ))
  22
  23 (defun compile-emh ()
  24   (config-emh)
  25   (compile-elisp-modules emh-modules ".")
  26   )
  27
  28 (defun install-emh ()
  29   (config-emh)
  30   (install-elisp-modules emh-modules "./" EMH_DIR)
  31   )
  32
  33 ;;; EMH-MK ends here