3 ;; FLIM-MK: installer for FLIM.
8 (let (prefix lisp-dir version-specific-lisp-dir)
9 (and (setq prefix (car command-line-args-left))
10 (or (string-equal "NONE" prefix)
11 (defvar PREFIX prefix)))
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 (setq command-line-args-left (cdr command-line-args-left))
17 (and (setq version-specific-lisp-dir (car command-line-args-left))
18 (or (string-equal "NONE" version-specific-lisp-dir)
20 (defvar VERSION_SPECIFIC_LISPDIR version-specific-lisp-dir)
21 (princ (format "VERSION_SPECIFIC_LISPDIR=%s\n"
22 VERSION_SPECIFIC_LISPDIR)))))
23 (setq command-line-args-left (cdr command-line-args-left))
24 (load-file "FLIM-CFG")
25 (load-file "FLIM-ELS")
26 (princ (format "PREFIX=%s
27 LISPDIR=%s\n" PREFIX LISPDIR))))
29 (defun compile-flim ()
31 (compile-elisp-modules flim-modules "."))
33 (defun install-flim ()
35 (install-elisp-modules flim-modules "./" FLIM_DIR))
40 (let ((files (directory-files "tests" t))
41 (suite (lunit-make-test-suite)))
43 (if (file-regular-p (car files))
45 (load-file (car files))
46 (lunit-test-suite-add-test
47 suite (lunit-make-test-suite-from-class
48 (intern (file-name-sans-extension
49 (file-name-nondirectory (car files))))))))
50 (setq files (cdr files)))
53 (defun config-flim-package ()
55 (and (setq package-dir (car command-line-args-left))
56 (or (string= "NONE" package-dir)
57 (defvar PACKAGEDIR package-dir)))
58 (setq command-line-args-left (cdr command-line-args-left))
59 (load-file "FLIM-CFG")
60 (load-file "FLIM-ELS")
61 (setq flim-modules (append flim-modules
62 '(auto-autoloads custom-load)))
63 (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))))
65 (defun compile-flim-package ()
68 (setq autoload-package-name "flim")
69 (add-to-list 'command-line-args-left ".")
70 (batch-update-directory)
72 (add-to-list 'command-line-args-left ".")
73 (Custom-make-dependencies)
75 (compile-elisp-modules flim-modules "."))
77 (defun install-flim-package ()
79 (install-elisp-modules flim-modules
81 (expand-file-name FLIM_PREFIX
82 (expand-file-name "lisp"
84 (delete-file "./auto-autoloads.el")
85 (delete-file "./custom-load.el"))