From c0f2347021d832ebe6cae23ede30cd6dea09b778 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 3 Jan 2016 14:27:57 -0700
Subject: [PATCH] dist/update-copyright.scm: Update files in place.

Start with a clean working tree and you can `git reset --hard HEAD'
when the translation goes badly.
---
 dist/update-copyright.scm | 31 +++++++++++++++++--------------
 1 file changed, 17 insertions(+), 14 deletions(-)

diff --git a/dist/update-copyright.scm b/dist/update-copyright.scm
index 9ae2c59c5..9c32aa8d1 100644
--- a/dist/update-copyright.scm
+++ b/dist/update-copyright.scm
@@ -29,31 +29,27 @@ USA.
 (declare (usual-integrations))
 
 (define (translate-standard-dirs root-dir translation)
-  (let* ((root-dir (merge-pathnames (pathname-as-directory root-dir)))
-	 (target (merge-pathnames "translated-files" root-dir))
-	 (target-dir (pathname-as-directory target)))
-    (make-directory target)
+  (let ((root-dir (merge-pathnames (pathname-as-directory root-dir)))
+	(suffix (string-append "-"
+			       (string-pad-left (number->string
+						 (random-integer 10000))
+						4 #\0))))
     (for-each (lambda (dir)
 		(translate-directory (merge-pathnames dir root-dir)
-				     (merge-pathnames dir target-dir)
+				     suffix
 				     root-dir
 				     translation))
 	      '("dist" "doc" "etc" "html" "src" "tests"))))
 
-(define (translate-directory source target root-dir translation)
-  (let ((source (pathname-as-directory source))
-	(target (pathname-as-directory target)))
+(define (translate-directory source suffix root-dir translation)
+  (let ((source (pathname-as-directory source)))
     (let loop ((pathnames (list source)))
       (if (pair? pathnames)
-	  (let* ((input (car pathnames))
-		 (output
-		  (merge-pathnames (enough-pathname input source) target)))
+	  (let ((input (car pathnames)))
 	    (if (file-directory? input)
 		(loop (if (match-path input root-dir dirs-to-skip)
 			  (cdr pathnames)
 			  (begin
-			    (if (not (file-directory? output))
-				(make-directory output))
 			    (append (directory-read
 				     (pathname-as-directory input))
 				    (cdr pathnames)))))
@@ -62,7 +58,7 @@ USA.
 			   (not (match-path input root-dir files-to-skip)))
 		      (let ((results (translation (read-file-leader input))))
 			(if (pair? results)
-			    (translate-file-1 input output results)
+			    (translate-file input suffix results)
 			    (if (not
 				 (match-path input root-dir
 					     suppress-warnings-for))
@@ -115,6 +111,13 @@ USA.
       (let ((leader (make-string 4096)))
 	(string-head leader (read-substring! leader 0 4096 port))))))
 
+(define (translate-file input suffix results)
+  (let ((output (pathname-new-name input
+				   (string-append (pathname-name input)
+						  suffix))))
+    (translate-file-1 input output results)
+    (rename-file output input)))
+
 (define (translate-file-1 input output results)
   (call-with-input-file input
     (lambda (input)
-- 
2.25.1