Skip to content
Snippets Groups Projects
Commit 21b729d8 authored by ram's avatar ram
Browse files

Initial revision

parent 510a5d27
No related branches found
No related tags found
No related merge requests found
#!/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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment