From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 7 Dec 2000 21:50:48 +0000 (+0000)
Subject: Initial revision.
X-Git-Tag: 20090517-FFI~3117
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=882abc7fda777b594324bff5cba77a41f449d1f7;p=mit-scheme.git

Initial revision.
---

diff --git a/v7/src/etc/compile.scm b/v7/src/etc/compile.scm
new file mode 100644
index 000000000..d290e9b4b
--- /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
index 000000000..4253e618b
--- /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