(let ((load-path (cons nil load-path))
error-modules)
(while modules
- (let ((source (expand-file-name (symbol-name (car modules)))))
+ (let ((source (expand-file-name
+ (symbol-name (car modules)))))
(if (file-newer-than-file-p source (concat source "c"))
(condition-case error
(byte-compile-file source)
WARNING: the last build, and then reconfigure.
WARNING: ---------------------------------------------------------\n\n")))))
+(defun mixi-compile-module ()
+ (let ((load-path (cons nil load-path)))
+ (let ((source (expand-file-name
+ (car command-line-args-left))))
+ (if (file-newer-than-file-p source (concat source "c"))
+ (byte-compile-file source)))))
+
(defun mixi-install-modules (modules dest just-print)
(unless (or just-print (file-exists-p dest))
(make-directory dest t))
(if flag
(string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
+(defun mixi-examine ()
+ (princ (mapconcat #'symbol-name mixi-modules " ")))
+
(defun mixi-compile ()
(mixi-compile-modules mixi-modules))
2007-03-26 OHASHI Akira <bg66@koka-in.org>
+ * Makefile.am (compile-individually): New target.
+ * COMPILE.in (mixi-compile-module): New function.
+ (mixi-examine): Ditto.
+
+2007-03-26 OHASHI Akira <bg66@koka-in.org>
+
* COMPILE.in: Rename from `COMPILE'.
(mixi-modules): New variable.
(mixi-compile): Use it.
install-package: package
$(XEMACS) $(FLAGS) -l COMPILE -f mixi-install-package $(PACKAGEDIR)
+
+compile-individually:
+ @for i in `$(EMACS) $(FLAGS) -l COMPILE -f mixi-examine`; do \
+ echo $(EMACS) $(FLAGS) -l COMPILE \
+ -f mixi-compile-module $$i; \
+ $(EMACS) $(FLAGS) -l COMPILE \
+ -f mixi-compile-module $$i; \
+ done