From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 11 Nov 1995 07:32:27 +0000 (+0000)
Subject: Change log merger to accept a single directory argument, and to scan
X-Git-Tag: 20090517-FFI~5742
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f158e3943bf4b1ac1b2852a8dd7ac8f1fc7e8885;p=mit-scheme.git

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 f54ed750c..5097e1523 100644
--- 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