mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-30 22:15:20 +00:00
Code Issues Releases Wiki Activity

temporarily disable until updated to support non-C comments

Browse Source
This commit is contained in:
Bob Halley
1999-03-04 01:04:46 +00:00
parent 0b72c79146
commit efd6c944a4
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
util/update_copyrights
View File

@@ -1,5 +1,7 @@
#!/usr/local/bin/perl -w
die "This program is being updated; talk to Bob.";
if (@ARGV == 0) {
die "usage: update_copyrights <copyright_text>";
}
@@ -9,21 +11,22 @@ open(COPYRIGHT, "<$ARGV[0]") || die "can't open $ARGV[0]: $!";
close(COPYRIGHT);
while (<>) {
($file, $years_list) = split(/\s+/);
($file, $type, $years_list) = split(/\s+/);
@years = split(/,/, $years_list);
if ( ! -f $file ) {
print "$file: missing\n";
}
if ($years_list eq "SKIP") {
print "$file: SKIP\n";
if ($type eq "X") {
print "$file: X type; skipping\n";
next;
}
if ($file =~ /\.[chy]$/) {
if ($type eq "C") {
$c_comment = 1;
} else {
die "only C comments are supported right now";
print "$file: type '$type' not supported yet; skipping\n";
next;
}
open(SOURCE, "<$file") || die "can't open $file: $!";
$_ = <SOURCE>;