Redesign the structure for setup and clean rules. New structure uses

shell scripts in each directory, which the makefiles refer to.  This
greatly simplifies the configuration code because it was getting too
painful to put complex shell scripts inside the makefiles.

diff --git a/v7/src/compiler/Clean.sh b/v7/src/compiler/Clean.sh
new file mode 100755 (executable)
index 0000000..8e113ca
--- /dev/null
+++ b/v7/src/compiler/Clean.sh
@@ -0,0 +1,44 @@
+#!/bin/sh
+#
+# $Id: Clean.sh,v 1.1 2000/12/08 05:53:17 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.
+
+# Utility for cleaning up the MIT Scheme runtime-check directory.
+# The working directory must be the runtime-check directory.
+
+if [ $# -ne 1 ]; then
+    echo "usage: $0 <command>"
+    exit 1
+fi
+
+../etc/Clean.sh "${1}" rm-pkg-src rm-pkg-bin
+
+for SUBDIR in back base fggen fgopt machine rtlbase rtlgen rtlopt; do
+    if [ -d ${SUBDIR} ]; then
+       echo "making ${COMMAND} in ${SUBDIR}"
+       (cd ${SUBDIR} && rm -f *.bin *.ext *.com *.bci)
+    fi
+done
+
+case "${1}" in
+distclean | maintainer-clean)
+    rm -f machine compiler.cbf compiler.pkg compiler.sf make.com
+    ;;
+esac
+
+exit 0

diff --git a/v7/src/compiler/Stage.sh b/v7/src/compiler/Stage.sh
new file mode 100755 (executable)
index 0000000..328d229
--- /dev/null
+++ b/v7/src/compiler/Stage.sh
@@ -0,0 +1,61 @@
+#!/bin/sh
+#
+# $Id: Stage.sh,v 1.1 2000/12/08 05:53:02 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.
+
+# Utility for MIT Scheme compiler staging.
+
+if [ $# -ne 2 ]; then
+    echo "usage: $0 <command> <tag>"
+    exit 1
+fi
+
+SUBDIRS="back base fggen fgopt machine rtlbase rtlgen rtlopt"
+S="STAGE${2}"
+
+case "${1}" in
+make)
+    for D in ${SUBDIRS}; do
+       (cd ${D} && mkdir "${S}" && mv -f *.com *.bci "${S}") || exit 1
+    done
+    ;;
+unmake)
+    for D in ${SUBDIRS}; do
+       (cd ${D} && mv -f "${S}/*" . && rmdir "${S}") || exit 1
+    done
+    ;;
+remove)
+    for D in ${SUBDIRS}; do
+       rm -rf "${D}/${S}"
+    done
+    ;;
+copy)
+    for D in ${SUBDIRS}; do
+       (cd ${D} && cp "${S}/*" .) || exit 1
+    done
+    ;;
+link)
+    for D in ${SUBDIRS}; do
+       (cd ${D} && ln "${S}/*" .) || exit 1
+    done
+    ;;
+*)
+    echo "$0: Unknown command ${1}"
+    exit 1
+    ;;
+esac

diff --git a/v7/src/etc/Stage.sh b/v7/src/etc/Stage.sh
index fd0eaa2d574e7c6458d6667337f50f54590625d9..a8a3b475ed73a683e9be16cfeff87600b8acab14 100755 (executable)
--- a/v7/src/etc/Stage.sh
+++ b/v7/src/etc/Stage.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 #
-# $Id: Stage.sh,v 1.1 2000/12/08 04:49:59 cph Exp $
+# $Id: Stage.sh,v 1.2 2000/12/08 05:48:56 cph Exp $
 #
 # Copyright (c) 2000 Massachusetts Institute of Technology
 #
@@ -48,5 +48,3 @@ link)
     exit 1
     ;;
 esac
-
-exit 0