This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "uClibc-ng - small C library for embedded systems". The branch, master has been updated via 12e9febc815ae88403c16fb7874af46b7d71efd2 (commit) from 10f469f6ce1a0c14e4506c42e47e15aa83be2eef (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 12e9febc815ae88403c16fb7874af46b7d71efd2 Author: Martin Thomas <mtdev(a)hamtam.de> Date: Wed Jul 6 21:22:25 2016 +0200 The file list is at the beginning now Signed-off-by: Martin Thomas <mtdev(a)hamtam.de> ----------------------------------------------------------------------- Summary of changes: extra/scripts/findC.pl | 38 ++++++++++++++++++++++---------------- 1 file changed, 22 insertions(+), 16 deletions(-) mode change 100644 => 100755 extra/scripts/findC.pl diff --git a/extra/scripts/findC.pl b/extra/scripts/findC.pl old mode 100644 new mode 100755 index 555584c..0fbae78 --- 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"quot;; $header .= "Upstream-Name: uclibc-ng\n"; $header .= 'Upstream-Contact: Waldemar Brodkorb <wbx(a)uclibc-ng.org>'."\n"'."\n"; -$header .= "Source: git://uclibc-ng.org/git/uclibc-ng\n"quot;; +$header .= "Source: git://uclibc-ng.org/git/uclibc-ng\n\n"quot;; # 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; +} hooks/post-receive -- uClibc-ng - small C library for embedded systems