;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: APEL-MK,v 0.3 1997-05-31 16:39:06 morioka Exp $
+;;; $Id: APEL-MK,v 0.5 1997-11-05 15:23:35 morioka Exp $
;;;
(defun config-apel ()
- (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))
- ))
+ (let (prefix 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))
(load-file "APEL-CFG")
(or (boundp 'apel-modules)
(load-file "APEL-ELS")
))
(defun compile-apel ()
- (add-to-list 'load-path (expand-file-name "../emu"))
- (add-to-list 'load-path ".")
- (require 'install)
+ ;;(add-to-list 'load-path (expand-file-name "../emu"))
+ ;;(add-to-list 'load-path ".")
+ ;;(require 'install)
+ (config-apel)
(load "EMU-ELS")
(load-file "APEL-ELS")
(compile-elisp-modules emu-modules ".")
(defun install-apel ()
(compile-apel)
- (config-apel)
+ ;;(config-apel)
(install-elisp-modules emu-modules "." EMU_DIR)
(install-elisp-modules apel-modules "." APEL_DIR)
)