CANNA-MK

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: CANNA-MK,v 1.1 1998-01-16 08:51:13 morioka Exp $
   4 ;;;
   5
   6 (defun config-canna ()
   7   (let (prefix lisp-dir)
   8     (and (setq prefix (car command-line-args-left))
   9          (or (string-equal "NONE" prefix)
  10              (defvar PREFIX prefix)
  11              ))
  12     (setq command-line-args-left (cdr command-line-args-left))
  13     (and (setq lisp-dir (car command-line-args-left))
  14          (or (string-equal "NONE" lisp-dir)
  15              (defvar LISPDIR lisp-dir)
  16              ))
  17     (setq command-line-args-left (cdr command-line-args-left))
  18     (load-file "CANNA-CFG")
  19     (load-file "CANNA-ELS")
  20     (princ (format "PREFIX=%s
  21 LISPDIR=%s\n" PREFIX LISPDIR))
  22     ))
  23
  24 (defun compile-canna ()
  25   (config-canna)
  26   (compile-elisp-modules canna-modules ".")
  27   )
  28
  29 (defun install-canna ()
  30   (config-canna)
  31   (install-elisp-modules canna-modules "./" CANNA_DIR)
  32   )
  33
  34 ;;; CANNA-MK ends here