(bootstrap-compile): New target. Compile Lisp

files with ../src/temacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 412edf885d8912d2af26875c56246a954daa6d6e..bc4949088c46e0498898e2e0eb29f5f76e7b1470 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-09  Gerd Moellmann  <gerd@gnu.org>
+
+       * Makefile (bootstrap-compile): New target.  Compile Lisp
+       files with ../src/temacs.
+
 1999-10-08  Simon Marshall  <simon@gnu.org>
 
        * emacs-lisp/regexp-opt.el (regexp-opt-try-suffix): New function.

diff --git a/lisp/Makefile b/lisp/Makefile
index 3e10f639d2353eb8e8ebf2bd8ee85c74babe596c..23b7bee8a5a45e8e24e47d67c8e1c327d08699e7 100644 (file)
--- a/lisp/Makefile
+++ b/lisp/Makefile
@@ -46,6 +46,10 @@ EL   = $(lisptagsfiles1) $(lisptagsfiles2)
 
 emacs = $(EMACS) $(EMACSOPT)
 
+# The Emacs used to compile Lisp files from scratch.
+
+temacs=../src/temacs -batch -l ./loadup.el 
+
 
 doit:
 
@@ -124,7 +128,7 @@ TAGS-LISP: $(lispsource)$(lisptagsfiles1) $(lispsource)$(lisptagsfiles2)
 
 compile: doit
        wd=`pwd`;                                               \
-       find $$wd -name "*.elc" | xargs chmod +w;               \
+       find $$wd -name "*.elc" -print | xargs chmod +w;        \
        subdirs=`find $$wd -type d -print`;                     \
        for dir in $$subdirs; do                                \
           case $$dir in                                        \
@@ -148,6 +152,37 @@ compile: doit
           fi;                                                  \
        done
 
+# Compile Lisp files when all we have is the temacs in ../src.  All
+# .elc files under the current directory are deleted first to make
+# sure we start from a clean basis.
+
+bootstrap-compile: doit
+       wd=`pwd`;                                               \
+       find $$wd -name "*.elc" -print | xargs rm -f            \
+       subdirs=`find $$wd -type d -print`;                     \
+       for dir in $$subdirs; do                                \
+          case $$dir in                                        \
+            */Old | */RCS | */CVS | */=* ) ;;                  \
+            *) loadpath="$$loadpath \"$$dir\"" ;;              \
+          esac;                                                \
+        done;                                                  \
+       loadpath="(setq load-path '($$loadpath))";              \
+       dont_compile=`echo $(DONTCOMPILE)`;                     \
+       for el in $(EL); do                                     \
+         compile_it=y;                                         \
+         for dont in $$dont_compile; do                        \
+           if test $$el = $$dont; then                         \
+             compile_it=n;                                     \
+            fi;                                                        \
+          done;                                                        \
+          if test $$compile_it = y; then                       \
+            $(temacs) --eval "$$loadpath" -f batch-byte-compile $$el; \
+          else                                                 \
+            echo "Don't compile $$el";                         \
+          fi;                                                  \
+       done
+
+
 # Recompile all Lisp files which are newer than their .elc files.
 # Note that this doesn't create .elc files.  It only recompiles if an
 # .elc is present.