From 21b729d8277d054241a7c5962d365110af58174f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 8 Mar 1991 19:51:13 +0000
Subject: [PATCH] Initial revision

---
 tools/fixheader | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 tools/fixheader

diff --git a/tools/fixheader b/tools/fixheader
new file mode 100755
index 000000000..e473cdff4
--- /dev/null
+++ b/tools/fixheader
@@ -0,0 +1,35 @@
+#!/bin/csh -f
+
+foreach file ($argv)
+	set range = (`fgrep -n ';;; ***********' $file | sed -e '3,$d' -e 's/:.*//'`)
+	if ($#range < 2) then
+		echo '**********' $file'': Could not find the header comment.
+		goto nextfile
+	endif
+	if ($range[2] > 12) then
+		echo '**********' $file'': Large header comment, you deal with it.
+		goto nextfile
+	endif
+
+	echo fixing $file
+
+	ed $file <<END_OF_ED_STUFF
+$range[1],$range[2]d
+$range[1]i
+;;; **********************************************************************
+;;; This code was written as part of the CMU Common Lisp project at
+;;; Carnegie Mellon University, and has been placed in the public domain.
+;;; If you want to use this code or any part of CMU Common Lisp, please contact
+;;; Scott Fahlman or slisp-group@cs.cmu.edu.
+;;;
+(ext:file-comment
+  "\$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/fixheader,v 1.1 1991/03/08 19:51:13 ram Exp $")
+;;;
+;;; **********************************************************************
+.
+w
+q
+END_OF_ED_STUFF
+
+	nextfile:
+end
-- 
GitLab