1 #!/usr/bin/perl

     2 

     3 # Copyright (c) 2009 Symbian Foundation Ltd

     4 # This component and the accompanying materials are made available

     5 # under the terms of the License "Eclipse Public License v1.0"

     6 # which accompanies this distribution, and is available

     7 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     8 #

     9 # Initial Contributors:

    10 # Symbian Foundation Ltd - initial contribution.

    11 # 

    12 # Contributors:

    13 #

    14 # Description:

    15 # Adds info form a file to a CSV

    16 

    17 use strict;

    18 my $csvfile = shift @ARGV;

    19 my $filelist = shift @ARGV;

    20 

    21 

    22 if(! -e $csvfile)

    23 {

    24   die "cannot find $csvfile\n";

    25 }

    26 

    27   

    28 if(!-e $filelist)

    29 {

    30   die "Cannot find $filelist\n";

    31 }

    32         my %files;

    33         open(FILES,"<$filelist") or die "Couldn't open $filelist\n";

    34         while(my $line = <FILES>)

    35         {

    36             $line =~ s/\\/\//g;

    37 

    38             if($line =~ m/^(.+)\s*:\s(.+\S)\s*$/)

    39             {

    40                 my $group = $1;

    41                 my $file = $2;

    42 

    43                 $file = lc($file);

    44                 if($files{$file})

    45                 {

    46            

    47                     $files{$file} = $files{$file}.",".$group;                                        

    48                        print "Multi:$file".$files{$file}."\n";

    49 

    50                 }

    51                 else

    52                 {

    53                      $files{$file} = ",".$group;

    54                 }

    55             }                

    56         }

    57         close FILE;

    58 

    59         open(CSV,"<$csvfile") or die "Couldn't open $csvfile\n";

    60         my $resultsfile = $csvfile."_results.csv"; 

    61         open(RESULTS,">$resultsfile") or die "Couldn't open write to $resultsfile\n";

    62         my $header = <CSV>;

    63         $header =~ s/\n//;

    64         print RESULTS $header.",status\n";

    65         my @fields = split(',',$header);

    66         my $targetindex = 0;

    67         my $counter = 0;

    68         my $bldinfindex = 0;

    69         

    70         my %failed;

    71         my %bldinffiles;

    72         foreach my $column (@fields)

    73         {

    74             if($column =~ m/target/)

    75             {

    76                 $targetindex = $counter;

    77             }

    78             elsif($column =~ m/bldinf/)

    79             {

    80               $bldinfindex = $counter;

    81             }

    82             ++$counter;

    83         }

    84 #        print "\ntarget:$targetindex\tbuildinf:$bldinfindex\n";

    85         while(my $line = <CSV>)

    86             {

    87             $line =~ s/\n//;

    88             @fields = split(',',$line);

    89             my $target = $fields[$targetindex];

    90             $target = lc($target);

    91             my $bldinf = $fields[$bldinfindex];

    92             if(!defined $bldinffiles{$bldinf})

    93             {

    94               $bldinffiles{$bldinf} = 1;

    95             }

    96  

    97             if(defined $files{$target})

    98                 {                    

    99                     $line = $line.$files{$target};

   100                     if($files{$target} =~ m/fail/i)

   101                     {

   102                       if(!defined $failed{$bldinf})

   103                       {

   104                         $failed{$bldinf} = 1;

   105                       }

   106                     }

   107                 }

   108             print RESULTS $line."\n";

   109             

   110             }            

   111         close RESULTS;

   112         close CSV;

   113         foreach my $bldinf (sort(keys %bldinffiles))

   114         {

   115           if(!defined $failed{$bldinf})

   116           {

   117             print "OK:\t$bldinf\n";

   118           }

   119         }

   120         foreach my $bldinf (sort(keys %failed))

   121         {

   122             print "Failed:\t$bldinf\n";

   123         }

   124