From: yamaoka <yamaoka>
Date: Mon, 19 Jul 1999 04:05:01 +0000 (+0000)
Subject: (install-mu-package): New function.
X-Git-Tag: mu-cite-8_0~45
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fmu-cite.git;a=commitdiff_plain;h=940a1bf9199050d87c5a0897b0cca91356860b6f

(install-mu-package): New function.
(compile-mu-package): New function.
(config-mu-package): New function.
(config-mu): Extract the values of `LISPDIR' and `VERSION_SPECIFIC_LISPDIR'
from the command line arguments.
;; Contributed by Kenji Itoh <keit@tpj.co.jp>.
---

diff --git a/MU-MK b/MU-MK
index d7db10a..4a2427e 100644
--- a/MU-MK
+++ b/MU-MK
@@ -5,17 +5,29 @@
 ;;; Code:
 
 (defun config-mu ()
-  (let (prefix)
-    (setq prefix (car command-line-args-left))
-    (and prefix
-	 (not (string-equal "NONE" prefix))
-	 (progn
-	   (defvar PREFIX prefix)
-	   (setq command-line-args-left (cdr command-line-args-left))
-	   ))
+  (let (prefix lisp-dir version-specific-lisp-dir)
+    (and (setq prefix (car command-line-args-left))
+	 (or (string-equal "NONE" prefix)
+	     (defvar PREFIX prefix)
+	     ))
+    (setq command-line-args-left (cdr command-line-args-left))
+    (and (setq lisp-dir (car command-line-args-left))
+	 (or (string-equal "NONE" lisp-dir)
+	     (defvar LISPDIR lisp-dir)
+	     ))
+    (setq command-line-args-left (cdr command-line-args-left))
+    (and (setq version-specific-lisp-dir (car command-line-args-left))
+	 (or (string-equal "NONE" version-specific-lisp-dir)
+	     (progn
+	       (defvar VERSION_SPECIFIC_LISPDIR version-specific-lisp-dir)
+	       (princ (format "VERSION_SPECIFIC_LISPDIR=%s\n"
+			      VERSION_SPECIFIC_LISPDIR)))
+	     ))
+    (setq command-line-args-left (cdr command-line-args-left))
     (load-file "MU-CFG")
     (load-file "MU-ELS")
-    (princ (format "PREFIX=%s\n" PREFIX))
+    (princ (format "PREFIX=%s
+LISPDIR=%s\n" PREFIX LISPDIR))
     ))
 
 (defun compile-mu ()
@@ -28,4 +40,40 @@
   (install-elisp-modules mu-modules	"./"	MU_DIR)
   )
 
+(defun config-mu-package ()
+  (let (package-dir)
+    (and (setq package-dir (car command-line-args-left))
+	 (or (string= "NONE" package-dir)
+	     (defvar PACKAGEDIR package-dir)
+	     ))
+    (setq command-line-args-left (cdr command-line-args-left))
+    (load-file "MU-CFG")
+    (load-file "MU-ELS")
+    (setq mu-modules (append mu-modules
+			       '(auto-autoloads custom-load)))
+    (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))
+    ))
+
+(defun compile-mu-package ()
+  (config-mu-package)
+
+  (setq autoload-package-name "mu")
+  (add-to-list 'command-line-args-left ".")
+  (batch-update-directory)
+
+  (add-to-list 'command-line-args-left ".")
+  (Custom-make-dependencies)
+
+  (compile-elisp-modules mu-modules ".")
+  )
+
+(defun install-mu-package ()
+  (config-mu-package)
+  (install-elisp-modules mu-modules
+			 "./"
+			 (expand-file-name MU_PREFIX
+					   (expand-file-name "lisp"
+							     PACKAGEDIR)))
+  )
+
 ;;; MU-MK ends here