+++ /dev/null
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: EMU-CFG,v 0.0 1997-03-14 07:16:00 morioka Exp $
-;;;
-
-(setq load-path (append
- (mapcar (function
- (lambda (path)
- (expand-file-name path default-directory)
- ))
- '("." "../apel" "../tl")
- )
- load-path))
-
-(require 'install)
-
-
-;;; @ Please specify prefix of install directory.
-;;;
-
-;; Please specify install path prefix.
-;; If it is omitted, shared directory (maybe /usr/local is used).
-(defvar PREFIX install-prefix)
-;;(setq PREFIX "~/")
-
-;; Please specify emu prefix [optional]
-(setq EMU_PREFIX
- (if (string-match "XEmacs" emacs-version)
- "emu"
- ""))
-
-\f
-
-;;; @ optional settings
-;;;
-
-(setq EMU_DIR
- (expand-file-name
- EMU_PREFIX
- (install-detect-elisp-directory PREFIX nil 'version-specific)))
-
-;;; EMU-CFG ends here
+++ /dev/null
-;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: EMU-MK,v 0.0 1997-03-14 07:17:53 morioka Exp $
-;;;
-
-(defun config-emu ()
- (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))
- ))
- (load-file "EMU-CFG")
- (load-file "EMU-ELS")
- (princ (format "PREFIX=%s\n" PREFIX))
- ))
-
-(defun compile-emu ()
- (config-emu)
- (compile-elisp-modules emu-modules ".")
- )
-
-(defun install-emu ()
- (config-emu)
- (install-elisp-modules emu-modules "./" EMU_DIR)
- )
-
-;;; EMU-MK ends here