From: morioka <morioka>
Date: Thu, 25 Feb 1999 04:22:31 +0000 (+0000)
Subject: (install-apel): Run installer with `just-print' mode if environment
X-Git-Tag: apel-mcs-2-9_12_2~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=39e4291a2f51c9e15622c15cb3d74e546d7debcc;p=elisp%2Fapel.git

(install-apel): Run installer with `just-print' mode if environment
variable "MAKEFLAGS" matches "^[^ =]*n" option.
(install-apel-package): Likewise.
---

diff --git a/APEL-MK b/APEL-MK
index 09ea4c2..bc20efb 100644
--- a/APEL-MK
+++ b/APEL-MK
@@ -41,9 +41,15 @@
 
 (defun install-apel ()
   (compile-apel)
-  (install-elisp-modules emu-modules	"."	EMU_DIR)
-  (install-elisp-modules apel-modules	"."	APEL_DIR)
-  )
+  (let ((just-print (getenv "MAKEFLAGS"))
+	case-fold-search)
+    (princ (format "%s\n" just-print))
+    (if just-print
+	(setq just-print (string-match "^[^ =]*n" just-print))
+      )
+    (install-elisp-modules emu-modules	"." EMU_DIR	just-print)
+    (install-elisp-modules apel-modules	"." APEL_DIR	just-print)
+    ))
 
 (defun config-apel-package ()
   (let (package-dir)
@@ -62,25 +68,50 @@
   (config-apel-package)
   (load "EMU-ELS")
   
-  (compile-elisp-modules emu-modules	".")
-  (compile-elisp-modules apel-modules	".")
-  
-  (let ((dir (expand-file-name APEL_PREFIX
-			       (expand-file-name "lisp"
-						 PACKAGEDIR))))
-    (install-elisp-modules emu-modules	"." dir)
-    (install-elisp-modules apel-modules	"." dir)
+  (let ((just-print (getenv "MAKEFLAGS"))
+	case-fold-search)
+    (princ (format "%s\n" just-print))
+    (if just-print
+	(setq just-print (string-match "^[^ =]*n" just-print))
+      )
     
-    (setq autoload-package-name "apel")
-    (add-to-list 'command-line-args-left dir)
-    (batch-update-directory)
-
-    (add-to-list 'command-line-args-left dir)
-    (Custom-make-dependencies)
-
-    (byte-compile-file (expand-file-name "auto-autoloads.el" dir))
-    (byte-compile-file (expand-file-name "custom-load.el" dir))
-    ))
+    (compile-elisp-modules emu-modules	".")
+    (compile-elisp-modules apel-modules	".")
+    
+    (let ((dir (expand-file-name APEL_PREFIX
+				 (expand-file-name "lisp"
+						   PACKAGEDIR))))
+      (install-elisp-modules emu-modules	"." dir just-print)
+      (install-elisp-modules apel-modules	"." dir just-print)
+    
+      (if just-print
+	  (progn
+	    (princ (format "Updating autoloads in directory %s..\n\n" dir))
+	    
+	    (princ (format "Processing %s\n" dir))
+	    (princ "Generating custom-load.el...\n\n")
+	    
+	    (princ (format "Compiling %s...\n"
+			   (expand-file-name "auto-autoloads.el" dir)))
+	    (princ (format "Wrote %s\n"
+			   (expand-file-name "auto-autoloads.elc" dir)))
+	    
+	    (princ (format "Compiling %s...\n"
+			   (expand-file-name "custom-load.el" dir)))
+	    (princ (format "Wrote %s\n"
+			   (expand-file-name "custom-load.elc" dir)))
+	    )
+	(setq autoload-package-name "apel")
+	(add-to-list 'command-line-args-left dir)
+	(batch-update-directory)
+	
+	(add-to-list 'command-line-args-left dir)
+	(Custom-make-dependencies)
+	
+	(byte-compile-file (expand-file-name "auto-autoloads.el" dir))
+	(byte-compile-file (expand-file-name "custom-load.el" dir))
+	)
+      )))
 
 (defun what-where-apel ()
   (config-apel)