Make sure that host-adapter is loaded when compiling external modules.

This is necessary now because it modifies SF.

diff --git a/src/Makefile.in b/src/Makefile.in
index 369b8cc9459ca8857149d08ac93ca76059f75b40..65ee47c9a9882e8d3ad8e066be88374051245d3c 100644 (file)
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@ -91,6 +91,8 @@ HOST_SF_ONLY = '$(MIT_SCHEME_EXE)' --batch-mode $(HOST_COMPILER_HEAP) \
   --band runtime.com --no-init-file --eval '(load-option (quote sf))' \
   --load runtime/host-adapter.scm
 
+MODULE_SCHEME_FLAGS = --load ../runtime/host-adapter.scm
+
 # This rule is for LIARC.
 .SUFFIXES: .bld .pkd .c
 .pkd.c .bld.c:
@@ -405,7 +407,7 @@ all-blowfish: compile-blowfish
 
 .PHONY: compile-blowfish
 compile-blowfish: compile-runtime compile-ffi
-       (cd blowfish && MIT_SCHEME_EXE=$(MIT_SCHEME_EXE) $(MAKE))
+       (cd blowfish && MIT_SCHEME_EXE='$(MIT_SCHEME_EXE)' MIT_SCHEME_FLAGS='$(MODULE_SCHEME_FLAGS)' $(MAKE))
 
 .PHONY: compile-blowfish-c
 compile-blowfish-c:
@@ -423,7 +425,7 @@ compile-edwin: compile-runtime compile-xml
 @IF_BLOWFISH@compile-edwin: compile-blowfish
 @IF_GDBM@compile-edwin: compile-gdbm
 @IF_X11@compile-edwin: compile-x11
-       (cd edwin && MIT_SCHEME_EXE=$(MIT_SCHEME_EXE) $(MAKE))
+       (cd edwin && MIT_SCHEME_EXE='$(MIT_SCHEME_EXE)' MIT_SCHEME_FLAGS='$(MODULE_SCHEME_FLAGS)' $(MAKE))
 
 ################
 # gdbm
@@ -434,7 +436,7 @@ all-gdbm: compile-gdbm
 
 .PHONY: compile-gdbm
 compile-gdbm: compile-runtime compile-ffi
-       (cd gdbm && MIT_SCHEME_EXE=$(MIT_SCHEME_EXE) $(MAKE))
+       (cd gdbm && MIT_SCHEME_EXE='$(MIT_SCHEME_EXE)' MIT_SCHEME_FLAGS='$(MODULE_SCHEME_FLAGS)' $(MAKE))
 
 .PHONY: compile-gdbm-c
 compile-gdbm-c:
@@ -449,7 +451,7 @@ all-imail: compile-imail
 
 .PHONY: compile-imail
 compile-imail: compile-runtime compile-sos compile-edwin compile-star-parser
-       (cd imail && MIT_SCHEME_EXE=$(MIT_SCHEME_EXE) $(MAKE))
+       (cd imail && MIT_SCHEME_EXE='$(MIT_SCHEME_EXE)' MIT_SCHEME_FLAGS='$(MODULE_SCHEME_FLAGS)' $(MAKE))
 
 ################
 # mcrypt
@@ -460,7 +462,7 @@ all-mcrypt: compile-mcrypt
 
 .PHONY: compile-mcrypt
 compile-mcrypt: compile-runtime compile-ffi
-       (cd mcrypt && MIT_SCHEME_EXE=$(MIT_SCHEME_EXE) $(MAKE))
+       (cd mcrypt && MIT_SCHEME_EXE='$(MIT_SCHEME_EXE)' MIT_SCHEME_FLAGS='$(MODULE_SCHEME_FLAGS)' $(MAKE))
 
 .PHONY: compile-mcrypt-c
 compile-mcrypt-c:
@@ -475,7 +477,7 @@ all-pgsql: compile-pgsql
 
 .PHONY: compile-pgsql
 compile-pgsql: compile-runtime compile-ffi
-       (cd pgsql && MIT_SCHEME_EXE=$(MIT_SCHEME_EXE) $(MAKE))
+       (cd pgsql && MIT_SCHEME_EXE='$(MIT_SCHEME_EXE)' MIT_SCHEME_FLAGS='$(MODULE_SCHEME_FLAGS)' $(MAKE))
 
 .PHONY: compile-pgsql-c
 compile-pgsql-c:
@@ -490,7 +492,7 @@ all-x11: compile-x11
 
 .PHONY: compile-x11
 compile-x11: compile-runtime compile-ffi
