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