From: Chris Hanson Date: Mon, 16 Oct 2000 18:17:55 +0000 (+0000) Subject: Initial revision. X-Git-Tag: 20090517-FFI~3262 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0726ce49d2308d15472dc4b136c157ccedd46437;p=mit-scheme.git Initial revision. --- diff --git a/v7/src/etc/bootstrap-compile.scm b/v7/src/etc/bootstrap-compile.scm new file mode 100644 index 000000000..c4dfd27c7 --- /dev/null +++ b/v7/src/etc/bootstrap-compile.scm @@ -0,0 +1,33 @@ +#| -*-Scheme-*- + +$Id: bootstrap-compile.scm,v 1.1 2000/10/16 18:17:49 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. +|# + +(sf "microcode/utabmd") + +(for-each (lambda (name) + (with-working-directory-pathname name + (lambda () + (load (pathname-new-type name "sf")) + (load (pathname-new-type name "cbf"))))) + '("cref" "runtime" "sf" "compiler" "edwin" "6001")) + +(for-each (lambda (name) + (load (merge-pathnames "compile" (pathname-as-directory name)))) + '("sos" "imail")) \ No newline at end of file diff --git a/v7/src/etc/bootstrap.sh b/v7/src/etc/bootstrap.sh new file mode 100755 index 000000000..49ae9466d --- /dev/null +++ b/v7/src/etc/bootstrap.sh @@ -0,0 +1,65 @@ +#!/bin/sh +# +# $Id: bootstrap.sh,v 1.1 2000/10/16 18:17:39 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. + +# This must be at least 2000. +MITSCHEME_LARGE_HEAP=4000 +export MITSCHEME_LARGE_HEAP + +if [ ! -d 6001 ]; then + echo "This must be run from the top-level Scheme source directory." + exit 1 +fi + +# If this tree is freshly checked out, do the post-checkout adjustments. +if [ ! -f 6001/Makefile ]; then + etc/build-tree.sh +fi + +# Build the lib directory. +rm -rf lib +mkdir lib +mkdir edwin +mkdir edwin/etc +mkdir edwin/info +cp -p etc/optiondb.scm lib/. +( + cd lib + ln -s .. SRC + ln -s SRC/runtime options + ln -s ../../edwin edwin/autoload + ln -s ../cref . +) + +# Set up the compiler directory. +( + cd compiler + ln -s machines/i386 machine + ln -s machine/compiler.* . + ln -s machine/make.com . +) + +# Compile everything. +scheme -compiler -load bootstrap-compile.scm + +cp -p microcode/utabmd.bin lib/. + +(cd runtime; scheme -library ../lib -fasl make.com) < etc/build-runtime.scm +scheme -library lib -large < etc/build-compiler.scm +scheme -library lib -large < etc/build-edwin.scm diff --git a/v7/src/etc/build-compiler.scm b/v7/src/etc/build-compiler.scm new file mode 100644 index 000000000..d429a098c --- /dev/null +++ b/v7/src/etc/build-compiler.scm @@ -0,0 +1,29 @@ +#| -*-Scheme-*- + +$Id: build-compiler.scm,v 1.1 2000/10/16 18:17:51 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. +|# + +(let ((load-it + (lambda (name) + (with-working-directory-pathname name (lambda () (load "make")))))) + (load-it "sf") + (load-it "compiler") + (disk-save "lib/compiler.com") + (load-it "edwin") + (disk-save "lib/all.com")) \ No newline at end of file diff --git a/v7/src/etc/build-edwin.scm b/v7/src/etc/build-edwin.scm new file mode 100644 index 000000000..943b793ed --- /dev/null +++ b/v7/src/etc/build-edwin.scm @@ -0,0 +1,28 @@ +#| -*-Scheme-*- + +$Id: build-edwin.scm,v 1.1 2000/10/16 18:17:53 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. +|# + +(let ((load-it + (lambda (name) + (with-working-directory-pathname name (lambda () (load "make")))))) + (load-it "edwin") + (disk-save "lib/edwin.com") + (load-it "6001") + (disk-save "lib/6001.com")) \ No newline at end of file diff --git a/v7/src/etc/build-runtime.scm b/v7/src/etc/build-runtime.scm new file mode 100644 index 000000000..beae1257b --- /dev/null +++ b/v7/src/etc/build-runtime.scm @@ -0,0 +1,22 @@ +#| -*-Scheme-*- + +$Id: build-runtime.scm,v 1.1 2000/10/16 18:17:55 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. +|# + +(disk-save "../lib/runtime.com")