EMH-MK

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; EMH-MK: installer for EMH.
   4
   5 ;;; Code:
   6
   7 (defun config-emh ()
   8   (let (prefix lisp-dir)
   9     (and (setq prefix (car command-line-args-left))
  10          (or (string-equal "NONE" prefix)
  11              (defvar PREFIX prefix)
  12              ))
  13     (setq command-line-args-left (cdr command-line-args-left))
  14     (and (setq lisp-dir (car command-line-args-left))
  15          (or (string-equal "NONE" lisp-dir)
  16              (defvar LISPDIR lisp-dir)
  17              ))
  18     (load-file "EMH-CFG")
  19     (load-file "EMH-ELS")
  20     (princ (format "PREFIX=%s
  21 LISPDIR=%s\n" PREFIX LISPDIR))
  22     ))
  23
  24 (defun compile-emh ()
  25   (config-emh)
  26   (compile-elisp-modules emh-modules ".")
  27   )
  28
  29 (defun install-emh ()
  30   (config-emh)
  31   (install-elisp-modules emh-modules "./" EMH_DIR)
  32   )
  33
  34 (defun config-emh-package ()
  35   (let (package-dir)
  36     (and (setq package-dir (car command-line-args-left))
  37          (or (string= "NONE" package-dir)
  38              (defvar PACKAGEDIR package-dir)
  39              ))
  40     (setq command-line-args-left (cdr command-line-args-left))
  41     (load-file "EMH-CFG")
  42     (load-file "EMH-ELS")
  43     (setq emh-modules (append emh-modules
  44                                '(auto-autoloads custom-load)))
  45     (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))
  46     ))
  47
  48 (defun compile-emh-package ()
  49   (config-emh-package)
  50
  51   (setq autoload-package-name "emh")
  52   (add-to-list 'command-line-args-left ".")
  53   (batch-update-directory)
  54
  55   (add-to-list 'command-line-args-left ".")
  56   (Custom-make-dependencies)
  57
  58   (compile-elisp-modules emh-modules ".")
  59   )
  60
  61 (defun install-emh-package ()
  62   (config-emh-package)
  63   (install-elisp-modules emh-modules
  64                          "./"
  65                          (expand-file-name EMH_PREFIX
  66                                            (expand-file-name "lisp"
  67                                                              PACKAGEDIR)))
  68   )
  69
  70 ;;; EMH-MK ends here