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 файл Показать все файлы Свернуть все файлы

112
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/;
#my $old_utk1 = "Copyright (c) 2004-2005 The Trustees of the University of Tennessee."; open FILENEW, ">$file.new" || die "could not open $file.new\n";
#my $old_utk2 = "All rights reserved."; print FILENEW $text;
close FILENEW;
my $text = join('', @lines); system("cp $file.new $file");
$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/; unlink("$file.new");
$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; sub add_copyright {
my ($file) = @_;
system("cp $file.new $file");
unlink("$file.new"); open FILE, $file;
while (<FILE>) {
if (0) { chomp;
while (<FILE>) { my $line = $_;
chomp; if ($line =~ /\$COPYRIGHT\$/) {
my $line = $_; my $prefix = $line;
if ($line =~ /\$COPYRIGHT\$/) { $prefix =~ s/(.+)\$COPYRIGHT\$.*$/\1/;
my $prefix = $line; if ($prefix ne "\$COPYRIGHT\$") {
$prefix =~ s/(.+)\$COPYRIGHT\$.*$/\1/; my $c = $prefix . $copy;
if ($prefix ne "\$COPYRIGHT\$") { $c =~ s/\n/\n$prefix/g;
my $c = $prefix . $copy; print FILENEW "$c\n";
$c =~ s/\n/\n$prefix/g; } else {
print FILENEW "$c\n"; print FILENEW "$copy\n";
} else { }
print FILENEW "$copy\n"; } else {
} print FILENEW "$line\n";
} else { }
print FILENEW "$line\n"; }
} close(FILENEW);
} close(FILE);
close(FILENEW); system("cp $file.new $file");
close(FILE); unlink("$file.new");
system("cp $file.new $file");
unlink("$file.new");
}
}
} }