-       (cd x11 && MIT_SCHEME_EXE=$(MIT_SCHEME_EXE) $(MAKE))
+       (cd x11 && MIT_SCHEME_EXE='$(MIT_SCHEME_EXE)' MIT_SCHEME_FLAGS='$(MODULE_SCHEME_FLAGS)' $(MAKE))
 
 .PHONY: compile-x11-c
 compile-x11-c:
@@ -505,7 +507,7 @@ all-x11-screen: compile-x11-screen
 
 .PHONY: compile-x11-screen
 compile-x11-screen: compile-runtime compile-x11 compile-edwin
-       (cd x11-screen && MIT_SCHEME_EXE=$(MIT_SCHEME_EXE) $(MAKE))
+       (cd x11-screen && MIT_SCHEME_EXE='$(MIT_SCHEME_EXE)' MIT_SCHEME_FLAGS='$(MODULE_SCHEME_FLAGS)' $(MAKE))
 
 #####################
 ### Cross compilation

diff --git a/src/blowfish/compile.sh b/src/blowfish/compile.sh
index a7f8e870b9da992d17c39726d82bddc6e9c18d53..0291a7732c201a79768ddfe4faff4d55f7fbc47e 100755 (executable)
--- a/src/blowfish/compile.sh
+++ b/src/blowfish/compile.sh
@@ -28,11 +28,12 @@
 
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
-${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
+: ${MIT_SCHEME_FLAGS=}
+${MIT_SCHEME_EXE} --prepend-library . --batch-mode --no-init-file ${MIT_SCHEME_FLAGS} <<\EOF
 (load "compile.scm")
 EOF
 suffix=`echo "(display (microcode-id/operating-system-suffix))" \
-       | ${MIT_SCHEME_EXE} --batch-mode`
+       | ${MIT_SCHEME_EXE} --batch-mode --no-init-file`
 report=blowfish-$suffix.crf
 if [ -s "$report" ]; then
     echo "$0: warning: $report is not empty"

diff --git a/src/edwin/compile.sh b/src/edwin/compile.sh
index a5ddd7dc366d41bf9a0b56b6840f7b785975288f..f7da3a21d438dce6d81cc48e7167fd9c85968b58 100755 (executable)
--- a/src/edwin/compile.sh
+++ b/src/edwin/compile.sh
@@ -13,12 +13,12 @@
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or (at
 # your option) any later version.
-# 
+#
 # MIT/GNU Scheme is distributed in the hope that it will be useful, but
 # WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 # General Public License for more details.
-# 
+#
 # You should have received a copy of the GNU General Public License
 # along with MIT/GNU Scheme; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
@@ -28,14 +28,15 @@
 
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
-${MIT_SCHEME_EXE} --batch-mode <<\EOF
+: ${MIT_SCHEME_FLAGS=}
+${MIT_SCHEME_EXE} --batch-mode --no-init-file ${MIT_SCHEME_FLAGS} <<\EOF
 
 (begin
   (load "edwin.sf")
   (load "edwin.cbf"))
 EOF
 suffix=`echo "(display (microcode-id/operating-system-suffix))" \
-       | ${MIT_SCHEME_EXE} --batch-mode`
+       | ${MIT_SCHEME_EXE} --batch-mode --no-init-file`
 report=edwin-$suffix.crf
 if [ -s "$report" ]; then
     awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report

diff --git a/src/gdbm/compile.sh b/src/gdbm/compile.sh
index 03f2cdcab8c8f7dd6d0080469dc757d53a9609d7..19f3f5c66381220f2c584b2d5763c060d582243c 100755 (executable)
--- a/src/gdbm/compile.sh
+++ b/src/gdbm/compile.sh
@@ -28,11 +28,12 @@
 
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
-${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
+: ${MIT_SCHEME_FLAGS=}
+${MIT_SCHEME_EXE} --prepend-library . --batch-mode --no-init-file ${MIT_SCHEME_FLAGS} <<\EOF
 (load "compile.scm")
 EOF
 suffix=`echo "(display (microcode-id/operating-system-suffix))" \
-       | ${MIT_SCHEME_EXE} --batch-mode`
+       | ${MIT_SCHEME_EXE} --batch-mode --no-init-file`
 report=gdbm-$suffix.crf
 if [ -s "$report" ]; then
     echo "$0: warning: $report is not empty"

diff --git a/src/imail/compile.sh b/src/imail/compile.sh
index 2416325d8b7eb8ce7738590ac9595fe7bf216ec9..ed64298c1a89c11620c44b0d077c1581c6b0ce4c 100755 (executable)
--- a/src/imail/compile.sh
+++ b/src/imail/compile.sh
@@ -28,11 +28,12 @@
 
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
-${MIT_SCHEME_EXE} --batch-mode <<\EOF
+: ${MIT_SCHEME_FLAGS=}
+${MIT_SCHEME_EXE} --batch-mode --no-init-file ${MIT_SCHEME_FLAGS} <<\EOF
 (load "compile.scm")
 EOF
 suffix=`echo "(display (microcode-id/operating-system-suffix))" \
-       | ${MIT_SCHEME_EXE} --batch-mode`
+       | ${MIT_SCHEME_EXE} --batch-mode --no-init-file`
 report=imail-$suffix.crf
 if [ -s "$report" ]; then
     awk "{printf \"$report:%d: %s\\n\",NR,\$0}" $report

diff --git a/src/mcrypt/compile.sh b/src/mcrypt/compile.sh
index 53efa0edec602c3095e16f5f073b7e7024d63e5e..82fbb5020537ea9e732b571c2c04aaed6be4df32 100755 (executable)
--- a/src/mcrypt/compile.sh
+++ b/src/mcrypt/compile.sh
@@ -28,11 +28,12 @@
 
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
-${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
+: ${MIT_SCHEME_FLAGS=}
+${MIT_SCHEME_EXE} --prepend-library . --batch-mode --no-init-file ${MIT_SCHEME_FLAGS} <<\EOF
 (load "compile.scm")
 EOF
 suffix=`echo "(display (microcode-id/operating-system-suffix))" \
-       | ${MIT_SCHEME_EXE} --batch-mode`
+       | ${MIT_SCHEME_EXE} --batch-mode --no-init-file`
 report=mcrypt-$suffix.crf
 if [ -s "$report" ]; then
     echo "$0: warning: $report is not empty"

diff --git a/src/pgsql/compile.sh b/src/pgsql/compile.sh
index 8c70dcb532bad6107a011609536b44a1f7854359..3f5ca567149a9c55894b1835149579b1df48ea67 100755 (executable)
--- a/src/pgsql/compile.sh
+++ b/src/pgsql/compile.sh
@@ -28,11 +28,12 @@
 
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
-${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
+: ${MIT_SCHEME_FLAGS=}
+${MIT_SCHEME_EXE} --prepend-library . --batch-mode --no-init-file ${MIT_SCHEME_FLAGS} <<\EOF
 (load "compile.scm")
 EOF
 suffix=`echo "(display (microcode-id/operating-system-suffix))" \
-       | ${MIT_SCHEME_EXE} --batch-mode`
+       | ${MIT_SCHEME_EXE} --batch-mode --no-init-file`
 report=pgsql-$suffix.crf
 if [ -s "$report" ]; then
     echo "$0: warning: $report is not empty"

diff --git a/src/x11-screen/compile.sh b/src/x11-screen/compile.sh
index 6b1cf5be706c4818b8d91bed195a0b8d7fb7f826..79feaf2ed23a4f4d812e37a3b0e586cf8a656839 100755 (executable)
--- a/src/x11-screen/compile.sh
+++ b/src/x11-screen/compile.sh
@@ -28,11 +28,12 @@
 
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
-${MIT_SCHEME_EXE} --batch-mode <<\EOF
+: ${MIT_SCHEME_FLAGS=}
+${MIT_SCHEME_EXE} --batch-mode --no-init-file ${MIT_SCHEME_FLAGS} <<\EOF
 (load "compile.scm")
 EOF
 suffix=`echo "(display (microcode-id/operating-system-suffix))" \
-       | ${MIT_SCHEME_EXE} --batch-mode`
+       | ${MIT_SCHEME_EXE} --batch-mode --no-init-file`
 report=x11-screen-$suffix.crf
 if [ -s "$report" ]; then
     echo "$0: warning: $report is not empty"

diff --git a/src/x11/compile.sh b/src/x11/compile.sh
index 544c0ce06bfd4b79655e6d725b33659b3bd5ca35..4be7b070f0722c3468847dfcc727bf3dedf63343 100755 (executable)
--- a/src/x11/compile.sh
+++ b/src/x11/compile.sh
@@ -28,11 +28,12 @@
 
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
-${MIT_SCHEME_EXE} --prepend-library . --batch-mode <<\EOF
+: ${MIT_SCHEME_FLAGS=}
+${MIT_SCHEME_EXE} --prepend-library . --batch-mode --no-init-file ${MIT_SCHEME_FLAGS} <<\EOF
 (load "compile.scm")
 EOF
 suffix=`echo "(display (microcode-id/operating-system-suffix))" \
-       | ${MIT_SCHEME_EXE} --batch-mode`
+       | ${MIT_SCHEME_EXE} --batch-mode --no-init-file`
 report=x11-$suffix.crf
 if [ -s "$report" ]; then
     echo "$0: warning: $report is not empty"