ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

Clean up the code so that it's at least usable in the future.

Просмотр исходного кода 
This commit was SVN r8000.
Этот коммит содержится в:
Jeff Squyres 2005-11-05 20:23:33 +00:00
родитель 42ec26e640
Коммит 00e7963c67
1 изменённых файлов: 62 добавлений и 52 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

114
contrib/copyright.pl
Просмотреть файл

@ -81,7 +81,26 @@ sub wanted {
1; 1;
} }
find (\&wanted, ".");
my $counts;
my $max_count = -1;
foreach my $file (sort keys %files_found) {
open FILE, $file;
my @found = grep(/\$COPYRIGHT\$/, <FILE>);
close(FILE);
if ($#found >= 0) {
print "Found file: $file\n";
# Added to fix IU/UTK copyrights, 5/Nov/2005
if (1) {
fix_iu_utk_copyright($file);
} else {
add_copyright($file);
}
}
}
#---------------------------------------------------------------------------
my $new_iu1 = "Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana"; my $new_iu1 = "Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana";
my $new_iu2 = "University Research and Technology"; my $new_iu2 = "University Research and Technology";
@ -91,59 +110,50 @@ my $new_utk1 = "Copyright (c) 2004-2005 The University of Tennessee and The Univ
my $new_utk2 = "of Tennessee Research Foundation. All rights"; my $new_utk2 = "of Tennessee Research Foundation. All rights";
my $new_utk3 = "reserved."; my $new_utk3 = "reserved.";
sub fix_iu_utk_copyright {
my ($file) = @_;
find (\&wanted, "."); open FILE, $file;
my $counts; my @lines = <FILE>;
my $max_count = -1; close FILE;
foreach my $file (sort keys %files_found) {
open FILE, $file;
my @found = grep(/\$COPYRIGHT\$/, <FILE>);
close(FILE);
if ($#found >= 0) {
print "Found file: $file\n";
open FILE, $file;
my @lines = <FILE>;
close FILE;
#my $old_iu1 = "Copyright \(c\) 2004-2005 The Trustees of Indiana University\."; my $text = join('', @lines);
#my $old_iu2 = "All rights reserved."; $text =~ s/([ \*\!\#\%\/dnl]*)Copyright \(c\) 2004-2005 The Trustees of Indiana University\.\n([ \*\!\#\%\/dnl]*)All rights reserved\.\n/$1$new_iu1\n$2$new_iu2\n$2$new_iu3\n/;
$text =~ s/([ \*\!\#\%\/dnl]*)Copyright \(c\) 2004-2005 The Trustees of the University of Tennessee\.\n([ \*\!\#\%\/dnl]*)All rights reserved\.\n/$1$new_utk1\n$2$new_utk2\n$2$new_utk3\n/;
open FILENEW, ">$file.new" || die "could not open $file.new\n";
print FILENEW $text;
close FILENEW;
#my $old_utk1 = "Copyright (c) 2004-2005 The Trustees of the University of Tennessee."; system("cp $file.new $file");
#my $old_utk2 = "All rights reserved."; unlink("$file.new");
}
my $text = join('', @lines);
$text =~ s/([ \*\!\#\%\/dnl]*)Copyright \(c\) 2004-2005 The Trustees of Indiana University\.\n([ \*\!\#\%\/dnl]*)All rights reserved\.\n/$1$new_iu1\n$2$new_iu2\n$2$new_iu3\n/; #---------------------------------------------------------------------------
$text =~ s/([ \*\!\#\%\/dnl]*)Copyright \(c\) 2004-2005 The Trustees of the University of Tennessee\.\n([ \*\!\#\%\/dnl]*)All rights reserved\.\n/$1$new_utk1\n$2$new_utk2\n$2$new_utk3\n/;
sub add_copyright {
open FILENEW, ">$file.new" || die "could not open $file.new\n"; my ($file) = @_;
print FILENEW $text;
close FILENEW; open FILE, $file;
while (<FILE>) {
system("cp $file.new $file"); chomp;
unlink("$file.new"); my $line = $_;
if ($line =~ /\$COPYRIGHT\$/) {
if (0) { my $prefix = $line;
while (<FILE>) { $prefix =~ s/(.+)\$COPYRIGHT\$.*$/\1/;
chomp; if ($prefix ne "\$COPYRIGHT\$") {
my $line = $_; my $c = $prefix . $copy;
if ($line =~ /\$COPYRIGHT\$/) { $c =~ s/\n/\n$prefix/g;
my $prefix = $line; print FILENEW "$c\n";
$prefix =~ s/(.+)\$COPYRIGHT\$.*$/\1/; } else {
if ($prefix ne "\$COPYRIGHT\$") { print FILENEW "$copy\n";
my $c = $prefix . $copy; }
$c =~ s/\n/\n$prefix/g; } else {
print FILENEW "$c\n"; print FILENEW "$line\n";
} else { }
print FILENEW "$copy\n"; }
} close(FILENEW);
} else { close(FILE);
print FILENEW "$line\n"; system("cp $file.new $file");
} unlink("$file.new");
}
close(FILENEW);
close(FILE);
system("cp $file.new $file");
unlink("$file.new");
}
}
} }