From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 16 Jan 2000 03:34:50 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 20090517-FFI~4332
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=51f129edc45e674eaba7a35e010a3dc1f09e3629;p=mit-scheme.git

Initial revision
---

diff --git a/v7/dist/make-src-files b/v7/dist/make-src-files
new file mode 100755
index 000000000..56cd39f48
--- /dev/null
+++ b/v7/dist/make-src-files
@@ -0,0 +1,37 @@
+#!/bin/sh
+
+if [ $# -ne 1 ]
+then
+  echo "usage: $0 DESTINATION"
+  exit 1
+fi
+
+source=/scheme/v7/src
+destination=$1
+
+if [ -d ${destination} ]
+then
+  echo "DESTINATION must not be an existing directory"
+  exit 1
+fi
+
+mkdir ${destination}
+
+for file in 6001 COPYING Makefile.std TAGS compiler cref edwin microcode rcs runtime sf sos win32
+do
+  cpx -E ${source}/${file} ${destination}
+done
+
+find ${destination} -type l -name RCS -print | xargs rm
+find ${destination} -type f -print | xargs chmod a-w
+find ${destination} -type d -print | xargs chmod g-w
+
+suffix=`date +%Y%m%d`
+tarfile=src-${suffix}.tar.gz
+zipfile=src-${suffix}.zip
+
+tar czvf ${tarfile} ${destination}
+zip -rl ${zipfile} ${destination}
+chmod -w ${tarfile} ${zipfile}
+
+rm -rf ${destination}