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

;; BITMAP-MK: installer for bitmap-mule.

;;; Code:

(defun config-bitmap ()
  (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 "BITMAP-CFG")
  (load-file "BITMAP-ELS")
  (princ (format "PREFIX=%s\nLISPDIR=%s\n" PREFIX LISPDIR)))

(defun compile-bitmap ()
  (config-bitmap)
  (compile-elisp-modules bitmap-modules-to-compile "."))

(defun install-bitmap ()
  (config-bitmap)
  (install-elisp-modules bitmap-modules "./" BITMAP_DIR))

;;; BITMAP-MK ends here