From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 29 Jul 1995 16:58:43 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~6090
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b235c80e754d9a172d8162d734ee9ffa344b1117;p=mit-scheme.git

*** empty log message ***
---

diff --git a/etc/update-rcs-log b/etc/update-rcs-log
index c1737d1f1..2998f2f87 100755
--- a/etc/update-rcs-log
+++ b/etc/update-rcs-log
@@ -5,4 +5,4 @@
 PATH=/usr/contrib/bin:/usr/local/bin:/usr/bin:/bin
 export PATH
 
-bgx -ioe /raid/jmiller/scheme/compiler/etc/rcs scheme -large
+bgx -ioe /scheme/etc/update-rcs-log scheme-8.0-new -large -no-init-file
diff --git a/etc/update-rcs-log.in b/etc/update-rcs-log.in
index 4a5223b06..7f5cbc23c 100644
--- a/etc/update-rcs-log.in
+++ b/etc/update-rcs-log.in
@@ -1,8 +1,8 @@
 ;; -*- Scheme -*-
 
 (begin
-  (cd "/scheme/700/rcs")
-  (load "make")
+  (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
@@ -14,16 +14,35 @@
 			      (string-append subdirectory "/RCS"))
 			    subdirectories))))))
 
+    (make-log "/raid/jmiller/scheme/bench")
 
-    (make-log "/raid/jmiller/scheme/compiler"
-	      "/raid/ssmith/scheme/compiler/machines/i386"
-	      "back" "base" "doc" "machines/spectrum"
-	      "midend" "rtlbase" "rtlopt")
+    ;;(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 "/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
+    ;;(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