From: ueno <ueno>
Date: Fri, 12 Aug 2005 08:23:12 +0000 (+0000)
Subject: * COMPILE (riece-compile-module): New function.
X-Git-Tag: channel-coding-branchpoint~120
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3a2933b9546e2a11fd737f332f17ecfc3a49933a;p=elisp%2Friece.git

* COMPILE (riece-compile-module): New function.
(riece-examine): New function.

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

diff --git a/lisp/COMPILE b/lisp/COMPILE
index b4f4561..11c2f6a 100644
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -116,6 +116,13 @@
   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))
@@ -166,6 +173,9 @@
     (if flag
 	(string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
 
+(defun riece-examine ()
+  (princ (mapconcat #'symbol-name riece-modules " ")))
+
 (defun riece-compile ()
   (riece-compile-modules riece-modules))
 
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 516cdbd..3a3aed3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/Makefile.am b/lisp/Makefile.am
index e15d83b..c6c8d43 100644
--- a/lisp/Makefile.am
+++ b/lisp/Makefile.am
@@ -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