-
Notifications
You must be signed in to change notification settings - Fork 10
/
APEL-MK
43 lines (39 loc) · 1.05 KB
/
APEL-MK
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
;;; -*-Emacs-Lisp-*-
;;;
;;; $Id$
;;;
(defun config-apel ()
(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")
)
(princ (format "PREFIX=%s\n" PREFIX))
))
(defun compile-apel ()
;;(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 ".")
(compile-elisp-modules apel-modules ".")
)
(defun install-apel ()
(compile-apel)
;;(config-apel)
(install-elisp-modules emu-modules "." EMU_DIR)
(install-elisp-modules apel-modules "." APEL_DIR)
)
;;; APEL-MK ends here