From 903ec1b0d8d10d488e25fedfe45b4582a1f01aa6 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sun, 21 Mar 2004 14:27:00 +0000
Subject: [PATCH] (install-just-print-p): New function. (config-nabe-package):
 New function. (compile-nabe-package): New function.
 (install-nabe-package): New function.

---
 NABE-MK |   51 ++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 48 insertions(+), 3 deletions(-)

diff --git a/NABE-MK b/NABE-MK
index a9b24da..e6370b4 100644
--- a/NABE-MK
+++ b/NABE-MK
@@ -1,7 +1,16 @@
 ;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: NABE-MK,v 0.4 1997/02/28 04:13:30 tmorioka Exp $
-;;;
+
+;; NABE-MK: installer for NABE.
+
+;;; Code:
+
+(defun install-just-print-p ()
+  (let ((flag (getenv "MAKEFLAGS"))
+	case-fold-search)
+    (princ (format "%s\n" flag))
+    (if flag
+	(string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag)
+      )))
 
 (defun config-nabe ()
   (let (prefix)
@@ -28,4 +37,40 @@
   (install-elisp-modules nabe-modules	"./"	NABE_DIR)
   )
 
+(defun config-nabe-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 "NABE-CFG")
+    (load-file "NABE-ELS")
+    (setq nabe-modules (append nabe-modules
+			       '(auto-autoloads custom-load)))
+    
+    (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))
+    ))
+
+(defun compile-nabe-package ()
+  (config-nabe-package)
+  
+  (setq autoload-package-name "nabe")
+  (add-to-list 'command-line-args-left ".")
+  (batch-update-directory)
+
+  (add-to-list 'command-line-args-left ".")
+  (Custom-make-dependencies)
+
+  (compile-elisp-modules nabe-modules ".")
+  )
+
+(defun install-nabe-package ()
+  (config-nabe-package)
+  (install-elisp-modules
+   nabe-modules "."
+   (expand-file-name NABE_PREFIX (expand-file-name "lisp" PACKAGEDIR))
+   (install-just-print-p))
+  )
+
 ;;; NABE-MK ends here
-- 
1.7.10.4