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-version-specific-modules ".")
32 (compile-elisp-modules flim-modules "."))
34 (defun install-flim ()
36 (if flim-version-specific-modules
37 (install-elisp-modules flim-version-specific-modules "./"
38 FLIM_VERSION_SPECIFIC_DIR))
39 (install-elisp-modules flim-modules "./" FLIM_DIR))
44 (let ((files (directory-files "tests" t "^test-.*\\.el$"))
45 (suite (lunit-make-test-suite)))
47 (if (file-regular-p (car files))
49 (load-file (car files))
50 (lunit-test-suite-add-test
51 suite (lunit-make-test-suite-from-class
52 (intern (file-name-sans-extension
53 (file-name-nondirectory (car files))))))))
54 (setq files (cdr files)))
57 (defun config-flim-package ()
59 (and (setq package-dir (car command-line-args-left))
60 (or (string= "NONE" package-dir)
61 (defvar PACKAGEDIR package-dir)))
62 (setq command-line-args-left (cdr command-line-args-left))
63 (load-file "FLIM-CFG")
64 (load-file "FLIM-ELS")
65 (setq flim-modules (append flim-modules
66 '(auto-autoloads custom-load)))
67 (princ (format "PACKAGEDIR=%s\n" PACKAGEDIR))))
69 (defun compile-flim-package ()
72 (if (fboundp 'batch-update-directory-autoloads)
73 ;; XEmacs 21.5.19 and newer.
75 (add-to-list 'command-line-args-left ".")
76 (add-to-list 'command-line-args-left "flim")
77 (batch-update-directory-autoloads))
78 (setq autoload-package-name "flim")
79 (add-to-list 'command-line-args-left ".")
80 (batch-update-directory))
82 (add-to-list 'command-line-args-left ".")
83 (Custom-make-dependencies)
85 (compile-elisp-modules flim-version-specific-modules ".")
86 (compile-elisp-modules flim-modules "."))
88 (defun install-flim-package ()
90 (install-elisp-modules (append flim-version-specific-modules
93 (expand-file-name FLIM_PREFIX
94 (expand-file-name "lisp"
96 (delete-file "./auto-autoloads.el")
97 (delete-file "./custom-load.el"))