bind-9.11.3/util/update_copyrights

	update_copyrights revision c968a9ca37964ae0bdc5d452ad784ec93bd04c57
fb84f9014321c5f33c4682de5661b579fcde318fAndreas Gustafsson#!/usr/local/bin/perl -w
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User#
75c0816e8295e180f4bc7f10db3d0d880383bc1cMark Andrews# Copyright (C) 1998-2001  Internet Software Consortium.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
4a14ce5ba00ab7bc55c99ffdcf59c7a4ab902721Automatic Updater# Permission to use, copy, modify, and distribute this software for any
fb84f9014321c5f33c4682de5661b579fcde318fAndreas Gustafsson# purpose with or without fee is hereby granted, provided that the above
fb84f9014321c5f33c4682de5661b579fcde318fAndreas Gustafsson# copyright notice and this permission notice appear in all copies.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein#
9016767f4e15191b7c763b8a4ad36a57dc2705a2Mark Andrews# THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM
9016767f4e15191b7c763b8a4ad36a57dc2705a2Mark Andrews# DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
9016767f4e15191b7c763b8a4ad36a57dc2705a2Mark Andrews# INTERNET SOFTWARE CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT,
9016767f4e15191b7c763b8a4ad36a57dc2705a2Mark Andrews# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
9016767f4e15191b7c763b8a4ad36a57dc2705a2Mark Andrews# FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
9016767f4e15191b7c763b8a4ad36a57dc2705a2Mark Andrews# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
fb84f9014321c5f33c4682de5661b579fcde318fAndreas Gustafsson# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# $Id: update_copyrights,v 1.25 2001/06/10 14:01:10 tale Exp $
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinrequire 5.002;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# Map copyright owners to the files containing copyright messages.
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User# The first line of the copyright message is not in the file;
5a4557e8de2951a2796676b5ec4b6a90caa5be14Mark Andrews# it is constructed by this script.
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinmy %owner2filename = (
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    "" => "util/COPYRIGHT",
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    "NAI" => "util/COPYRIGHT.NAI",
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    "NOM" => "util/COPYRIGHT.NOM",
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein    "BSDI" => "util/COPYRIGHT.BSDI",
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    "BRIEF" => "util/COPYRIGHT.BRIEF",
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    "PORTION" => "util/COPYRIGHT.PORTION",
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User);
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User# Map each copyright owner name to a reference to an array containing
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein# the lines of the copyright message.
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinmy %owner2text = ();
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austeinmy $keyword_pat = '\$(Id|Revision):.*\$';
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox Userforeach $owner (keys %owner2filename) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        my $f = $owner2filename{$owner};
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        open(COPYRIGHT, "<$f") || die "can't open $f: $!";
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User        @copyright_text = <COPYRIGHT>;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        close(COPYRIGHT);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        $owner2text{$owner} = [ @copyright_text ];
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein}
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox Userwhile (<>) {
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        ($file, $typeandowner, $years_list) = split(/\s+/);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        @years = split(/,/, $years_list);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        if ( ! -f $file ) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                print "$file: missing\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                next;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        my ($type, $owner) = split(/\./, $typeandowner);
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $owner = "" if !defined $owner;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $textp = $owner2text{$owner};
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        if (!defined $textp) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                print "$file: unknown copyright owner $owner\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                next;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        next if $type eq "X";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $before_copyright = "";
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User        $c_comment = 0;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $shell_comment = 0;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $m4_comment = 0;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $sgml_comment = 0;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $zone_comment = 0;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $man_comment = 0;
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User        $start_comment = "";
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User        $end_comment = "";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $first = "";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        if ($type =~ /^(C|YACC|CONF-C)$/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $c_comment = 1;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $start_comment = "/*\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $prefix = " * ";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $end_comment = " */\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($type =~ /^(SH|PERL|TCL|MAKE|CONF-SH)$/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $shell_comment = 1;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $prefix = "# ";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($type eq "ZONE") {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $zone_comment = 1;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $prefix = "; ";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($type eq "MAN") {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $man_comment = 1;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $prefix = ".\\\" ";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($type eq "M4") {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $m4_comment = 1;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $prefix = "dnl ";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($type eq "HTML" || $type eq "SGML") {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $sgml_comment = 1;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $start_comment = "<!--\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $prefix = " - ";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $end_comment = "-->\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($type eq "TXT") {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User                $prefix = "";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } else {
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User                print "$file: type '$type' not supported yet; skipping\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                next;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        ($nonspaceprefix = $prefix) =~ s/\s+$//;
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        open(SOURCE, "<$file") || die "can't open $file: $!";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $_ = <SOURCE>;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        if ($type eq "YACC") {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                unless ($_ eq "%{\n") {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        print "$file: unexpected yacc file start ",
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                              "(expected \"%{\\n\")\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        close(SOURCE);
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        next;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $before_copyright = "$_";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $_ = <SOURCE>;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        if ($c_comment && /^\/\*/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $_ = <SOURCE>;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                if ($_ !~ /[Cc]opyright/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        print "$file: non-copyright comment\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        close(SOURCE);
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        next;
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User                }
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User                if ($_ !~ /\*\//) {
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User                        while (<SOURCE>) {
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User                                last if $_ =~ /\*\//;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($shell_comment) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                if (/^\#\!/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $before_copyright = "$_#\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $_ = <SOURCE>;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $_ = <SOURCE> if $_ eq "#\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                if (/^\#/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        if ($_ !~ /[Cc]opyright/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                print "$file: non-copyright comment\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                close(SOURCE);
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                next;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        while (<SOURCE>) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                if ($_ !~ /^\#/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                        $first = $_;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                        last;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                } else {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $first = $_;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        } elsif (($m4_comment || $zone_comment || $man_comment) &&
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                 /^\Q$nonspaceprefix\E/) {
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                while (/^\Q$nonspaceprefix\E\s*$/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $_ = <SOURCE>;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                if ($_ !~ /[Cc]opyright/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        print "$file: non-copyright comment\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        close(SOURCE);
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        next;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                while (<SOURCE>) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        if ($_ !~ /^\Q$nonspaceprefix\E/ ||
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                            $_ =~ /$keyword_pat/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                $first = $_;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User                                last;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($sgml_comment) {
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User                if (/^<!DOCTYPE/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $before_copyright = $_;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $_ = <SOURCE>;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                if (/^<!/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $_ = <SOURCE> if $_ eq "<!--\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        if ($_ !~ /[Cc]opyright/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                print "$file: non-copyright comment\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                close(SOURCE);
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                next;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        while (defined($_)) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                last if s/.*-->//;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                $_ = <SOURCE>;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        print "$file: unterminated comment\n"
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                          unless defined($_);
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        if ($_ ne "\n") {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                $first = $_;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        } else {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                $first = <SOURCE>;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                } else {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $first = $_;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } elsif ($type eq "TXT") {
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User                if ($_ =~ /[Cc]opyright/) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $/ = "";            # paragraph at a time
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        while (<SOURCE>) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                # Not very maintainable, but ok enough for now.
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                last unless
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                  /See COPYRIGHT in the source root/ ||
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                  /Permission to use, copy, modify, and / ||
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                  /THE SOFTWARE IS PROVIDED "AS IS" AND /;
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        $/ = "\n";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                $first = $_;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        } else {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User                $first = $_;
260e8e04b0dc24cb884c789b5d9eb046457f264eTinderbox User        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $first = "" if ! defined($first);
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        open(TARGET, ">$file.new") || die "can't open $file.new: $!";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        print TARGET $before_copyright if $before_copyright;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        print TARGET $start_comment if $start_comment;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $years = "";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $last_year = 0;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        $anchor_year = 0;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        foreach $year (@years) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                if ($last_year != 0 && $year == $last_year + 1) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        if ($year > $anchor_year + 1) {
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                                substr($years, $anchor_end) = "-$year";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                        } else {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User                                $years .= ", $year";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User                        }
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User                } else {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User                        $years .= $last_year == 0 ? "$year" : ", $year";
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User                        if ($anchor_year != 0) {
9d557856c2a19ec95ee73245f60a92f8675cf5baTinderbox User                                print "$file: noncontiguous year: ",
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User                                      "$year != $last_year + 1\n";
057cafaa3df7be7a6dcca71fbaf8fb498fd83518Mark Andrews                        }
057cafaa3df7be7a6dcca71fbaf8fb498fd83518Mark Andrews                        $anchor_year = $year;
057cafaa3df7be7a6dcca71fbaf8fb498fd83518Mark Andrews                        $anchor_end = length($years);
057cafaa3df7be7a6dcca71fbaf8fb498fd83518Mark Andrews                }
057cafaa3df7be7a6dcca71fbaf8fb498fd83518Mark Andrews
2eeb74d1cf5355dd98f6d507a10086e16bb08c4bTinderbox User                $last_year = $year;
057cafaa3df7be7a6dcca71fbaf8fb498fd83518Mark Andrews        }
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        ($firstline, $secondline, @otherlines) = @$textp;
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        $firstline =~ s/\@YEARS\@/$years/;
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        $secondline =~ s/\@YEARS\@/$years/;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User        print TARGET "$prefix$firstline";
3241ddcf9354c5ab50f4df5a656e72a5c68e172bTinderbox User        print TARGET $secondline =~ /^$/ ? $nonspaceprefix : $prefix;
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User    print TARGET "$secondline";
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        foreach $_ (@otherlines) {
fd2597f75693a2279fdf588bd40dfe2407c42028Tinderbox User                print TARGET (/^$/ ? $nonspaceprefix : $prefix);
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein                print TARGET "$_";
60e5e10f8d2e2b0c41e8abad38cacd867caa6ab2Rob Austein        }
        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): $!";
        }
}