#!/usr/bin/perl

# copyright - replace copyright in specified files
# vix 17apr93 [fixed truncation bug; only edit writable files]
# vix 31mar93 [added individual dating per file]
# vix 02feb93 [original, for bind 4.9]

## ++Copyright++
## -
## Copyright (c) 
##    The Regents of the University of California.  All rights reserved.
## 
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions
## are met:
## 1. Redistributions of source code must retain the above copyright
##    notice, this list of conditions and the following disclaimer.
## 2. Redistributions in binary form must reproduce the above copyright
##    notice, this list of conditions and the following disclaimer in the
##    documentation and/or other materials provided with the distribution.
## 3. All advertising materials mentioning features or use of this software
##    must display the following acknowledgement:
## 	This product includes software developed by the University of
## 	California, Berkeley and its contributors.
## 4. Neither the name of the University nor the names of its contributors
##    may be used to endorse or promote products derived from this software
##    without specific prior written permission.
## 
## THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
## ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
## IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
## ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
## FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
## DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
## OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
## LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
## OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
## SUCH DAMAGE.
## -
## Portions Copyright (c) 1993 by Digital Equipment Corporation.
## 
## Permission to use, copy, modify, and distribute this software for any
## purpose with or without fee is hereby granted, provided that the above
## copyright notice and this permission notice appear in all copies, and that
## the name of Digital Equipment Corporation not be used in advertising or
## publicity pertaining to distribution of the document or software without
## specific, written prior permission.
## 
## THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
## WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
## OF MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
## CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
## DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
## PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
## ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
## SOFTWARE.
## -
## --Copyright--

$BeginMarker = '\+\+Copyright\+\+';
$EndMarker = '\-\-Copyright\-\-';
@Copyright = <STDIN>;
print STDERR "copyright from standard input is $#Copyright lines\n";

foreach (@ARGV) {
	&copyright($_);
}

exit 0;

sub copyright {
	local($file) = @_;
	local($_, $found, $indent, $in, @file);

	if (! -w $file) {
		print STDERR "$file: not writable\n";
		return;
	}
	if (!open(file, "+<$file")) {
		print STDERR "$file: $!\n";
		return;
	}
	$found = 0;
	$in = 0;
	while (<file>) {
		if (/$BeginMarker/o) {
			if ($in) {
				print STDERR
				  "$file: nested '$BeginMarker'\n";
				return;
			}
			$indent = $`;
			$dates = $';
			$dates =~ s/^\s+//;
			$dates =~ s/\s+$//;
			$found++;
			$in = 1;
			push(@file, $_);
			foreach (@Copyright) {
				if (/XYZZY/o) {
					push(@file, $indent.$`.$dates.$');
				} else {
					push(@file, $indent.$_);
				}
			}
		} elsif (/$EndMarker/o) {
			if (!$in) {
				print STDERR
				  "$file: mismatched '$EndMarker'\n";
				return;
			}
			if ($` ne $indent) {
				print STDERR
				  "$file: indent differs: '$`' vs '$indent'\n";
				return;
			}
			push(@file, $_);
			$in = 0;
		} else {
			push(@file, $_) unless $in;
		}
	}
	if ($in) {
		print STDERR
		  "$file: mismatched '$BeginMarker'\n";
		return;
	}
	if (!$found) {
		print STDERR
		  "$file: no '$BeginMarker' or '$EndMarker' found\n";
		return;
	}
	print STDERR "$file: $found copyrights found\n";
	if (!seek(file, 0, 0)) {
		print STDERR
		  "$file: seek(f,0,0): $!";
		return;
	}
	print file @file;
	truncate(file, tell(file));
	if (!close(file)) {
		print STDERR
		  "$file: close(f): $! (may be corrupt now)\n";
		return;
	}
}
