APEL-MK

   1 ;;; -*-Emacs-Lisp-*-
   2 ;;;
   3 ;;; $Id: APEL-MK,v 0.5 1997-11-05 15:23:35 morioka Exp $
   4 ;;;
   5
   6 (defun config-apel ()
   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 "APEL-CFG")
  19     (or (boundp 'apel-modules)
  20         (load-file "APEL-ELS")
  21         )
  22     (princ (format "PREFIX=%s\n" PREFIX))
  23     ))
  24
  25 (defun compile-apel ()
  26   ;;(add-to-list 'load-path (expand-file-name "../emu"))
  27   ;;(add-to-list 'load-path ".")
  28   ;;(require 'install)
  29   (config-apel)
  30   (load "EMU-ELS")
  31   (load-file "APEL-ELS")
  32   (compile-elisp-modules emu-modules    ".")
  33   (compile-elisp-modules apel-modules   ".")
  34   )
  35
  36 (defun install-apel ()
  37   (compile-apel)
  38   ;;(config-apel)
  39   (install-elisp-modules emu-modules    "."     EMU_DIR)
  40   (install-elisp-modules apel-modules   "."     APEL_DIR)
  41   )
  42
  43 ;;; APEL-MK ends here