Initial revision

diff --git a/etc/update-rcs-log b/etc/update-rcs-log
new file mode 100755 (executable)
index 0000000..c1737d1
--- /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 (file)
index 0000000..4a5223b
--- /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