mirror of
https://github.com/isc-projects/bind9.git
synced 2026-03-02 05:20:33 -05:00
acb9a3c446
literal blocks. update_copyrights has been fixed to cope with the lack of empty lines around the cvs id tag's line in each man source.
310 lines
11 KiB
Perl
310 lines
11 KiB
Perl
#!/usr/local/bin/perl -w
|
|
#
|
|
# Copyright (C) 1998-2001 Internet Software Consortium.
|
|
#
|
|
# 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.
|
|
#
|
|
# THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM
|
|
# DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
|
|
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
|
|
# INTERNET SOFTWARE CONSORTIUM 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.
|
|
|
|
# $Id: update_copyrights,v 1.21.4.2 2001/06/14 06:19:56 tale Exp $
|
|
|
|
require 5.002;
|
|
|
|
# Map copyright owners to the files containing copyright messages.
|
|
# The first line of the copyright message is not in the file;
|
|
# it is constructed by this script.
|
|
|
|
my %owner2filename = (
|
|
"" => "util/COPYRIGHT",
|
|
"NAI" => "util/COPYRIGHT.NAI",
|
|
"NOM" => "util/COPYRIGHT.NOM",
|
|
"BSDI" => "util/COPYRIGHT.BSDI",
|
|
"BRIEF" => "util/COPYRIGHT.BRIEF",
|
|
"PORTION" => "util/COPYRIGHT.PORTION",
|
|
);
|
|
|
|
# Map each copyright owner name to a reference to an array containing
|
|
# the lines of the copyright message.
|
|
|
|
my %owner2text = ();
|
|
|
|
my $keyword_pat = '\$(Id|Revision):.*\$';
|
|
|
|
foreach $owner (keys %owner2filename) {
|
|
my $f = $owner2filename{$owner};
|
|
open(COPYRIGHT, "<$f") || die "can't open $f: $!";
|
|
@copyright_text = <COPYRIGHT>;
|
|
close(COPYRIGHT);
|
|
$owner2text{$owner} = [ @copyright_text ];
|
|
}
|
|
|
|
while (<>) {
|
|
($file, $typeandowner, $years_list) = split(/\s+/);
|
|
@years = split(/,/, $years_list);
|
|
|
|
if ( ! -f $file ) {
|
|
print "$file: missing\n";
|
|
next;
|
|
}
|
|
|
|
my ($type, $owner) = split(/\./, $typeandowner);
|
|
$owner = "" if !defined $owner;
|
|
|
|
$textp = $owner2text{$owner};
|
|
if (!defined $textp) {
|
|
print "$file: unknown copyright owner $owner\n";
|
|
next;
|
|
}
|
|
|
|
next if $type eq "X";
|
|
|
|
$before_copyright = "";
|
|
$c_comment = 0;
|
|
$shell_comment = 0;
|
|
$m4_comment = 0;
|
|
$sgml_comment = 0;
|
|
$zone_comment = 0;
|
|
$man_comment = 0;
|
|
$start_comment = "";
|
|
$end_comment = "";
|
|
$first = "";
|
|
if ($type =~ /^(C|YACC|CONF-C)$/) {
|
|
$c_comment = 1;
|
|
$start_comment = "/*\n";
|
|
$prefix = " * ";
|
|
$end_comment = " */\n";
|
|
} elsif ($type =~ /^(SH|PERL|TCL|MAKE|CONF-SH)$/) {
|
|
$shell_comment = 1;
|
|
$prefix = "# ";
|
|
} elsif ($type eq "ZONE") {
|
|
$zone_comment = 1;
|
|
$prefix = "; ";
|
|
} elsif ($type eq "MAN") {
|
|
$man_comment = 1;
|
|
$prefix = ".\\\" ";
|
|
} elsif ($type eq "M4") {
|
|
$m4_comment = 1;
|
|
$prefix = "dnl ";
|
|
} elsif ($type eq "HTML" || $type eq "SGML") {
|
|
$sgml_comment = 1;
|
|
$start_comment = "<!--\n";
|
|
$prefix = " - ";
|
|
$end_comment = "-->\n";
|
|
} elsif ($type eq "TXT") {
|
|
$prefix = "";
|
|
} else {
|
|
print "$file: type '$type' not supported yet; skipping\n";
|
|
next;
|
|
}
|
|
|
|
($nonspaceprefix = $prefix) =~ s/\s+$//;
|
|
|
|
open(SOURCE, "<$file") || die "can't open $file: $!";
|
|
$_ = <SOURCE>;
|
|
if ($type eq "YACC") {
|
|
unless ($_ eq "%{\n") {
|
|
print "$file: unexpected yacc file start ",
|
|
"(expected \"%{\\n\")\n";
|
|
close(SOURCE);
|
|
next;
|
|
}
|
|
$before_copyright = "$_";
|
|
$_ = <SOURCE>;
|
|
}
|
|
if ($c_comment && /^\/\*/) {
|
|
$_ = <SOURCE>;
|
|
if ($_ !~ /[Cc]opyright/) {
|
|
print "$file: non-copyright comment\n";
|
|
close(SOURCE);
|
|
next;
|
|
}
|
|
if ($_ !~ /\*\//) {
|
|
while (<SOURCE>) {
|
|
last if $_ =~ /\*\//;
|
|
}
|
|
}
|
|
} elsif ($shell_comment) {
|
|
if (/^\#\!/) {
|
|
$before_copyright = "$_#\n";
|
|
$_ = <SOURCE>;
|
|
$_ = <SOURCE> if $_ eq "#\n";
|
|
}
|
|
if (/^\#/) {
|
|
if ($_ !~ /[Cc]opyright/) {
|
|
print "$file: non-copyright comment\n";
|
|
close(SOURCE);
|
|
next;
|
|
}
|
|
while (<SOURCE>) {
|
|
if ($_ !~ /^\#/) {
|
|
$first = $_;
|
|
last;
|
|
}
|
|
}
|
|
} else {
|
|
$first = $_;
|
|
}
|
|
} elsif (($m4_comment || $zone_comment || $man_comment) &&
|
|
/^\Q$nonspaceprefix\E/) {
|
|
|
|
while (/^\Q$nonspaceprefix\E\s*$/) {
|
|
$_ = <SOURCE>;
|
|
}
|
|
|
|
if ($_ !~ /[Cc]opyright/) {
|
|
print "$file: non-copyright comment\n";
|
|
close(SOURCE);
|
|
next;
|
|
}
|
|
while (<SOURCE>) {
|
|
if ($_ !~ /^\Q$nonspaceprefix\E/ ||
|
|
$_ =~ /$keyword_pat/) {
|
|
$first = $_;
|
|
last;
|
|
}
|
|
}
|
|
} elsif ($sgml_comment) {
|
|
if (/^<!DOCTYPE/) {
|
|
$before_copyright = $_;
|
|
$_ = <SOURCE>;
|
|
}
|
|
if (/^<!/) {
|
|
$_ = <SOURCE> if $_ eq "<!--\n";
|
|
if ($_ !~ /[Cc]opyright/) {
|
|
print "$file: non-copyright comment\n";
|
|
close(SOURCE);
|
|
next;
|
|
}
|
|
while (defined($_)) {
|
|
last if s/.*-->//;
|
|
$_ = <SOURCE>;
|
|
}
|
|
print "$file: unterminated comment\n"
|
|
unless defined($_);
|
|
if ($_ ne "\n") {
|
|
$first = $_;
|
|
} else {
|
|
$first = <SOURCE>;
|
|
}
|
|
} else {
|
|
$first = $_;
|
|
}
|
|
} elsif ($type eq "TXT") {
|
|
if ($_ =~ /[Cc]opyright/) {
|
|
$/ = ""; # paragraph at a time
|
|
while (<SOURCE>) {
|
|
# Not very maintainable, but ok enough for now.
|
|
last unless
|
|
/See COPYRIGHT in the source root/ ||
|
|
/Permission to use, copy, modify, and / ||
|
|
/THE SOFTWARE IS PROVIDED "AS IS" AND /;
|
|
}
|
|
$/ = "\n";
|
|
}
|
|
$first = $_;
|
|
} else {
|
|
$first = $_;
|
|
}
|
|
|
|
$first = "" if ! defined($first);
|
|
|
|
open(TARGET, ">$file.new") || die "can't open $file.new: $!";
|
|
print TARGET $before_copyright if $before_copyright;
|
|
print TARGET $start_comment if $start_comment;
|
|
|
|
$years = "";
|
|
$last_year = 0;
|
|
$anchor_year = 0;
|
|
foreach $year (@years) {
|
|
if ($last_year != 0 && $year == $last_year + 1) {
|
|
if ($year > $anchor_year + 1) {
|
|
substr($years, $anchor_end) = "-$year";
|
|
} else {
|
|
$years .= ", $year";
|
|
}
|
|
} else {
|
|
$years .= $last_year == 0 ? "$year" : ", $year";
|
|
if ($anchor_year != 0) {
|
|
print "$file: noncontiguous year: ",
|
|
"$year != $last_year + 1\n";
|
|
}
|
|
$anchor_year = $year;
|
|
$anchor_end = length($years);
|
|
}
|
|
|
|
$last_year = $year;
|
|
}
|
|
|
|
($firstline, $secondline, @otherlines) = @$textp;
|
|
|
|
$firstline =~ s/\@YEARS\@/$years/;
|
|
$secondline =~ s/\@YEARS\@/$years/;
|
|
|
|
print TARGET "$prefix$firstline";
|
|
print TARGET $secondline =~ /^$/ ? $nonspaceprefix : $prefix;
|
|
print TARGET "$secondline";
|
|
|
|
foreach $_ (@otherlines) {
|
|
print TARGET (/^$/ ? $nonspaceprefix : $prefix);
|
|
print TARGET "$_";
|
|
}
|
|
print TARGET $end_comment if $end_comment;
|
|
|
|
if ($first eq "") {
|
|
$first = <SOURCE>;
|
|
}
|
|
|
|
if (defined($first)) {
|
|
if ($type eq 'MAN') {
|
|
print TARGET "$nonspaceprefix\n";
|
|
} else {
|
|
print TARGET "\n";
|
|
}
|
|
|
|
undef $/;
|
|
$_ = <SOURCE>;
|
|
$/ = "\n";
|
|
|
|
my ($start, $end);
|
|
if ($start_comment ne "") {
|
|
($start = $start_comment) =~ s/\s*\n/ /;
|
|
($end = $end_comment) =~ s/^\s*(.*)\n/ $1\n/;
|
|
} elsif ($prefix ne "") {
|
|
($start = $prefix) =~ s/\s*\n//;
|
|
$end = "\n";
|
|
} else {
|
|
$start = "";
|
|
$end = "\n";
|
|
}
|
|
|
|
if ($first !~ /$keyword_pat/ && $_ !~ /$keyword_pat/) {
|
|
print TARGET "$start\$";
|
|
print TARGET "Id: ";
|
|
print TARGET "\$$end\n";
|
|
}
|
|
|
|
print TARGET $first if $first !~ /^\s*$/;
|
|
print TARGET $_;
|
|
}
|
|
close(TARGET);
|
|
close(SOURCE);
|
|
|
|
$mode = (stat $file)[2]&511;
|
|
chmod $mode, "$file.new";
|
|
|
|
if (system("cmp -s $file.new $file") == 0) {
|
|
unlink("$file.new");
|
|
} else {
|
|
rename("$file.new", "$file")
|
|
or die "rename($file.new, $file): $!";
|
|
}
|
|
}
|