Syntax boot (LIAR/C) compiler with new runtime, sf, etc.

diff --git a/src/etc/build-bands.sh b/src/etc/build-bands.sh
index f47f67fcbea84d21dd25fd2e1add324d92cb8a93..a8f933768d17fd23fedcd71d58795b0253af7da9 100755 (executable)
--- a/src/etc/build-bands.sh
+++ b/src/etc/build-bands.sh
@@ -26,10 +26,17 @@ set -e
 
 . etc/functions.sh
 
-run_cmd_in_dir runtime ../microcode/scheme --library ../lib --heap 6000 \
-    --band runtime.com --batch-mode <<EOF
+if [ ! -e lib/runtime.com ]; then
+  FASL=`get_fasl_file`
+  run_cmd_in_dir runtime \
+       ../microcode/scheme --batch-mode --library ../lib --fasl $FASL <<EOF
+(disk-save "../lib/runtime.com")
+EOF
+fi
+
+run_cmd ./microcode/scheme --batch-mode --library lib --band runtime.com <<EOF
 (begin
   (load-option (quote compiler))
   (load-option (quote edwin))
-  (disk-save "../lib/all.com"))
+  (disk-save "lib/all.com"))
 EOF

diff --git a/src/etc/c-prepare.sh b/src/etc/c-prepare.sh
index 04eec01070e80296c178666eb4b6a8aafd97f1cc..84aaa512620cf931af80bce5dcf7095af97d90d1 100755 (executable)
--- a/src/etc/c-prepare.sh
+++ b/src/etc/c-prepare.sh
@@ -33,8 +33,13 @@ else
     exit 1
 fi
 
-run_cmd "${EXE}" --band runtime.com --heap 6000 --stack 200 <<EOF
+run_cmd "${EXE}" --batch-mode --library lib --band x-compiler.com <<EOF
 (begin
   (load "etc/compile.scm")
-  (c-prepare))
+  (in-liarc
+   (lambda ()
+     (compile-boot-dirs c-compile-dir))))
 EOF
+
+# distclean will not get these...
+run_cmd ./Stage.sh remove X

diff --git a/src/etc/compile-boot-compiler.sh b/src/etc/compile-boot-compiler.sh
index 2759e0d1e9ff3a8771190d27a0aae4e5826737ab..cbafc486f5cfb050a3716efe65fdc5a671ed5611 100755 (executable)
--- a/src/etc/compile-boot-compiler.sh
+++ b/src/etc/compile-boot-compiler.sh
@@ -33,14 +33,38 @@ else
     exit 1
 fi
 
-run_cmd "${EXE}" --band runtime.com --heap 6000 <<EOF
-(begin
-  (load "etc/compile.scm")
-  (compile-bootstrap-1))
+run_cmd "${EXE}" --batch-mode <<EOF
+(load "etc/compile.scm")
+(compile-cref compile-dir)
+(for-each compile-dir '("runtime" "star-parser" "sf"))
 EOF
 
-run_cmd "${EXE}" --band all.com --heap 6000 <<EOF
-(begin
-  (load "etc/compile.scm")
-  (compile-bootstrap-2))
+FASL=`get_fasl_file`
+run_cmd_in_dir runtime "${EXE}" --batch-mode --library ../lib --fasl $FASL <<EOF
+(disk-save "../lib/x-runtime.com")
 EOF
+echo ""
+
+run_cmd "${EXE}" --batch-mode --library lib --band x-runtime.com <<EOF
+(load-option 'SF)
+(with-working-directory-pathname "compiler"
+  (lambda ()
+    (load "compiler.sf")))
+EOF
+
+run_cmd "${EXE}" --batch-mode <<EOF
+(with-working-directory-pathname "compiler"
+  (lambda ()
+    (load "compiler.cbf")))
+EOF
+
+run_cmd "${EXE}" --batch-mode --library lib --band x-runtime.com <<EOF
+(load-option 'SF)
+(load-option 'CREF)
+(load-option '*PARSER)
+(load-option 'COMPILER)
+(disk-save "lib/x-compiler.com")
+EOF
+
+# Remove host (native) code to STAGEX/ subdirs.
+run_cmd ./Stage.sh make X