Echo message informing user when files are being touched. Fix big:

was touching file with no type!  Must touch files that SF outputs.
Always touch .bin file, conditionally touch .ext and .unf files.

diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm
index 5b7bf5b78a7814ea05556d74f7b1c05f271a40aa..146783ab2c28d4ac9fc07dd83e9c1bd4a8048029 100644 (file)
--- a/v7/src/compiler/machines/bobcat/decls.scm
+++ b/v7/src/compiler/machines/bobcat/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 4.10 1988/11/03 03:09:00 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/decls.scm,v 4.11 1988/11/03 07:52:04 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -263,13 +263,31 @@ MIT in each case. |#
              (if (not (source-node/modification-time node))
                  (if (source-node/circular? node)
                      (source-node/syntax! node)
-                     (file-touch (source-node/pathname node)))))
+                     (source-node/touch! node))))
            source-nodes/by-rank))
 \f
 (define (sc filename)
   (maybe-setup-source-nodes!)
   (source-node/syntax! (filename->source-node filename)))
 
+(define (source-node/touch! node)
+  (with-values
+      (lambda ()
+       (sf/pathname-defaulting (source-node/pathname node) "" false))
+    (lambda (input-pathname bin-pathname spec-pathname)
+      (pathname-touch! bin-pathname)
+      (let ((ext-pathname (pathname-new-type bin-pathname "ext")))
+       (if (file-exists? ext-pathname)
+           (pathname-touch! ext-pathname)))
+      (if (file-exists? spec-pathname)
+         (pathname-touch! spec-pathname)))))
+
+(define (pathname-touch! pathname)
+  (newline)
+  (write-string "Touch file: ")
+  (write (pathname->string pathname))
+  (file-touch pathname))
+
 (define (source-node/syntax! node)
   (with-values
       (lambda ()