NABE-MK

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; NABE-MK: installer for NABE.
   4
   5 ;;; Code:
   6
   7 (defun install-just-print-p ()
   8   (let ((flag (getenv "MAKEFLAGS"))
   9         case-fold-search)
  10     (princ (format "%s\n" flag))
  11     (if flag
  12         (string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag)
  13       )))
  14
  15 (defun config-nabe ()
  16   (let (prefix)
  17     (setq prefix (car command-line-args-left))
  18     (and prefix
  19          (not (string-equal "NONE" prefix))
  20          (progn
  21            (defvar PREFIX prefix)
  22            (setq command-line-args-left (cdr command-line-args-left))
  23            ))
  24     (load-file "NABE-CFG")
  25     (load-file "NABE-ELS")
  26     (princ (format "PREFIX=%s\n" PREFIX))
  27     ))
  28
  29 (defun compile-nabe ()
  30   (config-nabe)
  31   (require 'roman-to-kana)
  32   (compile-elisp-modules nabe-modules   ".")
  33   )
  34
  35 (defun install-nabe ()
  36   (config-nabe)
  37   (install-elisp-modules nabe-modules   "./"    NABE_DIR)
  38   )
  39
  40 (defun config-nabe-package ()
  41   (let (package-dir)
  42     (and (setq package-dir (car command-line-args-left))
  43          (or (string= "NONE" package-dir)
  44              (defvar PACKAGEDIR package-dir)
  45              ))
  46     (setq command-line-args-left (cdr command-line-args-left))
  47     (load-file "NABE-CFG")
  48     (load-file "NABE-ELS")
  49     (setq nabe-modules (append nabe-modules
  50                                '(auto-autoloads custom-load)))
  51
  52     (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))
  53     ))
  54
  55 (defun compile-nabe-package ()
  56   (config-nabe-package)
  57
  58   (setq autoload-package-name "nabe")
  59   (add-to-list 'command-line-args-left ".")
  60   (batch-update-directory)
  61
  62   (add-to-list 'command-line-args-left ".")
  63   (Custom-make-dependencies)
  64
  65   (compile-elisp-modules nabe-modules ".")
  66   )
  67
  68 (defun install-nabe-package ()
  69   (config-nabe-package)
  70   (install-elisp-modules
  71    nabe-modules "."
  72    (expand-file-name NABE_PREFIX (expand-file-name "lisp" PACKAGEDIR))
  73    (install-just-print-p))
  74   )
  75
  76 ;;; NABE-MK ends here