From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 8 Dec 2000 05:53:17 +0000 (+0000)
Subject: Redesign the structure for setup and clean rules.  New structure uses
X-Git-Tag: 20090517-FFI~3095
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dd957d821caa57a7a0c8a72e5822938330b5bd8f;p=mit-scheme.git

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
index 000000000..8e113ca7f
--- /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
index 000000000..328d2297b
--- /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 fd0eaa2d5..a8a3b475e 100755
--- 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