From b235c80e754d9a172d8162d734ee9ffa344b1117 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 29 Jul 1995 16:58:43 +0000 Subject: [PATCH] *** empty log message *** --- etc/update-rcs-log | 2 +- etc/update-rcs-log.in | 43 +++++++++++++++++++++++++++++++------------ 2 files changed, 32 insertions(+), 13 deletions(-) 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 -- 2.25.1