From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 29 Jul 1995 15:01:10 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 20090517-FFI~6092
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d407ce21b7a7c1f3f54afafd7599b7437285d177;p=mit-scheme.git

Initial revision
---

diff --git a/etc/update-rcs-log b/etc/update-rcs-log
new file mode 100755
index 000000000..c1737d1f1
--- /dev/null
+++ b/etc/update-rcs-log
@@ -0,0 +1,8 @@
+#!/bin/sh
+#
+#	Update RCS.log file in background.  no arguments
+
+PATH=/usr/contrib/bin:/usr/local/bin:/usr/bin:/bin
+export PATH
+
+bgx -ioe /raid/jmiller/scheme/compiler/etc/rcs scheme -large
diff --git a/etc/update-rcs-log.in b/etc/update-rcs-log.in
new file mode 100644
index 000000000..4a5223b06
--- /dev/null
+++ b/etc/update-rcs-log.in
@@ -0,0 +1,29 @@
+;; -*- Scheme -*-
+
+(begin
+  (cd "/scheme/700/rcs")
+  (load "make")
+  (let ((rcs-directory-log (access rcs-directory-log (->environment '(RCS)))))
+    (define (make-log directory . subdirectories)
+      (with-working-directory-pathname directory
+	(lambda ()
+	  (apply rcs-directory-log
+		 "RCS.log"
+		 (cons "RCS"
+		       (map (lambda (subdirectory)
+			      (string-append subdirectory "/RCS"))
+			    subdirectories))))))
+
+
+    (make-log "/raid/jmiller/scheme/compiler"
+	      "/raid/ssmith/scheme/compiler/machines/i386"
+	      "back" "base" "doc" "machines/spectrum"
+	      "midend" "rtlbase" "rtlopt")
+
+    (make-log "/raid/jmiller/new-scheme/microcode")
+    (make-log "/raid/jmiller/new-scheme/runtime")
+    (make-log "/raid/jmiller/scheme/bench")
+
+    'done)
+  (load "mklogs")			; /scheme/src logs
+  )
\ No newline at end of file