* Makefile (compile-strict): New target.

* WL-MK (wl-examine-modules): New function.

diff --git a/ChangeLog b/ChangeLog
index f6b356b..137f353 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2005-01-23  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * Makefile (compile-strict): New target.
+
+       * WL-MK (wl-examine-modules): New function.
+
 2005-01-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * etc/icons/access.xpm: New file.

diff --git a/Makefile b/Makefile
index 309b404..e2fd851 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -43,6 +43,33 @@ update-version:
        $(EMACS) $(FLAGS) -l WL-MK -f update-version \
                $(LISPDIR) $(PIXMAPDIR)
 
+compile-strict: clean-elc
+       @args="$(FLAGS)";\
+       args="$$args -L elmo -L wl";\
+       echo "=============================================";\
+       echo "Compiling the 1st stage-----without elc files";\
+       echo "=============================================";\
+       for i in `$(EMACS) $(FLAGS) -l WL-MK -f wl-examine-modules 2>/dev/null`;\
+         do\
+         j=`echo $$i| sed 's/elc$$/el/g'`;\
+         echo "$(EMACS) ARGS -f batch-byte-compile $$j";\
+         $(EMACS) $$args -f batch-byte-compile $$j;\
+         mv $$i $$j"x";\
+       done;\
+       for i in `echo elmo/*.elx wl/*.elx utils/*.elx`; do\
+         j=`echo $$i| sed 's/elx$$/elc/g'`;\
+         mv $$i $$j;\
+       done;\
+       echo "==============================================";\
+       echo "Compiling the 2nd stage-----with all elc files";\
+       echo "==============================================";\
+       for i in `$(EMACS) $(FLAGS) -l WL-MK -f wl-examine-modules 2>/dev/null`;\
+         do\
+         j=`echo $$i| sed 's/elc$$/el/g'`;\
+         echo "$(EMACS) ARGS -f batch-byte-compile $$j";\
+         $(EMACS) $$args -f batch-byte-compile $$j;\
+       done
+
 install-elc:
        $(EMACS) $(FLAGS) -l WL-MK -f install-wl-package \
                $(LISPDIR) $(PIXMAPDIR)

diff --git a/WL-MK b/WL-MK
index 19c9c38..c2befaf 100644 (file)
--- a/WL-MK
+++ b/WL-MK
@@ -234,6 +234,15 @@
    objs))
 
 
+(defun wl-examine-modules ()
+  "Examine wl modules should be byte-compile'd."
+  (config-wl-package-subr)
+  (make-wl-news)
+  (dolist (module modules-alist)
+    (dolist (filename (cdr module))
+      (princ (format "%s/%s.elc " (car module) filename)))))
+
+
 (defun compile-wl-package ()
   (config-wl-package)
   (make-wl-news)