991374db16
ra=edburns author= Nikolay Igotti Added and removed files - continued previous checkin. git-svn-id: svn://10.0.0.236/trunk@99136 18797224-902f-48f8-a5cc-f745e15eee43
103 lines
2.6 KiB
Perl
103 lines
2.6 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public
|
|
# License Version 1.1 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS
|
|
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
# implied. See the License for the specific language governing
|
|
# rights and limitations under the License.
|
|
#
|
|
# The Original Code is The Waterfall Java Plugin Module
|
|
#
|
|
# The Initial Developer of the Original Code is Sun Microsystems Inc
|
|
# Portions created by Sun Microsystems Inc are Copyright (C) 2001
|
|
# All Rights Reserved.
|
|
#
|
|
# $Id: add_legal.pl,v 1.1 2001-07-12 20:25:38 edburns%acm.org Exp $
|
|
#
|
|
# Contributor(s):
|
|
#
|
|
# Nikolay N. Igotti <nikolay.igotti@Sun.Com>
|
|
#
|
|
|
|
require "rules.pl";
|
|
|
|
$relpath = "";
|
|
sub get_type
|
|
{
|
|
my ($name) = @_;
|
|
foreach (keys %mapping)
|
|
{
|
|
return $mapping{$_} if ($name =~ /$_/);
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
sub handle_file
|
|
{
|
|
my ($file, $name) = @_;
|
|
my $type = get_type($name);
|
|
open(FILE, $file) || die "cannot read $file: $!";
|
|
#print "name=$name type=$type\n";
|
|
my @lines = <FILE>;
|
|
close(FILE);
|
|
my @newlines;
|
|
if ($type) {
|
|
my ($pre, $com1, $com2, $com3) =
|
|
($prefixes{$type}, $comments_start{$type},
|
|
$comments_middle{$type}, $comments_end{$type});
|
|
if (!$com1 || !com2 || !com3) {
|
|
print "not defined comments for type $type - skipping...\n";
|
|
@newlines = @lines;
|
|
} else {
|
|
@newlines = proceed($file, $type, @lines);
|
|
}
|
|
} else {
|
|
print "skipped $file...\n";
|
|
@newlines = @lines;
|
|
}
|
|
my $newname = "$newtree/$relpath$name";
|
|
open(FILE, ">$newname") || die "cannot write to $newname: $!"; ;
|
|
foreach (@newlines) {
|
|
print FILE $_;
|
|
}
|
|
close(FILE);
|
|
}
|
|
|
|
sub handle_dir
|
|
{
|
|
my ($dir, $short) = @_;
|
|
my $oldrelpath = $relpath;
|
|
$relpath .= $short."/" if ($short);
|
|
opendir(DIR, $dir) || die "can't opendir $dir: $!";
|
|
my $newdir = "$newtree/$relpath";
|
|
mkdir $newdir unless (-d $newdir);
|
|
# it will remove all starting with dot entries
|
|
my @entries = grep { !/^\.$/ && !/^\.\.$/} readdir(DIR);
|
|
closedir DIR;
|
|
my @filez = grep { -f "$dir/$_"} @entries;
|
|
foreach (@filez) { handle_file("$dir/$_", $_); }
|
|
my @dirz = grep { -d "$dir/$_" && !$ignore_dirs{$_}} @entries;
|
|
foreach (@dirz) {
|
|
print "Handling $relpath$_...\n";
|
|
handle_dir("$dir/$_", $_);
|
|
}
|
|
$relpath = $oldrelpath;
|
|
}
|
|
|
|
|
|
open(LIC, $license) || die "can't read license file $license: $!";
|
|
@lic = <LIC>;
|
|
close (LIC);
|
|
|
|
handle_dir($oldtree, "");
|
|
|
|
|
|
|
|
|
|
|
|
|