summaryrefslogtreecommitdiff
path: root/extra/scripts/findC.pl
diff options
context:
space:
mode:
Diffstat (limited to 'extra/scripts/findC.pl')
-rwxr-xr-x[-rw-r--r--]extra/scripts/findC.pl38
1 files changed, 22 insertions, 16 deletions
diff --git a/extra/scripts/findC.pl b/extra/scripts/findC.pl
index 555584c52..0fbae789b 100644..100755
--- a/extra/scripts/findC.pl
+++ b/extra/scripts/findC.pl
@@ -16,8 +16,8 @@ my $files;
my $encoding;
my @copyright;
my @copyrightout;
-my @ctext;
my @uniqcpr;
+my @output;
my $i;
$encoding = ":encoding(UTF-8)";
@@ -28,7 +28,7 @@ $directory="./";
$header = "Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/\n";
$header .= "Upstream-Name: uclibc-ng\n";
$header .= 'Upstream-Contact: Waldemar Brodkorb <wbx@uclibc-ng.org>'."\n";
-$header .= "Source: git://uclibc-ng.org/git/uclibc-ng\n";
+$header .= "Source: git://uclibc-ng.org/git/uclibc-ng\n\n";
# my $emailregex='\b[[:alnum:]._%+-]+@[[:alnum:].-]+.[[:alpha:]]{2,6}\b';
@@ -50,9 +50,9 @@ foreach $file (@files) {
chomp $row;
if ($row =~ m/[Cc]opyright / )
{
- $row =~ s/^[\s\/\*#!;.\"\\]*//;
- $row =~ s/\s+$//;
- push @copyright, { file => $file, text => $row};
+ $row =~ s/^[\s\/\*#!;.\"\\]*//; #remove leading
+ $row =~ s/\s+$//; #remove trailing
+ push @copyright, { file => $file, raw => $row};
last;
}
}
@@ -60,24 +60,30 @@ foreach $file (@files) {
}
}
-@copyrightout = sort { $a->{text} cmp $b->{text} } @copyright;
+#sort raw
+@copyrightout = sort { $a->{raw} cmp $b->{raw} } @copyright;
$tmp="";
-$i=0;
+$i=-1;
foreach (@copyrightout) {
- if ( $tmp eq $_->{'text'} )
+ if ( $tmp eq $_->{'raw'} )
{
- print " $_->{'file'}\n";
+ $output[$i]{"files"} .= "\n"." $_->{'file'}";
}
else
{
- print "\n";
- print $header;
- print "Copyright: $_->{'text'}\n";
- print "License: GNU Lesser General Public License 2.1\n";
- print "Files: $_->{'file'}\n";
+ ++$i;
+ $output[$i]{"header"} .= "Copyright: $_->{'raw'}\n";
+ $output[$i]{"header"} .= "License: GNU Lesser General Public License 2.1\n";
+ $output[$i]{"files"} .= "Files: ".$_->{'file'};
}
- $tmp=$_->{'text'};
- ++$i;
+ $tmp=$_->{'raw'};
}
+print "$header";
+$i=0;
+foreach (@output) {
+ print "$output[$i]->{'files'}\n";
+ print "$output[$i]->{'header'}\n";
+ ++$i;
+}