Change log merger to accept a single directory argument, and to scan

down that directory tree looking for files under RCS control.  It
additionally indirects through symbolic links, finding the RCS files
for the linked files in their home directories.

diff --git a/etc/update-rcs-log.in b/etc/update-rcs-log.in
index f54ed750c9c4f747b9d3400d4285da093ca2bb4f..5097e15231d4ef39a989a7c63af30af76fba09f8 100644 (file)
--- a/etc/update-rcs-log.in
+++ b/etc/update-rcs-log.in
@@ -3,44 +3,25 @@
 (begin
   (cd "/scheme/8.0/700/rcs")
   (load-latest "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))))))
+  (for-each
+   (let ((rcs-directory-log (access rcs-directory-log (->environment '(RCS)))))
+     (lambda (directory)
+       (rcs-directory-log
+       (merge-pathnames "RCS.log" (pathname-as-directory directory))
+       directory)))
+   '("/scheme/8.0/src/6001"
+     "/scheme/8.0/src/bench"
+     "/scheme/8.0/src/compiler"
+     "/scheme/8.0/src/cref"
+     "/scheme/8.0/src/edwin"
+     "/scheme/8.0/src/microcode"
+     "/scheme/8.0/src/rcs"
+     "/scheme/8.0/src/runtime"
+     "/scheme/8.0/src/sf"
+     "/scheme/8.0/src/win32"
 
-    ;;(make-log "/scheme/8.0/src/6001")
-    (make-log "/scheme/8.0/src/compiler" "back" "base" "documentation" "etc"
-             "machines/i386" "machines/spectrum"
-             "rtlbase" "rtlopt")
-    (make-log "/scheme/8.0/src/cref")
-    (make-log "/scheme/8.0/src/edwin")
-    (make-log "/scheme/8.0/src/microcode"
-             "cmpauxmd" "cmpintmd" "dosutl" "m" "ntutl" "s" "unxutl")
-    (make-log "/scheme/8.0/src/rcs")
-    (make-log "/scheme/8.0/src/runtime")
-    (make-log "/scheme/8.0/src/sf")
-    ;;(make-log "/scheme/8.0/src/sicp")
-    (make-log "/scheme/8.0/src/win32" "dibutils")
-    (make-log "/scheme/8.0/src/bench")
-
-    ;;(make-log "/scheme/7.4/src/6001")
-    (make-log "/scheme/7.4/src/compiler" "back" "base" "documentation" "etc" "fggen"
-             "fgopt" "machines/C" "machines/alpha" "machines/bobcat"
-             "machines/i386" "machines/mips" "machines/sparc"
-             "machines/spectrum" "machines/vax" "rtlbase" "rtlgen" "rtlopt")
-    ;;(make-log "/scheme/7.4/src/cref")
-    ;;(make-log "/scheme/7.4/src/edwin")
-    (make-log "/scheme/7.4/src/microcode"
-             "cmpauxmd" "cmpintmd" "dosutl" "m" "ntutl" "s" "unxutl")
-    ;;(make-log "/scheme/7.4/src/rcs")
-    (make-log "/scheme/7.4/src/runtime")
-    (make-log "/scheme/7.4/src/sf")
-    ;;(make-log "/scheme/7.4/src/sicp")
-    ;;(make-log "/scheme/7.4/src/win32" "dibutils")
-    ))
\ No newline at end of file
+     "/scheme/7.4/src/compiler"
+     "/scheme/7.4/src/microcode"
+     "/scheme/7.4/src/runtime"
+     "/scheme/7.4/src/sf"
+     )))
\ No newline at end of file