* COMPILE (riece-compile-module): New function.
authorueno <ueno>
Fri, 12 Aug 2005 08:23:12 +0000 (08:23 +0000)
committerueno <ueno>
Fri, 12 Aug 2005 08:23:12 +0000 (08:23 +0000)
(riece-examine): New function.

* Makefile.am (compile-individually): New rule.

lisp/COMPILE
lisp/ChangeLog
lisp/Makefile.am

index b4f4561..11c2f6a 100644 (file)
   WARNING: the last build, and then reconfigure.
   WARNING: ---------------------------------------------------------\n\n")))))
 
+(defun riece-compile-module ()
+  (let ((load-path (cons nil load-path)))
+    (let ((source (expand-file-name
+                  (concat (car command-line-args-left) ".el"))))
+      (if (file-newer-than-file-p source (concat source "c"))
+         (byte-compile-file source)))))
+
 (defun riece-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 riece-examine ()
+  (princ (mapconcat #'symbol-name riece-modules " ")))
+
 (defun riece-compile ()
   (riece-compile-modules riece-modules))
 
index 516cdbd..3a3aed3 100644 (file)
@@ -1,5 +1,10 @@
 2005-08-12  Daiki Ueno  <ueno@unixuser.org>
 
+       * COMPILE (riece-compile-module): New function.
+       (riece-examine): New function.
+
+       * Makefile.am (compile-individually): New rule.
+
        * riece-log.el (riece-log-file-name-regexp): New constant.
        (riece-log-get-file): Add 2nd argument coding-system.
        (riece-log-get-files): Add 2nd argument time.
index e15d83b..c6c8d43 100644 (file)
@@ -41,3 +41,11 @@ install-package: package
 
 check-local:
        $(EMACS) $(FLAGS) -l COMPILE -f riece-test lunit-report.xml
+
+compile-individually:
+       @for i in `$(EMACS) $(FLAGS) -l COMPILE -f riece-examine`; do \
+               echo $(EMACS) $(FLAGS) -l COMPILE \
+                       -f riece-compile-module $$i; \
+               $(EMACS) $(FLAGS) -l COMPILE \
+                       -f riece-compile-module $$i; \
+       done