;;; -*-Emacs-Lisp-*-

;; 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)
    (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))
	   ))
    (load-file "NABE-CFG")
    (load-file "NABE-ELS")
    (princ (format "PREFIX=%s\n" PREFIX))
    ))

(defun compile-nabe ()
  (config-nabe)
  (require 'roman-to-kana)
  (compile-elisp-modules nabe-modules	".")
  )

(defun install-nabe ()
  (config-nabe)
  (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