*** empty log message ***

diff --git a/etc/update-rcs-log b/etc/update-rcs-log
index c1737d1f16958881d5a285136453a009f7041ead..2998f2f877e5d3bd1fe6d7111a9774de3340db00 100755 (executable)
--- 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 4a5223b061992e098c78c692f3db52fb08d90e0a..7f5cbc23c46dd8fe2a49009d596e16e3c54db81a 100644 (file)
--- 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