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 version-specific-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     (setq command-line-args-left (cdr command-line-args-left))
  19     (and (setq version-specific-lisp-dir (car command-line-args-left))
  20          (or (string-equal "NONE" version-specific-lisp-dir)
  21              (progn
  22                (defvar VERSION_SPECIFIC_LISPDIR version-specific-lisp-dir)
  23                (princ (format "VERSION_SPECIFIC_LISPDIR=%s\n"
  24                               VERSION_SPECIFIC_LISPDIR)))
  25              ))
  26     (setq command-line-args-left (cdr command-line-args-left))
  27     )
  28   (setq command-line-args-left (cdr command-line-args-left))
  29   (load-file "EMH-CFG")
  30   (load-file "EMH-ELS")
  31   (princ (format "PREFIX=%s
  32 LISPDIR=%s\n" PREFIX LISPDIR))
  33   )
  34
  35 (defun compile-emh ()
  36   (config-emh)
  37   (compile-elisp-modules emh-modules ".")
  38   )
  39
  40 (defun install-emh ()
  41   (config-emh)
  42   (install-elisp-modules emh-modules "./" EMH_DIR)
  43   )
  44
  45 (defun config-emh-package ()
  46   (let (package-dir)
  47     (and (setq package-dir (car command-line-args-left))
  48          (or (string= "NONE" package-dir)
  49              (defvar PACKAGEDIR package-dir)
  50              ))
  51     (setq command-line-args-left (cdr command-line-args-left))
  52     (load-file "EMH-CFG")
  53     (load-file "EMH-ELS")
  54     (setq emh-modules (append emh-modules
  55                                '(auto-autoloads custom-load)))
  56     (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))
  57     ))
  58
  59 (defun compile-emh-package ()
  60   (config-emh-package)
  61
  62   (setq autoload-package-name "emh")
  63   (add-to-list 'command-line-args-left ".")
  64   (batch-update-directory)
  65
  66   (add-to-list 'command-line-args-left ".")
  67   (Custom-make-dependencies)
  68
  69   (compile-elisp-modules emh-modules ".")
  70   )
  71
  72 (defun install-emh-package ()
  73   (config-emh-package)
  74   (install-elisp-modules emh-modules
  75                          "./"
  76                          (expand-file-name EMH_PREFIX
  77                                            (expand-file-name "lisp"
  78                                                              PACKAGEDIR)))
  79   )
  80
  81 ;;; EMH-MK ends here