From 4bb127521f2031b1dbe4f88b454aeb4790a4d94d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 16 Oct 2000 18:01:52 +0000
Subject: [PATCH] Imported from /scheme/etc/.

---
 v7/src/etc/build-tree.sh | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 v7/src/etc/build-tree.sh

diff --git a/v7/src/etc/build-tree.sh b/v7/src/etc/build-tree.sh
new file mode 100755
index 000000000..b2d1b049f
--- /dev/null
+++ b/v7/src/etc/build-tree.sh
@@ -0,0 +1,33 @@
+#!/bin/sh
+#
+# $Id: build-tree.sh,v 1.1 2000/10/16 18:01:52 cph Exp $
+#
+# Program to finish setting up the Scheme source tree after it is
+# checked out.  Adds required links, builds TAGS files, etc.
+#
+if [ ! -d 6001 ]
+then
+  echo "This must be run from the top-level Scheme source directory."
+  exit 1
+fi
+for directory in 6001 cref edwin imail rcs runtime sf sos win32
+do
+  (cd $directory; ln -s ../Makefile.std Makefile)
+done
+for directory in 6001 compiler cref edwin imail rcs runtime sf sos swat win32
+do
+  (cd $directory; make TAGS)
+done
+for directory in edwin imail runtime sos
+do
+  (cd $directory; ln -s ed-ffi.scm .edwin-ffi)
+done
+(cd microcode; scheme -load os2pm.scm < /dev/null)
+(cd microcode; etags -r '/^DEF[A-Za-z_ \t(]+"\([^"]+\)"/' *.[ch])
+(cd microcode/cmpauxmd; make all)
+(cd pcsample; etags *.scm *.c)
+(cd compiler/machines/vax;
+  for n in 1 2 3
+  do
+    ln -s instr${n}.scm dinstr${n}.scm
+  done)
-- 
2.25.1