Initial revision.

diff --git a/v7/src/etc/compile.scm b/v7/src/etc/compile.scm
new file mode 100644 (file)
index 0000000..d290e9b
--- /dev/null
+++ b/v7/src/etc/compile.scm
@@ -0,0 +1,45 @@
+#| -*-Scheme-*-
+
+$Id: compile.scm,v 1.1 2000/12/07 21:50:48 cph Exp $
+
+Copyright (c) 2000 Massachusetts Institute of Technology
+
+This program is free software; you can redistribute it and/or modify
+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.
+
+This program 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 this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+|#
+
+;;;; Program to compile MIT Scheme.
+
+;;; This compiles the part of the system written in Scheme.
+;;; The part written in C is compiled using "make".
+
+(begin
+  (with-working-directory-pathname "cref"
+    (lambda ()
+      (load "cref.sf")
+      (load "cref.cbf")
+      (if (not (name->package '(CROSS-REFERENCE)))
+         (load "make"))))
+  (for-each (lambda (name)
+             (with-working-directory-pathname name
+               (lambda ()
+                 (load (pathname-new-type name "sf"))
+                 (load (pathname-new-type name "cbf")))))
+           '("runtime" "sf" "compiler" "edwin" "6001"))
+  (for-each (lambda (name)
+             (load (merge-pathnames "compile" (pathname-as-directory name))))
+           '("sos" "imail"))
+  (with-working-directory-pathname "runtime-check"
+    (lambda ()
+      (load "runtime.cbf"))))
\ No newline at end of file

diff --git a/v7/src/etc/create-dirs.sh b/v7/src/etc/create-dirs.sh
new file mode 100755 (executable)
index 0000000..4253e61
--- /dev/null
+++ b/v7/src/etc/create-dirs.sh
@@ -0,0 +1,64 @@
+#!/bin/sh
+#
+# $Id: create-dirs.sh,v 1.1 2000/12/07 21:50:08 cph Exp $
+#
+# Copyright (c) 2000 Massachusetts Institute of Technology
+#
+# This program is free software; you can redistribute it and/or modify
+# 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.
+#
+# This program 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 this program; if not, write to the Free Software
+# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+# Create build directories and links.
+
+LN_S="ln -s"
+
+maybe_mkdir ()
+{
+    if test ! -d ${1}; then
+       echo "mkdir ${1}"
+       mkdir ${1}
+    fi
+}
+
+maybe_link ()
+{
+    if test ! -f ${1}; then
+       echo "ln -s ${2} ${1}"
+       ln -s ${2} ${1}
+    fi
+}
+
+# runtime-check
+maybe_mkdir runtime-check
+(
+    cd runtime
+    for FN in *.bin runtime.bco runtime.bld; do
+       if test ! -f ../runtime-check/${FN}; then
+           echo "${LN_S} ../runtime/${FN} runtime-check/."
+           ${LN_S} ../runtime/${FN} runtime-check/.
+       fi
+    done
+)
+
+# lib
+maybe_mkdir lib
+maybe_link lib/SRC ..
+maybe_link lib/optiondb.scm ../etc/optiondb.scm
+maybe_link lib/options ../runtime
+maybe_link lib/utabmd.bin ../microcode/utabmd.bin
+
+# lib/edwin
+maybe_mkdir lib/edwin
+maybe_mkdir lib/edwin/etc
+maybe_mkdir lib/edwin/info
+maybe_link lib/edwin/autoload ../../edwin