From 1da74d80ea1d430c6d58ce90f6880e5a0dcce42e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 3 Nov 1988 07:52:04 +0000 Subject: [PATCH] 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. --- v7/src/compiler/machines/bobcat/decls.scm | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm index 5b7bf5b78..146783ab2 100644 --- 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)) (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 () -- 2.25.1