LSDB-MK

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